كيفية إدراج تعليق بسرعة في خلايا متعددة في إكسيل؟
في ورقة العمل ، من السهل جدًا إدراج تعليق في خلية ، ولكن عندما تريد إدراج نفس التعليق في خلايا متعددة في نفس الوقت ، كيف يمكنك القيام بذلك؟
قم بإدراج تعليق في خلايا متعددة باستخدام ميزة "لصق خاص"
قم بإدراج تعليق في خلايا متعددة برمز 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 .
يتم الآن إدراج التعليقات في جميع الخلايا المرئية فقط في القائمة المصفاة المحددة كما هو موضح أدناه:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!