我在excel vba中有以下代码：
Sub main()
Call Get_Rows_Generic("usersFullOutput.csv", 1)
End Sub
在另一个模块中，我有：
Sub Get_Rows_Generic(work_sheet As String, column_num As Integer)
Dim wsUsers As Worksheet: Set wsUsers = Worksheets(work_sheet)
Dim userRows As Integer: userRows = wsUsers.Cells(Rows.Count, column_num).End(xlUp).Row
MsgBox userRows
End Sub
我如何访问子外部的子结果Get_Rows_Generic（显示在MsgBox）？即将结果馈送到另一个子或单元格...等等。
那么为什么不仅仅使其成为一个函数呢？
Function Get_Rows_Generic(work_sheet As String, column_num As Integer)
Dim wsUsers As Worksheet: Set wsUsers = Worksheets(work_sheet)
Dim userRows As Integer: userRows = wsUsers.Cells(Rows.Count, column_num).End(xlUp).Row
Get_Rows_Generic = userRows
End Sub
那你的电话可能是
Sub main()
Dim result as integer
result = Get_Rows_Generic("usersFullOutput.csv", 1)
End Sub
如果您希望result成为全局变量，那么我将向您提出以下问题：如何在VBA中声明全局变量？
Public result as integer
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句