اخفاء الخلايا التي تحتوي على حروف و ارقام

[مراد الجزائر]

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

 

 

 

لدي جدول اريد أن تظهر فيه الخلايا الحرفية الخالية من الأرقم

الجدول في المرفقات مع الشرح

 

 

شكرا

MFC.rar

[أبو حنــــين]

يمكن استعمال الكود التالي

Sub Macro1()

For Each cl In Sheets("Feuil1").Range("D5:D20")
If IsNumeric(Right(cl, 1)) Then _
cl.EntireRow.Hidden = True

Next

End Sub

[أبو حنــــين]

و اذا اردت نقل الاسماء الى الجدول دون اخفاء

هذا الكود لنقل الاسماء التي تحتوي على ارقام

Sub Macro2()

r = 5
For Each cl In Sheets("Feuil1").Range("D5:D20")
If IsNumeric(Right(cl, 1)) Then
cl.Resize(, 1).Copy Range("F" & r)
r = r + 1
End If
Next

End Sub

و هذا الكود لنقل الاسماء التي لا تحتوي على ارقام

Sub Macro3()

r = 5
For Each cl In Sheets("Feuil1").Range("D5:D20")
If Not IsNumeric(Right(cl, 1)) Then
cl.Resize(, 1).Copy Range("F" & r)
r = r + 1
End If
Next

End Sub

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

السلام عليكم

 

الشكر واصل لاخي الحبيب ابو حنين

لاثراء الموضوع

ممكن تستخدم المعادلة التالية

ضعها في الخلية F5 واسحبها

=IF(SUMPRODUCT(N(ISNUMBER(--MID(D5;ROW(INDIRECT("1:"&LEN(D5)));1))));"";D5)