2017-01-20 12 views
0

同じワークシート上の別のセルが空でない場合にのみ、特定のTarget.AddressでSelectionChangeイベントをトリガーする方法を探しています。私が使用しています コードは、このいずれかになります。excel vbaでselectionchangeイベントをトリガーする前に条件を調べる方法

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Target.Address = Range("K20:M20").Address Then _ 
    RequestorNameEmpty 

Sub RequestorNameEmpty() 
    If ActiveSheet.Range("D20:H20").Value = "" Then 
     MsgBox ("Enter your name first! ") 
     GoTo ExitSub 
     Else 
     ActiveSheet.Range("K20:M20").Value = ActiveSheet.Range("C3").Value 
    End If 
ExitSub 
    Exit Sub 

End Sub 

答えて

2

この

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Address = Range("K20:M20").Address Then RequestorNameEmpty 
End Sub 

Sub RequestorNameEmpty() 
    If Range("D20").Value = "" Then 
     MsgBox ("Enter your name first! ") 
     Exit Sub 
    Else 
     Range("K20").Value = Range("C3").Value 
    End If 
End Sub 
を試しいただきありがとうございます
関連する問題