كيفية استخدام عبارة goto في كود vba؟

يساعد بيان VBA GoTo على تنفيذ التعليمات البرمجية في الانتقال إلى سطر معين في الإجراء. بعبارات بسيطة، باستخدام عبارة goto، ينتقل VBA إلى سطر معين قمت بتحديده. على سبيل المثال، إذا حددت الانتقال إلى السطر الثاني، فسينتقل الانتقال إلى هذا السطر.

كيفية استخدام بيان VBA GoTo في التعليمات البرمجية

1. أولاً، عليك استخدام عبارة goto.
2. بعد ذلك تحتاج إلى تحديد المكان الذي تريد أن ينتقل منه VBA إلى goto.
3. بعد ذلك، قم بإنشاء العلامة لإنشاء هذا المكان في الإجراء.
4. في النهاية، أضف سطر (أسطر) التعليمات البرمجية التي تريد تشغيلها.

 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 ينتقل من مكان إلى آخر، ولكن ليس من الممكن جعله ينتقل إلى إجراء آخر في الوحدة النمطية .