C# と VB.NET の質問掲示板

VBAでコンボボックスをテキストボックス連動させたいです。

ユーザーフォームは使用していません。

シートにコンボボックスとテキストボックスｘ３つあります。

シート１
Ａ３　Ｂ３　Ｃ３
Test1 AA    01
Test2 BB    02

だとします。

シート２にコンボボックスとテキストボックスｘ３つ作っています。
コンボボックス1で選択された時シートＡ３　Ｂ３　Ｃ３とテキストボックス３つ連動させたいんです。


Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1
End Sub

テキストボックス１が連動されます。
TextBox1.Value = ComboBox1
TextBox2.Value = ComboBox1
TextBox3.Value = ComboBox1

テキストボックス１＝A3
テキストボックス２＝B3
テキストボックス３＝C3
コンボボックスで動かしたいんです。

どのようにしたらいいのか教えてください。

>魔界の仮面弁士 さん


返事ありがとうございます。

コードを確認しましたが、A案、B案、C案をやった所、
予想通りにはできませんでした。

やりたい事
・ワークシート1にTextbox1、Textbox2、TextBox3(ActiveX コントロール)
Combobox1をワークシート1に挿入済み

以下の図形

Combobox1
1
2
3

指定範囲(Textbox1)
C1=Test1
C2=Text2
C3=Test3

指定範囲(Textbox2)
D1=AA
D2=BB
D3=CCC

となるようにワークシート1から実行したいです。

試した事

Option Explicit

Private Sub ComboBox1_Change()
'コンボボックス選択された時テキストボックス１〜３が連動
TextBox1.Value = ComboBox1
TextBox2.Value = ComboBox1
TextBox3.Value = ComboBox1

End Sub


Private Sub TextBox1_Change()

'ワークシート1のセル範囲をC1

ComboBox1.Value = Range("C1").Value

End Sub

この場合は、セルC1、1個だけになりますが、複数選択範囲だと

Private Sub TextBox1_Change()

’型が一致しません〜エラー
'ComboBox1.Value = Range("$C$1:$C$2")'←


End Sub
----------------------

コード


'sheet1
Option Explicit
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
End With

End Sub

Private Sub TextBox1_Change()
 ComboBox1.Value = Range("$C$1")'セル範囲C1〜C3

End Sub

Private Sub TextBox2_Change()
ComboBox1.Value = Range("$D$1")'セル範囲D1〜C3
End Sub

Private Sub TextBox3_Change()
ComboBox1.Value = Range("$E$1")'セル範囲E1〜E3

end sub

以下のコードです。

教えてほしい事

いろいろ試してみましたが、("$C$1:$C$2".？
？の部分をどうすればテキストボックス１〜３を連動出来るんでしょうか？

開発環境 Excel VBAです。