اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب مساعدة في تعبئة التكست بوكس من الليست بوكس


AMIRBM

الردود الموصى بها

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

أعزائي الكرام أطلب منكم مساعدة في نقل البيانات من الليست بوكس للتكست بوكس وشكرا مسبقا

سؤال مهم فى البحث 33.xlsm

رابط هذا التعليق
شارك

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

تفضل اخي قم بافراغ اليوزرفورم من جميع الاكواد واستبدالها بالاكواد التالية 

Private Sub TextBox1_Change()
If Me.TextBox1.Text = "" Then
Me.ListBox1.Visible = False
For I = 2 To 5
        Controls("textbox" & I).Text = ""
    Next I
Else
Me.ListBox1.Visible = True
Me.ListBox1.Clear
'------------------------------
Dim lrw
Set W = Sheet1
lrw = W.Cells(Rows.Count, 1).End(xlUp).Row
l = 0
For Each c In Range("A3:A" & lrw)
If c Like TextBox1.Text & "*" Then
ListBox1.AddItem
ListBox1.List(l, 0) = Cells(c.Row, 1).Value
l = l + 1
End If
Next c
End If
End Sub
Private Sub ListBox1_Click()
Dim sh1 As Worksheet
Dim f As Range
Set sh1 = Sheet1
lrw = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    Set f = sh1.Range("A3:A" & lrw).Find(ListBox1.Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      TextBox1.Value = sh1.Range("A" & f.Row).Value
      TextBox2.Value = sh1.Range("B" & f.Row).Value
      TextBox3.Value = sh1.Range("C" & f.Row).Value
      TextBox4.Value = sh1.Range("d" & f.Row).Value
      TextBox5.Value = sh1.Range("E" & f.Row).Value
    End If
Me.ListBox1.Visible = False
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Not iGblInhibitTextBoxEvents Then
  TextBox1.Value = ""
  End If
End Sub

 

سؤال مهم فى البحث للبرمجة officena 2024_2.xlsm

  • Like 3
رابط هذا التعليق
شارك

مشكور بارك الله فيك

وجزاك الله خير

السلام عليكم ورحمة الله شكرا أستاذ 

الكود لا يريد العمل معي في بعض المرات تأتيني رسالة الخطأ المهم

أستاذ من فظلك أستاذ أريد أن يبقى الكود المكتوب في محرر الأكواد

أريد تعبئة تكست بوكس 2 و 3 و 4 فقط

لان الكود يبحث بالجملة والاسم وشكرا

سؤال مهم فى البحث (1) تكسات 2024.xlsm

 

مشكور

رابط هذا التعليق
شارك

@AMIRBM

لقد نظرت  الى ملفك  ولكن  لا اجد  اي  معنى  من  استخدام  الليست بوكس  واظهار عمود واحد فقط !!

اما  ان  تظهر  كل  الاعمدة بالليست بوكس  ومن تم  عند  اختيار  الصف  من  الليست بوكس  يتم  اظهارها بالتيكست بوكس او حدف  الليست بوكس  واستخدام التيكست بوكس  بدلا من ذلك 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information