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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



10-09-2019 06:42 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 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



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

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


أثارت هذه المشاركة إعجاب: ali mohamed ali، محمد أبو عبدو، محمود ابو الدهب، hassona229، محمد الدسوقى، sobhi67،





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

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

أثارت هذه المشاركة إعجاب: YasserKhalil،




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





10-09-2019 10:43 صباحا
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1210
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5709
الاعجاب : 711
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
أحسنت استاذ ياسر بارك الله فيك وزادك الله من فضله

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


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





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


أثارت هذه المشاركة إعجاب: YasserKhalil،




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





10-09-2019 04:42 مساء
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
بارك الله فيك استاذ ياسر وشكرا جزيلا والف الف لايك كمان

اه سورى ده تعليق الفديوها خلاص يبقي والف الف تحميل كمان smile 

أثارت هذه المشاركة إعجاب: YasserKhalil،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


10-09-2019 06:40 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
جزاك الله خيراً أخي الغالي محمود .. بارك الله فيك
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




10-09-2019 08:19 مساء
مشاهدة مشاركة منفردة [9]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
جزاكم الله خيرا استاذنا الكريم
وجعل هذا العمل في ميزان حسناتكم يوم القيامه 

أثارت هذه المشاركة إعجاب: YasserKhalil،




10-09-2019 08:42 مساء
مشاهدة مشاركة منفردة [10]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
10635-10

أثارت هذه المشاركة إعجاب: YasserKhalil،




10-09-2019 09:11 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area
أخي الحبيب حسونة
أخي الحبيب محمد الدسوقي
بارك الله فيكما وجزيتما خيراً لمروركما المشرف






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حذف محتوى نطاق محدد مع الاحتفاظ بالمعادلات - أكاديمية الصقر للتدريب الصقر
51 3441 علي الرويلي
كود لحذف نطاق معين بناءا على رقم خليه elsayed abouzaid
1 248 elsayed abouzaid

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


 







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



الساعة الآن 03:51 صباحا

أعلن هنا
أعلن هنا
أعلن هنا