以下のような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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
ExcelVBA でリストリストボックスに列見出しをコーディングでつける
Excel(エクセル)
-
コンボボックスにレコードセットでリストをセットする
その他(データベース)
-
ExcelVBA でリストリストボックスにNULLを挿入
Access(アクセス)
-
-
4
EXCEL リストボックスのRowSouce欄が表示されない
Excel(エクセル)
-
5
EXCEL VBAのユーザーフォームに引数を渡す方法について
Excel(エクセル)
-
6
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
【VBA】ユーザーフォーム リストボックスのヘッダー設定方法
Visual Basic(VBA)
-
9
DATE型変数を初期化する方法
Visual Basic(VBA)
-
10
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
11
レコードセットにnullの場合
Visual Basic(VBA)
-
12
ExcelのVBAで、ListBox内に複数のAlignを設けたい
Excel(エクセル)
-
13
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
14
ACCESSでコンボボックスにSQLで抽出した値を表示したい
その他(データベース)
-
15
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
16
リストボックスの列見出し(ExcelのVBA)
Visual Basic(VBA)
-
17
レコードが存在しなかった場合
Microsoft ASP
-
18
SQLを連続発行する時の正しい(?)書き方は?
Visual Basic(VBA)
-
19
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
20
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
二次元配列における要素数のは...
-
エクセルVBAでTransposeの不思議
-
チェックボックスのperlでの値...
-
クラスに配列を渡す方法
-
フローチャートを教えてください
-
二次元配列のインデックスについて
-
リストボックスに縦スクロール...
-
文字の整列(printf)
-
perlで配列の要素が空なのを知...
-
MATLABの関数で配列の要素を返...
-
Perlで<select multiple>の複数...
-
perl qw(aaa bbb ccc)[$hoge]...
-
UWSCの終了の仕方
-
VBAでの一時停止と再開の方法
-
画面を強制的に再描画させる方法
-
【VBA】全て空白のセルの列の非...
-
DoEventsが必要な理由について
-
範囲指定したセルを1つずつ飛...
-
VBのReturnの使い方
-
フラグについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのautofilter、criteriaの配...
-
Strawberry Perl for Windows ...
-
リストボックスに縦スクロール...
-
二次元配列のインデックスについて
-
文字の整列(printf)
-
エクセルVBAでTransposeの不思議
-
クラスに配列を渡す方法
-
二次元配列における要素数のは...
-
Excel VBA ユーザーフォームの...
-
perlで配列の要素が空なのを知...
-
perlで2次元配列をサブルーチ...
-
マクロ Publicでの配列定義
-
Dim flag(4) as boolean で配列...
-
参照配列の要素数の求め方は?
-
チェックボックスのperlでの値...
-
VB6で配列の最大値を簡単に求め...
-
jcode->jfold で禁則処理
-
DataGridViewに配列の値を表示...
-
VBScript 配列
-
配列を使わずに、数字(連番)...
おすすめ情報