Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/масштаб по умолчанию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » масштаб по умолчанию (Форматирование/Formattings)
масштаб по умолчанию
lamak58 Дата: Пятница, 08.07.2016, 14:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Можно ли как то изменить масштаб по умолчанию ?
 
Ответить
СообщениеМожно ли как то изменить масштаб по умолчанию ?

Автор - lamak58
Дата добавления - 08.07.2016 в 14:19
Manyasha Дата: Пятница, 08.07.2016, 15:44 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
lamak58, а если в личную книгу макросов (personal) запихать код, который будет отслеживать создание новой книги?
[vba]
Код
Dim WithEvents appExcel As Application
Private Sub Workbook_Open()
    Set appExcel = Application
End Sub
Private Sub appExcel_NewWorkbook(ByVal Wb As Workbook)
    Wb.Sheets.Select
    ActiveWindow.Zoom = 75
    Wb.Sheets(1).Select
End Sub
[/vba]

Не получается уйти от select'ов :(


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеlamak58, а если в личную книгу макросов (personal) запихать код, который будет отслеживать создание новой книги?
[vba]
Код
Dim WithEvents appExcel As Application
Private Sub Workbook_Open()
    Set appExcel = Application
End Sub
Private Sub appExcel_NewWorkbook(ByVal Wb As Workbook)
    Wb.Sheets.Select
    ActiveWindow.Zoom = 75
    Wb.Sheets(1).Select
End Sub
[/vba]

Не получается уйти от select'ов :(

Автор - Manyasha
Дата добавления - 08.07.2016 в 15:44
katmani Дата: Среда, 22.04.2020, 15:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
При выполнении этого фрагмента Excel зависает жестко
[vba]
Код
Wb.Sheets.Select
ActiveWindow.Zoom = 75
Wb.Sheets(1).Select
[/vba]
Помогает только удаление личной книги макросов ... \Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLSB
Так что будьте поосторожнее


Сообщение отредактировал katmani - Среда, 22.04.2020, 15:20
 
Ответить
СообщениеПри выполнении этого фрагмента Excel зависает жестко
[vba]
Код
Wb.Sheets.Select
ActiveWindow.Zoom = 75
Wb.Sheets(1).Select
[/vba]
Помогает только удаление личной книги макросов ... \Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLSB
Так что будьте поосторожнее

Автор - katmani
Дата добавления - 22.04.2020 в 15:15
katmani Дата: Среда, 22.04.2020, 15:26 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Вот пример который работает

[vba]
Код
Public WithEvents appALEX As Application

Private Sub Workbook_Open()
  Set appALEX = Application
End Sub

'Private Sub appALEX_NewWorkbook(ByVal Wb As Workbook)
'  Wb.Windows(1).Zoom = 75
'End Sub

Private Sub appALEX_WorkbookOpen(ByVal Wb As Workbook)
  Wb.Windows(1).Zoom = 75
End Sub
[/vba]

Но мне нужно было чтобы при открытии любого файла был масштаб 75%
и в office2007 он работает
а 2016 почемуто ругается на строчку
[vba]
Код
  Wb.Windows(1).Zoom = 75
[/vba]
выдает:
Subscript out of range
 
Ответить
СообщениеВот пример который работает

[vba]
Код
Public WithEvents appALEX As Application

Private Sub Workbook_Open()
  Set appALEX = Application
End Sub

'Private Sub appALEX_NewWorkbook(ByVal Wb As Workbook)
'  Wb.Windows(1).Zoom = 75
'End Sub

Private Sub appALEX_WorkbookOpen(ByVal Wb As Workbook)
  Wb.Windows(1).Zoom = 75
End Sub
[/vba]

Но мне нужно было чтобы при открытии любого файла был масштаб 75%
и в office2007 он работает
а 2016 почемуто ругается на строчку
[vba]
Код
  Wb.Windows(1).Zoom = 75
[/vba]
выдает:
Subscript out of range

Автор - katmani
Дата добавления - 22.04.2020 в 15:26
katmani Дата: Среда, 22.04.2020, 20:19 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Получилось и в офисе2016, проблема была в том что в офисе2016 нужно обязатьльно проверять на "If (str <> "PERSONAL.XLSB") Then"
А в офисе2007 и без этого работало

Весь нижеследующий текст вставляется в PERSONAL.XLSB в раздел ЭтаКнига

[vba]
Код
'объявляем переменную нужного типа с поддержкой событий
Public WithEvents appALEX As Application

'при открытии файла Personal (=запуске excel) присваиваем этой переменной ссылку на приложение
Private Sub Workbook_Open()
  Set appALEX = Application
End Sub
'процедура, обрабатывающей событие открытия книги
Private Sub appALEX_WorkbookOpen(ByVal Wb As Workbook)
Dim str As String

str = Wb.Name

  If (str <> "PERSONAL.XLSB") Then
    'MsgBox ("Открытие книги")
    'MsgBox (str)
    Range("A1").Select
    Wb.Windows(1).Zoom = 75
  End If

End Sub
[/vba]

Теперь при открытии абсолютно любого эксель файла его масштаб автоматически ставится в 75%
Это нужно когда нужно в день просмотреть несколько десятков бланков заказа от клиентов и они присылают их в разных масштабах, кто 100, кто 200, и т.п.
Добавил еще Range("A1").Select чтобы бланк заказа всегда открывался сверху, на этом скриншоте этого еще нет:



Сообщение отредактировал katmani - Среда, 22.04.2020, 20:30
 
Ответить
СообщениеПолучилось и в офисе2016, проблема была в том что в офисе2016 нужно обязатьльно проверять на "If (str <> "PERSONAL.XLSB") Then"
А в офисе2007 и без этого работало

Весь нижеследующий текст вставляется в PERSONAL.XLSB в раздел ЭтаКнига

[vba]
Код
'объявляем переменную нужного типа с поддержкой событий
Public WithEvents appALEX As Application

'при открытии файла Personal (=запуске excel) присваиваем этой переменной ссылку на приложение
Private Sub Workbook_Open()
  Set appALEX = Application
End Sub
'процедура, обрабатывающей событие открытия книги
Private Sub appALEX_WorkbookOpen(ByVal Wb As Workbook)
Dim str As String

str = Wb.Name

  If (str <> "PERSONAL.XLSB") Then
    'MsgBox ("Открытие книги")
    'MsgBox (str)
    Range("A1").Select
    Wb.Windows(1).Zoom = 75
  End If

End Sub
[/vba]

Теперь при открытии абсолютно любого эксель файла его масштаб автоматически ставится в 75%
Это нужно когда нужно в день просмотреть несколько десятков бланков заказа от клиентов и они присылают их в разных масштабах, кто 100, кто 200, и т.п.
Добавил еще Range("A1").Select чтобы бланк заказа всегда открывался сверху, на этом скриншоте этого еще нет:


Автор - katmani
Дата добавления - 22.04.2020 в 20:19
Мир MS Excel » Вопросы и решения » Вопросы по Excel » масштаб по умолчанию (Форматирование/Formattings)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!