Всем привет! Помогите объединить два макроса, ка ни пытался, не получается
[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
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 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
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 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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
