اريد عندما اكتب في التكست بوكس الاول رقم معين يظهر لي اسم معين في التكست بوكس 2

[Alaaq3]

السلام عليكم ورحمة الله وبركاته : مثال عندما اكتب في التكست بوكس1 رقم (2 او 5 او 8 ) يعرض لي في (تكست بوكس2) كلمة " العراق" وعندما اكتب رقم (7 او 4 او 3) يظهر لي في تكست بوكس 2 كلمة " مصر" وهكذا 

 

() Private Sub TextBox1_Change
If Me.TextBox1.Value = "2" Then
  "العراق"= TextBox2.Value
Else
"" = TextBox2.Value
End If
End Sub

فورم.xlsm

[أ / محمد صالح]

يمكنك استعمال هذا الكود

Private Sub TextBox1_Change()
txt = Val(Me.TextBox1.Value)
If txt = 2 Or txt = 5 Or txt = 8 Then
Me.TextBox2.Value = "العراق"
ElseIf txt = 3 Or txt = 4 Or txt = 7 Then
Me.TextBox2.Value = "مصر"
Else
Me.TextBox2.Value = ""
End If
End Sub

بالتوفيق

[Alaaq3]

احسنت استاذنا العزيز . بارك الله بجهودك

[أ / محمد صالح]

أحسن الله إليكم

بارك الله لنا جميعا