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

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


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





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

بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت [code]PGJyIC8+DQpQcml2YXRlIFN1YiBDb21tYW5kQnV0dG9uMV9DbGl ..



24-07-2018 07:30 صباحا
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 

بكبسة زر واحدة نستطيع ان نعرف  ما هو اخر صف غير فارغ في كل شيت

Private Sub CommandButton1_Click()
my_row
End Sub
'==============
Option Explicit
Dim lr

Sub LastRow_In_sheet(sh_Name)
    On Error Resume Next
    lr = sh_Name.Cells.Find(What:="*", _
                            After:=Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlValues, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                         MatchCase:=False).Row
     If Err.Number <> 0 Then lr = ""
     On Error GoTo 0
End Sub
'===============================================

Sub my_row()
Dim i%
Dim lr1
Dim k%: k = Sheets.Count
Sheets("sheet1").Activate
lr1 = Sheets("sheet1").Cells(Rows.Count, 1).End(3).Row
 If lr1 = 1 Then lr1 = 2
 Sheets("sheet1").Range("a2:b" & lr1).ClearContents
If k = 1 Then
  Sheets("sheet1").Range("b2") = Sheets("sheet1").Name
  Sheets("sheet1").Range("a2") = 2
  Exit Sub
 End If
For i = 2 To Sheets.Count
Call LastRow_In_sheet(Sheets(i))
Sheets("sheet1").Range("b" & i) = Sheets(i).Name
    If IsNumeric(lr) Then
        Sheets("sheet1").Range("a" & i) = lr
       Else
        Sheets("sheet1").Range("a" & i) = " (Empty)"
    End If
Next
End Sub
                     


 

 
 
 
  Last_row In sheets.rar   تحميل rar مرات التحميل :(25)
الحجم :(26.033) KB


24-07-2018 09:35 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif معرفة اخر صف في كل ورقة

جزاكم الله خيرا اخى الكريم الاستاذ سليم كود رائع 3
اثراء للموضوع اقدم لكم هذا الكود ان شاء الله ينال اعجابك ويفيد الاخوه الاعضاء

Sub Alsqr()
Dim lr As Long
Dim sh As String
Dim i As Worksheet
For Each i In Worksheets
lr = i.Cells(Rows.Count, 1).End(3).Row
sh = sh & i.Name & " " & "last row is" & " " & lr & Chr(13)
Next i
MsgBox sh, vbMsgBoxRight, "أكاديمية الصقر للتدريب"
End Sub
توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


24-07-2018 09:42 صباحا
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif معرفة اخر صف في كل ورقة
المشاركة الأصلية كتبت بواسطة: الصقر

جزاكم الله خيرا اخى الكريم الاستاذ سليم كود رائع 3
اثراء للموضوع اقدم لكم هذا الكود ان شاء الله ينال اعجابك ويفيد الاخوه الاعضاء

Sub Alsqr()
Dim lr As Long
Dim sh As String
Dim i As Worksheet
For Each i In Worksheets
lr = i.Cells(Rows.Count, 1).End(3).Row
sh = sh & i.Name & " " & "last row is" & " " & lr & Chr(13)
Next i
MsgBox sh, vbMsgBoxRight, "أكاديمية الصقر للتدريب"
End Sub

جزاك الله خيراً اخي حسام
لكن ليس من الضروي ان يكون اخر صف بتاع اخر خلية غير فارغة في العامود الاول (اقصد العامود A)

24-07-2018 10:14 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif معرفة اخر صف في كل ورقة

تفضل اخى الكريم هذا الكود لم انتبه لفكرة الموضوع ان العمود غير محدد

Sub Alsqr()
Dim lr As Long
Dim sh As String
Dim i As Worksheet
For Each i In Worksheets
lr = i.Cells.SpecialCells(xlLastCell).Row
sh = sh & i.Name & " " & "last row is" & " " & lr & Chr(13)
Next i
MsgBox sh, vbMsgBoxRight, "أكاديمية الصقر للتدريب"
End Sub

الكود يختلف عن الكود السابق فى استبدال هذا السطر

lr = i.Cells(Rows.Count, 1).End(3).Row

بهذا السطر

lr = i.Cells.SpecialCells(xlLastCell).Row

 
توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


24-07-2018 10:39 صباحا
مشاهدة مشاركة منفردة [4]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif معرفة اخر صف في كل ورقة

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


Sub Alsqr()
Dim lr As Long
Dim sh As String
Dim i As Worksheet
For Each i In Worksheets
On Error Resume Next
lr = 0
lr = i.Cells.Find(What:="*", After:=Range("a1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sh = sh & i.Name & " " & "last row is" & " " & lr & Chr(13)
1
Next i
MsgBox sh, vbMsgBoxRight, "أكاديمية الصقر للتدريب"
End Sub
توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


24-07-2018 12:06 مساء
مشاهدة مشاركة منفردة [5]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif معرفة اخر صف في كل ورقة
بارك الله فيكم جميعا مجهود رائع وتنافس شريف -جزاكم الله كل خير
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

24-07-2018 01:41 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif معرفة اخر صف في كل ورقة
بارك الله فيك أخي الحبيب سليم وجزاك الله خير الجزاء
والشكر موصول للأخ الحبيب حسام خطاب
وإثراءً للموضوع هذه دالة معرفة شبيهة بالإجراء العام ويمكن استخدمها بسهولة
Sub Test_LastRow_UDF()
    MsgBox LastRow(ActiveSheet)
End Sub

Function LastRow(sh As Worksheet)
    On Error Resume Next
        LastRow = sh.Cells.Find(What:="*", After:=sh.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
    On Error GoTo 0
End Function




الكلمات الدلالية
معرفة ، ورقة ،


 










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

الساعة الآن 08:41 صباحا