VBA - 如何調用一段代碼？

Question

我對Excel中的VBA世界還很陌生，所以這可能是一個非常明顯的問題。

我有2段代碼，我經常在整個我寫的長腳本中使用。我想要做的是理想地給這兩段代碼一個名字，然後在需要時「調用」它們，而不是每次都寫出它們（每行約30行代碼）。

這是可能的，如果是這樣，我該怎麼做？

Answer 1

例如，如果您有兩個變量，如果條件滿足，您繼續添加;

Sub Main() 

    Dim x As Double 
    Dim y As Double 
    Dim sum As Double 

    x = 2 
    y = 3 
    If x > y And x > 0 And y > 0 Then 
     sum = x + y 
    End If 

    x = 7 
    y = 8 
    If x > y And x > 0 And y > 0 Then 
     sum = x + y 
    End If 

End Sub 

繼DRY principle之後，您可能需要創建一個函數。如果滿足條件，函數將接受2個參數並返回總和，因此您可以反覆使用它，而不必在整個地方重複使用if statement。

例如

Function AddIfConditionMet(x As Double, y As Double) 
    If x > y And x > 0 And y > 0 Then 
     AddIfConditionMet = x + y 
    Else 
     AddIfConditionMet = -1 
    End If 
End Function 

每次調用這個函數時它會檢查的條件 - 如果他們滿足，那麼它增加了x和y如果沒有則返回-1

示例代碼

Sub Main() 

    Dim x As Double 
    Dim y As Double 
    Dim sum As Double 

    x = 2 
    y = 3 
    sum = AddIfConditionMet(x, y) ' returns -1 
    Debug.Print sum 

    x = 10 
    y = 5 
    sum = AddIfConditionMet(x, y) ' returns 15 
    Debug.Print sum 

End Sub 

Function AddIfConditionMet(x As Double, y As Double) 
    If x > y And x > 0 And y > 0 Then 
     AddIfConditionMet = x + y 
    Else 
     AddIfConditionMet = -1 
    End If 
End Function 

Answer 2

sub main 
dim a as long 
call First_Macro (arg1, Arg2 , Arg3)  'same as : First_macro arg1, Arg2, Arg3 
a= Some_Function_Name (Arg1, Arg2, Arg3) 
End sub 



Sub First_macro (Byval arg 1 as string, byval arg2 as long, byref arg3 as range) 
'do something 
end sub 


Function Some_Function_Name (Arg1, Arg2, Arg3) as long 'returns a Long type value 
'Do something 
if sometthing happens then 
    Some_Function_Name=x 
else 
    Some_Function_Name=x+1 'for example 
end if 
end function