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

اريد فلتر تلقائى للارقام فقط


amrhosny
إذهب إلى أفضل إجابة Solved by عادل حنفي,

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

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

اريد كتابة الرقم او جزء من الرقم فى خانة textbox

ليكون autofilter على الارقام

كنت جربت كود مسبقا ولكن لم ينفع على الارقام

ينفع على النص فقط

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

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim lastrow As Long
lastrow = Range("a65535").End(xlUp).Row
If TextBox1.Text <> "" Then
    ActiveSheet.Range("$A$1:$z$" & lastrow).AutoFilter Field:=1, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    Else
    ActiveSheet.Range("$A$1:$z$" & lastrow).AutoFilter Field:=1, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

اتمنى المساعدة

شكرا جزيلا

ارقام.xlsm

تم تعديل بواسطه amrhosny
رابط هذا التعليق
شارك

اخي جرب المرفق

اكتب في الخلية  C3  في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه

ثم اضغط Inter

ارجو ان يساعدك هذا

تحياتي

ارقام 2.xlsm

تم تعديل بواسطه عادل حنفي
  • Like 3
رابط هذا التعليق
شارك

3 hours ago, عادل حنفي said:

اخي جرب المرفق

اكتب في الخلية  C3  في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه

ثم اضغط Inter

ارجو ان يساعدك هذا

تحياتي

ارقام 2.xlsm 37.95 kB · 2 downloads

الكود رائع اخى الفاضل جعله الله فى ميزان حسناتك

ولكن هل يمكن البحث بأى جزء من الرقم

 

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

وايضا اذا اردت تغيير مكان الرينج الموجود بيه الارقام كيف لى ان اعدله

لم افهم من الكود مكان الرينج

فهمت مكان خانة البحث ولكنى لم افهم مكان النطاق

اعذرنى على اسالتى اخى الفاضل

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

  • أفضل إجابة

اخي الان يمكنك البحث عن اللرقم  الذي تريده من بداية  الرقم الاول من علي اليسار

او اول رقمان علي اليسار وهكذا حتي اول تمانية ارقام علي اليسار

والكود هو

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C3").Address Then
If Target <> "" Then
Range("C5:D1000").ClearContents
s = Len(Range("C3"))
If s > 0 Then
x = 2
For i = 2 To 1000
If Sheets("Data").Cells(i, x) <> "" Then
m = Sheets("Data").Cells(i, x).Address
o = Left(Sheets("Data").Range(m), 1)
oo = Left(Sheets("Data").Range(m), 2)
ooo = Left(Sheets("Data").Range(m), 3)
oooo = Left(Sheets("Data").Range(m), 4)
ooooo = Left(Sheets("Data").Range(m), 5)
oooooo = Left(Sheets("Data").Range(m), 6)
ooooooo = Left(Sheets("Data").Range(m), 7)
oooooooo = Left(Sheets("Data").Range(m), 8)
If Range("C3").Text = o Or Range("C3").Text = oo Or Range("C3").Text = ooo Or Range("C3").Text = oooo Or Range("C3").Text = ooooo Or Range("C3").Text = oooooo Or Range("C3").Text = oooooo Or Range("C3").Text = ooooooo Or Range("C3").Text = oooooooo Then
With Columns(4).Rows(2000).End(xlUp)
.Offset(1, 0) = Sheets("Data").Cells(i, x)
Cells(.Offset(1, 0).Row, 3) = Sheets("Data").Cells(i, x - 1)
End With
End If
End If
Next
End If
End If
End If
End Sub

اما بخصوص المدي فيحدد عاموده ال X في سطر الذي هو x = 2

اما الذ يجدد الصف هذا السطر الخاص بالحلقة الدائرية For i = 2 To 1000

فيبدأ في البحث عن الرقم المطلوب في الصف 2 ثم 3 ونهاية بــ 1000

ارجو ان كون استطعت ايصال المعلومة

تحياتي

ارقام 2 (2).xlsm

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

6 hours ago, عادل حنفي said:

اخي الان يمكنك البحث عن اللرقم  الذي تريده من بداية  الرقم الاول من علي اليسار

او اول رقمان علي اليسار وهكذا حتي اول تمانية ارقام علي اليسار

والكود هو


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C3").Address Then
If Target <> "" Then
Range("C5:D1000").ClearContents
s = Len(Range("C3"))
If s > 0 Then
x = 2
For i = 2 To 1000
If Sheets("Data").Cells(i, x) <> "" Then
m = Sheets("Data").Cells(i, x).Address
o = Left(Sheets("Data").Range(m), 1)
oo = Left(Sheets("Data").Range(m), 2)
ooo = Left(Sheets("Data").Range(m), 3)
oooo = Left(Sheets("Data").Range(m), 4)
ooooo = Left(Sheets("Data").Range(m), 5)
oooooo = Left(Sheets("Data").Range(m), 6)
ooooooo = Left(Sheets("Data").Range(m), 7)
oooooooo = Left(Sheets("Data").Range(m), 8)
If Range("C3").Text = o Or Range("C3").Text = oo Or Range("C3").Text = ooo Or Range("C3").Text = oooo Or Range("C3").Text = ooooo Or Range("C3").Text = oooooo Or Range("C3").Text = oooooo Or Range("C3").Text = ooooooo Or Range("C3").Text = oooooooo Then
With Columns(4).Rows(2000).End(xlUp)
.Offset(1, 0) = Sheets("Data").Cells(i, x)
Cells(.Offset(1, 0).Row, 3) = Sheets("Data").Cells(i, x - 1)
End With
End If
End If
Next
End If
End If
End If
End Sub

اما بخصوص المدي فيحدد عاموده ال X في سطر الذي هو x = 2

اما الذ يجدد الصف هذا السطر الخاص بالحلقة الدائرية For i = 2 To 1000

فيبدأ في البحث عن الرقم المطلوب في الصف 2 ثم 3 ونهاية بــ 1000

ارجو ان كون استطعت ايصال المعلومة

تحياتي

ارقام 2 (2).xlsm 38.88 kB · 0 downloads

تسلم ايدك فهمت الكود 

جزاك الله كل الخير وشكرا لوقتك وتعبك 

شكرا جزيلا اخى الفاضل

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

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