VBA调用函数

Question

此代码运行，但我需要一种方法来定义变量 x、n 和 c 一次，例如模块范围的变量。提供的示例是“调用”许多过程的更大宏的精简版本。

目前我必须将变量放入每个Sub 中，以便它按需要运行。我尝试使用Public、Private、Dim 等预先声明它们，但n 和c 变量不会在每个Sub 运行后重置为0。因此，变量计数从前一个程序继续执行以下过程，并且我需要在每个子程序运行后重置计数器。 Subs 之外的x = "Minimum"（即带有声明的变量）也不起作用，但对提高效率很有用。

还有：

• 如何简化使用Call 的Main 宏。有时我有 50 个订阅者。
• 可以合并这种特定类型的Sub（此处的 2 个相同，因为我将数据发送到同一个工作表 'Rs' 但只是来自 2 个不同的工作表，'Ts' 和 'BR'，在同一个 excel 中文件）

Dim module As Object

Sub Main()
Call Stic1
Call Stic2
End Sub

Sub Stic1()
Dim x As String
Dim n As Integer, c As Integer
x = "Minimum"
Sheets("Ts").Select
Range("A2").Offset(0, 0).Select
Do Until IsEmpty(ActiveCell)
If ActiveCell.Value = x Then
    ActiveCell.Offset(0, 1).Copy
    Application.Goto (ActiveWorkbook.Sheets("Rs").Range("G2").Offset(n, 0))
    ActiveSheet.Paste
    Application.CutCopyMode = False
    n = n + 1
    Application.Goto (ActiveWorkbook.Sheets("Ts").Range("A2").Offset(c, 0))
    c = c + 1
Else
    Application.Goto (ActiveWorkbook.Sheets("Ts").Range("A2").Offset(c, 0))
    c = c + 1
End If
Application.Goto (ActiveWorkbook.Sheets("Ts").Range("A2").Offset(c, 0))
Loop
End Sub

Sub Stic2()
Dim x As String
Dim n As Integer, c As Integer
x = "Minimum"
Sheets("BR").Select
Range("A2").Offset(0, 0).Select
Do Until IsEmpty(ActiveCell)
If ActiveCell.Value = x Then
    ActiveCell.Offset(0, 1).Copy
    Application.Goto (ActiveWorkbook.Sheets("Rs").Range("I2").Offset(n, 0))
    ActiveSheet.Paste
    Application.CutCopyMode = False
    n = n + 1
    Application.Goto (ActiveWorkbook.Sheets("BR").Range("A2").Offset(c, 0))
    c = c + 1
Else
    Application.Goto (ActiveWorkbook.Sheets("BR").Range("A2").Offset(c, 0))
    c = c + 1
End If
Application.Goto (ActiveWorkbook.Sheets("BR").Range("A2").Offset(c, 0))
Loop
End Sub

Answer 1

也许您正试图模仿 Static 在其模块中的 'x' 'n' 和 'c' 行为？这可以节省您的时间，而不是将它们声明为 Public
静态变量保留其值（与 Dim 变量相反），即使 sub 结束（但是，如果您调试然后停止，它们会重置），您也可以组合 Public Static。
编辑：
Integer 已“弃用”，您可以谷歌 Integer vs Long 来了解原因。

Dim module As Object
Public x As String
Public n As Long
Public c As Long
Sub Main()
Call Stic1
Call Stic2
End Sub

Sub Stic1()
Call ResetVariables
x = "Minimum"
Sheets("Ts").Select
Range("A2").Offset(0, 0).Select
....
Sub ResetVariables
x = vbNullString
n = 0
c = 0
End Sub

没有办法简化“调用”，但是，我能读到什么，问题是你在这里有“镜像潜艇”，你可能想看看this.
如果工作表是可变的，为什么不呢？

Sub Stic(WhatSheet as String)
Dim x as String: x = "Minimum"
Sheets(WhatSheet).Select
...
'then 
Sub Main()
Call Stic("Ts")
Call Stic("BR")
....

您将只有一个 sub（而不是每张表 50 个），其中要执行的变量位置是表（一切都相同，只是表是一个变量）。在您的主要是，除了调用每张工作表之外别无他法（或者如果您为要执行哪些工作表以及哪些工作表不能执行 For 循环定义了一些内容）

Sub Main
Dim WSheetInBook As Worksheet
For Each WSheetInBook In ActiveWorkbook.Worksheets
Call stic(WSheetInBook)
Next WSheetInBook
End Sub

Sub stic(WhatSheet As Worksheet)
x = "Minimum"
WhatSheet.Select
Range("A2").Offset(0, 0).Select
...

PS：正如 GSerg 所说，在您了解这一点后，您可能希望专注于避免选择，这对于宏来说非常耗时。