filler

[rahekk]

في المرفق

Book1.rar

[الـعيدروس]

السلام عليكم

جرب الكود التالي

Private Sub TextBox1_Change()
Dim Rw As Long
Dim Ctr
If Me.TextBox1 = "" Then Lis_Rn
Ctr = "*" & Me.TextBox1 & "*"
With Me.ListBox1
 For Rw = .ListCount - 1 To 0 Step -1
   If Not .List(Rw, 0) Like Ctr Then
    .RemoveItem Rw
   End If
 Next Rw
End With
End Sub
Private Sub UserForm_activate()
 Lis_Rn
End Sub
Private Sub Lis_Rn()
With Sheets("ورقة1")
  ListBox1.List = .Range("A1:C" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
End With
End Sub

Book1_A.rar

تم تعديل أغسطس 13, 2013 بواسطه عباد

[rahekk]

اخي وحبيبي عباد

انا اقصد بمجرد ما اكتب  225 يظهر اي رقم فية 225 سواء في العمود الاول او الثاني او الثالث

في المثال يظهر فقط 225 في العمود الاول فقط

في االانتظار وشكرا

 

[عبدالله باقشير]

السلام عليكم

 

بعد اذن اخي عباد حفظه الله

 

شاهد المرفق 2003

FILTER.rar

[rahekk]

حبيبنا  الغالي  عبدالله  باقشير سلمت يداك وعمرك

هو المطلوب بالضبط

[rahekk]

الاخ الحبيب عبدالله باقشير

lr معناه lastrow

و r  معناه ال row

لي استفسارين

1- ماهو المتغير rr  في الكود

2- بفرض اني من الخصائص لليست بوكس حددت row source

     هل الكود يمكن ان يكون الكود اسهل

ارجو الرد

 

[rahekk]

الاخ الحبيب عبدالله باقشير

lr معناه lastrow

و r معناه ال row

لي استفسارين

  ماهو المتغير 

 RR

     بفرض اني من الخصائص لليست بوكس حددت 

row sourceمن خانة

 

هل الكود يمكن ان يكون الكود اسهل

ارجو الرد في هذه الحالة

 

 

 

 

 

 

Book111.rar

تم تعديل أغسطس 14, 2013 بواسطه rahekk

[عبدالله باقشير]

السلام عليكم

 

RR  صف اللست بوكس

 

الصفوف تدخل في اللست بوكس حسب نتائج البحث عبر الكود بواسطة AddItem

اما  row source تستخدم لادخال نطاق معين

 

تحياتي

[rahekk]

كل الشكر حبيبنا باقشير