Note: The other languages of the website are Google-translated. Back to English

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

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

قم بإدراج تعليق في خلايا متعددة باستخدام ميزة "لصق خاص"
قم بإدراج تعليق في خلايا متعددة برمز 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 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (17)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أقدر لك مشاركة هذا المقال. شكرا مرة أخرى. رائع حقا. bcgdgfaegkdgafaa
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على المعلومه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك ، لقد نجحت.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا! أنقذت وقتي!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكر؛ لقد وفر وقتي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذه فقط المعلومات التي أجدها في كل مكان. شكرا لمدونتك ، أنا فقط اشتركت في بلوق الخاص بك. هذه مدونة جميلة. يونغ http://www.gofastek.com
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا مفيد حقًا. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] لقد عثرت على معلومات قيمة حول هذه النقطة أثناء عملي في مشروع صف. شكرًا لك على نشر المعلومات المفيدة وأصبح الآن إنجاز هذه المهمة أسهل. محول الخط على الإنترنت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كانت الورقة في Excel قيد التصفية ، فهل ينطبق هذا على الخلايا التي تمت تصفيتها فقط ؟؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
للخلية المصفاة لا تعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي
تم الآن تحديث رمز VBA. وهو يدعم تعليق إدراج الدُفعات ليس فقط في النطاق الطبيعي ، ولكن أيضًا للخلايا المرئية فقط في قائمة تمت تصفيتها.
شكرا لك على تعليقك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا هو حقا وظيفة مفيدة للغاية ..


شكرا لك على المشاركة الرائعة
ديجيفلور
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن لأي شخص مساعدتي في كود VBA ،
أريد أن أقوم بتعليقات متعددة ولدي خيار لإضافة صورة في كل خلية دون القيام بالتنسيق مرارًا وتكرارًا.
ثم سيتم حفظ صورة تلك الخلية في مجلد ملف Excel بنفس اسم الخلية.
سأكون ممتنًا لك إذا ساعدني أحد في ذلك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مذهلة أبورت ، جراسياس بور إل داتو !!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ممتازة، وذلك بفضل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تجعله يتجاهل أي خلايا مدمجة وتضيف فقط ملاحظات إلى الخلايا المدمجة المحددة فقط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، iresolver
لحل مشكلتك ، يرجى تطبيق الكود أدناه:
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
        If xRgEach.MergeCells Then
            With xRgEach
            .ClearComments
            .AddComment
            .Comment.Text Text:=xText
            End With
        End If
    Next xRgEach
End Sub


يرجى المحاولة ، آمل أن يساعدك!
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL