检查信息范围 - 双击

Question

我正在尝试编写一个宏来检查列A，B，C（含）是否包含信息。如果所有这些列都包含信息，则允许用户双击D列，然后填充Environ（“用户名”）。如果这些列是空白的话，那么乱码框会弹出msgbox（“缺失信息”）。我无法理解这一点。

Answer 1

尝试

0

关于如何添加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 ，请参阅this。