كيفية إدراج تعليق بسرعة في خلايا متعددة في إكسيل؟

في ورقة العمل ، من السهل جدًا إدراج تعليق في خلية ، ولكن عندما تريد إدراج نفس التعليق في خلايا متعددة في نفس الوقت ، كيف يمكنك القيام بذلك؟

قم بإدراج تعليق في خلايا متعددة باستخدام ميزة "لصق خاص"
قم بإدراج تعليق في خلايا متعددة برمز VBA

قم بإدراج تعليق في خلايا متعددة باستخدام ميزة "لصق خاص"

في Excel ، لا توجد طريقة لإدراج تعليقات متعددة في نفس الوقت. ومع ذلك ، يمكنك نسخ تعليق إلى عدة خلايا كما يلي:

1. أدخل تعليقك في خلية.

2. حدد خلية التعليق واضغط على CTRL + C مفاتيح لنسخه.

3. ثم حدد وانقر بزر الماوس الأيمن فوق النطاق الذي ترغب في إدخال تعليق دفعة واحدة ، حدده  لصق خاص > لصق خاص من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

4. في ال لصق خاص مربع الحوار، والتحقق من التعليقات الخيار ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

ثم يتم إدراج التعليقات نفسها في جميع الخلايا المحددة على الفور.

ملاحظة: ستعمل هذه الطريقة على إدراج التعليقات نفسها في جميع الخلايا المحددة. إذا كنت تريد إدراج نفس التعليقات في الخلايا المرئية فقط من قائمة تمت تصفيتها ، فالرجاء تجربة طريقة VBA أدناه.

قم بإدراج تعليق في خلايا متعددة برمز VBA

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

1. اضغط على قديم + F11 مفاتيح معًا لفتح ملفات Microsoft Visual Basic للتطبيقات نافذة.

2. في ال Mocrosoft Visual Basic للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة، وأدخل الكود التالي في الوحدة النمطية:

فبا: دفع التعليق الخامل إلى خلايا متعددة (الخلايا المرئية فقط في القائمة المصفاة)

Sub InsertCommentsSelection()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xText As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Count > 1 Then
        Set xRg = xRg.SpecialCells(xlCellTypeVisible)
    End If
    xRg.Select
    xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
    If xText = "" Then
        MsgBox "No comment added", vbInformation, "Kutools For Excel"
        Exit Sub
    End If
    For Each xRgEach In xRg
        With xRgEach
        .ClearComments
        .AddComment
        .Comment.Text Text:=xText
        End With
    Next xRgEach
End Sub

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

4. ثم آخر كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى إدخال تعليقك في مربع النص ، ثم انقر فوق OK .

يتم الآن إدراج التعليقات في جميع الخلايا المرئية فقط في القائمة المصفاة المحددة كما هو موضح أدناه:

---

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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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