خطای تکراری در کمبوباکس ها در یوزرفرم

[mohammad59]

سلام و درود

من در یوزرفرم 10 تا کمبو باکس دارم که اطلاعات هر کمبوباکس یکسان می باشد یعنی اگر در کمبوباکس1 فرضا a b c d باشد در 9 ت کمبو باکس هم همین اطلاعات یکسان تعریف کردم

که با توجه به این می خوام کدی بنویسم که اگر در یکی از کمبوباکس ها یکی از اطلاعات انتخاب کردم اگر در کمبوباکس دیگری هم انتخاب بشه خطای تکراری بده و کمبوباکس رو خالی کنه.

با سپاس

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

یک نمونه یوزرفرم با چهار کمبوباکس تهیه گردید. بررسی بفرمایید

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 

[mohammad59]

خیلی سپاسگزارم
واقعا ممنون

[mohammad59]

فقط اگر پیام خطا تکراری رو هم میذاشتید عالی می شد
Msgbox""

[iranweld]

فقط اگر پیام خطا تکراری رو هم میذاشتید عالی می شد
Msgbox""

بعد از هر کمبوباکس که خالی میشه

ComboBox1 = ""
msgbox "تکراری" 

قرار بدید

[mohammad59]

سپاسگزارم

[mohammad59]

استاد ببخشید msgbox رو گذاشتم ولی وقتی پیام میده 9 بار تکرار میشه

[iranweld]

استاد ببخشید msgbox رو گذاشتم ولی وقتی پیام میده 9 بار تکرار میشه

با کمی تغییر در کدنویسی

If Me.Controls("combobox" & i) = ComboBox1 And Len(ComboBox1) > 0 Then

ComboBox1 = ""

MsgBox "tekrari" 

[mohammad59]

حل شد
خیلی ممنون