Чем обусловлено разное действие одного и того же макроса в разных файлах?

[Oleg_123]

Сообщение от Aleksandr H.

Не углубляясь в детали рефакторинга макроса

Я "игрался" блоками With для разных строк. У меня получался подобный результат на каком-то промежуточном этапе.
Но вот, что что точно у меня не получилось, так это:
1) в шапке выровнять еще и по правому краю и убрать прорисовку границ шапки (та, что курсивом)
2) выровнять еще и по низу строчку "Голова..." (предпоследнюю в табличке района)
Как правильно задавать разное форматирование для разных ячеек табличек?

[Oleg_123]

Спасибо большое! У меня все получилось:

в шапке выровнять еще и по правому краю и убрать прорисовку границ шапки (та, что курсивом), выровнять еще и по низу строчку "Голова..." (предпоследнюю в табличке района).

Однако, действие макроса
с кнопки
С КНОПКИ.JPG

и со списка макросов отличается
(Форматирование шапки и концовки разное; я добиваюсь именно этого,что внизу)
Со списка макросов.JPG

Чем это обусловлено? Что не так в кнопке? (это мой последний вопрос в этой теме)

Книга3.rar

[Serge_Bliznykov]

Сообщение от Oleg_123

Чем это обусловлено? Что не так в кнопке? (это мой последний вопрос в этой теме)

в кнопке всё так.

не всё так в макросе БОЛЬНИЧКА03

предполагаю, что проблема в том, что с кнопки Вы вызываете макрос при активном листе "Справочник", а из списка макросов - откуда угодно. И это влияет на логику работы макроса.

попробуйте в начало макроса добавить активацию первого листа:

Sub БОЛЬНИЧКА03()
    Dim a(), b()
    Dim i&, rw&, head_rw&
    Dim sd_dist As Object, sd_date As Object
    Dim f_date As Date, l_date As Date
    Dim key_distr, key_date
    Dim j As Byte, jj As Byte, gr As Byte
'--------------------------------------------
    t = Timer 'удалить строку
    
    Application.ScreenUpdating = False 'отключаем прорисовку экрана
    
    'Workbooks("Книга3").Activate
    ActiveWorkbook.Sheets("Справочник").Activate

проверьте, верно ли моё предположение.

[Oleg_123]

Сообщение от Serge_Bliznykov

в кнопке всё так.

не всё так в макросе БОЛЬНИЧКА03

предполагаю, что проблема в том, что с кнопки Вы вызываете макрос при активном листе "Справочник", а из списка макросов - откуда угодно. И это влияет на логику работы макроса.

попробуйте в начало макроса добавить активацию первого листа:

ActiveWorkbook.Sheets("Справочник").Activate

проверьте, верно ли моё предположение.

Активация листа "Справочник" ничего не меняет в макросе.
Вернее, недоформатирование (как и запуск с кнопки) появляется и со списка макросов, непостоянно, как-то через раз

[Serge_Bliznykov]

Сообщение от Oleg_123

Активация листа "Справочник" ничего не меняет в макросе

у меня результат работы макроса БОЛЬНИЧКА03 из списка и этого же макроса по кнопке становится одинаковый.
У Вас нет?

[Oleg_123]

Сообщение от Serge_Bliznykov

у меня результат работы макроса БОЛЬНИЧКА03 из списка и этого же макроса по кнопке становится одинаковый.
У Вас нет?

Ну правильно, одинаковый с выравниванием посередине всей таблички.
А я же добиваюсь разного выравнивания для разных фрагментов табличек:
(см скан в моем вопросе)
1) шапка - выравнивание вправо, без границ, курсив;
2) основная таличка - выравнивание посередине, с границами, обычный шрифт;
3) две последние строчки -
левая половина - выравнивание влево,
предпоследняя строчка "Голова..." - еще и книзу; правая половина (ФИО)- вправо.
ПОЧЕМУ С КНОПКИ МАКРОС ВЫПОЛНЯЕТСЯ НЕ ПОЛНОСТЬЮ?
А СО СПИСКА МАКРОСОВ - ПОЛНОСТЬЮ ВЫПОЛНЯЕТСЯ НЕ ВСЕГДА?

[Aleksandr H.]

Заменить в модуле2 Activesheet на Sheets("Списки по р-нам"). В чем трудности-то?

[Oleg_123]

Сообщение от Aleksandr H.

Заменить в модуле2 Activesheet на Sheets("Списки по р-нам"). В чем трудности-то?

Спасибо большое! Все заменил. Макрос работает. Трудностей нет. По работе макроса вопросов нет.
А те подмакросы обязательно должны быть в модуле2 (или в каком еще, но другом)?
Или возможно их размещение в одном модуле с макросом БОЛЬНИЧКА?
Что лучше?

[Aleksandr H.]

Работает? Не трожьте. �� а серйозно, то неважно в каком модуля книги они. Можно,даже, в персональную книгу или надстройку вынести, главное понимать что где и как использовать.