Excel VBA質問箱 IV

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

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


16479 / 76734 ←次へ | 前へ→

【65720】Re:検索結果をカウントしたい
発言  Jaka  - 10/6/23(水) 16:03 -

引用なし
パスワード
   私なら、質面倒くさいのが嫌いなんで、遅くともエクセル関数のCountIfを使ってしまうところですが。

>  Set my検索セル1. = Range("検索範囲1.").Find(What:=srcName)
>  If Not my検索セル1. Is Nothing Then
     Count = Count + 1    ←単純に+1していけばいいと思います。
>    Cells(j, "F").Value = Count
>  Else
>    MsgBox srcName & "ありません"
>  End I

尚、単純に+1していけば良いというのが、うまくいかないからなのだろうと推測しますと、
Findでの引数の指定が足りないから。

今回の場合は、どこから検索するかの指定が足りないのが原因。
検索範囲の1番最後のセルの次から検索するとの指定、
つまり範囲1番目のセルから検索しろとの条件が無い。

指定しないと、アクティブセルの次のセルからとなります。
要するに、初めはアクティブセルは見ないで、アクティブセルの次から検索して、回り回って1番最後にアクティブセルを見る。

Find(値, After:=Range(検索したい位置), LookIn:=xlValues,・・出来たらこれらも省かない。

With Range("検索範囲1.")
  .Set my検索セル1. = .Find(What:=srcName, After:=.Cells(.Cells.count))
End with

1 hits

【65719】検索結果をカウントしたい kei 10/6/23(水) 15:20 質問
【65720】Re:検索結果をカウントしたい Jaka 10/6/23(水) 16:03 発言
【65721】Re:検索結果をカウントしたい kei 10/6/23(水) 17:13 質問
【65728】Re:検索結果をカウントしたい Jaka 10/6/24(木) 9:58 発言
【65732】Re:検索結果をカウントしたい Jaka 10/6/24(木) 10:39 発言
【65735】Re:検索結果をカウントしたい kei 10/6/24(木) 11:37 質問
【65736】Re:検索結果をカウントしたい Jaka 10/6/24(木) 11:52 発言
【65738】Re:検索結果をカウントしたい kei 10/6/24(木) 14:02 お礼

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