[已解决]A列和C列的值大于或等于0时，E列自动打勾

十五的月亮

陈小林 发表于 2014-8-17 12:49
请问如何直接在A和C列输入后在E直接显示，不用那个按钮。

=if(count(A1,C1)=2,"√","")
或者=if(and(A1>=0,C1>=0),"√","")

AmoKat

陈小林 发表于 2014-8-17 12:49
请问如何直接在A和C列输入后在E直接显示，不用那个按钮。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     c = Target.Column
   
3.     r = Target.Row
   
4.     Debug.Print r, c
   
5.     If c = 1 Or c = 3 Then
   
6.         If Cells(r, "A") = "" Or Cells(r, "C") = "" Then
   
7.             Cells(r, "E") = ""
   
8.         Else
   
9.             Cells(r, "E") = "V"
   
10.         End If
    
11.     End If
    
12. 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)，貼上代碼
檔案儲存再重新開啟，同意巨集運行

陈小林

谢谢大家！！