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

كيفية إعادة تعيين جميع مواقف التعليقات في إكسيل؟

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

أعد تعيين جميع مواضع مربعات التعليق باستخدام كود VBA في Excel
نقرة واحدة لإعادة تعيين جميع مواضع مربع التعليقات باستخدام Kutools for Excel


أعد تعيين جميع مواضع مربعات التعليق باستخدام كود VBA في Excel

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

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

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

كود فبا: إعادة تعيين جميع مواضع التعليقات في ورقة العمل النشطة

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم إعادة تعيين جميع مواضع التعليقات في ورقة العمل النشطة مرة واحدة. انظر لقطات الشاشة:

إعادة تعيين doc-comment-1
-1
إعادة تعيين doc-comment-2

أعد تعيين جميع مواضع مربعات التعليقات بنقرة واحدة فقط

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

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. إذا كنت ترغب فقط في إعادة تعيين كل موضع مربع التعليق في الورقة النشطة ، يرجى النقر فوق كوتولس > المزيد > إعادة تعيين موضع التعليق > الورقة النشطة.

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

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

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


نقرة واحدة لإعادة تعيين جميع مواضع مربع التعليقات باستخدام Kutools for Excel


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

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

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

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

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It's not working with my computer. Ask to save as macro-enabled file type & after save missed out some data. 
This comment was minimized by the moderator on the site
Thank you. The code was helpful to adopt & reset many comments in my worksheet.
Earlier, I had many comment boxes with sizes so huge in height (which was caused accidentally by dragging or something). Even though these comment boxes were not visible always, this was causing one issue - The vertical scroll bar size became small as the comment boxes end position (say, it is big lying over thousands of cells) was also a factor to consider the "active range" in the worksheet.
This comment was minimized by the moderator on the site
Great article, but ... In Excel in my Office 365 (now Microsoft 365), what used to be Comments are now "Notes". Will your macros still work? Thanks.
This comment was minimized by the moderator on the site
After I press F5 and run the code, nothing happens and the comments boxes are still far away - May I ask if you know how to resolve this? Thank you very much.
This comment was minimized by the moderator on the site
Formatting is one of the boring things when it comes to data and reporting and here we have some of the time saver formatting tips for you which you can use in your daily work https://liteblue.me
This comment was minimized by the moderator on the site
Thank you so much for the script.. !!
This comment was minimized by the moderator on the site
A huge thank you, this was so easy and worked perfectly. I've never used a macro before, but I followed your instructions and it was so straight forward. Very much appreciated.
This comment was minimized by the moderator on the site
This is the best, thanks
This comment was minimized by the moderator on the site
Thank you so much for the VBA code!!! You saved me hours of work. Best, Andy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations