Note: The other languages of the website are Google-translated. Back to English

كيفية نقل العناصر بسرعة بين مربعي القائمة في إكسيل؟

هل سبق لك أن حاولت نقل العناصر من مربع قائمة إلى مربعات قائمة أخرى كما تحتاج كما هو موضح أدناه؟ هنا سأتحدث عن هذه العملية في Excel.

نقل المستندات بين مربع القائمة 1 دوك السهم الأيمن نقل المستندات بين مربع القائمة 2

نقل العناصر بين مربعات القوائم


نقل العناصر بين مربعات القوائم

لا توجد وظيفة مضمنة يمكن أن تساعدك في إنهاء المهمة ، ولكن لدي رمز VBA يمكنه تقديم خدمة.

1. أولاً ، تحتاج إلى إنشاء قائمة بالبيانات التي ستظهر كعناصر في مربعات القائمة في ورقة جديدة تسمى Admin_Lists.
نقل المستندات بين مربع القائمة 3

2. ثم حدد هذه البيانات وانتقل إلى الاسم مربع لمنحهم اسم قائمة البند. انظر لقطة الشاشة:
نقل المستندات بين مربع القائمة 4

3. ثم في الورقة التي تحتوي على مربعي القائمة ، انقر فوق المطور > إدراج > مربع القائمة (عنصر تحكم نشط X)، وارسم مربعي قائمة. انظر لقطة الشاشة:

نقل المستندات بين مربع القائمة 5 دوك السهم الأيمن نقل المستندات بين مربع القائمة 6

إذا كان المطور علامة التبويب مخفية الشريط الخاص بك ، كيفية إظهار / عرض علامة تبويب المطور في شريط Excel 2007/2010/2013؟ ستخبرك هذه المقالة بكيفية إظهارها.

4. ثم اضغط المطور > إدراج > زر الأمر (التحكم النشط X)، وارسم أربعة أزرار بين مربعي قائمة. انظر لقطة الشاشة:

نقل المستندات بين مربع القائمة 7 دوك السهم الأيمن نقل المستندات بين مربع القائمة 8

الآن لإعادة تسمية أزرار الأوامر الأربعة بأسماء جديدة.

5. حدد زر الأمر الأول ، انقر فوق عقارات، وفي عقارات جزء ، أعط اسما BTN_moveAllRight إليها ، واكتب >> في مربع النص بجانب شرح. انظر لقطة الشاشة:
نقل المستندات بين مربع القائمة 9

6. كرر الخطوة 5 لإعادة تسمية الأزرار الثلاثة الأخيرة بالأسماء أدناه ، واكتب أيضًا السهم المختلف في التسميات التوضيحية. انظر لقطة الشاشة:

BTN_MoveSelected يمينًا

BTN_moveAll اليسار

BTN_MoveSelectedLeft

نقل المستندات بين مربع القائمة 10 نقل المستندات بين مربع القائمة 11 نقل المستندات بين مربع القائمة 12

7. انقر بزر الماوس الأيمن فوق اسم الورقة الذي يحتوي على مربعات القوائم وأزرار الأوامر ، ثم حدد عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
نقل المستندات بين مربع القائمة 13

8. انسخ والصق رمز الماكرو أدناه إلى ملف وحدة النصي ثم احفظ الكود وأغلق ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. انظر لقطة الشاشة

فبا: نقل العناصر بين مربعي قائمة

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Sheets("Admin_Lists").Range("ItemList")
    Me.ListBox1.Clear
    Me.ListBox2.Clear
    With Me.ListBox1
        .LinkedCell = ""
        .ListFillRange = ""
        For Each xCell In xRg
            If xCell <> "" Then
                .AddItem xCell.Value
            End If
        Next xCell
    End With
    Me.ListBox1.MultiSelect = fmMultiSelectMulti
    Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub BTN_MoveSelectedLeft_Click()
    Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub

Private Sub BTN_MoveSelectedRight_Click()
    Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub

Private Sub BTN_moveAllLeft_Click()
    Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub

Private Sub BTN_moveAllRight_Click()
    Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub

Sub moveAll(xListBox1 As Object, xListBox2 As Object)
    Dim I As Long
    For I = 0 To xListBox1.ListCount - 1
        xListBox2.AddItem xListBox1.List(I)
    Next I
    xListBox1.Clear
End Sub

Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
    Dim I As Long
    For I = 0 To xListBox1.ListCount - 1
        If I = xListBox1.ListCount Then Exit Sub
        If xListBox1.Selected(I) = True Then
            xListBox2.AddItem xListBox1.List(I)
            xListBox1.RemoveItem I
            I = I - 1
        End If
    Next
End Sub

 نقل المستندات بين مربع القائمة 14

9. ثم انتقل إلى ورقة أخرى ثم ارجع إلى الورقة التي تحتوي على مربعات القائمة ، والآن يمكنك رؤية قائمة بيانات القائمة في مربع القائمة الأول. وانقر فوق أزرار الأوامر لنقل العناصر بين مربعي القائمة.
نقل المستندات بين مربع القائمة 15

نقل التحديد

نقل المستندات بين مربع القائمة 16 دوك السهم الأيمن نقل المستندات بين مربع القائمة 17

حرك الكل

نقل المستندات بين مربع القائمة 18 دوك السهم الأيمن نقل المستندات بين مربع القائمة 19

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (1)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يصبح برنامج Excel الخاص بي غير مستجيب بعد تشغيل هذا الرمز. ماذا ممكن ان تكون المشكلة؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL