انتقل إلى المحتوى الرئيسي

كيفية عكس تحديد النطاقات المحددة بسهولة في Excel؟

لنفترض أنك حددت بعض الخلايا المحددة في النطاق ، والآن تحتاج إلى عكس التحديد: قم بإلغاء تحديد الخلايا المحددة وتحديد الخلايا الأخرى. انظر الصورة التالية:

بالطبع ، يمكنك عكس التحديد يدويًا. لكن هذه المقالة ستقدم لك بعض الحيل اللطيفة لعكس التحديدات بسرعة:

عكس التحديدات في Excel باستخدام VBA

الاختيار العكسي في Excel مع Kutools for Excel


السهم الأزرق الحق فقاعة عكس التحديدات في Excel باستخدام VBA

استخدام ماكرو VBA سيجعلك تعمل بسهولة لعكس التحديدات في منطقة العمل بورقة العمل النشطة.

Step1: حدد الخلايا التي تريد عكسها.

Step2: اضغط باستمرار على قديم + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

Step3: انقر إدراج > وحدة، ولصق الماكرو التالي في نافذة الوحدة النمطية.

VBA لعكس التحديدات

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: اضغط على F5 مفتاح لتشغيل هذا الماكرو. ثم يظهر لك مربع حوار لتحديد بعض الخلايا التي لا تحتاج إلى تحديدها في النتيجة. انظر لقطة الشاشة:




الخطوة5: انقر OK، وحدد النطاق الذي تريده لعكس التحديد في مربع حوار منبثق آخر. انظر لقطة الشاشة:




الخطوة6: انقر OK. يمكنك أن ترى تم عكس التحديد.


الملاحظات: يعمل VBA أيضًا في ورقة عمل فارغة.


السهم الأزرق الحق فقاعة عكس التحديدات في Excel مع Kutools for Excel

قد ترغب في عكس أي تحديد في Excel بسرعة ، ملف حدد مساعد النطاق أدوات كوتولس ل إكسيل يمكن أن تساعدك على عكس التحديد بسرعة في Excel. تسهل هذه الحيلة عليك عكس أي تحديدات في المصنف بأكمله.

يتضمن Kutools for Excel أكثر من 300 أداة يدوية من أدوات Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن.

Step1: حدد الخلايا التي تريد عكسها.

Step2: انقر على كوتولس > حدد أدوات > حدد مساعد النطاق ....

Step3: في حدد مساعد النطاق مربع الحوار، والتحقق من اختيار معكوس الخيار.

Step4: ثم اسحب الماوس لتحديد النطاق الذي تريده لعكس التحديدات. عند تحرير الماوس ، يتم إلغاء تحديد الخلايا المحددة وتم تحديد الخلايا غير المحددة من النطاق مرة واحدة.

Step5: ثم أغلق ملف حدد مساعد النطاق صندوق المحادثة.

للحصول على معلومات أكثر تفصيلا حول حدد مساعد النطاق، يرجى زيارة حدد وصف ميزة مساعد النطاق.


مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

 

 

 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations