Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8742 / 76732

←次へ　｜　前へ→


	【73558】Re:コンボボックスと複数のテキストボックスの連動について

チロル - 13/1/21(月) 10:36 -


	引用なし

	パスワード

>kanabun さん：

早速のご回答ありがとうございました。
>コードのRowSourceは ↑の説明とちがって Sheet3[F10]からの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は不要です）

1,494 hits

▼

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