Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13026 / 76734

←次へ　｜　前へ→


	【69218】Re:複数列の検索

ｄａｎ - 11/6/6(月) 22:03 -


	引用なし

	パスワード

お二方とも，丁寧なご回答ありがとうございました。

CountIfは初めて知りました。
勉強になります。

私は実は後者の方に近いほうの考え方で模索していたのですが，
なるほど，「０を含む」ほうを
If Ｎｏｔ～ Is Nothing　と記述すればよかったのですね。
ありがとうございました。

とり急ぎお礼まで。

↓自分でも記述してみました。

Sub NGTest()

Dim myStr0 As String
Dim myStr As String

Dim mycell0 As Range
Dim myCell As Range
　　　　
　　　　myStr0 = "0"　'検索する文字列
　　　　myStr = "1"

'検索
　　　　Set mycell0 = Range("A2", Range("A65536").End(xlUp)).Find(myStr0)
　　　　Set myCell = Range("B2", Range("B65536").End(xlUp)).Find(myStr)
　　　　
If Not mycell0 Is Nothing And myCell Is Nothing Then
　　　　MsgBox "ＮＧだそうです。", vbCritical, "ＮＧ!!"
End If

End Sub

2 hits

▼

【69211】複数列の検索 ｄａｎ 11/6/6(月) 7:44