excel - 初始化表单时选择 ComboBox 的默认值

Question

我有一个从工作表中填充值的组合框。我试图在表单初始化时默认选择组合框中的第一个或第二个值。谁能帮我解决这个问题？

Sub Reset()
    Dim iRow As Long
    
    iRow = [Counta(Database!A:A)] ' idetifying the last row
    
    With frmForm
        .txtID.Value = ""
        .txtVName.Value = ""
        .optMale.Value = False
        .optFemale.Value = False
        
        'Default Color
        .txtID.BackColor = vbWhite
        .txtVName.BackColor = vbWhite
        .txtTimeIn.BackColor = vbWhite
        .txtPName.BackColor = vbWhite
        .cmbNationality.BackColor = vbWhite
        .cmbDept.BackColor = vbWhite
        '--------------------------------
    
        'Creating a dynamic name for Department
                  
        shDept.Range("A2", shDept.Range("A" & Application.Rows.Count).End(xlUp)).Name = "DynamicDept"
        .cmbDept.RowSource = "DynamicDept"
        .cmbDept.Value = ""
    End With
End Sub

标签： excelvba