情報の範囲を確認する - ダブルクリック

Question

列A、B、C（列を含む）に情報があるかどうかを確認するマクロを作成しようとしています。これらすべての列に情報がある場合、列DをダブルクリックしてEnviron（「ユーザー名」）を入力することができます。これらの列が空白の場合は、messboxがmsgbox（ "Missing Information"）をポップアップします。私はこれについて私の頭を得ることができませんでした。

Answer 1

Worksheet_BeforeDoubleClickthisを参照を追加する方法について

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 

を試してみてください。