ممكن شرح هذا الكود البسيط لي اخواني

[ابولمى]

انا اسأل ماالفائده من استخدام count هنا

Sub FindingLastRow()

'PURPOSE: Different ways to find the last row number of a range
'SOURCE: www.TheSpreadsheetGuru.com

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ThisWorkbook.Worksheets("Sheet1")

'Ctrl + Shift + End
  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

'Using UsedRange
  sht.UsedRange 'Refresh UsedRange
  LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row

'Using Table Range
  LastRow = sht.ListObjects("Table1").Range.Rows.Count

'Using Named Range
  LastRow = sht.Range("MyNamedRange").Rows.Count

'Ctrl + Shift + Down (Range should be first cell in data set)
  LastRow = sht.Range("A1").CurrentRegion.Rows.Count

End Sub

 

تم تعديل أكتوبر 2, 2015 بواسطه مستخدم جديد9

[عادل حنفي]

اخي الفاضل

    هذان السطرا تم ايقافهما بالعلامة الموضوعة علي يسار كل سطر

'PURPOSE: Different ways to find the last row number of a range
'SOURCE: www.TheSpreadsheetGuru.com
هذان السطران تعريف لمتغيرات يختارها المبرمج ويقوم بتعريف البرنامج عليه وعلي ماذا تشير

Dim sht As Worksheet
Dim LastRow As Long
هذا السطر جعل المبرمج احد المتغيرات عندما يذكرها فانها تشير الي الشيت رقم 1 في هذا الملف

Set sht = ThisWorkbook.Worksheets("Sheet1")
هذا السطر تم ايقافه
'Ctrl + Shift + End
هنا يعرف المبرمج المتغير الثاني وهو يشير الي الصف الاخير للخلاياالغير فارغة في العمود الاول من الشيت الاول
  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

هذا السطر تم ايقافه(ويعتبر كعنوان لايؤثر في
الكود) 
'Using UsedRange
هنا يتم معرفة مدي الخلايا المستخدمة
  sht.UsedRange 'Refresh UsedRange
هنا جعل المتغير الثاني يساوي اخر صف في صفوف المدي المستخدم
  LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row

هذا السطر تم ايقافه(ويعتبر كعنوان لايؤثر في
الكود
'Using Table Range

هنا جعل المتغير الثاني يساوي عدد صفوف الجدول المستخدم
  LastRow = sht.ListObjects("Table1").Range.Rows.Count

هذا السطر تم ايقافه(ويعتبر كعنوان لايؤثر في
الكود
'Using Named Range

هنا جعل المتغير الثاني يساوي عدد صفوف مدي مخفوظ 
  LastRow = sht.Range("MyNamedRange").Rows.Count

هذا السطر تم ايقافه
'Ctrl + Shift + Down (Range should be first cell in data set)

هنا جعل المتغير الثاني يساوي عدد صفوف الخلايا المستخدمة 
  LastRow = sht.Range("A1").CurrentRegion.Rows.Count

End Sub

ارجو ان تكون هناك افادة

تحياتي

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا القدير عادل حنفي على الشّرح الوافي و الكافي .. أنا شخصيًّا استفدت من هذا الشّرح المميّز                       جزاك الله خيرا و زادك من علمه و فضله

                                                                 كامل احتراماتي

 

[Yasser Fathi Albanna]

الأستاذ الفاضل / عادل حنفى

شرح رائع من إنسان رائع

تقبل خالص تحياتى وتقديرى

[عادل حنفي]

اخي العزيز عبد العزيز البسكري

اخي العزيز م / ياسر فتحى البنا

اشكركما علي كلماتكما عزكما الله

خالص تحياتي وتقديري

[ابولمى]

شكرا استاذ عادل على الشرح