Excel VBA 質問スレッド No.156 (未解決)

FINDNEXT

投稿者 : たろさく     投稿日時 : 2021/01/07(Thu) 12:13:49     OS : Windows 10     EXCEL : 未指定
名前苗字に合致したセルから他の項目を吸い出すVBAで
名前苗字が重複している場合のFINDNEXTを作成したいのですがご教示願えないでしょうか。

Sub 名前から検索()

Dim kensaku As String, nameclm As Range, myname As Range
Set nyuuryoku = Worksheets("入力更新").Cells(2, 3)
kensaku = Worksheets("入力更新").Cells(13, 3).Value
Set nameclm = Worksheets("情報記入").Columns(16)
Set myname = nameclm.Find(kensaku, LookAt:=xlWhole)
If Not myname Is Nothing Then
For i = 0 To 38
nyuuryoku.Offset(i, 0).Value = myname.Offset(0, i - 11).Value
Next
Else
MsgBox kensaku & " は、ありません。"
End If
End Sub


宜しくお願い致します。

[返信 1] Re : FINDNEXT
投稿者 : ヘンリー     投稿日時 : 2021/01/07(Thu) 14:59:40
FindNextについて調べてみましたか?

以下のサイトが参考になると思います。
https://programming-study.com/technology/vba-findnext/

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2021-01-27 13:29:46 )

Page
Top