current region excel

[ahmed sherif]

السلام عليكم الاستاذة الكرام اريد تعلم انشاء current region لاستخدامة فيما بعد لعملية النسخ واللصق بواسطة vba 

المشكلة التى تواجهنى انى عامل جدول بين اعمدته فواصل صغيرة بمعنى من (a1:e10) نطاق f1 فراغ او فاصل ثم من (g1:g10) ثم h فراغ او فاصل ثم من (i1:i10)نطاق L فراغ او فاصل ثم من (k1:k10)نطاق 

يتكرر النطاق بالكامل بنفس الوضعية من (m1::w10)بنفس الشكل

اريد نسخ المجال بالكامل من (a1:w10) بعد تحديدة بواسطة current region داخل ال شيت نفسة للصق اكثر من مرة النسخ واللصق  لكن التحديد بواسطة ال current region هو اللى موقف الموضوع مرفق الملف للتوضيح

تم تعديل رفع الملف

YT.xlsm

[سليم حاصبيا]

لا يمكن التعامل مع current region  اذا كان يحنوي على خلايا فارغة

لذلك ارقع ملفاُ يحتوي على بيانات ولو كانت عشوائية

[سليم حاصبيا]

جرب هذين الماكروين (النسخ يتم الى Sheet2 اذا لم تكن موجودة قم بانشائها)

الأول اصرارك على استعمال الـــ current region

الثاني النسخ العادي 

Option Explicit
Sub copy_range_1()
Rem copy Using CurrentRegion
Dim Rag As Range
Set Rag = Sheets("sheet1").Range("A1:W13"). _
 SpecialCells(4)
 Rag.Formula = "="""""
  Sheets("sheet1").Range("A1").CurrentRegion.Copy
  Sheets("sheet2").Range("A1").PasteSpecial
 Rag.Value = vbNullString
 With Sheets("sheet2").Range("A1").CurrentRegion
  .Value = .Value
 End With
 Application.CutCopyMode = False
End Sub
'++++++++++++++++++++++++++++++++++++
Sub copy_range_2()
  Rem Normal copy
Sheets("sheet1").Range("A1:W13").Copy
Sheets("sheet2").Range("A1").PasteSpecial
Application.CutCopyMode = False
End Sub

 

[ahmed sherif]

شكرا استاذ سليم على هذه المساهمة الفعالة بخصوص الاصرار على current region الامثلة المطبقة و الموجودة على اليوتيوب موجوده على نطاق كامل ولم ارى مثال موجود على جدول بينه فواصل لذلك طرحت السؤال فى هذا المنتدى لعل وعسى اجد نتيجة لكن لماذا لا يعمل على جدول فارغ

 

[سليم حاصبيا]

الـ current region هو النطاق الذي يمكنك التنقل به من أول خلية الى اخر خلية دون المرور بصفوف (أو أعمدة ) فارغة

الخلايا الفارغة ضمن المربع الأحمر (مثلاً B3 ) هي ايضاً ضمن الـــcurrent region  لانه يمكن الوصول اليها بنفس الشرط

بينما الخلية E2  لا تحتسب ضمن current region  لان العمود D فارغ

و كذلك الخلية A7 لا تحتسب ضمن current region  لان الصف 6 فارغ

باختصار يمكن اعتبار الـــ  current region مثل جزيرة في البحر
     يمكن  ان يكون فيها شجر او سكان (الخلايا المليئة)
     و يمكن ان يكون فيها (لكن ليس كلها) مناطق خالية (الخلايا  الفارغة)
     و عليك التنقل في ارض هذه الجزيرة دون أن تدوس بمياه البحر

     والـــ used range  هو مجموعة من هذه الجزر لكل منها  current region  خاص بها

يمكن تحديد  current region بتحدبد اي خلية داخله والضغط على (Ctr+A) مرة واحدة

و هذا جواب لماذا لا يعمل على جدول فارغ

الصورة توضح ذلك 

 

 

[ahmed sherif]

جزاك الله كل خير على هذه المعلومة الجميلة