معجون VBA خاص | أفضل 5 طرق لاستخدام وظيفة لصق VBA وظيفة خاصة؟
على غرار ورقة العمل عندما نقوم بنسخ البيانات ولصقها في نطاق خلايا مختلف ، لدينا طريقة لصق خاصة تسمح لنا بلصق البيانات بنفسها أو فقط الصيغ أو القيم وبنفس الطريقة يمكننا استخدام لصق خاص في VBA باستخدام طريقة خاصية النطاق على النحو التالي النطاق. لصق خاص () مع توفير النوع الذي نريده بين قوسين.
لصق خاص في VBA
يخدم Paste Special in excel بعدة طرق في عملنا اليومي. باستخدام لصق خاص يمكننا القيام بالعديد من الأشياء أكثر من الأشياء المعتادة. النسخ واللصق موجود في كل مكان في عالم الكمبيوتر. لكن اللصق الخاص هو الشيء المتقدم في التفوق.
مثل لصق Excel العادي الخاص في VBA أيضًا ، فلدينا طريقة خاصة للصق البيانات المنسوخة. لا يعد نسخ الأشياء في برنامج Excel أمرًا غريبًا بالنسبة لمستخدمي برنامج Excel ، فهم يقومون بالنسخ واللصق ، وفي معظم الأحيان يستخدمون لصقًا خاصًا لخدمة غرضهم بطرق عديدة.
في لصق Excel العادي يتضمن العديد من الخيارات مثل لصق القيم فقط ولصق الصيغ وتنسيقات اللصق وما إلى ذلك ...
يجب لصق اللصق الخاص وتشغيله وتخطي الفراغات وتبديل موضعها في VBA أيضًا لدينا جميع المعلمات باستخدام طريقة لصق خاص .
صيغة اللصق الخاص في VBA
يوجد أدناه صيغة لصق خاص في VBA
يتوفر Paste Special مع كائن نطاق VBA لأنه بعد نسخ البيانات ، سنقوم بلصقها في نطاق الخلايا ، لذلك تتوفر طريقة لصق خاصة مع كائن النطاق .
نوع اللصق: بعد نسخ البيانات ، كيف تريد لصقها. ما إذا كنت تريد لصق القيم والصيغ والتنسيقات والتحقق من الصحة وما إلى ذلك .. فيما يلي القائمة الكاملة للخيارات المتاحة ضمن " نوع اللصق".
لصق العملية الخاصة: أثناء اللصق ، هل تريد إجراء أي نوع من العمليات مثل الجمع أو الطرح أو القسمة أو الضرب أو لا شيء.
- [تخطي الفراغات]: إذا كنت تريد تخطي الفراغات ، فيمكنك اختيار صواب أو خطأ.
- [تبديل]: إذا كنت تريد تبديل البيانات ، فيمكنك اختيار صواب أو خطأ.
أمثلة على لصق خاص في Excel VBA
فيما يلي أمثلة على لصق خاص في VBA.
يمكنك تنزيل قالب VBA Paste الخاص هنا - قالب VBA Paste الخاصمثال # 1 - لصق القيم فقط باستخدام وظيفة VBA PasteSpecial
في المثال الأول ، سنقوم بلصق القيم فقط باستخدام لصق خاص. افترض أدناه البيانات التي لديك في اسم الورقة المسمى بيانات المبيعات.
الآن سنقوم بمهمة النسخ واللصق باستخدام عدة طرق لصق خاصة. اتبع الخطوات أدناه.
الخطوة 1: قم بإنشاء اسم ماكرو أولاً.
الخطوة 2: قم أولاً بنسخ النطاق A1 إلى D14 من اسم الورقة "بيانات المبيعات". لنسخ النطاق ، قم بتطبيق الرمز أدناه.
رمز:
النطاق ("A1: D14"). نسخ
الخطوة 3: بعد نسخ البيانات ، سنقوم بلصق القيم من G1 إلى J14. قم أولاً بالإشارة إلى النطاق.
رمز:
النطاق ("G1: J14")
الخطوة 4: بعد تحديد النطاق الذي نحتاج إلى لصقه. لذلك ضع نقطة (.) وحدد طريقة لصق خاص.
رمز:
Sub PasteSpecial_Example1 () Range ("A1: D14"). Copy Range ("G1: J14"). PasteSpecial End Sub
الخطوة 5: من القائمة المنسدلة ، حدد الخيار "xlPasteValues".
رمز:
Sub PasteSpecial_Example1 () Range ("A1: D14"). Copy Range ("G1: J14"). PasteSpecial xlPasteValues End Sub
الخطوة 6: الآن قم بتشغيل هذا الرمز باستخدام مفتاح F5 أو يدويًا وشاهد ما يحدث.
لذا نسخ الكود البيانات من A1 إلى D14 ولصقه من G1 إلى J14 كقيم.
وقد أنجزت مهمة الاختصار مفتاح التفوق في ورقة العمل ALT + E + S + V .
مثال # 2 - لصق الكل باستخدام VBA PasteSpecial
الآن سنرى ما سيحدث إذا قمنا بتنفيذ مهمة xlPasteAll.
رمز:
Sub PasteSpecial_Example2 () Range ("A1: D14"). Copy Range ("G1: J14"). PasteSpecial xlPasteAll End Sub
الآن إذا قمت بتشغيل هذا الرمز يدويًا من خلال خيار التشغيل أو بالضغط على المفتاح F5 ، فسنحصل على البيانات كما هي.
مثال # 3 - لصق التنسيقات باستخدام وظيفة VBA PasteSpecial
الآن سنرى كيفية لصق التنسيقات فقط. سوف يقوم الكود أدناه بالمهمة بالنسبة لنا.
رمز:
Sub PasteSpecial_Example3 () Range ("A1: D14"). Copy Range ("G1: J14"). PasteSpecial xlPasteFormats End Sub
إذا قمت بتشغيل هذا الرمز باستخدام مفتاح F5 أو يدويًا ، فسنحصل على التنسيق الوحيد للنطاق المنسوخ ولا شيء آخر.
مثال # 4 - لصق عرض العمود باستخدام لصق خاص VBA
سنرى الآن كيفية لصق عرض العمود فقط من النطاق المنسوخ. لهذا ، قمت بزيادة عرض العمود لأحد أعمدة البيانات الخاصة بي.
تطبيق التعليمات البرمجية أدناه ، سيتم لصق عرض العمود فقط من النطاق المنسوخ.
رمز:
Sub PasteSpecial_Example3 () Range ("A1: D14"). Copy Range ("G1: J14"). PasteSpecial xlPasteColumnWidths End Sub
قم بتشغيل هذا الرمز وشاهد الفرق في عرض العمود.
الآن يمكننا أن نرى أن عرض عمود المبيعات قد تم زيادته إلى عرض عمود عمود النطاق المنسوخ.
المثال رقم 5 - انسخ البيانات من ورقة واحدة إلى ورقة أخرى باستخدام خيار لصق خاص لـ VBA
لقد رأينا كيفية نسخ البيانات ولصقها على نفس الورقة. سنقوم الآن بكيفية اللصق من ورقة إلى ورقة أخرى.
الخطوة 1: قبل أن نختار النطاق ، نحتاج إلى معرفة الورقة التي نحتاج إلى تحديد البيانات منها.
رمز:
Sub PasteSpecial_Example5 () أوراق عمل ("بيانات المبيعات") End Sub
الخطوة 2: بعد تحديد الورقة باسمها ، نحتاج إلى تحديد النطاق في تلك الورقة. نسخه.
رمز:
Sub PasteSpecial_Example5 () أوراق عمل ("بيانات المبيعات"). النطاق ("A1: D14"). نسخ End Sub
يقول الرمز أعلاه في اسم الورقة "بيانات المبيعات" انسخ النطاق ("A1: D14")
الخطوة 3: نظرًا لأننا نلصقها في ورقة مختلفة ، نحتاج إلى تحديد الورقة باسمها.
رمز:
Sub PasteSpecial_Example5 () أوراق عمل ("بيانات المبيعات"). النطاق ("A1: D14"). نسخ أوراق العمل ("ورقة الشهر") End Sub
الخطوة 4: الآن في ورقة الشهر ، حدد النطاق.
رمز:
Sub PasteSpecial_Example5 () أوراق عمل ("بيانات المبيعات"). النطاق ("A1: D14"). نسخ أوراق العمل ("ورقة الشهر"). النطاق ("A1: D14") End Sub
الخطوة 5: باستخدام Paste special ، سنقوم بلصق القيم والتنسيق.
رمز:
Sub PasteSpecial_Example5 () أوراق عمل ("بيانات المبيعات"). النطاق ("A1: D14"). نسخ أوراق العمل ("ورقة الشهر"). النطاق ("A1: D14"). PasteSpecial xlPasteValuesAndNumberFormats End Sub
الخطوة 6: نحن لا نقوم فقط بلصق القيم والتنسيق باستخدام VBA Paste Special ولكننا نقوم بلصقه كـ TRANSPOSE أيضًا.
رمز:
Sub PasteSpecial_Example5 () أوراق عمل ("بيانات المبيعات"). النطاق ("A1: D14"). نسخ أوراق العمل ("ورقة الشهر"). النطاق ("A1: D14"). PasteSpecial xlPasteValuesAndNumberFormats ، Transpose: = True End Sub
الآن قم بتشغيل هذا الكود وسيقوم بنسخ البيانات ونقلها إلى "صحيفة الشهر".
أشياء يجب تذكرها حول Excel VBA Paste وظيفة خاصة
- إذا كنت تريد تخطي الفراغات ، فأنت بحاجة إلى إدخال الوسيطة على أنها TRUE افتراضيًا تأخذ FALSE.
- إذا كنت تريد تبديل البيانات ، فنحن بحاجة إلى تحديد التحويل كـ TRUE.
- يمكننا عمل معجون واحد خاص في كل مرة.
