| 
    
     |  | ▼TANAKA さん: こんばんは。
 
 >いつも拝見させてもらっています。
 >今回、私もVEAを挑戦しましたが壁にぶち当たってしまいました。
 >
 >ユーザーフォームのコンボボックスのリストについて質問させてください。
 >ワークシートAからユーザーフォームを呼び出して
 >ワークシートBのA1:Z1の行のデータをリストに表示させたいのですが
 >上手くいきません。
 どういうコードを記述して駄目だったのですか?
 With combobox1
 .list()=worksheets("B").range("a1:z1").value
 end with
 なんてコードだと一行しか登録されませんね!!
 
 List()にこだわるなら、
 
 With ComboBox1
 .List() = Application.Transpose(Worksheets("B").Range("a1:z1"))
 End With
 
 他にも
 
 With ComboBox1
 .Column() = worksheets("B").Range("a1:z1").Value
 End With
 
 こんな方法もあります。確認してください。
 
 
 >A1:A26の列のデータだと表示するのですが・・・
 >
 >どうしてでしょうか?どなたか宜しくお願い致します。
 
 |  |