Excel 2007 – Применение синтаксиса рабочей книги VBA к коду, используемому в Рабочем листе, – получение разных результатов

Я новичок в VBA, поэтому, пожалуйста, несите меня.

Я искал сайт для ответа, но не нашел его.

У меня есть этот код VBA, который работает точно так, как я желаю, когда вводится как рабочий лист VBA в Excel 2007, т. Е. Когда подсвечивается ячейка в столбце 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 при подсвечивании. Они только увеличиваются, когда я выбираю или вводим значение в столбце А. После этого масштабирование остается на уровне 120 и не возвращается к 75.

Пожалуйста помоги.

Благодарю.

Вы использовали неправильное событие в Workbook

Использовать Workbook_SheetSelectionChange

  • Как извлечь большой текст из ячейки Excel в форматированном тексте с помощью формул Excel?
  • Как использовать VBA для создания ячейки в Excel 2007 прозрачно
  • Как найти среднее количество ячеек в столбце, когда мой серийный номер нечетный или даже в Excel 2007
  • Как добавить пользовательский XML в открытую книгу Excel 2007 с помощью C #?
  • Условное форматирование основывается на разных столбцах
  • Очистить ячейки, которые являются иждивенцами, и иметь списки проверки
  • Является ли свойство имени VBA чувствительным к регистру
  • График между датами Excel
  • Набор данных не обновляется до Excel
  • Использование VBA для выбора динамического диапазона ячеек и создания диаграммы
  • Справочное изображение Excel 2007 для программного скрыть его / воспроизвести
  • Interesting Posts

    гиперссылка в excel не загружается должным образом, но из PDF или слов загружается нормально

    Определенная пользователем функция VBA для «Concatenate If» по строкам

    Преобразование нечеткого поиска подключает файл Excel в SSIS

    Excel VBA Скопируйте одну ячейку с некоторых листов и сохраните на другом листе

    Мои данные имеют вид * _ *. Я хотел бы применить к нему условие условие. IF (A1 = * _ *, 1,0). Не работает. Любой другой способ сделать это?

    Как уменьшить время доступа к большим файлам Excel?

    VBA для сортировки таблицы и игнорирования общей строки

    Заполнение таблицы из файла excel с использованием php

    Excel VBA – преобразовать строку даты в дату

    Чтение ряда данных Excel с использованием POI

    Циклы Excel VBA со значениями, принадлежащими набору

    Изменение цвета ячейки листа excel через VB.NET

    Excel – скрыть строки, которые не имеют значений в наборе столбцов

    Ошибка проверки входа в пользовательскую форму VBA

    Excel VBA создает встроенный WebBrowser и использует его

    Давайте будем гением компьютера.