مساعدة في وضع شرط ل ComboBox

[الجموعي]

السلام عليكم ورحمة الله تعالى وبركاته

 

هل هذا الكود سليم أم لا

 

إستعملت كل المحاولات ولم تفلح معي

Private Sub ComboBox1_Change()
'====================================
If Me.ComboBox1.Value <> "" Then
Me.TextFind1.Visible = True
Me.TextFind2.Visible = False
End If
'====================================
If Me.ComboBox1.Value <> "" Then
Me.TextFind2.Visible = True
Me.TextFind1.Visible = False
End If
'====================================
End Sub

Private Sub ComboBox2_Change()
'====================================
If Me.ComboBox2.Value = "المجموعة 1" Then
Me.TextFind2.Visible = False
Me.TextFind1.Visible = True
End If
'====================================
If Me.ComboBox2.Value = "المجموعة 2" Then
Me.TextFind1.Visible = False
Me.TextFind2.Visible = True
End If
'====================================
End Sub


Private Sub UserForm_Initialize()
'====================================
With ThisWorkbook.ActiveSheet
    ComboBox1.AddItem .Range("A1")
    ComboBox1.AddItem .Range("C1")
    End With
'====================================
With ComboBox2
.AddItem " المجموعة 1 "
.AddItem " المجموعة 2 "
End With
'====================================
Me.TextFind1.Visible = False
Me.TextFind2.Visible = False
'====================================
End Sub

مساعدة في هذا المرفق

 

if ComboBox.rar

[ياسر خليل أبو البراء]

أخي الحبيب جرب الكود بالشكل التالي :

Private Sub ComboBox1_Change()
    If Me.ComboBox1.Value <> "" Then
    Me.TextFind1.Visible = True
    Me.TextFind2.Visible = True
    End If
End Sub

Private Sub ComboBox2_Change()
    If Me.ComboBox2.Value = "المجموعة 1" Then
    Me.TextFind2.Visible = False
    Me.TextFind1.Visible = True
    End If
    '====================================
    If Me.ComboBox2.Value = "المجموعة 2" Then
    Me.TextFind1.Visible = False
    Me.TextFind2.Visible = True
    End If
End Sub

Private Sub UserForm_Initialize()
    With ThisWorkbook.ActiveSheet
        ComboBox1.AddItem .Range("A1")
        ComboBox1.AddItem .Range("C1")
    End With
    '====================================
    With ComboBox2
        .AddItem "المجموعة 1"
        .AddItem "المجموعة 2"
    End With
    '====================================
    Me.TextFind1.Visible = False
    Me.TextFind2.Visible = False
End Sub

[الجموعي]

 

أخي الحبيب جرب الكود بالشكل التالي :

Private Sub ComboBox1_Change()
    If Me.ComboBox1.Value <> "" Then
    Me.TextFind1.Visible = True
    Me.TextFind2.Visible = True
    End If
End Sub

Private Sub ComboBox2_Change()
    If Me.ComboBox2.Value = "المجموعة 1" Then
    Me.TextFind2.Visible = False
    Me.TextFind1.Visible = True
    End If
    '====================================
    If Me.ComboBox2.Value = "المجموعة 2" Then
    Me.TextFind1.Visible = False
    Me.TextFind2.Visible = True
    End If
End Sub

Private Sub UserForm_Initialize()
    With ThisWorkbook.ActiveSheet
        ComboBox1.AddItem .Range("A1")
        ComboBox1.AddItem .Range("C1")
    End With
    '====================================
    With ComboBox2
        .AddItem "المجموعة 1"
        .AddItem "المجموعة 2"
    End With
    '====================================
    Me.TextFind1.Visible = False
    Me.TextFind2.Visible = False
End Sub

 

أستاذي الفاضل/ ياسر خليل

بعد التجربة تمت بنجاح العملية على (ComboBox2) فقط

عند الإختيار(ComboBox1)يظهر مع بعض وانا اريد كل واحد على حدا مثل ما عملت في(ComboBox2)

انا أريد ربط أي  قيمة تظهر في (ComboBox1) بتكست بوكس

مثلا :

القيم في (ComboBox1): المجموعة 1. المجموعة 2 وهي قيم متغيره لأنها مرتبطة بالخلايا ("A1").("C1")

عند إختيار من (ComboBox1) المجموعة 1  يظهر (TextFind1)

عند إختيار من (ComboBox1) المجموعة 2  يظهر (TextFind2) ويختفي (TextFind1)

[شوقي ربيع]

السلام عليكم

جرب هذا

Private Sub ComboBox1_Change()
Dim i As Byte: i = Me.ComboBox1.ListIndex + 1
    Me.TextFind2.Visible = False
    Me.TextFind1.Visible = False
    Me.Controls("TextFind" & i).Visible = True
End Sub

Private Sub ComboBox2_Change()
Dim i As Byte: i = Me.ComboBox2.ListIndex + 1
    Me.TextFind2.Visible = False
    Me.TextFind1.Visible = False
    Me.Controls("TextFind" & i).Visible = True
End Sub

[الجموعي]

فعلا هذا هو المطلوب أستاذي شوقي ربيع

والشكر ايضا للاستاذ ياسر خليل

بارك الله فيكما والله لا يحرمنا منكم