اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

current region excel


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

قام بنشر

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

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

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

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

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

YT.xlsm

  • أفضل إجابة
قام بنشر

جرب هذين الماكروين (النسخ يتم الى 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

 

  • Like 1
قام بنشر

شكرا استاذ سليم على هذه المساهمة الفعالة بخصوص الاصرار على 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) مرة واحدة

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

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

 

 

Currentregion.png

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information