|
▼Jaka さん、あーあさん、
こんにちは〜^^
横から失礼します〜
>動作未確認ですが、大体こんな感じになるかと。
>
>Dim Flg0 As Boolean
>Dim Flg1 As Boolean
>Dim Flg2 As Boolean
これ、別に3つ変数用意しなくても、
一つでOKちゃいますか?
Private blnFlag As Boolean
'==============================================
Private Sub ComboBox1_Change()
If blnFlag = False Then
blnFlag = True
ComboBox2.ListIndex = ComboBox1.ListIndex
blnFlag = False
End If
End Sub
'==============================================
Private Sub ComboBox2_Change()
If blnFlag = False Then
blnFlag = True
ComboBox1.ListIndex = ComboBox2.ListIndex
blnFlag = False
End If
End Sub
'==============================================
Private Sub UserForm_Initialize()
blnFlag = True
With ComboBox1
.AddItem "名前1"
.AddItem "名前2"
.ListIndex = 0
.Style = fmStyleDropDownList
End With
With ComboBox2
.AddItem "住所1"
.AddItem "住所2"
.ListIndex = 0
.Style = fmStyleDropDownList
End With
blnFlag = False
End Sub
これで動作確認したら問題なかったような気がします。
どうかな?
私の気付かない落とし穴があるんやろか?
|
|