如何每次更改时自动运行Microsoft Excelmacros？

我想知道当我更改文档内的内容时是否有办法运行macros。 谢谢！

macros：

Sub Test() Const QT = """" Dim a(), i As Long, r As Long, v As String With Range("B1", Cells(Rows.Count, "B").End(xlUp)) If .Count = 1 Then ReDim a(1 To 1, 1 To 1) a(1, 1) = .Value Else a() = .Value End If For r = 1 To UBound(a) v = Trim(a(r, 1)) If Len(v) Then If Right(v, 1) = QT Then v = Left(v, Len(v) - 1) i = InStrRev(v, QT) If i Then v = Mid(v, i + 1) a(r, 1) = Trim(v) End If Next .Value = a() End With End Sub 

Answer 1

您可以按如下所示向工作簿中添加一个事件处理程序

 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) MsgBox ("changed") End Sub 

要添加此macros，请转到vb视图 – 在左侧的“项目”面板中，select工作簿以打开与工作簿关联的代码并粘贴上面的代码。 每次更改工作簿中的单元格时，都会收到通知。