أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





التصفية باستعمال الارقام والحروف

السلام عليكم.اود من اخواني المساعدة. عندي ملف وقمت فيه بتصفية البيانات باكثر من معيار لكني واجهت صعوبة لان احد الاعمدة ف ..



23-05-2019 03:40 مساء
sami872
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4076
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 14-7-1988
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 83
الاعجاب : 4
 offline 

السلام عليكم.اود من اخواني المساعدة. عندي ملف وقمت فيه بتصفية البيانات باكثر من معيار لكني واجهت صعوبة لان احد الاعمدة فيه ارقام وحروف غير منتظمة.الملف المرفق يوضح المطلوب.
 
 
  تصفية البيانات.xlsx   تحميل xlsx مرات التحميل :(1)
الحجم :(20.654) KB







23-05-2019 06:06 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 429
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3395
الاعجاب : 291
 offline 
look/images/icons/i1.gif التصفية باستعمال الارقام والحروف
جرب هذا الماكرو

Option Explicit

Sub Filter_ME()
If ActiveSheet.Name <> "table2" Then Exit Sub

Dim data As Range, c As Collection
Dim v, i As Long, ary
Set data = ActiveSheet.Range("B4").CurrentRegion
show_all
Set c = New Collection
On Error Resume Next
For i = 5 To data.Rows.Count
v = Cells(i, 6).Value
If Mid(v, 1) Like [a-zA-Z] Then
c.Add v, CStr(v)
End If
Next i
On Error GoTo 0

ReDim ary(0 To c.Count - 1)
For i = 1 To c.Count
ary(i - 1) = c.Item(i)
Next i

With data
.AutoFilter Field:=5, Criteria1:=(ary), Operator:=xlFilterValues
End With
Set c = Nothing: Erase ary
End Sub

Rem====================================== _
======================================
Sub show_all()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
ActiveSheet.AutoFilterMode = False
End If

End Sub


الملف مرفق


 
 
  SALIM_Filter.rar   تحميل rar مرات التحميل :(8)
الحجم :(27.871) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، السعيد الجزائري،




23-05-2019 08:38 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1383
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6278
الاعجاب : 939
 Online 
look/images/icons/i1.gif التصفية باستعمال الارقام والحروف
أحسنت استاذ سليم كود ممتاز تقبل الله منك سائر الأعمال

أثارت هذه المشاركة إعجاب: salim، السعيد الجزائري،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


23-05-2019 09:29 مساء
مشاهدة مشاركة منفردة [3]
sami872
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4076
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 14-7-1988
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 83
الاعجاب : 4
 offline 
look/images/icons/i1.gif التصفية باستعمال الارقام والحروف
بارك الله فيك استاذ سليم. 

أثارت هذه المشاركة إعجاب: السعيد الجزائري، salim،






الكلمات الدلالية
والحروف ، الارقام ، باستعمال ، التصفية ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 11:15 صباحا

أعلن هنا
أعلن هنا
أعلن هنا