KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف يمكن عرض نطاق محدد أو قيم الخلايا في مربع رسالة ضمن Excel؟

المؤلفSiluviaتاريخ التعديل

في بعض الحالات، قد ترغب في تذكير نفسك بنطاق الخلايا الذي حددته أو عرض جميع القيم ضمن نطاق معيّن. في هذه المقالة، ستجد طرقًا فعّالة لعرض مربع رسالة يُظهر مرجع الخلية المحددة أو القيم التفصيلية لتلك الخلايا في Excel.

عرض صندوق رسالة لعرض نطاق الخلايا باستخدام كود VBA
عرض صندوق رسالة لعرض قيم نطاق محدود باستخدام كود VBA

عرض صندوق رسالة لعرض نطاق الخلايا باستخدام كود VBA

يساعدك كود VBA التالي في عرض نطاق الخلايا المحددة ضمن صندوق رسالة منبثق. يُرجى اتباع الخطوات التالية:

1. بعد تحديد نطاق الخلايا في ورقة العمل، اضغط على مفاتيحAlt+F11 في آنٍ واحد لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة برمجية (Module). ثم انسخ والصق كود VBA أدناه في نافذة الوحدة البرمجية.

كود VBA: صندوق رسالة لعرض نطاق الخلايا

Sub Test()
    On Error Resume Next
    MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub

3. اضغط على مفتاحF5 لتشغيل الكود. بعد ذلك، سيظهر صندوق رسالة يعرض نطاق الخلايا المحددة داخله.

لقطة شاشة لصندوق الرسالة الذي يعرض نطاق الخلايا المحدد في Excel

عرض صندوق رسالة لعرض قيم نطاق محدود باستخدام كود VBA

لنفترض أنك بحاجة إلى صندوق رسالة يعرض جميع قيم الخلايا في النطاق A1:D13، كما هو موضح في لقطة الشاشة أدناه. يُرجى تشغيل كود VBA التالي.

لقطة شاشة لنطاق Excel، A1:D13، المخصص لعرضه في صندوق رسالة

1. اضغط على مفاتيحAlt + F11 في آنٍ واحد لفتح نافذةMicrosoft Visual Basic for Applications.

2. فيMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة برمجية (Module). ثم انسخ والصق كود VBA أدناه في نافذة الوحدة البرمجية.

كود VBA: صندوق رسالة لعرض قيم الخلايا المحددة في Excel

Sub message()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xStr As String
    Dim xRow As Long
    Dim xCol As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    For xRow = 1 To xRg.Rows.Count
        For xCol = 1 To xRg.Columns.Count
            xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
        Next
        xStr = xStr & vbCrLf
    Next
    MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub

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

لقطة شاشة لصندوق حوار الإدخال Kutools for Excel الذي يطلب تحديد نطاق لعرضه في صندوق رسالة

بعد ذلك، سيظهر لك صندوق رسالة كما في لقطة الشاشة أدناه، تعرض جميع قيم خلايا النطاق المحدد.

لقطة شاشة لصندوق رسالة يعرض قيم الخلايا من نطاق Excel المحدد

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

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

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في 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.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل