检查信息的范围 - 双击

Question

我想写一个宏来检查列A，B，C（含）是否有信息。如果所有这些列中都有信息，则允许用户在列D中双击，然后填入Environ（“用户名”）。如果有任何这些列是空白的messgebox弹出msgbox（“缺少信息”）。我无法解决这个问题。

Answer 1

尝试

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Target, Range("D:D")) Is Nothing Then 
     If Application.CountIf(Range("A" & Target.Row & ":C" & Target.Row), "") > 0 Then 
      MsgBox "Missing Information " 
     Else 
      Target = Environ("Username") 
     End If 
    End If 
End Sub 

如何添加Worksheet_BeforeDoubleClick看到this。