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

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


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





محتاج إضافة لهذا الكود

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته محتاج إضافة لهذا وهو عد مسح البيانات بداية من الصف (4 ..



22-09-2022 07:24 مساء
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته
محتاج إضافة لهذا وهو عد مسح البيانات بداية من الصف (43 ) لأن بكتب فيه ( وكيل شئون الطلبة - مدير المدرسة )
وكمان عايز كود يقوم بطابعة القائم دفعة واحدة متتالية استنادا علي القائمة المنسدلة  ( P7 )
ولكم جزيل الشكر ووافر الاحترام لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  قوائم.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(104.866) KB


28-09-2022 09:19 مساء
مشاهدة مشاركة منفردة [1]
osama barawy
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-10-2017
رقم العضوية : 1307
المشاركات : 23
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 27-5-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 320
عدد الإجابات: 11
 offline 
look/images/icons/i1.gif محتاج إضافة لهذا الكود
السلام عليكم
بالنسبة لمسح البيانات غير الرقم 49 فى السطر التالى الى السطر الذى رقم السطر الذى ترغب فيه  45 مثلا وهو اول سطر بعد الجدول
ws.Range("D10:I49") = "": ws.Range("L10:Q49") = ""
 اما بالنسبة للطباعة فيمكن استعمال الكود التالى

Sub PrintALL()


'
    Dim ws As Worksheet
    Dim LR As Long
    Dim C As Range
    Dim I As Integer
    

     Application.DisplayAlerts = False
 
    Application.ScreenUpdating = False
  
    Set ws = Sheets("ÝÕæá")

    LR = ws.Range("T" & Rows.Count).End(3).Row

    For Each C In ws.Range("T9:T" & LR)

    
    I = I + 1
        Range("P7").Value = C.Value
        Range("N13").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Next
   
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   
End Sub




أو الكود التالى للحفظ كملفات pdf بعد اختيار المجلد


Sub PrintPDF()
'
'
    Dim ws As Worksheet
    Dim LR As Long
    Dim C As Range
    Dim I As Integer
    Dim Location As String
  
    Dim sFolder As String
    ' Open the select folder prompt
        With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then ' if OK is pressed
            sFolder = .SelectedItems(1)
        End If
    End With
    
    If sFolder <> "" Then
    Application.DisplayAlerts = False

    Application.ScreenUpdating = False
   
    Set ws = Sheets("فصول")

    LR = ws.Range("T" & Rows.Count).End(3).Row

    For Each C In ws.Range("T9:T" & LR)
    I = I + 1
        Range("P7").Value = C.Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFolder & "\" & I & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Next
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    End If
End Sub
 
 
  قوائم--.xlsm   تحميل xlsm مرات التحميل :(0)
الحجم :(97.741) KB





الكلمات الدلالية
محتاج ، إضافة ، لهذا ، الكود ،


 










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

الساعة الآن 04:27 مساء