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

كيفية منع النسخ واللصق على الخلية مع القائمة المنسدلة في إكسيل؟

بالنسبة لخلية تحتوي على قائمة منسدلة للتحقق من صحة البيانات ، عند نسخ محتوى من خلية أخرى ولصقه ، ستختفي القائمة المنسدلة وتستبدل بمحتوى اللصق الجديد. في بعض الحالات ، تريد منع نسخ ولصق محتوى آخر فوق الخلية باستخدام القائمة المنسدلة ، فماذا ستفعل للتعامل معها؟ في هذه المقالة ، ستحصل على طريقة VBA للتعامل مع هذه المشكلة.

منع النسخ واللصق فوق الخلية باستخدام القائمة المنسدلة في Excel


منع النسخ واللصق فوق الخلية باستخدام القائمة المنسدلة في Excel

1. افتح ورقة العمل باستخدام خلية القائمة المنسدلة التي تريد منع نسخها ولصقها.

2. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح تطبيقات Microsoft Visual Basic نافذة.

3. في ال تطبيقات Microsoft Visual Basic ، انقر نقرًا مزدوجًا فوق اسم ورقة العمل الحالية في الجزء الأيمن ، ثم انسخ والصق رمز VBA أدناه في محرر التعليمات البرمجية. انظر لقطة الشاشة:

كود فبا: منع النسخ واللصق فوق الخلية مع القائمة المنسدلة

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
    Dim xValue As String
    Dim xCheck1 As String
    Dim xCheck2 As String
    Dim xRg As Range
    Dim xArrCheck1() As String
    Dim xArrCheck2() As String
    Dim xArrValue()
    Dim xCount, xJ As Integer
    Dim xBol As Boolean
'    If Target.Count > 1 Then
'        Exit Sub
'        End If
    xCount = Target.Count
    ReDim xArrCheck1(1 To xCount)
    ReDim xArrCheck2(1 To xCount)
    ReDim xArrValue(1 To xCount)
    Application.EnableEvents = False
    On Error Resume Next
    xJ = 1
    For Each xRg In Target
        xArrValue(xJ) = xRg.Value
         xArrCheck1(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    Application.Undo

    xJ = 1
    For Each xRg In Target
        xArrCheck2(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    xBol = False
    For xJ = 1 To xCount
        If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
            xBol = True
            Exit For
        End If
    Next

    If xBol Then
       MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
    Else
        xJ = 1
        For Each xRg In Target
            xRg.Value = xArrValue(xJ)
            xJ = xJ + 1
        Next

    End If

    Application.EnableEvents = True
End Sub

4. صحافة قديم + Q مفاتيح للخروج من تطبيقات Microsoft Visual Basic نافذة.

5. عند لصق محتوى في خلية بها قائمة منسدلة ، سيظهر مربع حوار لتذكيرك بأن اللصق غير مسموح به. انظر لقطة الشاشة:

ملاحظة: يعمل VBA فقط في لصق خلية واحدة. إذا قمت بالنسخ واللصق في خلايا متعددة ، فلن يعمل.

أنشئ بسهولة قائمة منسدلة مع مربعات الاختيار في Excel:

قائمة منسدلة مع مربعات اختيار فائدة كوتولس ل إكسيل يمكن أن يساعدك في إنشاء قائمة منسدلة بسهولة مع مربعات اختيار في نطاق محدد أو ورقة عمل حالية أو مصنف حالي أو جميع المصنفات المفتوحة بناءً على احتياجاتك.
قم بتنزيل الميزة الكاملة 30درب مجاني ليوم من Kutools for Excel الآن!


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

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

قم بإنشاء قائمة منسدلة من مصنف آخر في Excel
من السهل جدًا إنشاء قائمة منسدلة للتحقق من صحة البيانات بين أوراق العمل داخل المصنف. ولكن إذا كانت بيانات القائمة التي تحتاجها للتحقق من صحة البيانات موجودة في مصنف آخر ، فماذا ستفعل؟ في هذا البرنامج التعليمي ، ستتعلم كيفية إنشاء قائمة منسدلة من مصنف آخر في Excel بالتفصيل.

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

ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel
لنفترض أنك قمت بإنشاء قائمة منسدلة بناءً على القيم الموجودة في نطاق الخلايا B8: B14. عند تحديد أي قيمة في القائمة المنسدلة ، فأنت تريد ملء القيم المقابلة في نطاق الخلايا C8: C14 تلقائيًا في خلية محددة. لحل المشكلة ، ستفيدك الطرق الموجودة في هذا البرنامج التعليمي.

المزيد من البرامج التعليمية للقائمة المنسدلة ...


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (12)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل هذا ولكن عندما ألصق قيمة ، فإن هذا يسمح ببيانات ليست من القائمة المنسدلة. أي طريقة لتقييد أي قيمة ليست من القائمة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Dilip ، هل تمكنت من حل المشكلة ، فأنا أيضًا أواجه مشكلة مماثلة. لا بد لي من السماح بالنسخ واللصق فقط للقيم المنسدلة في خلية التحقق من صحة البيانات الأخرى التي يتعين علي تقييدها. هل يمكنك مشاركة الحل الخاص بك. شكرا راو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أثناء تشغيل هذا الماكرو ، تلقيت خطأ التصحيح هذا "Application.Undo". الرجاء حل هذا في أسرع وقت ممكن
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أذكر أعلاه رمز vba لم يتم تشغيله.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Private Sub Worksheet_Change (ByVal Target As Range) Dim xValue as String Dim xCheck1 as String Dim xCheck2 as String If Target.Count> 1 ثم قم بإنهاء Sub End If Application.EnableEvents = False xValue = Target.Value عند الخطأ استئناف التالي xCheck1 = الهدف. Validation.InCellDropdown عند الخطأ ، انتقل إلى التطبيق 0 Application.Undo عند الخطأ ، استئناف التالي xCheck2 = Target.Validation.InCellDropdown عند الخطأ انتقل إلى 0 إذا كان xCheck1 = xCheck2 ثم الهدف = xValue Else MsgBox "غير مسموح باللصق!" End If Application.EnableEvents = True End Sub لا يعمل هذا الماكرو عند النسخ من مصنف أو ورقة عمل مختلفة ، لذا يرجى إخباري بكيفية تجنب هذه الأشياء أيضًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكراً جزيلاً !! يعمل بشكل جيد بالنسبة لي !!! النسخ في خلية واحدة مقيد. ولكن إذا قمت بنسخ قائمة الخلايا ولصقها .. ، يتم قبول اللصق. اسمحوا لي أن أرى ما إذا كان بإمكاني ضبط هذا .. شكرا على أي حال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Jepson ، هل تمكنت من حل مشكلة النسخ واللصق في خلايا متعددة؟ شكرا لك مقدما!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Dilip ، هل أنت قادر على حل مشكلة السماح للبيانات باستخدام قيم اللصق .. أنا أيضًا أواجه نفس المشكلة .. ساعدني في هذا من فضلك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Dilip ، هل أنت قادر على إصلاح مشكلة السماح للبيانات باستخدام قيم اللصق
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل تمكنت من حل مشكلة النسخ واللصق في خلايا متعددة؟ شكرا لك مقدما!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا ، لم أفهم ذلك. لم أحاول حل المشكلة بعد فترة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أعمل ولكن بعد وضع الكود لا يمكنك التراجع عن أي شيء. لا يسمح بخطوة واحدة إلى الوراء.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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