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

 كيفية لصق المحتوى الخارجي إلى Excel تطابق دائمًا تنسيق الوجهة؟

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

لصق المحتوى الخارجي في ورقة العمل يطابق دائمًا تنسيق الوجهة مع خيارات Excel

قم بلصق المحتوى الخارجي في ورقة العمل دائمًا بمطابقة تنسيق الوجهة مع التعليمات البرمجية لـ VBA


لصق المحتوى الخارجي في ورقة العمل يطابق دائمًا تنسيق الوجهة مع خيارات Excel

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

1. انقر قم بتقديم > مزيد من الخيارات، وفي خيارات إكسيل صندوق المحادثة:

  • (1.) انقر شريط أدوات الوصول السريع في الجزء الأيمن
  • (2.) ثم اختر جميع الأوامر مع اختر الأوامر من قائمة منسدلة؛
  • (3.) ثم قم بالتمرير لأسفل واختر لصق ومطابقة تنسيق الوجهة في مربع القائمة
  • (4.) ثم انقر فوق أضف >> زر لإضافة هذا الأمر إلى ملف تخصيص شريط أدوات الوصول السريع.

وثيقة-تطابق-وجهة التنسيق -1

2. بعد إضافة هذا الأمر ، انقر فوق OK زر لإغلاق مربع الحوار هذا.

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

وثيقة-تطابق-وجهة التنسيق -2

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

ملحوظة: لا يتم تطبيق هذه الطريقة على Excel 2007.


قم بلصق المحتوى الخارجي في ورقة العمل دائمًا بمطابقة تنسيق الوجهة مع التعليمات البرمجية لـ VBA

يمكنك أيضًا تعيين Match Destination Formatting كخيار لصق افتراضي عند استخدام Ctrl + V مع رمز VBA التالي.

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

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

كود فبا: تعيين تنسيق الوجهة المطابقة كلصق افتراضي

Sub PasteWithDestinationFormatting()
ActiveCell.PasteSpecial (xlPasteValues)
End Sub

3. ثم احفظ هذا الحوار وأغلقه ، ثم اضغط على ALT + F8 مفاتيح لفتح الماكرو الحوار. في ال الماكرو مربع الحوار ، حدد الاسم الرمزي الذي قمت بإنشائه في الخطوة 2 ، وانقر فوق مزيد من الخيارات زر ، ثم في ظهر خيارات الماكرو الحوار ، أدخل v مع مفتاح الاختصار القسم ، انظر لقطة الشاشة:

وثيقة-تطابق-وجهة التنسيق -3

4. ثم اضغط OK في ال خيارات الماكرو الحوار ، وأغلق ملف الماكرو صندوق المحادثة.

والآن ، عندما تقوم بلصق بياناتك من تطبيق خارجي في ورقة العمل باستخدام CTRL + V، سيتم لصق البيانات كـ تطابق تنسيق الوجهة بشكل افتراضي.


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

كيفية تعيين قيم اللصق كلصق افتراضي عند استخدام Ctrl + V في Excel؟


عرض توضيحي: قم بلصق المحتوى الخارجي في Excel دائمًا بمطابقة تنسيق الوجهة

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

🤖 مساعد 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 (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
On "Paste external content to worksheet always match destination formatting with VBA code". After "4. Then click OK in the Macro Options dialog, and close the Macro dialog box". The code would take effect only after saving/closing your worksheet.
This comment was minimized by the moderator on the site
Tried the close and save method. Still running into the same issue that Suneet was.
This comment was minimized by the moderator on the site
Hey, the macro for paste is not working. When I hit CTRL+v, it says: Run-time error '1004': PasteSpecial method of Range class failed
This comment was minimized by the moderator on the site
I'm getting this same error
This comment was minimized by the moderator on the site
Hello, guys,
If you want to paste the contents from website, you should apply the following VBA code.

Sub PasteWithDestinationFormatting()
Dim xRg As Range
Set xRg = Application.InputBox("Please select a cell to paste: ", "Kutools for Excel", , , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Range("A1").Activate
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub

After pasting this code into the code module, and then go to the Macro dialog box to set the shortcut.
From now, when pasting contents from other applications, such as Word, website, a prompt box will pop out to remind you select a cell to put the pasting contents, and the contents will be pasted as Match Destination Formatting by default.

Hope it can help you! Thank you!
This comment was minimized by the moderator on the site
What a dick
This comment was minimized by the moderator on the site
That worked, but now I have to double click, or else the Kutools message comes up. Any solution?
This comment was minimized by the moderator on the site
Works for me, just in case somebody needs it.

Sub PasteWithDestinationFormatting()
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub
This comment was minimized by the moderator on the site
it works thanks
This comment was minimized by the moderator on the site
The problem I see after enabling this macro, that works nicely btw,is that my Undo button is greyed out and CTRL+z doesn't work anymore...
This comment was minimized by the moderator on the site
Same, I also cannot use CTRL+Z or and the Undo button is grayed out after using control +Z. But CTRL +V works now to allow me to copy and paste from Google Docs to Excel and have it match the destination format, saving me hundreds of clicks. Thanks!
This comment was minimized by the moderator on the site
i dont know how to thank you for this. its finally solved THANKYOU SOMUCH
This comment was minimized by the moderator on the site
OH MY GOODNESS !!!! YOU LITERALLY ARE A LIFE SAVER!
This comment was minimized by the moderator on the site
This worked for me. Thanks. You just saved me a few hundred clicks a day.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations