Application Methods
سنتحدث عن أشهر الأساليب إستخداما لكائن التطبيق
FindFile Application Method
Goto Application Method
Run Application Method
Wait Application Method
FindFile Application Method
Application FindFile
يتم يتم استخدام هذا الأسلوب لعرض مربع الحوار فتح وسيسمح للمستخدم بفتح مصنف أو ملف.
Syntax
Application. FindFile
تقوم بإرجاع قيمة منطقية إما
True أو False
'https://elshriefacademy.blogspot.com
Sub Method_FindFile()
'displays the Open dialog box
Application.FindFile
End Sub
Goto Application Method
يتم استخدام Goto Application Method لتحديد أي نطاق في ورقة العمل أو تحديد أي إجراء أساسي مرئي في أي مصنف ، و إذا كان هذا المصنف المحدد غير نشط ، فإنه يقوم بتنشيط ذلك المصنف.
Syntax
([Application. Goto ([Reference], [Scroll
Reference معلمة اختيارية ، لتحديد الوجهة ، وإذا لم تحدد هذه الوسيطة ، فسيكون آخر وجهة تستخدمها هي الوجهة التى سيتم تنفيذ الاجراء عليها.
Scroll تعني التمرير معلمة اختيارية ، له قيمة منطقية ( إما True أو False )، إذا كانت القيمة صحيحة فسيتم التمرير خلال النافذة، وإذا كانت False فلن يتم التمرير خلال النافذة.
'https://elshriefacademy.blogspot.com
Sub Method_Goto()
Application.Goto Reference:=Worksheets("Sheet1").Range("A200"), Scroll:=True
End Sub
Run Application Method
يتم استخدام Run لتشغيل إجراء (كود ، ماكرو) أو دالة مكتوبة في التطبيق
Syntax
([Application.Run([Macro], [Arg1], [Arg2],…, [Arg30
Macro وهي معلمة اختيارية. يتم استخدامه لتشغيل الماكرو.
Arg1 وهي معلمة اختيارية. يتم استخدامه لتمريرها إلى الوظيفة.
'https://elshriefacademy.blogspot.com
Sub Method_Run()
Application.Run "'Book1.xlsm'!Method_FindFile"
End Sub
Wait Application Method
لتستخدم لإيقاف ماكرو قيد التشغيل أو إيقافه مؤقتًا حتى وقت محدد.
Syntax
(Application.Wait(Time
Time معلمة مطلوبة ، لتحديد الوقت الذى ستستأنف الماكرو بعد مضى هذا الوقت المحدد.
'https://elshriefacademy.blogspot.com
Sub Method_Wait()
If Application.Wait(Now + TimeValue("0:00:03")) Then
MsgBox "Your session has expired"
End If
End Sub