Excel VBA質問箱 IV

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

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


41200 / 76732 ←次へ | 前へ→

【40613】Re:検索して○をつける
回答  Statis  - 06/7/19(水) 9:25 -

引用なし
パスワード
   こんにちは

シートのイベントで作ってみました。
該当のシートモジュールに記載
動作:セルA1に値を入力後「enter」等でセルが移動すると動作します。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fi As Range, Ad As String, R As Range, Co As Long
With Target
   If .Cells.Count > 1 Then Exit Sub
   If .Address(0, 0) <> "A1" Then Exit Sub
   If .Value = "" Then Exit Sub
   Set R = Range("B2", Range("B65536").End(xlUp))
   Set Fi = R.Find(.Value, , xlValues, xlWhole)
   Application.EnableEvents = False
   R.Offset(, -1).ClearContents
   If Not Fi Is Nothing Then
    Ad = Fi.Address: Co = 0
    Do
     Set Fi = R.FindNext(Fi)
     Fi.Offset(, -1).Value = "○"
     Co = Co + 1
    Loop Until Ad = Fi.Address
    MsgBox "一致したデータは「" & Co & "」です。", vbInformation
   Else
    MsgBox "一致データはありませんでした。", vbInformation
   End If
   Application.EnableEvents = True
   Set Fi = Nothing
End With
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 お礼

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