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/

当掲示板について

Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
新規の質問を投稿する場合はこちら ⇒
記事内ではHTMLのタグは使用できません。
記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。

返信入力フォーム

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

▲
Page
Top