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

Вход

Регистрация

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

 

= Мир MS Excel/Объединить два макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединить два макроса (Макросы/Sub)
Объединить два макроса
adamm1603 Дата: Суббота, 08.04.2017, 14:25 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем привет! Помогите объединить два макроса, ка ни пытался, не получается

[vba]
Код
Sub Программа1 ()
Dim i As Variant
Application.Calculation = xlCalculationManual
For Each i In Range("AE3:AE10")
If IsDate(i) Then '+++
    i.Offset(0, 1).Value = i
Else '+++
    i.Offset(0, 1).Value = "ïðîïàë" '+++
End If '+++
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]

[vba]
Код
Sub Программа2()
Dim i As Variant
Application.Calculation = xlCalculationManual
For Each i In Range("AF3:AF10")
If IsDate(i) Then '+++
    i.Offset(0, 1).Value = i + 30
Else '+++
    i.Offset(0, 1).Value = "ïðîïàë" '+++
End If '+++
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]
 
Ответить
СообщениеВсем привет! Помогите объединить два макроса, ка ни пытался, не получается

[vba]
Код
Sub Программа1 ()
Dim i As Variant
Application.Calculation = xlCalculationManual
For Each i In Range("AE3:AE10")
If IsDate(i) Then '+++
    i.Offset(0, 1).Value = i
Else '+++
    i.Offset(0, 1).Value = "ïðîïàë" '+++
End If '+++
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]

[vba]
Код
Sub Программа2()
Dim i As Variant
Application.Calculation = xlCalculationManual
For Each i In Range("AF3:AF10")
If IsDate(i) Then '+++
    i.Offset(0, 1).Value = i + 30
Else '+++
    i.Offset(0, 1).Value = "ïðîïàë" '+++
End If '+++
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]
Автор - adamm1603
Дата добавления - 08.04.2017 в 14:25
al-Ex Дата: Суббота, 08.04.2017, 15:05 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
Цитата adamm1603, 08.04.2017 в 14:25, в сообщении № 1 ()
объединить два макроса, ка ни пытался, не получается
а что Вы хотели получить, как результат своих попыток?
 
Ответить
Сообщение
Цитата adamm1603, 08.04.2017 в 14:25, в сообщении № 1 ()
объединить два макроса, ка ни пытался, не получается
а что Вы хотели получить, как результат своих попыток?
Автор - al-Ex
Дата добавления - 08.04.2017 в 15:05
Wasilich Дата: Суббота, 08.04.2017, 15:16 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата adamm1603, 08.04.2017 в 14:25, в сообщении № 1 ()
объединить два макроса
Не зная задачи, так
 
Ответить
Сообщение
Цитата adamm1603, 08.04.2017 в 14:25, в сообщении № 1 ()
объединить два макроса
Не зная задачи, так
Автор - Wasilich
Дата добавления - 08.04.2017 в 15:16
adamm1603 Дата: Суббота, 08.04.2017, 15:47 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Wasilich, спасибо работает!
 
Ответить
СообщениеWasilich, спасибо работает!
Автор - adamm1603
Дата добавления - 08.04.2017 в 15:47
Hugo Дата: Суббота, 08.04.2017, 23:14 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3253
Репутация: 707 ±
Замечаний: 0% ±

2019
Так не пытались? Стандартно...[vba]
Код
Sub Программа3()
Программа1
Программа2
end sub
[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеТак не пытались? Стандартно...[vba]
Код
Sub Программа3()
Программа1
Программа2
end sub
[/vba]
Автор - Hugo
Дата добавления - 08.04.2017 в 23:14
adamm1603 Дата: Воскресенье, 09.04.2017, 07:03 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 144
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Hugo, не сообразил) спасибо
 
Ответить
СообщениеHugo, не сообразил) спасибо
Автор - adamm1603
Дата добавления - 09.04.2017 в 07:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединить два макроса (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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