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

Вход

Регистрация

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

 

= Мир MS Excel/не срабатывает код макроса - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » не срабатывает код макроса (Макросы/Sub)
не срабатывает код макроса
Hugo Дата: Среда, 27.06.2018, 12:55 | Сообщение № 21
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2846
Репутация: 639 ±
Замечаний: 0% ±

Так меняйте и вторую дату назад на сегодня+1, сами ведь нашли что оно там 2 раза.


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеТак меняйте и вторую дату назад на сегодня+1, сами ведь нашли что оно там 2 раза.

Автор - Hugo
Дата добавления - 27.06.2018 в 12:55
ASSEI Дата: Среда, 27.06.2018, 14:41 | Сообщение № 22
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация: 0 ±
Замечаний: 40% ±

MS Excel prof 2010 плюс
krosav4ig,


Сообщение отредактировал ASSEI - Среда, 27.06.2018, 14:42
 
Ответить
Сообщениеkrosav4ig,

Автор - ASSEI
Дата добавления - 27.06.2018 в 14:41
ASSEI Дата: Среда, 27.06.2018, 14:43 | Сообщение № 23
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация: 0 ±
Замечаний: 40% ±

MS Excel prof 2010 плюс
Hugo, спасибо я понял как hands
 
Ответить
СообщениеHugo, спасибо я понял как hands

Автор - ASSEI
Дата добавления - 27.06.2018 в 14:43
krosav4ig Дата: Среда, 27.06.2018, 19:26 | Сообщение № 24
Группа: Друзья
Ранг: Старожил
Сообщений: 1649
Репутация: 689 ±
Замечаний: 0% ±

Excel 2007,2010,2013
тока дополз до компа,
исчо одна поправка
[vba]
Код
Sub Макрос1()
    Dim dt As Date
    
    dt = Date + 1
    With Application
        .EnableEvents = 0: .ScreenUpdating = 0
        With ActiveSheet
            If .FilterMode Then .ShowAllData
            With .UsedRange
                With Intersect(.Cells, .Offset(2))
                    .Rows.Hidden = True
                    If .Find(dt, , xlFormulas) Is Nothing Then GoTo x
                    .Replace dt, "=zz1", 2, , , , False, False
                End With
             End With
        End With
        On Error Resume Next
        With [zz1].Dependents
            .Rows.Hidden = False
            .Formula = dt
        End With
x:      .EnableEvents = 1: .ScreenUpdating = 1
    End With
End Sub
[/vba]


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Среда, 27.06.2018, 19:27
 
Ответить
Сообщениетока дополз до компа,
исчо одна поправка
[vba]
Код
Sub Макрос1()
    Dim dt As Date
    
    dt = Date + 1
    With Application
        .EnableEvents = 0: .ScreenUpdating = 0
        With ActiveSheet
            If .FilterMode Then .ShowAllData
            With .UsedRange
                With Intersect(.Cells, .Offset(2))
                    .Rows.Hidden = True
                    If .Find(dt, , xlFormulas) Is Nothing Then GoTo x
                    .Replace dt, "=zz1", 2, , , , False, False
                End With
             End With
        End With
        On Error Resume Next
        With [zz1].Dependents
            .Rows.Hidden = False
            .Formula = dt
        End With
x:      .EnableEvents = 1: .ScreenUpdating = 1
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 27.06.2018 в 19:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » не срабатывает код макроса (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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