如果是真,那么excel然后是a和b和c

时间:2013-10-09 15:49:41

标签: excel excel-vba excel-2010 vba

我正在使用MS Excel 2010,如果值为true,则需要更改多个单元格的内容,例如a2 =2b2=1c2=$30d2=10

    A       B       C       D
1   Prz     Stat    Val     Pts
2   2       1       $30     10

如何在Excel IF B2=1 THEN A2+1 AND C2+30 AND D2+5中执行以下操作,以便将上述单元格更改为: -

    A       B       C       D
1   Prz     Stat    Val     Pts
2   3       1       $60     15

e.g。 a2=3c2=60d2=15

2 个答案:

答案 0 :(得分:0)

首先选择包含数据的工作表并运行这个简单的宏:

Sub TestAndBump()
    If [B2] = 1 Then
        [A2] = [A2] + 1
        [C2] = [C2] + 30
        [D2] = [D2] + 5
    End If
End Sub

答案 1 :(得分:0)

使用上面的Gary的学生解决方案,您还可以将宏放在工作表更改事件中:

Private Sub Worksheet_Change(ByVal Target As Range)
   If [B2] = 1 Then
        [A2] = [A2] + 1
        [C2] = [C2] + 30
        [D2] = [D2] + 5
    End If
End Sub

将代码放在包含数据的工作表中。通过这样做,您不必在每次更改数字时都运行宏。