Excel VBA質問箱 IV

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

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


26779 / 76732 ←次へ | 前へ→

【55282】Re:データの抽出
発言  テト  - 08/4/25(金) 15:55 -

引用なし
パスワード
   こういうことかな?
違ったらごめん。

――――――――――――――――――――――――――――――
Dim wsSrch As Worksheet
Dim wsQuery As Worksheet
Dim sv As String
Dim rng As Range
Dim target As Range
Dim fstAddress As String
Dim v As String
Dim targetCol As Long

Set wsSrch = ActiveWorkbook.Worksheets("検索")
Set wsQuery = ActiveWorkbook.Worksheets("クエリ")

'検索結果値クリア
wsSrch.Range("D7").Value = ""

'検索値設定
sv = wsSrch.Range("D4").Value

If sv = "" Then
  Exit Sub
End If

'出力対象列設定
targetCol = 4

'検索範囲
Set rng = wsQuery.Range("A1:D" & Range("A1").End(xlDown).Row)

'検索実行
Set target = rng.Find(sv)

If Not target Is Nothing Then
  '初回一致セルアドレス
  fstAddress = target.Address

  '検索結果値取得
  v = target.Offset(0, targetCol - target.Column).Value

  Do
    '次検索
    Set target = rng.FindNext(target)

    If target.Address = fstAddress Then
      Exit Do
    Else
      '検索結果値結合
      v = v & vbLf _
         & target.Offset(0, targetCol - target.Column).Value
    End If
  Loop
End If

'検索結果値設定
wsSrch.Range("D7") = v
――――――――――――――――――――――――――――――

6 hits

【55272】データの抽出 yasu 08/4/25(金) 14:04 質問
【55274】Re:データの抽出 Jaka 08/4/25(金) 14:58 発言
【55275】Re:データの抽出 テト 08/4/25(金) 15:05 発言
【55276】Re:データの抽出 yasu 08/4/25(金) 15:27 発言
【55282】Re:データの抽出 テト 08/4/25(金) 15:55 発言
【55287】Re:データの抽出 yasu 08/4/25(金) 16:53 お礼

26779 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free