Excel VBA質問箱 IV

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

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


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

21170 / 76732

←次へ　｜　前へ→


	【60964】全文検索と該当セルの取り込みについて

カンジ - 09/3/27(金) 21:57 -


	引用なし

	パスワード

全文検索について教えてください
同じ値の検索は下記で出来たのですが、全文検索がうまく出来ません。
同じ値の検索は下記で何とかできたのですが、下記のRange("F1")（例えば
「家族」など）を含むセルを検索し取り込む方法が分かりません。
設定の仕方を教えてください。よろしくお願いします。

Sub ワード全文検索()
　　Dim GOOD As String
　　Dim シート名1 As String
　　Dim シート名2 As String
　　シート名1 = "元データ"　　　'検索対象のシート
　　シート名2 = "GOOD情報"　　　'ここに検索したセルを集める
　　GOOD = Worksheets(シート名2).Range("F1")　'F1は家族など　
　　i = 2　　
　　Worksheets(シート名2).Select　　　'検索のセルをシート名2に集めます　
　　Do While Sheets(シート名1).Cells(i, 2) <> ""
　　　　If Sheets(シート名1).Cells(i, 2) = GOOD Then
　　　　'If Columns(2).Find(Worksheets(シート名2).Range("F1").Value) = GOOD Then
　　　
　　　　ActiveSheet.Range("B100").End(xlUp).Offset(1, 0).Select
　　　　Selection.Value = Sheets(シート名1).Cells(i, 3)　　　
　　　　ActiveCell.Offset(0, 1).Value = Sheets(シート名1).Cells(i, 4)
　　　
　　　End If
　　　　i = i + 1
　　Loop
　　　
　　Range("A1").Select
　End Sub

0 hits

▼

【60964】全文検索と該当セルの取り込みについて カンジ 09/3/27(金) 21:57

≪