FineNextにて一回検索された文言に変更されてしまう……

Question

お世話になっております。

今現在”今期””をエクセル内検索して配列に格納しようとしております……

ネット上で　”vba 検索 Find複数”　で検索して出てきた
【エクセルVBA】FindNextメソッドで指定範囲内の検索条件にヒットする値をすべて取得する方法
にてFindNextというものがあり使えそうだと思って実装したのですが

3期A1　60
4期A1　70
5期A1　80

3期B1  55
4期B1  66
5期B1  77

3期A+B  555
4期A+B  666
5期A+B  777

3期A+B  55
4期A+B  66
5期A+B  77

[利益シート]

のようなデータがあった場合
実装として

Dim year, kikawarime As Integer, gKi As String

Private Function getTounenndoGyou() As Variant
    Dim tmp As Integer
    Dim rng As Range, tempRng As Range, searchRng As Range
    
    tmp = year - 2018
    gKi = Str(tmp) & "期"
    gKi = Replace(gKi, " ", "")
    Dim kiGyouArray(7), i As Integer
    
    Set searchRng = Range("B:B")
    ' 最初はFindで検索
    Set rng = searchRng.Find(gKi)
    ' 検索結果を一時保存
    Set tempRng = rng
    
    i = 1

    ' 条件にあったセルが見つからなければNothingが返るので何もしません
    Do While Not rng Is Nothing
        
        Debug.Print rng.Row
        kiGyouArray(i) = rng.Row
        i = i + 1
        
        ' FindNextで検索を継続
        Set rng = searchRng.FindNext() '←←←←←←←←←←←これでどう？？？
        
        ' すべて検索し終えると最初に戻るので、Addressで確認！
        ' これを忘れると無限ループになるので注意！
        If rng.Address = tempRng.Address Then
            Exit Do
        End If
    Loop
    
    getTounenndoGyou = kiGyouArray

End Function

Sub 全社支社利益の色更新_Click()
    Dim wb As Workbook
    Dim fname As String
    Dim tounendoGyou() As Variant
    fname = Range("B1").Value

    Set wb = Workbooks.Open(fname)
    With Worksheets("利益")
        Worksheets("利益").Select     '
        tounendoGyuu = getTounenndoGyou

:
End Sub

以上の上記URLを参考に実装しました……

ですが一回　searchRng.Findをすると上記の場合だと
rng　が　5期A1　とセットされてしまい
5期のみで検索した次の文言が取得出来ません……

    Set rng = searchRng.FindNext() 

を
Set rng = searchRng.FindNext(gKi)
とすると実行時エラー'1004'と出て「ヘルプ」を押下すると

https://docs.microsoft.com/en-us/office/client-developer/excel/excel-home?redirectedfrom=MSDN
に飛んでしまうのでen-usをja-jpにして右上の検索窓で
FindNextと検索して探した
https://docs.microsoft.com/ja-jp/office/vba/api/excel.range.findnext
を見てWhat:="X"と指定してあったので
Set rng = searchRng.Find(What:=gKi, LookAt:=xlPart)
としても駄目でした……

どうやったら検索の文言を変更せずにFindNextが使用出来るのか
なんという語句で調べれば良いかお問い合わせしてよろしいでしょうか？

長々と大変申し訳ないのですが何か情報をお持ちな方はコメント頂けますと嬉しく思います。

---

追記
[利益シート]
に

3期A+B 55
4期A+B 66
5期A+B 77

3期A+B 55
4期A+B 66
5期A+B 77

と同じものがあった場合
Set rng = searchRng.FindNext(rng)
では何か先に進めない気がします……

もうちょっと調べてみます。

Answer 1

FindNextの引数の説明をよく読んでください。
Webサイト検索して調べた、FindNextを使用したサンプルと見比べてみて、引数がおかしいと思いませんか？よーく見てみましょう。

FindNextというものがあり使えそうだと思って実装したのですが

いきなり本番で使うExcelで実装する前に、別にExcelファイルを作って、
必要最小限のコードで動作を確認して、上手くいってから実装するようにしましょう。

Comments

[ma2hiro]

radian様
仰る通り
＞別にExcelファイルを作って、
＞必要最小限のコードで動作を確認して、上手くいってから実装するようにしましょう。
ですね……
アドバイスありがとうございます。
そのように心がけます。
本当にありがとうございました。

Answer 2

部分一致で検索したいということでしょうか。
検索値が「5期」で「5期A1」「5期B1」にヒットさせたい。

だとしたら、 FindメソッドのLookAt引数にxlPartを指定しましょう。
指定を省略すると完全一致(xlWhole)になる可能性があります(検索ダイアログの設定を引き継ぐ)。

 Set rng = searchRng.Find(What:=gKi, LookIn:=xlValues, LookAt:=xlPart)

また、FindNextメソッドの引数には検索したセル(Rangeオプジェクト)を指定します。そのセルの次から検索するという意味になりますので。

Set rng = searchRng.FindNext(rng) 

条件に当てはまるセルを検索する(Find/FindNext/FindPreviousメソッド) ：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

Comments

[ma2hiro]

ありがとうございます。
Set rng = searchRng.FindNext(rng)
としなければ次を検索と出来なかったのですね……

勉強不足失礼しました。
ありがとうございました。

調べていた
[【エクセルVBA】FindNextメソッドで指定範囲内の検索条件にヒットする値をすべて取得する方法 ](https://tonari-it.com/excel-vba-findnext-method/)
にも
Set rngSearch = myRange.FindNext(rngSearch)
とか書いてありました……

【Excel VBA入門】Findメソッドで条件に一致するセルを検索する方法 – Valmore https://valmore.work/find-cell-by-find/
にも
‘ 前回値が見つかったセルの次から検索
Set rng = .FindNext(rng)
と書いてありますね……

ちゃんと読まなくて実装してお手数おかけして失礼しました。

[ma2hiro]

と思いましたが
```
[利益シート]
に
```
3期A+B 55
4期A+B 66
5期A+B 77

3期A+B 55
4期A+B 66
5期A+B 77
```
と同じものがあった場合
Set rng = searchRng.FindNext(rng)
で次のを探さない気がしますので調査方法をご助力頂けないでしょうか？
TOPも追記しました。

お忙しい所大変申し訳無いのですが以上お問い合わせいたします。

[ma2hiro]

と思いましたが
=$B$8
とか指定していたので駄目だった模様……
とりあえず元excelの値コピーして対処します。

度々失礼いたしました。

[hatena19]

回答のリンク先などで引数について調べてみてください。
下記の記述があるはずです。

LookIn　検索の対象を指定 数式（xlFormulas）、値（xlValues）、コメント（xlComments）

下記のように値で検索するようにすれば、=$B$8などと数式が設定してあってもヒットするはずです。

Set rng = searchRng.Find(What:=gKi, LookIn:=xlValues, LookAt:=xlPart)

[ma2hiro]

度々ありがとうございます。
せっかくご紹介して頂いたURLなのに
じっくり見ていないため大変失礼しました。

そちらで実装してみます。
本当にありがとうございました。