VBA - 調用其他函數的函數

Question

自從我學習了一點VBA之後已經過了幾年了，而且我確實生鏽了。

我想在Sub中定義變量，然後從那個Sub調用各種函數，其中一些函數會調用其他函數等等。

到目前爲止，代碼如下：

'AREAS 

Public Sub Areas() 

Dim h, btf, bbf, tw, ttf, tbf As Double 

h = 300 
btf = 150 
bbf = 150 
tw = 7.1 
tbf = 10.7 
ttf = 10.7 

Call TotalArea(h, btf, bbf, tw, ttf, tbf) 
Call Sum_of_Areas(h, btf, bbf, tw, ttf, tbf) 

End Sub 


Function TotalArea(h, btf, bbf, tw, ttf, tbf As Double) As Double 

TotalArea = btf * ttf + bbf * tbf + (h - ttf - tbf) * tw 

End Function 

Function Area_tf(btf, ttf As Double) As Double 

Area_tf = btf * ttf 

End Function 

Function Area_bf(bbf, tbf As Double) As Double 

Area_bf = bbf * tbf 

End Function 

Function Area_w(h, ttf, tbf, tw As Double) As Double 

Area_w = (h - ttf - tbf) * tw 

End Function 

Function Sum_of_Areas(h, btf, bbf, tw, ttf, tbf As Double) As Double 

Sum_of_Areas = Area_tf + Area_bf + Area_w 

End Function 

第一位運行正常，即TotalArea功能，但另一個（Sum_of_Areas）只是給我的錯誤。我試圖找到做這件事的適當方式，以及我需要聲明哪些變量以及在哪裏。我需要將哪些變量傳遞給函數。

謝謝！

Answer 1

您必須使用sub和function的相同類型變量。 並且不要求功能。

Public Sub Areas() 

Dim h As Double, btf As Double, bbf As Double, tw As Double, ttf As Double, tbf As Double 
Dim Total As Double, mySum As Double 
h = 300 
btf = 150 
bbf = 150 
tw = 7.1 
tbf = 10.7 
ttf = 10.7 

Total = TotalArea(h, btf, bbf, tw, ttf, tbf) 
mySum = Sum_of_Areas(h, btf, bbf, tw, ttf, tbf) 
Range("a1") = Total 
Range("a2") = mySum 
End Sub 


Function TotalArea(h As Double, btf As Double, bbf As Double, tw As Double, ttf As Double, tbf As Double) As Double 

TotalArea = btf * ttf + bbf * tbf + (h - ttf - tbf) * tw 

End Function 

Function Area_tf(btf As Double, ttf As Double) As Double 

Area_tf = btf * ttf 

End Function 

Function Area_bf(bbf As Double, tbf As Double) As Double 

Area_bf = bbf * tbf 

End Function 

Function Area_w(h, ttf, tbf, tw As Double) As Double 

Area_w = (h - ttf - tbf) * tw 

End Function 

Function Sum_of_Areas(h As Double, btf As Double, bbf As Double, tw As Double, ttf As Double, tbf As Double) As Double 

'Sum_of_Areas = Area_tf + Area_bf + Area_w 
Sum_of_Areas = Area_tf(btf, ttf) + Area_bf(bbf, tbf) + Area_w(h, ttf, tbf, tw) 

End Function