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

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


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





حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area

السلام عليكم ورحمة الله وبركاته إليكم كود يقوم بحذف الأعمدة والصفوف في النطاق المستخدم ما عدا نطاق الطباعة Print Area أ ..



10-09-2019 06:42 صباحا
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 

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

إليكم كود يقوم بحذف الأعمدة والصفوف في النطاق المستخدم ما عدا نطاق الطباعة Print Area أي يتم استثناء نطاق الطباعة فقط من الحذف ، ويتم ذلك في كل أوراق العمل الموجودة بالمصنف ، وبالطبع يمكن تطويع الكود ليعمل على ورقة عمل واحدة بكل سهولة.

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

iFI1B_001

وأخيراً إليكم الكود المستخد لتنفيذ المهمة
Sub Test_DeleteAllExceptPrintArea()
    Dim strRange        As String
    Dim ws              As Worksheet

    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            strRange = CStr(ws.PageSetup.PrintArea)
            DeleteAllExceptPrintArea ws.Range(strRange)
        Next ws
    Application.ScreenUpdating = True

    MsgBox "Done...", 64
End Sub

Sub DeleteAllExceptPrintArea(rngToKeep As Range)
    Dim ws          As Worksheet
    Dim bl          As Boolean
    Dim rngRow      As Range
    Dim rngCol      As Range
    Dim rowDelete   As Range
    Dim colDelete   As Range
    Dim iRow        As Long
    Dim iCol        As Long
    Dim i           As Long

    Application.ScreenUpdating = False
    Set ws = rngToKeep.Parent
    
    iRow = ws.UsedRange.Rows.Count
    bl = True
    For i = 1 To iRow
        Set rngRow = ws.Range("1:1").Offset(i - 1, 0)
        If Intersect(rngToKeep, rngRow) Is Nothing Then
            If bl Then
                Set rowDelete = rngRow
                bl = False
            Else
                Set rowDelete = Union(rngRow, rowDelete)
            End If
        End If
    Next i
    If Not rowDelete Is Nothing Then
        rowDelete.Delete
    End If
    
    iCol = ws.UsedRange.Columns.Count
    bl = True
    For i = 1 To iCol
        Set rngCol = ws.Range("A:A").Offset(0, i - 1)
        If Intersect(rngToKeep, rngCol) Is Nothing Then
            If bl Then
                Set colDelete = rngCol
                bl = False
            Else
                Set colDelete = Union(rngCol, colDelete)
            End If
        End If
    Next i
    If Not colDelete Is Nothing Then
        colDelete.Delete
    End If

    Set rngRow = Nothing
    Set rngCol = Nothing
    Set rowDelete = Nothing
    Set colDelete = Nothing
    Set ws = Nothing
End Sub



لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد وتقديم / ياسر خليل أبو البراء
 
 


10-09-2019 09:31 صباحا
مشاهدة مشاركة منفردة [1]
Excelawy
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 460
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 2
يتابعهم : 8
يتابعونه : 10
قوة السمعة : 730
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
أ/ ياسر خليل

المبدع دائما , جزاك الله خيرا

10-09-2019 09:52 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
بارك الله فيك أخي العزيز إكسيلاوي ومشكور على مرورك العطر

10-09-2019 10:43 صباحا
مشاهدة مشاركة منفردة [3]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1772
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
أحسنت استاذ ياسر بارك الله فيك وزادك الله من فضله
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

10-09-2019 10:57 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
وجزيت بمثل ما دعوت لي وزيادة أخي علي

10-09-2019 12:53 مساء
مشاهدة مشاركة منفردة [5]
محمد أبو عبدو
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 202
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 613
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
أستاذي الفاضل جزاك الله خير الجزاء وبارك الله فيك، وزادك الله علما ونفع بك.


10-09-2019 12:58 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
بارك الله فيك أخي محمد ومشكور على متابعتك للموضوعات المختلفة وعلى تفاعلك المثمر




الكلمات الدلالية
النطاقات ، نطاق ، الطباعة ، Delete ، Except ، Print ، Area ،


 










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

الساعة الآن 02:46 صباحا