با سلام
یک نمونه یوزرفرم با چهار کمبوباکس تهیه گردید. بررسی بفرمایید
کد PHP:
Private Sub UserForm_Initialize()
For i = 1 To 4
Me.Controls("combobox" & i).AddItem "A"
Me.Controls("combobox" & i).AddItem "B"
Me.Controls("combobox" & i).AddItem "C"
Me.Controls("combobox" & i).AddItem "D"
Me.Controls("combobox" & i).AddItem "E"
Next
ComboBox1.SetFocus
End Sub
Private Sub ComboBox1_Change()
For i = 2 To 4
If Me.Controls("combobox" & i) = ComboBox1 Then
ComboBox1 = ""
End If
Next
End Sub
Private Sub ComboBox2_Change()
For i = 1 To 1
If Me.Controls("combobox" & i) = ComboBox2 Then
ComboBox2 = ""
End If
Next
For i = 3 To 4
If Me.Controls("combobox" & i) = ComboBox2 Then
ComboBox2 = ""
End If
Next
End Sub
Private Sub ComboBox3_Change()
For i = 1 To 2
If Me.Controls("combobox" & i) = ComboBox3 Then
ComboBox3 = ""
End If
Next
For i = 4 To 4
If Me.Controls("combobox" & i) = ComboBox3 Then
ComboBox3 = ""
End If
Next
End Sub
Private Sub ComboBox4_Change()
For i = 1 To 3
If Me.Controls("combobox" & i) = ComboBox4 Then
ComboBox4 = ""
End If
Next
End Sub
علاقه مندی ها (Bookmarks)