两个工作表上的 VBA 宏答案

【问题标题】：VBA Macros on two worksheets两个工作表上的 VBA 宏
【发布时间】：2015-02-25 03:22:50
【问题描述】：

我在 Excel 2003 中有一个 VBA 对象，当通过流数据获得某些值时，它会触发三个简单的宏。它运行良好。我想打开一个重复的工作表，但具有不同的流数据，并在各自的工作表上触发宏。它现在可以使用，但仅适用于我当前选择的工作表。每个工作表中都有对象和宏。

对象监控三个单元格，当第一个单元格被触发时，继续监控下一个单元格，当触发时监控下一个单元格，然后重复。

我会帮助他们同时在各自的电子表格上运行。

这是 VBA 对象：

Private Sub Worksheet_Calculate()

Static oldval1
Static oldval2
Static oldval3

Static LastAction As Integer
' Initial state will be 0, neither Fast nor Slow
Const Fast As Integer = 1
Const Fast2 As Integer = 2
Const Slow As Integer = 3

Application.EnableEvents = False

If Range("I1").Value = "1" And oldval1 <> "1" And LastAction <> Fast Then
  PasteFast
  LastAction = Fast
ElseIf Range("Q1").Value = "1" And oldval2 <> "1" And LastAction <> Slow Then
  PasteFast2
  LastAction = Fast2
ElseIf Range("Y1").Value = "1" And oldval3 <> "1" And LastAction <> Slow Then
  PasteSlow
  LastAction = Slow
End If

oldval1 = Range("I1").Value
oldval2 = Range("Q1").Value
oldval3 = Range("Y1").Value

Application.EnableEvents = True

End Sub

而且，这里有三个宏——它们本质上是相同的——它们从同一个位置复制，但粘贴到不同的位置。 PasteSlow 和 PasteFast 在一个模块上，而 PasteFast2 在第二个模块上（无缘无故）。

Sub PasteSlow()
'
' PasteSlow Macro
'

'
Application.ScreenUpdating = False
Range("G5:G57").Select
Selection.Copy
Range("H5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("K5:K57").Select
Application.CutCopyMode = False
Selection.Copy
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("A1").Select
End Sub

Sub PasteFast()
'
' PasteFast Macro
'

'
Application.ScreenUpdating = False
Range("g5:g57").Select
Selection.Copy
Range("P5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("k5:k57").Select
Application.CutCopyMode = False
Selection.Copy
Range("T5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("A1").Select
End Sub


Sub PasteFast2()
'
' PasteFast2 Macro
'

'
Application.ScreenUpdating = False
Range("g5:g57").Select
Selection.Copy
Range("x5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("k5:k57").Select
Application.CutCopyMode = False
Selection.Copy
Range("ab5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("A1").Select
End Sub

对于任何代码格式错误，我深表歉意。

【问题讨论】：

尝试在不同的 Excel 实例中打开它？
VBA 不支持多线程。因此，正如@SiddharthRout 建议的那样，要么在单独的 Excel 实例中打开工作表，要么让宏轮流运行哪个宏。

标签： vba excel

【解决方案1】：

您的代码不起作用的原因在于您使用 Range 函数的方式。单独使用 Range 是 Application.Range 的缩写。

Excel 帮助文件是这样说的：

当不使用对象限定符时，此属性是 ActiveSheet.Range 的快捷方式（它从活动工作表返回一个范围；如果活动工作表不是工作表，则该属性失败）。

将此保留在Worksheet_Calculate 事件中会将其锁定到给定的工作表。

我建议将您的Worksheet_Calculate 中的代码移动到一个单独函数的模块中，并将感兴趣的单元格作为参数。这将允许您干燥代码，并允许您在 Worksheet_Activate 事件中调用函数。

如果您不想重写代码，只需将对 Worksheet_Calculate 的调用抛出到 Worksheet_Activate 事件中：

Private Sub Worksheet_Activate()
  Worksheet_Calculate
End Sub

这将在您进入工作表时启动您的代码。

【讨论】：