لمعرفة اخر صف او اخر عمود به بيانات فى ورقة العمل

قيمة اخر خلية فى الصف او العمود


رقم صف اخر خلية
Dim LastRow As Long
LastRow=ThisWorkbook.Sheets("Sheet1").Range("B" & rows.count).End(xlUp).Row
فى السطر الاول يتم الاعلان عن متغير من النوع الرقمى
فى السطر التانى يتم تعيين قيمة للمتغير تساوى رقم اخر خلية بها بيانات فى ورقة العمل Sheet1 فى العمود B



محتوى اخر خلية
Dim LastRow As String
LastRow=ThisWorkbook.Sheets("Sheet1").Range("B" & rows.count).End(xlUp).Value
فى السطر الاول يتم الاعلان عن متغير من النوع النصى
فى السطر التانى يتم تعيين قيمة للمتغير تساوى محتوى اخر خلية بها بيانات فى ورقة العمل Sheet1 فى العمود B



اسم اخر خلية
ThisWorkbook.Sheets("Sheet1").Range("B" & rows.count).End(xlUp).Select
msgBox(ActiveCell.address)
فى السطر الاول يتم تحديد اخر خلية فى العمود B فى ورقة العمل Sheet1
فى السطر الثانى يتم اظهار عنوان اخر خلية فى صندوق الرسائل



رقم عمود اخر خلية
Dim last_column As Long
last_column = ThisWorkbook.Sheets("Sheet1").Cells(3, Columns.Count).End(xlToLeft).Column
فى السطر الاول يتم الاعلان عن متغير من النوع الرقمى
فى السطر التانى يتم تعيين قيمة للمتغير تساوى رقم اخر خلية بها بيانات فى ورقة العمل Sheet1 فى الصف 3



محتوى اخر خلية
Dim last_column As String
last_column = ThisWorkbook.Sheets("Sheet1").Cells(3, Columns.Count).End(xlToLeft).Value
فى السطر الاول يتم الاعلان عن متغير من النوع النصى
فى السطر التانى يتم تعيين قيمة للمتغير تساوى محتوى اخر خلية بها بيانات فى ورقة العمل Sheet1 فى الصف 3



اسم اخر خلية
ThisWorkbook.Sheets("Sheet1").Cells(3, Columns.Count).End(xlToLeft).Select
msgBox(ActiveCell.address)
فى السطر الاول يتم تحديد اخر خلية فى الصف 3 فى ورقة العمل Sheet1
فى السطر الثانى يتم اظهار عنوان اخر خلية فى صندوق الرسائل