我如何将参数传递给 vba 中的函数

Question

如题，我在VBA中写了一个函数，但是参数没有传入函数。这是我的代码：

enter image description here

非常感谢

    Function Solar_altitude_angle() As Single
    'Declare
Dim n As Integer
Dim Longtitude As Single
Dim Latitude As Single
Dim Altitude As Single
Dim LSM As Integer
Dim LST As Single
Dim ET As Single
Dim H As Single
Dim AST As Single
Dim i_SolarDeclination As Single
Dim s_Gama As Single

    'Equation time

n = DateDiff("d", "01/01/2021", ThisWorkbook.Worksheets("Room_Load").Range("D62"))
Longtitude = ThisWorkbook.Worksheets("Room_Load").Range("E61")
Latitude = ThisWorkbook.Worksheets("Room_Load").Range("B61")
Altitude = ThisWorkbook.Worksheets("Room_Load").Range("G61")
LSM = 105 'oE Greenwich
LST = ThisWorkbook.Worksheets("Room_Load").Range("H62")

i_SolarDeclination = 23.45 * Sin((n + 284) / 365 * 2 * 3.14159)

s_Gama = ((n - 1) / 365) * 2 * 3.14159
ET = 2.2918 * (0.0075 _
            + 0.1868 * Cos(s_Gama) _
            - 3.2077 * Sin(s_Gama) _
            - 1.4615 * Cos(2 * s_Gama) _
            - 4.089 * Sin(2 * s_Gama))
   
AST = LST * 24 + ET / 60 + (Longtitude - LSM) / 15

H = 15 * (AST - 12)

Solar_altitude_angle = (Application.Asin(Cos(Longtitude) * Cos(i_SolarDeclination) * Cos(H) + _
                        Sin(Longtitude) * Sin(i_SolarDeclination))) * 180 / 3.1412
                        
End Function

如上图，在watches中window显示变量无效

Answer 1

我猜您想将 Room_Load 的范围传递给您的函数。
除了让它工作之外，没有考虑参数类型应该是什么 - 我不得不将 n 从单个日期更改为日期，以便 DateDiff 可以计算。

要传递的每个参数都用在函数名中。

Public Function Solar_altitude_angle(n As Date, Longtitude As Single, Latitude As Single, _
                                     Altitude As Single, LST As Single) As Single

    Dim n1 As Integer
    n1 = DateDiff("d", DateSerial(Year(Date), 1, 1), n)
    
    Dim LSM As Integer
    LSM = 105

    Dim i_SolarDeclination As Single
    i_SolarDeclination = 23.45 * Sin((n + 284) / 365 * 2 * 3.14159)
    
    Dim s_Gama As Single
    s_Gama = ((n - 1) / 365) * 2 * 3.14159
    
    Dim ET As Single
    ET = 2.2918 * (0.0075 _
                + 0.1868 * Cos(s_Gama) _
                - 3.2077 * Sin(s_Gama) _
                - 1.4615 * Cos(2 * s_Gama) _
                - 4.089 * Sin(2 * s_Gama))
       
    Dim AST As Single
    AST = LST * 24 + ET / 60 + (Longtitude - LSM) / 15
    
    Dim H As Single
    H = 15 * (AST - 12)
    
    Solar_altitude_angle = (Application.Asin(Cos(Longtitude) * Cos(i_SolarDeclination) * Cos(H) + _
                            Sin(Longtitude) * Sin(i_SolarDeclination))) * 180 / 3.1412

End Function

然后可以从 VBA 使用类似以下内容调用它：

Sub Test()

    Dim MyResult As Single
    MyResult = Solar_altitude_angle(ThisWorkbook.Worksheets("Room_Load").Range("D62"), _
                                    ThisWorkbook.Worksheets("Room_Load").Range("E61"), _
                                    ThisWorkbook.Worksheets("Room_Load").Range("B61"), _
                                    ThisWorkbook.Worksheets("Room_Load").Range("G61"), _
                                    ThisWorkbook.Worksheets("Room_Load").Range("H62"))
                                

End Sub

或作为工作表函数：

=Solar_altitude_angle(Room_Load!D62,Room_Load!E61, Room_Load!B61, Room_Load!G61, Room_Load!H62)

或

=Solar_altitude_angle(D62,E61, B61,G61, H62)

我如何将参数传递给 vba 中的函数

how do i pass parameters into function in vba

vba

parameter-passing