اذهب الي المحتوي
أوفيسنا

طلب كود اظهار القيم فى listbox عند فتح الفورم


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

السلام عليكم
ده كود بحث وفلترة فى listbox2 شغال تمام
المطلوب
عمل كود فى userform_activate علشان القيم تظهر فى listbox2 عند فتح الفورم
وشكرا للجميع
Private Sub TextBox1_Change()
On Error Resume Next
ThisWorkbook.Activate

Dim v As Integer, LastRow As Integer
Dim M As String
Dim Q, F
ListBox2.Clear
With Da
If TextBox1.Text = "" Then GoTo 1


LastRow = .Range("cc1000").End(xlUp).Row
Set sp = .Range("cc5:cc" & LastRow)



M = TextBox1.Text



Set Q = sp.Find(M)


If Not Q Is Nothing Then
F = Q.Address
Do
If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then
'هنا في حالة انني اريد البحث على اساس اي حرف بالكلمه
'====================================================================

'وهذا الكود اذا اردت البحث باول حرف من الكلمه ولاحظ هنا ان الرقم تغير من صفر الى واحد في الاقواس
'====================================================================
ListBox2.AddItem Q.Value
'هذا خاص باضافة عمود البحث وهنا يكون العمود الاول من الليست بوكس
ListBox2.List(v, 0) = Q.Offset(0, -2).Value
ListBox2.List(v, 1) = Q.Value
طلب كود اظهار القيم فى listbox عند فتح الفورمListBox2.List(v, 2) = Q.Offset(0, 2).Value
ListBox2.List(v, 3) = Q.Offset(0, 3).Value
' ListBox2.List(v, 3) = Q.Offset(0, 2).Value

v = v + 1
'وهذا المتغير ضروريان يكون كماهو لانه يعني ظهور الداتا لكامل عدد الاعمده في الليست بوكس
End If
Set Q = sp.FindNext(Q)
'وهذا السطر يجب ان يكون موجود وهو خاص بالبحث التالي للكلمات، يعني لو حذفت هذا السطر لن يعطيك تكرار للبحث
'ويجب ان تراعي ان تغير معطيات الكود في حال غيرت اسماء المتغيرات وايضا في حال غيرة عمود البحث
Loop While Not Q Is Nothing And Q.Address <> F
Me.ListBox2 = ""

طلب كود اظهار القيم فى listbox عند فتح الفورمEnd If
End With

1 End Sub

كلمة المرور 123

 

اساسى_تعديل.rar

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information