2つのコンボボックスに依存するリストボックスVBA

Question

最初の2つのコンボボックスの選択に応じて3つのリストボックス列を作成しようとしています。ここで

は私の現在のフォームのスクリーンショットです：

私はケースをやって試してみましたが、これは2つのだけのコンボボックス自身で作業していると

は、どのような方法があります言うことはありませんこれをするの？コロラド州や地区、リストボックスを移入しません - 私はコード内でIF文に置かれていると私は、COを選択すると

Private Sub UserForm_Initialize() 

With StateComboBox 


    .AddItem "CO - Colorado" 

End With 
End Sub 
____________________________________________________ 
Private Sub StateComboBox_Change() 

Dim index As Long 
index = StateComboBox.ListIndex 

RoleComboBox.Clear 

Select Case StateComboBox.Value 
    Case Is = "CO - Colorado" 
    With RoleComboBox 
     .AddItem "District" 
     .AddItem "School" 
     .AddItem "Test Administrator" 
    End With 


End Select 
End Sub 
____________________________________________ 
Private Sub PermissionSetList_change() 

If StateComboBox.Value = "CO - Colorado" And RoleComboBox.Value = "District" Then 
Call ColoradoDPermissionSet 
Call ColoradoDRemovePermissions 
Call ColoradoDAddPermissions 
End If 

End Sub 
____________________________________________ 
Sub ColoradoDPermissionSet() 

With PermissionSetList 

.AddItem "Administrator" 
.AddItem "Correction Primary Window" 
.AddItem "Documents - View" 

End With 
End Sub 
________________________________________________________ 
Sub ColoradoDRemovePermissions() 

With RemoveList 

.AddItem "Corrections - Primary" 
.AddItem "Student Transfer Form" 

End With 
End Sub 
_________________________________________________ 
Sub ColoradoDAddPermissions() 

With AddList 

.AddItem "Test Tickets - End Incomplete Test" 
.AddItem "Test Tickets - Invalidate" 
.AddItem "Test Tickets - Regenerate" 

End With 
End Sub 

：

現在、私はこれを持っています。私はState and Roleを選択するとリストボックス内の特定の値を設定し、StateやRoleを変更すると、別の "Permissions"セットが与えられます。サブの中にリストし、それらを呼び出す。

Answer 1

私が代わりに私は次のようでしただけでIfステートメントの、これを考え出した、それは私がそれを望んでどのように取り込ま：これはのはのためのより多くのを許可することができる場合ので、より多くを追加するスケーラブルである

Private Sub RoleComboBox_Change() 

Dim index As Long 
index = RoleComboBox.ListIndex 

PermissionSetList.Clear 
RemoveList.Clear 
AddList.Clear 

If StateComboBox.Value = "CO - Colorado" Then 
    Select Case RoleComboBox.Value 
    Case Is = "District" 
     With PermissionSetList 
     Call ColoradoDPermissionSet 
     Call ColoradoDRemovePermissions 
     Call ColoradoDAddPermissions 
     End With 
End Select 
End If 
End Sub 

---

より多くの選択が行われる。

https://i.imgur.com/lkGDrLs.png

Private Sub RoleComboBox_Change() 

Dim index As Long 
index = RoleComboBox.ListIndex 

PermissionSetList.Clear 
RemoveList.Clear 
AddList.Clear 

If StateComboBox.Value = "AL - Alabama" Then 
With PermissionSetList 
Select Case RoleComboBox.Value 

Case Is = "District" 
    Call WIDADPermissionSet 
    Call AlabamaDRemovePermissions 
    Call AlabamaDAddPermissions 

    Case Is = "School" 
    Call AlabamaSPermissionSet 
    Call AlabamaSRemovePermissions 
     Call AlabamaSAddPermissions 

Case Is = "Test Administrator" 
    Call WIDATPermissionSet 
    Call WIDATRemovePermissions 
    Call WIDATAddPermissions 
    End Select 
End With 
End If 

If StateComboBox.Value = "CO - Colorado" Then 
    With PermissionSetList 
    Select Case RoleComboBox.Value 

    Case Is = "District" 
     Call WIDADPermissionSet 
     Call ColoradoDRemovePermissions 
     Call ColoradoDAddPermissions 

    Case Is = "School" 
     Call ColoradoSPermissionSet 
     Call ColoradoSRemovePermissions 
     Call ColoradoSAddPermissions 

    Case Is = "Test Administrator" 
     Call WIDATPermissionSet 
     Call WIDATRemovePermissions 
     Call WIDATAddPermissions 
    End Select 
    End With 
End If 


End Sub