| |
回答有難うございます。
If Target.Address = "$A$3" Then
If Target.Value = "佐藤" Or Target.Value = "田中" Or Target.Value = "森" Then
MsgBox "ＯＫ"
Exit Sub '・・・1.
Else
MsgBox "名前が見つかりません" & vbCrLf & Target.Address & " " & Target.Value
End If
Else
MsgBox "入力チェック範囲外 " & Target.Address
End If
このコードで実行してみましたが、Ａ３のセルに佐藤と入力すると、
「入力チェック範囲外 $B$3」
という風に表示されます。
If Target.Address = "$A$3" Then
でＡ3のセルを取得しているはずなのになぜ
MsgBox "入力チェック範囲外 " & Target.Address
で$B$3と表示されるのがわかりません。
ちなみに
MsgBox "名前が見つかりません" & vbCrLf & Target.Address & " " &
ではきちんと
「名前がみつかりません
$A$3 名前」
というように表示されます。
|
|
VBAビギナー
- 05/10/29(土) 18:10 -
