Максро на смену стиля при открытии книги

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Максро на смену стиля при открытии книги (Макросы/Sub)

madric1986

Дата: Четверг, 07.12.2023, 15:38 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

2021

Добрый день.

Очень давно, пользуясь форумами, смог скрафтить макрос, который при открытии любого файла экселя автоматически менял стиль столбцов\строк на "А1".

Повторить такой опыт больше не удается)) Помогите, пожалуйста, сделать макрос, который при открытии любого экселя менял стиль.
Моя кривая попытка сейчас выглядит так:
1)Создал VBAProject (Personal.xlsb)
2) Модуль прописал:
[vba]

Код

Sub ChangeStely()
'Изменение стиля ссылок в текущей книге

If Application.ReferenceStyle = xlA1 Then
Application.ReferenceStyle = xlR1C1
Else:
Application.ReferenceStyle = xlA1
End If
End Sub

[/vba]

3) В ThisWorkbook добавил
[vba]

Код

Private Sub workbook_open()
Application.Run "PERSONAL.XLSB!ThisWorkbook.ChangeStely"
End Sub

[/vba]