本帖最后由 陈小林 于 2014-8-17 16:51 编辑
A列和C列的值大于或等于0时,E列自动打勾
45 | | 54 | | √ | | 0 | | 545 | | √ | | 2121 | | 0 | | √ | | | | 212 | | | 空白不打√ | 0 | | 0 | | √ | | 454 | | | | | 空白不打√ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
陈小林 发表于 2014-8-17 12:49
请问如何直接在A和C列输入后在E直接显示,不用那个按钮。 - Private Sub Worksheet_Change(ByVal Target As Range)
- c = Target.Column
- r = Target.Row
- Debug.Print r, c
- If c = 1 Or c = 3 Then
- If Cells(r, "A") = "" Or Cells(r, "C") = "" Then
- Cells(r, "E") = ""
- Else
- Cells(r, "E") = "V"
- End If
- End If
- End Sub
复制代码Private Sub Worksheet_Change(ByVal Target As Range)
c = Target.Column
r = Target.Row
Debug.Print r, c
If c = 1 Or c = 3 Then
If Cells(r, "A") = "" Or Cells(r, "C") = "" Then
Cells(r, "E") = ""
Else
Cells(r, "E") = "V"
End If
End If
End Sub
將代碼複製,按ALT-F11點選該 WORKSHEET(如Sheet1),貼上代碼
檔案儲存再重新開啟,同意巨集運行
|