Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2012, 19:55   #21
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
А как "сшить фрагменты", чтобы по выполнению первого фрагмента, проставляющего значения в столбе L, выполнялся код для столба M и так далее?
Самый простой способ - поместить Ваши "фрагменты" в отдельные процедуры и вызывать из главного макроса примерно так:
Код:
Sub ВидГлавный()
    Call Фрагмент1
    Call Фрагмент2
    'и т.д.
End Sub
Sub Фрагмент1()
Dim Cell As Range: Application.ScreenUpdating = False
    For Each Cell In Sheets("ПОМІСЯЧНО").[L2:L10]
        Cell.FormulaR1C1 = "=VLOOKUP(RC[-4],11.2012!R2C8:R10C9,2,0)"
        If IsError(Cell) Then Cell = ""
    Next
End Sub
и т.д.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 17.11.2012, 21:31   #22
maseur
Пользователь
 
Регистрация: 11.11.2012
Сообщений: 11
По умолчанию

Понял.
А всё-таки, вопрос актуален.
Как "сшить фрагменты", чтобы по выполнению первого фрагмента, проставляющего значения в столбе L, выполнялся код для столба M и так далее?
maseur вне форума Ответить с цитированием
Старый 17.11.2012, 21:33   #23
maseur
Пользователь
 
Регистрация: 11.11.2012
Сообщений: 11
По умолчанию

Ой, простите, переход на следующую страницу не заметил.
Спасибо за код.
maseur вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Есть ли формула типа ВПР или ГПР работающая с несколькими условиями? Zhiltsov Microsoft Office Excel 11 20.06.2016 16:45
ВПР наоборот Python Microsoft Office Excel 6 11.04.2009 00:08
формула =ВПР(Наименование;ЦеныЗаМетр;2)*Длина Deok Microsoft Office Excel 7 20.12.2008 05:35
Нужен ВПР olimpus Microsoft Office Excel 6 13.11.2008 18:28
Функция ВПР Pilot Microsoft Office Excel 3 21.09.2008 07:26