|
▼チロル さん:
>別シートに↓のような表を作成し、コンボボックスに3列表示しています。
>
> A B C
>1 1 りんご 青森
>2 2 もも 岡山
>3 3 いちご 福岡
>4 4 さくらんぼ 山形
コードのRowSourceは ↑の説明とちがって Sheet3[F10]からの3列のようですが?
>実行する時に「実行時エラー381 columnプロパティの値が取得できません。」と出て、「 Me.TextBox1.Value = .Column(1)」が黄色に表示されます。
以下だけなら、そのようなエラーは出ず、首尾よくリストされ、ComboBoxで
どれかを選ぶと、TextBoxに リストの2列目と3列目が表示されます。
'---------------------------------------
Option Explicit
Private Sub UserForm_initialize()
With bunrui
.ColumnCount = 3
.RowSource = Sheet3.Range("F10", _
Sheet3.Range("H250").End(xlUp)) _
.Address(, , , True)
.ColumnHeads = True
.ListWidth = 500
.ColumnWidths = "50;300;100"
End With
End Sub
Private Sub bunrui_Change()
With bunrui
TextBox1.Value = .Column(1)
TextBox2.Value = .Column(2)
End With
End Sub
(Meは不要です)
|
|