[حل شده] فراخوان ماکرو از يک خط خاص

[Ali Parsaei]

سلام،
آيا مي شود يک ماکرو را فراخوان کرد ولي گفت که مثلا" سه خط اول ماکرو اجرا نشود (يعني بگوييم ماکرو فلان را مثلا" از خط چهارم اجرا کن)؟

[s.cheraghi]

سلام
چرا کامنتشون نمیکنی یا چرا از شرط استفاده نمیکنی؟
شرایط خاصی باید باشه که اون خطوط اجرا نشن یا بشن؟
بیشتر توضیح بدین

[abootorab]

سلام،
آيا مي شود يک ماکرو را فراخوان کرد ولي گفت که مثلا" سه خط اول ماکرو اجرا نشود (يعني بگوييم ماکرو فلان را مثلا" از خط چهارم اجرا کن)؟

با درود
با ترفندی که در مثال زیر استفاده کردم شما میتونید به هدفتون برسید.
امیدوارم منظورتون رو درست متوجه شده باشم.

Sub Macro1(RunLine As Integer)
    'ماکرو مورد نظر که هر بار ممکن است از خط تععين شده توسط ما کدهاي آن اجرا شود
    Select Case RunLine
        Case 1: GoTo 1:
        Case 5: GoTo 5:
        Case 20: GoTo 20:
    End Select
    
1:
    If RunLine = 1 Then MsgBox "Started from labelline 1"
'
'
'   خطوط برنامه
'
'

5:
    If RunLine = 5 Then MsgBox "Started from labelline 5"
'
'
'   خطوط برنامه
'
'

20:
    If RunLine = 20 Then MsgBox "Started from labelline 20"
'
'
'
'
'   خطوط برنامه
'
'
'
End Sub

Sub TestRunMacro1()
    'تست جهت اجراي ماکرو1 از خط مورد نظر

    Macro1 (5)
    '
    '
    '
    Macro1 (20)
    '
    '
    '
End Sub