エクセルVBAのコンボボックスについて

≪質問≫
エクセルのactive X コンボボックスが画像のような状態になります。
（選択肢にはコードが出ているが、値を選択するとテキストに変更される。）
どのようにしたら選択肢、選択結果ともにテキスト値になるのでしょうか。

![![イメージ説明]WIDTH:269

≪コード、内容≫
設定値
With comboboxControl
.ColumnCount = 1 '表示列数の設定
.TextColumn = 3 '表示列の設定
.BoundColumn = 2 '値として取得する列の設定
.List() = argDataArray 'リスト項目の設定
End With
argDataArrayの中身
![イメージ説明]WIDTH:399

よろしくお願いいたします。

行動規範の内容に同意します

回答3件

既に解決済みのようですが、気になったので僕も試してみました。
環境は、すべてExcel2007で行っております。
まず以下ヘルプを確認ください。少々表示が重いですのでご注意のほど宜しくお願いします。

ヘルプ
![イメージ説明]WIDTH:561
![イメージ説明]WIDTH:555
![イメージ説明]WIDTH:547
![イメージ説明]WIDTH:552

その上で以下のコードからの結果となります。

lang
1    Dim argDataArray(2, 3) As String
2    
3    argDataArray(0, 0) = ""
4    argDataArray(0, 1) = ""
5    argDataArray(0, 2) = ""
6    argDataArray(0, 3) = ""
7    
8    argDataArray(1, 0) = "テスト卸名"
9    argDataArray(1, 1) = "10"
10    argDataArray(1, 2) = "20"
11    argDataArray(1, 3) = "30"
12    
13    argDataArray(2, 0) = "おろし"
14    argDataArray(2, 1) = "100"
15    argDataArray(2, 2) = "200"
16    argDataArray(2, 3) = "300"
17    
18    With ComboBox1
19        .ColumnCount = 4
20        .TextColumn = 1
21        .BoundColumn = 2
22        .List() = argDataArray
23    End With

![イメージ説明]WIDTH:448

lang
1    Dim argDataArray(2, 3) As String
2    
3    argDataArray(0, 0) = ""
4    argDataArray(0, 1) = ""
5    argDataArray(0, 2) = ""
6    argDataArray(0, 3) = ""
7    
8    argDataArray(1, 0) = "20"
9    argDataArray(1, 1) = "10"
10    argDataArray(1, 2) = "テスト卸名"
11    argDataArray(1, 3) = "30"
12    
13    argDataArray(2, 0) = "200"
14    argDataArray(2, 1) = "100"
15    argDataArray(2, 2) = "おろし"
16    argDataArray(2, 3) = "300"
17    
18    With ComboBox1
19        .ColumnCount = 4
20        .TextColumn = 3
21        .BoundColumn = 3
22        .List() = argDataArray
23    End With

![イメージ説明]WIDTH:392

その上で、上の一部を以下のコードにすると見た目が以下のようになります。

lang
1    With ComboBox1
2        .ColumnCount = 3
3        .TextColumn = 3
4        .BoundColumn = 3
5        .ColumnWidths = "0;0"
6        .List() = argDataArray
7    End With

![イメージ説明]WIDTH:457
からくりは、ColumnWidthsプロパティを利用している点です。

投稿2015/04/28 01:26

lib

総合スコア446

わざわざ試していただきありがとうございました。
配列を無理やり変換させることで対処しました。

投稿2015/04/27 23:42

tayack

総合スコア11

ベストアンサー

こんにちは。

詳しくないですが、それっぽいプロパティが見当たらなかったので
Listを表示イメージ近づけて加工しなければならないかも？

lang
1    Dim argDataArray(2, 3) As String
2    '1--
3    argDataArray(0, 0) = ""
4    argDataArray(0, 1) = ""
5    argDataArray(0, 2) = ""
6    argDataArray(0, 3) = ""
7    '2--
8    argDataArray(1, 0) = "テスト卸名"
9    argDataArray(1, 1) = "10"
10    argDataArray(1, 2) = "20"
11    argDataArray(1, 3) = "30"
12    '3--
13    argDataArray(2, 0) = "おろし"
14    argDataArray(2, 1) = "100"
15    argDataArray(2, 2) = "200"
16    argDataArray(2, 3) = "300"
17
18    With ComboBox1
19        .ColumnCount = 1
20        .TextColumn = 1
21        .BoundColumn = 2
22        .List() = argDataArray
23    End With