Excel VBA質問箱 IV

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

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


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

41204 / 76732

←次へ　｜　前へ→


	【40609】Re:検索して○をつける

ぴかる - 06/7/18(火) 20:36 -


	引用なし

	パスワード

MIWAさん、こんばんは。

こんな感じでいかがです？
帰宅するんで、もうなんも出来ませんが・・・。
Sub test()
　　
Dim I As Long
Dim 最終行 As Long
Dim 一致数 As Long

　　最終行 = Range("B2").End(xlDown).Row
　　Range(Cells(2, 1), Cells(最終行, 1)).ClearContents
　　For I = 2 To 最終行
　　　　If Range("A1").Value = Cells(I, 2).Value Then
　　　　　　一致数 = 一致数 + 1
　　　　　　Cells(I, 1).Value = "○"
　　　　End If
　　Next
　　If 一致数 > 0 Then
　　　　MsgBox "[" & Range("A1").Value & "]" & "との一致数は、[" & 一致数 & "]ですよん！", _
　　　　　　　　vbInformation, "一致数チェック"
　　Else
　　　　MsgBox "[" & Range("A1").Value & "]" & "との一致したものはありまへん！", _
　　　　　　　　vbInformation, "一致数チェック"
　　End If
　　　　
End Sub

0 hits

▼

【40608】検索して○をつける MIWA 06/7/18(火) 19:33