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

Вход

Регистрация

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

 

= Мир MS Excel/Максро на смену стиля при открытии книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Максро на смену стиля при открытии книги (Макросы/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]


Сообщение отредактировал madric1986 - Четверг, 07.12.2023, 15:39
 
Ответить
СообщениеДобрый день.

Очень давно, пользуясь форумами, смог скрафтить макрос, который при открытии любого файла экселя автоматически менял стиль столбцов\строк на "А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]

Автор - madric1986
Дата добавления - 07.12.2023 в 15:38
Pelena Дата: Пятница, 08.12.2023, 11:36 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19137
Репутация: 4409 ±
Замечаний: ±

Excel 365 & Mac Excel
Судя по описанию, логика должна быть такая
[vba]
Код
Sub ChangeStely()
'Изменение стиля ссылок в текущей книге

If Application.ReferenceStyle =xlR1C1 Then Application.ReferenceStyle = xlA1

End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеСудя по описанию, логика должна быть такая
[vba]
Код
Sub ChangeStely()
'Изменение стиля ссылок в текущей книге

If Application.ReferenceStyle =xlR1C1 Then Application.ReferenceStyle = xlA1

End Sub
[/vba]

Автор - Pelena
Дата добавления - 08.12.2023 в 11:36
madric1986 Дата: Понедельник, 11.12.2023, 10:01 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2021
Pelena, спасибо. Остается второй вопрос - а как сделать запуск этого макроса при открытии любого экселя?
 
Ответить
СообщениеPelena, спасибо. Остается второй вопрос - а как сделать запуск этого макроса при открытии любого экселя?

Автор - madric1986
Дата добавления - 11.12.2023 в 10:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Максро на смену стиля при открытии книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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