0

我是 VBA 新手，所以请多多包涵。

我已经在网站上搜索了答案，但没有找到。

我有这个 VBA 代码，当在 Excel 2007 中作为工作表 VBA 输入时，我有这个 VBA 代码，即当突出显示 A 列中的单元格时，缩放增加到 120，当突出显示 A 列以外的单元格时，缩放恢复到 75。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        ActiveWindow.Zoom = 120
    Else
        ActiveWindow.Zoom = 75
    End If

End Sub

我想将此代码应用于整个工作簿，因此我将其放在“ThisWorkbook”区域并更改语法如下：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        ActiveWindow.Zoom = 120
    Else
        ActiveWindow.Zoom = 75
    End If
End Sub

但是，我没有得到相同的结果。

在第二种情况下，A 列中的单元格在突出显示时不会“自动”缩放到 120。它们仅在我在 A 列中选择或输入值时进行缩放。之后缩放保持在 120 并且不会恢复到 75。

请帮忙。

谢谢。

4

1 回答 1

2

你使用了错误的事件Workbook

利用Workbook_SheetSelectionChange

于 2013-02-17T09:41:56.207 回答