كيفية استخدام جملة ELSE ثم وعبارة SELECT CASE في الأمثلة التي تم كتابتها ضمن Visual Basic ل Excel

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

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

اضغط هنا لرابط المقالة باللغة الانجليزية213630
الموجز
في Microsoft Visual Basic for Applications، هناك العبارات جهازي التي يمكنك استخدامها لتنفيذ اختبار شرطي: إذا... ومن ذلك... آخر جملة أو عبارة Select Case . حالة... ومن ذلك... آخر تنفيذ جملة مجموعة من العبارات استناداً إلى قيمة التعبير وتنفيذ عبارة Select Case واحدة من العديد من البيانات استناداً إلى قيمة التعبير.
معلومات أخرى
تقدم Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، لكن لا يقتصر على، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft في شرح وظيفة إجراء محدد، لكنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة. إظهار وحدات الماكرو التالي نموذج كيفية استخدام إذا... ومن ذلك... آخر وعبارات Select Case .

نموذج استخدام الماكرو إذا... ومن ذلك... بيان آخر

   Sub Using_IF()      ' Dimension the variable.      Dim x As Integer      ' Place a value in x.      x = Int(Rnd * 100)      ' Display the value of x.      MsgBox "The value of x is " & x & "."      ' Test to see if x less than or equal to 10.      If x <= 10 Then         ' Display a message box.         MsgBox "X is <=10"      ' Test to see if x less than or equal to 40 and greater than 10.      ElseIf x <= 40 And x > 10 Then         MsgBox "X is <=40 and > 10"      ' Test to see if x less than or equal to 70 and greater than 40.      ElseIf x <= 70 And x > 40 Then         MsgBox "X is <=70 and > 40"      ' Test to see if x less than or equal to 100 and greater than 70.      ElseIf x <= 100 And x > 70 Then         MsgBox "X is <= 100 and > 70"      ' If none of the above tests returned true.      Else         MsgBox "X does not fall within the range"      End If   End Sub				

نموذج الماكرو باستخدام عبارة Select الحالة

   Sub Using_Case()      ' Dimension the variable.      Dim x As Integer      ' Place a value in x.      x = Int(Rnd * 100)      ' Display the value of x.      MsgBox "The value of x is " & x & "."      ' Start the Select Case structure.      Select Case x         ' Test to see if x less than or equal to 10.         Case Is <= 10            ' Display a message box.            MsgBox "X is <=10"         ' Test to see if x less than or equal to 40 and greater than 10.         Case 11 To 40            MsgBox "X is <=40 and > 10"         ' Test to see if x less than or equal to 70 and greater than 40.         Case 41 To 70            MsgBox "X is <=70 and > 40"         ' Test to see if x less than or equal to 100 and greater than 70.         Case 71 To 100            MsgBox "X is <= 100 and > 70"         ' If none of the above tests returned true.         Case Else            MsgBox "X does not fall within the range"      End Select   End Sub				
مراجع
لمزيد من المعلومات حول استخدام عبارات Select Case، في محرر Visual Basic، انقر فوق تعليمات Microsoft Visual Basic القائمة تعليمات ، اكتب استخدام عبارات Select الحالة في "مساعد Office" أو "معالج الإجابة"، ثم انقر فوق بحث لعرض الموضوع.
لمزيد من المعلومات حول عبارة IF في محرر Visual Basic، انقر فوق تعليمات Microsoft Visual Basic القائمة تعليمات ، اكتب استخدام إذا... ومن ذلك... بيانات آخر في "مساعد Office" أو "معالج الإجابة"، ثم انقر فوق بحث لعرض الموضوع.
لمزيد من المعلومات حول الحصول على تعليمات باستخدام Visual Basic للتطبيقات، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف ل Microsoft":
226118 برمجة الموارد ل Visual Basic للتطبيقات
لمزيد من المعلومات حول كيفية استخدام نموذج التعليمة البرمجية الموجود في هذه المقالة، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف ل Microsoft":
212536 كيفية تشغيل نموذج التعليمات البرمجية من مقالات قاعدة المعارف
منطق XL2000 XL2002 XL2003 XL2007 XL2010، إذا الحالة تحديد آخر

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

خصائص

رقم الموضوع: 213630 - آخر مراجعة: 10/29/2015 03:12:00 - المراجعة: 6.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007, Excel 2016, Microsoft Excel 2013

  • kbdtacode kbhowto kbprogramming kbmt KB213630 KbMtar
تعليقات