كيفية تغيير اسم مؤلف كل التعليقات في Excel؟

عند إدراج التعليقات في ورقة عمل ، يتم تلقائيًا إدراج اسم مؤلف التعليق في التعليق متبوعًا بنقطتين. في بعض الأحيان ، قد ترغب في تغيير اسم كاتب التعليق. كيف يمكنك فعلها؟ يمكنك تغيير اسم كاتب التعليق في Excel بالطرق التالية.

قم بتغيير اسم المؤلف الافتراضي لجميع التعليقات الجديدة من خلال تكوين خيارات Excel
قم بتغيير اسم المؤلف لجميع التعليقات الموجودة في المصنف بأكمله باستخدام التعليمات البرمجية لـ VBA
قم بتغيير اسم المؤلف بسرعة لجميع التعليقات الموجودة في الأوراق النشطة أو جميعها باستخدام Kutools for Excel

قم بتغيير اسم المؤلف الافتراضي لجميع التعليقات الجديدة من خلال تكوين خيارات Excel

يمكنك تغيير اسم مستخدم Excel لتغيير اسم المستخدم لجميع التعليقات الجديدة التي ستقوم بإدراجها.

1. انقر قم بتقديم > العلاج في Excel 2010/2013/2016 ، أو يمكنك النقر فوق مكاتب زر > خيارات إكسيل > شائع في Excel 2007.

2. في خيارات إكسيل في مربع الحوار ، انقر فوق عام في الشريط الأيسر ، ثم قم بالتمرير إلى ملف تخصيص نسخة من ميكروسوفت أوفيس في الجزء الأيسر ، ثم استبدل الملف القديم اسم المستخدم مع الجديد الذي تحتاجه. وأخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:

النموذج قيد التشغيل الآن ، عند إدراج تعليقات جديدة في ورقة العمل الخاصة بك ، سيكون اسم المؤلف هو الاسم الجديد كما حددته أعلاه. ومع ذلك ، فإن اسم كاتب التعليقات القديمة لا يزال يحتفظ بالاسم القديم.

قم بتغيير اسم المؤلف لجميع التعليقات الموجودة في المصنف بأكمله باستخدام التعليمات البرمجية لـ VBA

إذا كنت تريد تغيير اسم المؤلف لجميع التعليقات الموجودة في المصنف بأكمله ، فستساعدك التعليمات البرمجية لـ VBA أدناه:

1. يرجى الضغط على مفتاحي Alt + F11 في نفس الوقت لفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات. وفي Microsoft Visual Basic للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ الكود التالي والصقه في ملف وحدة نافذة:

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

Sub ChangeCommentName()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
xTitleId = "KutoolsforExcel"
oldName = InputBox("Old Name", xTitleId, Application.UserName)
newName = InputBox("New Name", xTitleId, "")
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        xComment.Text (Replace(xComment.Text, oldName, newName))
    Next
Next
End Sub

2. اضغط على F5 مفتاح لتشغيل الكود ، ثم أ كوتولسفورإكسيل يظهر مربع الحوار مع عرض اسم مؤلف التعليق القديم في مربع النص ، يرجى النقر فوق OK زر. انظر لقطة الشاشة:

3. ثم آخر كوتولسفورإكسيل ينبثق مربع الحوار ، يرجى كتابة اسم مؤلف التعليق الجديد الذي تريده في مربع النص ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

الآن يتم تغيير جميع أسماء مؤلفي التعليقات الموجودة إلى الاسم الجديد في المصنف بأكمله على الفور.

ملاحظة: لن تعمل هذه الطريقة مع التعليقات الجديدة التي تقوم بإدراجها.

قم بتغيير اسم المؤلف بسرعة لجميع التعليقات الموجودة في الأوراق النشطة أو جميعها باستخدام Kutools for Excel

إلى جانب الطريقتين المذكورتين أعلاه ، أوصيك هنا بـ إزالة / إضافة اسم المستخدم في التعليق فائدة كوتولس ل إكسيل. باستخدام هذه الأداة المساعدة ، يمكنك بسهولة تغيير اسم المؤلف لجميع التعليقات الموجودة إلى الاسم الجديد الذي تحتاجه ليس فقط في الورقة النشطة ، ولكن أيضًا في المصنف بأكمله.

1. انتقل إلى ورقة العمل التي تريد تغيير اسم مؤلف كل التعليقات بداخلها ، ثم انقر فوق كوتولس > للمزيد > إزالة / إضافة اسم المستخدم في التعليق. انظر لقطة الشاشة:

2. في ال إزالة / إضافة اسم المستخدم في التعليق مربع الحوار ، تحتاج إلى التكوين على النحو التالي:

أولاً ، قم بإزالة اسم المؤلف من جميع التعليقات في النطاق المحدد.

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

ثم أضف اسم المؤلف الجديد إلى جميع التعليقات في النطاق المحدد.

• (1) أدخل اسم المؤلف الجديد للتعليقات في إسم المستخدم ، ثم اختر ملف إضافة اسم المستخدم إلى التعليقات الخيار.
• (2) انقر فوق قم بالمشاركة زر؛
• (3) في مربع الحوار المنبثق ، انقر فوق OK زر؛
• (4) انقر فوق اغلاق زر لإغلاق مربع الحوار.

قم بتغيير اسم مؤلف كل التعليقات باستخدام Kutools for Excel

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

• قم بتغيير كل تنسيقات التعليقات في الخلايا
• سرد كافة التعليقات في ورقة عمل أو مصنف جديد
• البحث عن واستبدال النص داخل التعليقات
• إظهار أو إخفاء كافة التعليقات ومؤشرات التعليقات في Excel
• تحويل محتويات الخلية إلى تعليقات في Excel
• تحويل التعليقات إلى محتويات الخلايا في Excel

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...