Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5996 / 76733

←次へ　｜　前へ→


	【76341】Re:2つの値検索して取得

you - 14/11/1(土) 18:58 -


	引用なし

	パスワード

γ さんありがとうございます。
ご指摘を参考に直してみたのですが
Selection.FIND(what:=TanNo, lookat:=xlWhole).Activate
でデバックがでます。

Sub 検索結果()
'
Dim ANSYL As Integer
Dim TanNo, FIND As Variant
Dim X1, X2 As Worksheet

'検索シート(X2)、一覧シートX1)を省略形
　　Set X1 = Worksheets("DB")
　　Set X2 = Worksheets("検索")

'姓名を検索
　 TanNo = X2.Range("A1").Value & X2.Range("A2").Value
　　
'一覧シートの中で姓名を検索
　　X1.Activate
　　Set FND = X1.Columns("A:A").FIND(what:=TanNo, lookat:=xlWhole)
　　
'姓名が存在すれば､アクティブにし､行番号を取得

　　　　X1.Activate
　　　　X1.Range("A:A").Select
　　　　Selection.FIND(what:=TanNo, lookat:=xlWhole).Activate
　　　　　　ANSYL = ActiveCell.Row

'検索シートに結果を表示
　　　　X2.Cells(1, 3) = X1.Cells(ANSYL, 4) '社名
　　　　X2.Cells(1, 4) = X1.Cells(ANSYL, 5) '住所
　　　　X2.Cells(1, 5) = X1.Cells(ANSYL, 6) '電話番号

X2.Activate
Range("D4").Select

End Sub

また、作成していただいたマクロなんですが、A１に姓、A2に名を入れると「該当なし」A2の名をセルから消すとマクロが実行されA3、A4、A5に値が返されます。

見よう見まねで作成しているのでVBAがよく分かっていません。
議論にならず。申し訳ありません。
よろしくお願いします。

2 hits

▼

【76332】2つの値検索して取得 you 14/11/1(土) 0:31