Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8746 / 76732 ←次へ | 前へ→

【73554】コンボボックスと複数のテキストボックスの連動について
質問  チロル  - 13/1/20(日) 23:22 -

引用なし
パスワード
   初めまして。チロルと申します。VBAをまだ勉強しはじめたばかりの初心者です。
下記内容をYAHOO知恵袋で同じ質問をいたしました。

コンボボックスと複数のテキストボックスの連動について教えて頂きたいと思います。

別シートに↓のような表を作成し、コンボボックスに3列表示しています。

  A    B       C
1  1  りんご     青森
2  2  もも       岡山
3  3  いちご     福岡
4  4  さくらんぼ    山形

コンボボックスで「1」を選んだら、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

実行する時に「実行時エラー381 columnプロパティの値が取得できません。」と出て、「 Me.TextBox1.Value = .Column(1)」が黄色に表示されます。

何がいけなかったのか、分かりません。ご教授お願いしたいと思います。
どうぞよろしくお願いいたします。
1,583 hits

【73554】コンボボックスと複数のテキストボックスの連動について チロル 13/1/20(日) 23:22 質問
【73555】Re:コンボボックスと複数のテキストボック... kanabun 13/1/21(月) 0:34 発言
【73558】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 10:36 質問
【73559】Re:コンボボックスと複数のテキストボック... UO3 13/1/21(月) 10:59 発言
【73560】Re:コンボボックスと複数のテキストボック... UO3 13/1/21(月) 11:04 発言
【73561】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 12:13 発言
【73562】Re:コンボボックスと複数のテキストボック... UO3 13/1/21(月) 12:30 発言
【73565】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 12:49 発言
【73566】Re:コンボボックスと複数のテキストボック... kanabun 13/1/21(月) 12:56 発言
【73563】Re:コンボボックスと複数のテキストボック... kanabun 13/1/21(月) 12:44 発言
【73567】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 13:15 お礼
【73564】Re:コンボボックスと複数のテキストボック... UO3 13/1/21(月) 12:47 発言
【73568】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 13:35 お礼

8746 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free