如何在excel vba中获取子例程以返回某些内容?

德施泰因

我在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] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章