Excel VBA質問箱 IV

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

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


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

33677 / 76734

←次へ　｜　前へ→


	【48273】Re:最終行までのチェックする方法について

りん

- 07/4/11(水) 8:22 -


	引用なし

	パスワード

Tomo さん、おはようございます。

>その都度MsgBoxを表示させることでしたが？それは不可能でしょうか？

Sub test1()
　 Dim R As Range
　 Dim MyR As Range
　 Dim msg As String

　 Set MyR = Range("A7", Range("A65536").End(xlUp))
　 For Each R In MyR
　　　 If R.Value = Range("D6").Value Then
　　　　 '毎回出すならループ処理の内側で
　　　　 MsgBox R.Address(False, False), vbInformation, "該当セル"
　　　　 msg = msg & vbCrLf & R.Address(False, False)
　　　 End If
　 Next
　 If msg = "" Then
　　　MsgBox "該当する文字はありません　", 48
　 Else
　　　MsgBox "以下のセルが該当しました" & msg$, vbInformation, Range("D6").Value
　 End If
End Sub
こんな感じです。

1 hits

▼

【48239】最終行までのチェックする方法について Tomo 07/4/9(月) 20:58