كيفية استخدام عبارة goto في كود vba؟
يساعد بيان VBA GoTo على تنفيذ التعليمات البرمجية في الانتقال إلى سطر معين في الإجراء. بعبارات بسيطة، باستخدام عبارة goto، ينتقل VBA إلى سطر معين قمت بتحديده. على سبيل المثال، إذا حددت الانتقال إلى السطر الثاني، فسينتقل الانتقال إلى هذا السطر.
كيفية استخدام بيان VBA GoTo في التعليمات البرمجية
- أولاً، عليك استخدام عبارة goto.
- بعد ذلك تحتاج إلى تحديد المكان الذي تريد أن ينتقل منه VBA إلى goto.
- بعد ذلك، قم بإنشاء العلامة لإنشاء هذا المكان في الإجراء.
- في النهاية، أضف سطر (أسطر) التعليمات البرمجية التي تريد تشغيلها.
Sub vba_goto() GoTo Last Range ("A1"). Select Last : Range ("A12"). Select End Sub
انتقل إلى تكرار الرمز
يمكنك أيضًا استخدام عبارة go to لتكرار التعليمات البرمجية باستخدام مجموعة من الشروط.
Sub goto_repeat() Dim iMessage As String Question: iMessage = InputBox("what's the day today?") If iMessage <> "tuesday" Then MsgBox ("wrong answer, try again.") GoTo Question Else MsgBox ("that's the right answer.") End If End Sub
عند تشغيل الكود أعلاه سيطلب منك اسم اليوم وإذا قمت بإدخال أي شيء آخر غير “الثلاثاء” فسوف يكرر السؤال. إذا نظرت إلى الكود، يمكنك أن ترى أننا بحاجة إلى استخدام عبارة goto وعبارة if .
الآن، عندما يقوم المستخدم بإدخال أي شيء آخر غير الإجابة الصحيحة، فإن عبارة goto تجبر VBA على تكرار التعليمات البرمجية. (ولكن عندما تستخدم هذا النوع من الرموز، عليك أن تكون حذرًا جدًا لأنه يمكن أن يؤدي إلى إنشاء حلقة لا نهاية لها.
VBA اذهب إلى النهاية
يمكنك أيضًا الخروج من فرعي باستخدام عبارة goto.
في الكود أعلاه، استخدمنا العلامة “الأخيرة” قبل بيان النهاية مباشرة وعندما يصل VBA إلى عبارة GoTo، فإنه يجعل VBA ينتقل إلى “الأخير” في نهاية الإجراء.
عبارة GoTo للانتقال إلى سطر في روتين فرعي آخر
حسنًا، يعد الانتقال إلى البيان مفيدًا جدًا لجعل VBA ينتقل من مكان إلى آخر، ولكن ليس من الممكن جعله ينتقل إلى إجراء آخر في الوحدة النمطية .
الدروس ذات الصلة
- حلقات VBA (المبتدئ إلى المتقدم)
- VBA حدد الحالة
- Excel VBA Do while Loop و (Do Loop while) – دليل
- قم بالمراجعة عبر كافة الأوراق باستخدام VBA في Excel
- قم بالتكرار فوق نطاق باستخدام VBA (الأعمدة والصف والمستخدم)