| |
初めまして。チロルと申します。VBAをまだ勉強しはじめたばかりの初心者です。
下記内容をYAHOO知恵袋で同じ質問をいたしました。
コンボボックスと複数のテキストボックスの連動について教えて頂きたいと思います。
別シートに↓のような表を作成し、コンボボックスに３列表示しています。
A B C
1 1 りんご 青森
2 2 もも 岡山
3 3 いちご 福岡
4 4 さくらんぼ 山形
コンボボックスで「１」を選んだら、textbox1に「りんご」、textbox2には「青森」を表示させたいのです。
現在のコードは↓です。
Private Sub UserForm_initialize()
With Me.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 ChangeMe()
○○○.ControlSource = "b" & myRowN
○○○.ControlSource = "c" & myRowN
・・・・・・↓↓
bunrui.ControlSource = "p" & myRowN
TextBox1.ControlSource = "q" & myRowN
TextBox2.ControlSource = "r" & myRowN
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub bunrui_Change()
With Me.bunrui
Me.TextBox1.Value = .Column(1)
Me.TextBox2.Value = .Column(2)
End With
End Sub
実行する時に「実行時エラー３８１ columnプロパティの値が取得できません。」と出て、「 Me.TextBox1.Value = .Column(1)」が黄色に表示されます。
何がいけなかったのか、分かりません。ご教授お願いしたいと思います。
どうぞよろしくお願いいたします。
|
|
チロル
- 13/1/20(日) 23:22 -
