I扉e tried the following code but it doesn't work either 
Formula:
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "A"
.AddItem "B"
End With
End Sub
Private Sub ComboBox1_Change()
Dim index As Integer
index = ComboBox1.ListIndex
ComboBox2.Clear
Select Case index
Case Is = 0
With ComboBox2
.AddItem "A.1"
.AddItem "A.2"
End With
Case Is = 1
With ComboBox2
.AddItem "B.1"
.AddItem "B.2"
.AddItem "B.3"
End With
End Select
End Sub
Private Sub ComboBox2_Change()
Dim index As Integer
indexCombo1 = ComboBox1.ListIndex
indexCombo2 = ComboBox2.ListIndex
ComboBox3.Clear
If indexCombo1 = 0 And indexCombo2 = 0 Then
With ComboBox3
.AddItem "A.1.1"
.AddItem "A.1.2"
.AddItem "A.1.3"
.AddItem "A.1.4"
.AddItem "A.1.5"
.AddItem "A.1.6"
.AddItem "A.1.7"
End With
ElseIf indexCombo1 = 0 And indexCombo2 = 1 Then
With ComboBox3
.AddItem "A.2.1"
.AddItem "A.2.2"
.AddItem "A.2.3"
.AddItem "A.2.4"
End With
ElseIf indexCombo1 = 1 And indexCombo2 = 2 Then
With ComboBox3
.AddItem "B.1.1"
.AddItem "B.1.2"
.AddItem "B.1.3"
.AddItem "B.1.4"
.AddItem "B.1.5"
.AddItem "B.1.6"
.AddItem "B.1.7"
End With
ElseIf indexCombo1 = 1 And indexCombo2 = 3 Then
With ComboBox3
.AddItem "B.2.1"
.AddItem "B.2.2"
.AddItem "B.2.3"
.AddItem "B.2.4"
End With
ElseIf indexCombo1 = 1 And indexCombo2 = 4 Then
With ComboBox3
.AddItem "B.3.1"
.AddItem "B.3.3"
.AddItem "B.3.3"
.AddItem "B.3.4"
End With
End If
End Sub
Bookmarks