كيف تُدخل تعليقًا بسرعة إلى عدة خلايا في Excel؟
في ورقة العمل، إدخال تعليق في خلية أمرٌ سهل جدًّا، ولكن كيف يمكنك إدخال نفس التعليق في خلايا متعددة دفعة واحدة؟
أدخل تعليقًا إلى خلايا متعددة باستخدام ميزة لصق خاص
أدخل تعليقًا إلى خلايا متعددة باستخدام كود VBA
أدخل تعليقًا إلى خلايا متعددة باستخدام ميزة لصق خاص
في Excel، لا توجد طريقة لإدخال تعليقات متعددة في آنٍ واحد. ومع ذلك، يمكنك نسخ تعليق واحد إلى خلايا متعددة باتباع الخطوات التالية:
1. أدخل تعليقك في الخلية المطلوبة.
2. حدد الخلية التي تحتوي على التعليق، ثم اضغط على مفاتيحCtrl+C لنسخه.
3. بعد ذلك، حدد النطاق الذي تريد إدخال التعليق فيه دفعة واحدة، ثم انقر بزر الماوس الأيمن واخترلصق خاصمن قائمة النقر بزر الماوس الأيمن. راجع لقطة الشاشة:
4. في مربع الحوارلصق خاص، حدد الخيارتعليقات، ثم انقر على زرموافق. راجع لقطة الشاشة:
بعد ذلك، يتم إدخال نفس التعليقات في جميع الخلايا المحددة فورًا.
ملاحظة: ستُدخل هذه الطريقة نفس التعليق في جميع الخلايا المحددة. إذا كنت ترغب في إدخال التعليق نفسه فقط في الخلايا المرئية من قائمة مُرشَّحة، جرِّب طريقة VBA أدناه.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
أدخل تعليقًا إلى خلايا متعددة باستخدام كود VBA
افترض أن لديك قائمة مفلترة كما في لقطة الشاشة أدناه، وتريد فقط إضافة دفعة التعليقات في جميع الخلايا المرئية. اتبع الخطوات التالية.
1. اضغط معًا على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic للتطبيقات.
2. في نافذةMicrosoft Visual Basic للتطبيقات، انقر علىإدراج > وحدة، ثم أدخل الكود التالي في الوحدة:
VBA: إدخال تعليق دفعة واحدة إلى خلايا متعددة (الخلايا المرئية فقط في القائمة المفلترة)
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 Sub3. اضغط على مفتاحF5 لتشغيل الكود. في مربع الحوار الأول الظاهرKutools لـ Excel، يُرجى تحديد نطاق التصفية الذي تريد إضافة تعليقات إليه، ثم انقر على زرموافق. راجع لقطة الشاشة:
4. بعد ذلك، يظهر مربع حوار آخر منKutools لـ Excel؛ أدخل تعليقك في مربع النص، ثم انقر على زرموافق.
الآن تم إدخال التعليقات في جميع الخلايا المرئية فقط ضمن القائمة المفلترة المحددة كما في لقطة الشاشة أدناه:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل