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 質問
【40609】Re:検索して○をつける ぴかる 06/7/18(火) 20:36 回答
【40624】Re:検索して○をつける MIWA 06/7/19(水) 12:08 お礼
【40613】Re:検索して○をつける Statis 06/7/19(水) 9:25 回答
【40625】Re:検索して○をつける MIWA 06/7/19(水) 12:10 お礼

41204 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free