Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
 Аватар для Zizu-
-1 / 0 / 0
Регистрация: 06.04.2023
Сообщений: 56
Excel

Как сделать так ,чтобы этот МАКРОС работал на всех листах книги, а не только на активной

28.04.2023, 17:19. Показов 3626. Ответов 21

Студворк — интернет-сервис помощи студентам
Добрый вечер друзья. Пожалуйста, подскажите, как сделать, чтобы этот макрос работал на всех листах книги, а не только на активном?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MMM()
    With Selection
     .Cells.UnMerge
     .SpecialCells(xlCellTypeBlanks).Interior.Color = 16777215
     
    End With
    
End Sub
Sub Fill_Blanks()
    For Each cell In Range("A3:A80")
        If IsEmpty(cell) Then cell.Value = cell.Offset(-1, 0).Value
    Next cell
End Sub
Sub Soedinenie()
    Call MMM
    Call Fill_Blanks
 
End Sub
Можете дополнить МАКРОС ?) Спасибо
Вложения
Тип файла: xlsx Милка Тренировочный вариант 3.xlsx (27.3 Кб, 11 просмотров)
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.04.2023, 17:19
Ответы с готовыми решениями:

Как сделать, чтобы этот макрос работал по всей длине колонок?
Нужна не большая помощь. Как сделать, чтобы этот макрос работал по всей длине колонок где находится текст, не зависимо от количества строк...

Как сделать чтобы макрос работал только в диапазоне А1-А100?
Как сделать чтобы макрос работал только в диапазоне А1-А100??

Как сделать так, чтобы hover эффект работал только на наведенный объект?
Как сделать так, чтобы hover функция работала на блок, на который наведена мышка? У меня почему-то активируются сразу все блоки при...

21
3947 / 2340 / 790
Регистрация: 02.11.2012
Сообщений: 6,222
02.05.2023, 14:12
Студворк — интернет-сервис помощи студентам
Сашун, в соседней теме уже почти дошли до истины.
0
 Аватар для Zizu-
-1 / 0 / 0
Регистрация: 06.04.2023
Сообщений: 56
02.05.2023, 14:15  [ТС]
Vlad999, Осталось немного.Я знаю возможно я новичок, но всем благодарен кто неравнодушен.Я буду учиться стараться.Все с чего-то начинали
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.05.2023, 14:15

Скрипт работает только в IE, как сделать чтобы работал на всех браузерах?
вот собственно говоря сам скрипт это наброски для меня:) <html> <head> <script language="javascript"> function...

Нужно, чтобы этот макрос запускался с листа 1 и работал на листе 5
Sub Poisk_N() Dim wsh As Worksheet, i As Long, j As Long, k As Long With ThisWorkbook.Worksheets(5) k = .Cells(31, 2) ...

Как сделать так, чтобы код работал с матрицей 4*4?
Добрый день. У меня есть код, который с помощью метода Гаусса решает СЛАУ. Как его модифицировать таким образом, чтобы он работал с...

Исправить макрос так, чтобы он работал со скрытыми столбцами
Макрос не работает в скрытых столбцах. Что делать? Пример во вложении.

Как сделать так, чтобы батник работал с несколькими файлами?
Проблема в бат-файле. Как сделать так, чтобы батник работал на несколько файлов? Вот код: pushd c:\RKC\OUT\ C:\RKC\debase\xml fo %1...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
22
Ответ Создать тему
Новые блоги и статьи
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru