![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
以下のようなExcelシートがあります。
1行目はラベル行です。
[製品管理表]
1| 管理番号| 製品名 | 在庫数 |
2| A001 | 製品A | 2000 |
3| A002 | B製品 | 1700 |
4| A002 | B製品 | 1700 |
......以下1000行くらい続く
この中から製品名で検索をかけて、検索結果をユーザーフォームの
リストボックスに一覧表示させたいのですが、
現在の方法は、
検索条件を元にSQL文を生成、
ADOでシートをRecordSetに格納し、
RecordSetを2次元配列に格納、
2次元配列をリストボックスの要素にする。
ソースは以下の通りです。
==========================================================
Sub Test()
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim strSQL As String
Dim strName as String
Dim strElements() As String
Dim intRow As Integer
Dim i, ii As Integer
strName = Form1.TextBox1.Value
With CN
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties") = "Excel 8.0"
.Open ThisWorkbook.FullName
End With
If strName <> "" Then
strSQL = "select * from [製品管理表$] " _
& where 製品名 Like '%" & strName & "%'"
Else
strSQL = "select * from [製品管理表$]"
End If
RS.Open strSQL, CN, adOpenStatic, adLockReadOnly
intRow = RS.RecordCount
If intRow = 0 Then
MsgBox "条件に一致する製品名はありません"
Exit Sub
End If
ReDim strElements(intRow, 3)
For i = 0 To intRow - 1
For ii = 0 To 2
strElements(i, ii) = RS(ii).Value
Next
RS.MoveNext
Next
With Form1.ListBox1
.ColumnCount = 3
.BoundColumn = 1
.List = strElements
.ColumnHeads = True
End With
End Sub
==========================================================
この方法でも動くのですが、
問題点はラベル行が空白になってしまいます。
同じくリストボックスの要素を入れる方法として、
RowSource を使用すると ColumnHeads = True のときに
1行目がラベル行になるので、空白は想定外でした。
(1行目がラベルになるなら、配列にラベル名をぶち込んで
しまえばいいと考えていたもので…)
そこで質問なのですが、
(1)大枠はこのままで1行目をラベル行にする方法はあるのでしょうか?
(2)ラベル行を明示的に指定する、
またはラベル名を手打ちするコードはあるのでしょうか?
あと、
RecordSetから直接リストボックスの要素を入れる方法も
あったら知りたいと思います。
皆さんのお知恵を是非貸してください!!
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
(1)(2)ともに無いようですね。
どうも
http://support.microsoft.com/kb/164343/ja
この頃からの仕様のようです。
Sheet上にデータを置いてRowSourceを使うか、
Labelコントロールなどで代用するしかないのかもしれません。
>RecordSetから直接リストボックスの要素を入れる方法...
With Form1.ListBox1
.ColumnCount = 3
.Column = RS.GetRows()
End With
みたいな事でしょうか。
http://msdn.microsoft.com/ja-jp/library/cc364163 …
以下、余談ですが、
>.Open ThisWorkbook.FullName
本番コードもこのように、自Bookに対してADOでアクセスする場合、メモリリークが発生するようですから、
その点を把握された上で運用なさったほうが良いかと。
http://support.microsoft.com/kb/319998/ja
>>RecordSetから直接リストボックスの要素を入れる方法...
>With Form1.ListBox1
> .ColumnCount = 3
> .Column = RS.GetRows()
>End With
>みたいな事でしょうか。
まさに想像通りです!!ありがとうございます。
ただ(1)も(2)もだめなら
end-uさんの仰るとおりシートにコピーしてからRowSourceにするか
ColumnHeadsをやめてフォーム上にラベルを貼り付ける力技になりそうです。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
【VBA】ユーザーフォーム リストボックスのヘッダー設定方法
Visual Basic(VBA)
-
ExcelVBA でリストリストボックスにNULLを挿入
Access(アクセス)
-
ExcelVBA でリストリストボックスに列見出しをコーディングでつける
Excel(エクセル)
-
-
4
EXCEL リストボックスのRowSouce欄が表示されない
Excel(エクセル)
-
5
コンボボックスにレコードセットでリストをセットする
その他(データベース)
-
6
EXCEL VBAのユーザーフォームに引数を渡す方法について
Excel(エクセル)
-
7
DATE型変数を初期化する方法
Visual Basic(VBA)
-
8
ADOでRecordsetオブジェクトをレコードソースに設定したい
その他(データベース)
-
9
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
10
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
11
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
12
SQLを連続発行する時の正しい(?)書き方は?
Visual Basic(VBA)
-
13
リストボックスの列見出し(ExcelのVBA)
Visual Basic(VBA)
-
14
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
15
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
16
他のフォームから別のフォームのサブルーチンを呼び出す
Visual Basic(VBA)
-
17
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
18
レコードセットにnullの場合
Visual Basic(VBA)
-
19
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
20
コンボボックスにリストが表示されません・・・
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA ユーザーフォームの...
-
文字の整列(printf)
-
ファイルからデータを読み込ん...
-
チェックボックスのperlでの値...
-
配列を使わずに、数字(連番)...
-
VBAのautofilter、criteriaの配...
-
クラスに配列を渡す方法
-
VBScript 配列
-
DataGridViewに配列の値を表示...
-
エクセルVBAでTransposeの不思議
-
リストボックスに縦スクロール...
-
perlで2次元配列をサブルーチ...
-
重複しない乱数発生
-
perlで配列の要素が空なのを知...
-
ランダムな8桁の文字作成
-
Perlの数値・文字列操作
-
配列の各要素に結合
-
VBAで3秒だけ時間を止めたい
-
ハッシュ検索はなぜ速い
-
Escキーを押すと、中断する時と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのautofilter、criteriaの配...
-
Excel VBA ユーザーフォームの...
-
クラスに配列を渡す方法
-
エクセルVBAでTransposeの不思議
-
リストボックスに縦スクロール...
-
二次元配列における要素数のは...
-
マクロ Publicでの配列定義
-
二次元配列のインデックスについて
-
VB6で配列の最大値を簡単に求め...
-
VBA 多次元配列を用いてグルー...
-
perlで配列の要素が空なのを知...
-
チェックボックスのperlでの値...
-
perl 配列の要素数について
-
Dim flag(4) as boolean で配列...
-
VBScript 配列
-
Strawberry Perl for Windows ...
-
文字の整列(printf)
-
組み合わせについての質問です...
-
delphi の 標準偏差のプログラ...
-
隣同士の数字を足し合わせる
おすすめ情報