我在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] 删除。
我来说两句