|
ちくたくさん、IROCさん
本件より外れた内容にまで、細かなご返信頂きましてありがとうございます。
無事に解決できました。若干重々しい感じになってますが、以下のように
なりました。
BUMON = ""
Set BUMON = SH5.Range(Cells(1, 1), Cells(3, 3)).Find(What:="*AAA*", lookat:=xlWhole)
If BUMON Is Nothing Then
Set BUMON = SH5.Range(Cells(1, 1), Cells(3, 3)).Find(What:="*BBBB*", lookat:=xlWhole)
If BUMON Is Nothing Then
Set BUMON = SH5.Range(Cells(1, 1), Cells(3, 3)).Find(What:="*CC*", lookat:=xlWhole)
If BUMON Is Nothing Then
MsgBox "データなし"
Else
処理C
End If
Else
処理B
End If
Else
処理C
End If
これで心置きなく帰宅できます。ありがとうございました。
|
|