Excel VBA質問箱 IV

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

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


45667 / 76732 ←次へ | 前へ→

【36053】Re:ユーザーフォームにて検索結果をリストに表すには?
発言  エターナル  - 06/3/20(月) 10:26 -

引用なし
パスワード
   レス遅くなり申し訳ありません。
前回作ったものと違うのですが、下記のようなものです。
前回はデバッグではエラーにはなりませんでしたが、今回はデバッグの時点でエラー
となります。


Private Sub CommandButton1_Click()
Dim rng As Range, r As Range, rn As Range
Dim vnt As Variant, v, txtList
Dim dicChk As Object
  '
  txtList = Array("")
  With "\db.csv" '←ここがエラーになります。前回はどう記述したか忘れました。
    Set rng = .Range("A1", .Range("G65536"))
         
   End With
  '
  Set dic = CreateObject("Scripting.Dictionary")
  Set dicChk = CreateObject("Scripting.Dictionary")
  '
  For Each v In txtList
  For Each rn In rng.Cells
  For Each r In rn.Resize(1, 3)
    If r.Text Like ("") Then
      If dic.exists(v) Then
        If dicChk.exists(r.Row & v) Then Exit For
        vnt = dic(v)
        ReDim Preserve vnt(UBound(vnt) + 1)
        vnt(UBound(vnt)) = Cells(r.Row, 1).Resize(1, 7).Value
      Else
        ReDim vnt(0 To 0)
        vnt(0) = Cells(r.Row, 1).Resize(1, 7).Value
      End If
      dic(v) = vnt
      dicChk(r.Row & v) = ""
    End If
  Next
  Next
  Next
  '
  TextBox1.List = txtList
  
  ListBox1.ColumnCount = 7  'ListBox1の列は7列にする
  '
  Set dicChk = Nothing
  Set rng = Nothing
  End Sub


Private Sub TextBox1_Change()
  ListBox1.List = Application.Transpose(Application. _
          Transpose(dic(TextBox1.Value)))
End Sub

Private Sub UserForm_Terminate()
  Set dic = Nothing
End Sub

End Sub
11 hits

【36010】ユーザーフォームにて検索結果をリストに表すには? エターナル 06/3/18(土) 18:05 質問
【36030】Re:ユーザーフォームにて検索結果をリスト... かみちゃん 06/3/19(日) 12:18 発言
【36044】Re:ユーザーフォームにて検索結果をリスト... エターナル 06/3/20(月) 0:18 発言
【36045】Re:ユーザーフォームにて検索結果をリスト... とおりすがり 06/3/20(月) 7:59 発言
【36048】Re:ユーザーフォームにて検索結果をリスト... かみちゃん 06/3/20(月) 9:39 発言
【36053】Re:ユーザーフォームにて検索結果をリスト... エターナル 06/3/20(月) 10:26 発言
【36066】Re:ユーザーフォームにて検索結果をリスト... かみちゃん 06/3/20(月) 13:13 発言
【36067】Re:ユーザーフォームにて検索結果をリスト... エターナル 06/3/20(月) 13:26 発言
【36069】Re:ユーザーフォームにて検索結果をリスト... かみちゃん 06/3/20(月) 13:52 発言
【36071】Re:ユーザーフォームにて検索結果をリスト... エターナル 06/3/20(月) 14:22 発言
【36072】Re:ユーザーフォームにて検索結果をリスト... エターナル 06/3/20(月) 14:26 発言
【36104】Re:ユーザーフォームにて検索結果をリス... kobasan 06/3/20(月) 21:20 発言
【36106】Re:ユーザーフォームにて検索結果をリス... エターナル 06/3/20(月) 22:34 発言
【36109】Re:ユーザーフォームにて検索結果をリス... kobasan 06/3/21(火) 0:36 発言
【36127】Re:ユーザーフォームにて検索結果をリス... エターナル 06/3/21(火) 19:54 発言
【36128】Re:ユーザーフォームにて検索結果をリス... kobasan 06/3/21(火) 20:14 回答
【36132】Re:ユーザーフォームにて検索結果をリス... kobasan 06/3/21(火) 21:31 発言
【36148】Re:ユーザーフォームにて検索結果をリス... エターナル 06/3/22(水) 17:44 お礼

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