تنسيقات XL2000: ماكرو البحث عن خلية: خط الحدود و داخلي

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

213622
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
في Microsoft Excel، لا يوجد أي ميزة مضمنة تسمح لك بالبحث في الصفات المميزة من خلية. ومع ذلك، يمكنك إنشاء Microsoft Visual Basic for Applications الإجراء الذي يسمح لك بالبحث بهذه الطريقة.
معلومات أخرى
تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية. هذا يتضمن ولكن لم يقتصر على الضمانات الضمنية الخاصة بالتجارة أو الملاءمة لغرض معين. تفترض هذه المقالة تكون مألوفة مع لغة البرمجة التي يتم شرحها مع الأدوات التي يتم استخدامها لإنشاء لتصحيح الإجراءات. يمكن لمهندسي الدعم لدى Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة. لإنشاء ماكرو Visual Basic نموذج تحديد نطاق ثم يبحث عن تنسيق معيّن:
  1. فتح مصنف جديد.
  2. اكتب البيانات التالية على الورقة1:
          A1: 1  B1: 2   C1: 3   D1: 4					
  3. قم بتنسيق الخلية B1 بالتنسيق الغامق وذلك بالنقر فوق الزر "غامق" على شريط الأدوات تنسيق.
  4. تنسيق الخلية C1 مع تسطير مفرد بواسطة النقر فوق "خلايا" في قائمة "تنسيق" والنقر فوق علامة التبويب خط ثم النقر فوق "مفرد" في القائمة تسطير.
  5. تنسيق الخلية D1 مع تسطير مزدوج بالنقر فوق "خلايا" في قائمة "تنسيق" والنقر فوق علامة التبويب خط ، ثم النقر المزدوج في القائمة تسطير. أيضاً، تنسيق هذه الخلية كـ المائل بالنقر فوق الزر "مائل" على شريط الأدوات تنسيق.
  6. إدراج ورقة وحدة نمطية جديدة:

    من القائمة أدوات، أشر إلى ماكرو ، ثم انقر فوق محرر Visual Basic. ثم انقر فوق الوحدة النمطية في القائمة إدراج.
  7. اكتب الماكرو التالي على ورقة وحدة نمطية:
          Sub Checking_the_Format()         Range("A1:D1").Select         ' Use a loop to check each cell in the selection.         For Each cel In Selection         ' The next line tests for the bold property of the font.         If cel.Font.Bold = True Then MsgBox "This cell is bold: " _            & cel.Address         ' The following line will display the font style of the current         ' it is not bold or italic.         If cel.Font.FontStyle <> "bold" Or _            cel.Font.FontStyle <> "italic" Then _            MsgBox cel.Font.FontStyle         ' This example will check the underline of the font in the         ' current cell to see if it is a single line (xlsingle).         If cel.Font.Underline = xlSingle Then _            MsgBox "Here is the single underline: " _            & cel.Address         ' Finish the loop.         Next cel         ' The next line sets the weight and color of the left border of         ' the current selection.         With Range("B3").Borders(xlLeft)            .Weight = xlMedium            .ColorIndex = 3         End With         Range("A10").Select      End Sub					
  8. العودة إلى الورقة1 ثم تشغيل الماكرو. للقيام بذلك، أشر إلى ماكرو ضمن القائمة أدوات ثم انقر فوق وحدات الماكرو. انقر لتحديد الماكرو ثم انقر فوق تشغيل.
عندما يعثر الماكرو تنسيق معين، يظهر عنوان الخلية في مربع رسالة.

لاحظ أنه على الرغم من أن هذا الماكرو عرض مربعات الرسائل للإشارة نتيجة التعليمة البرمجية إلى ، يمكنك تخصيص هذه التعليمة البرمجية إجراء العديد من الإجراءات عند تقع الخلايا الصحيح.

اختبار خصائص كائن الخط

تصف الجداول التالية الخصائص للكائن خط يمكنك اختبار في ماكرو Visual Basic.

الخصائص التي إرجاع قيمة منطقية (True أو False)

   For this property  True means this        False means this   -------------------------------------------------------------   Bold               Font is bold           Font is not bold   Italic             Font is italic         Font is not italic   OutlineFont        Font is outline Font   Font is not outline Font   Shadow             Font is shadow Font    Font is not shadow Font   Strikethrough      Font is formatted      Font is not formatted with                      with strike through    strike through    Subscript          Font is subscript      Font is not subscript   Superscript        Font is superscript    Font is not superscript				

الخصائص التي يتم إرجاع سلسلة أو قيمة الرقمي

   For this property      Test for this value   ------------------------------------------------------------------   Color                  The font color as an RGB value   ColorIndex             The color as an index number from                          the current color palette   FontStyle              The font style as a string (for                          example, "Bold")   Name                   The name for the font (for example, "Arial")   Size                   The size of the font (for example, 12)   Underline              The type of underline applied to text in a                          the cell (for example, "xlSingle")				

اختبار خصائص كائن الحدود

   For this property  Test for this value   -----------------------------------------------------------------   Color              The border color as an RGB value   ColorIndex         The color as index of the current color palette      Linestyle          The line style (for example "xlContinuous")   Weight             The weight of the line (for example "xlHairline")				

اختبار خصائص كائن داخلي

يتم استخدام كائن داخلي للكشف عن لون أو نقش في الخلية نفسها. يمكنك اختبار كائن داخلي للخصائص التالية.
   For this property  Test for this value   ---------------------------------------------------------------   Color              The primary color   ColorIndex         The color as index of current color palette   Pattern            The pattern (for example, "xlChecker")   PatternColor       The pattern color as a RGB value   PatternColorIndex  The color as index of current color palette				
مراجع
للحصول على مزيد من المعلومات حول كائن خط في محرر Visual Basic، انقر فوق "تعليمات Microsoft Visual Basic" من القائمة تعليمات ، اكتب كائن خط في مساعد Office "أو" معالج الإجابة ثم انقر فوق بحث لعرض الموضوع.
xl2000

تحذير: تمت ترجمة هذا المقال تلقائياً

خصائص

رقم الموضوع: 213622 - آخر مراجعة: 02/02/2014 05:07:55 - المراجعة: 4.2

  • Microsoft Excel 2000 Standard Edition
  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming kbualink97 KB213622 KbMtar
تعليقات