ユーザーフォームについての質問です

質問

ご教授ください。

コンボボックスに文字をいれると（選択すると）、別のコンボボックスに表から参照した文字列が自動で入る。その逆でも反映するようにしたいです。

例
A　　　　　111
B　　　　　222
C　　　　　333
D　　　　　444

コンボボックス1　に　C　を入力（選択）
コンボボックス2　に　333　が自動で反映
さらに
コンボボックス2　に　333　を入力（選択)
コンボボックス1　に　C　が自動で反映

よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

相方の選択肢を自分と同じにしてやるだけです。

手順：
UserForm1にComboBox1とComboBox2を配置する

右クリックしてコードの表示を選び
private sub Combobox1_Change()
　application.enableevents = false　’実用上は不要
　me.combobox2.listindex = me.combobox1.listindex
　application.enableevents = true
end sub

private sub Combobox2_Change()
　application.enableevents = false
　me.combobox1.listindex = me.combobox2.listindex
　application.enableevents = true
end sub

のように作成する。