Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Выполнение макроса если прошло какое-то время
 
Спасибо, опишусь еще.
Выполнение макроса если прошло какое-то время
 
Можно еще?
Хочу сделать чтобы  человек нажимал кнопку,выполнялся какой-то макрос,в переменую сохранялось тек.время с датой
Код
tekushee_vremya = Now()

затем при запуске второго макроса проверялось,прошло ли 30 секунд . если прошло то выполнится,нет то что-то другое произойет.
Код
Sub proverka_plusov()
    tekushee_vremya = Now()
    vremya_c_30_sek = tekushee_vremya + Second(30)
  If Now() < tekushee_vremya Then
  'Что-то выполняется
  MsgBox "если истина"
  Else
  ' Что-то не выплняется
  MsgBox "если не истин"
  End If
End Sub

Но всегда показывает что не прошло
Изменено: vas_75353 - 24.07.2019 22:50:15
Выполнение при вводе чего либо в ячейку
 
разобрался неспеша сам методами тыков:
Это прописал в книге:
Код
Private Sub Workbook_sheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Not Intersect(Target, Range("B10:B20")) Is Nothing Then '
        ' 
        test_macros
    End If
End Sub

     test_macros -это макрос который апустится в любом модуле.
Спасибо за помощь! :-)
Изменено: vas_75353 - 24.07.2019 22:59:22
Выполнение при вводе чего либо в ячейку
 
Dyroff,
Хорошо. Когда ввожу что-либо в диапазон-выводится сообщение заданyое во 2 макросе:  msgbox "test"

А при попытке очистить любую ячейку из диапазона клавишей Del  -снова выодится сообщение. но после нажания ОК в сообщении, оно непропадает а появляется снова.  Макрос второй выполняется повторно и так до безконечности
Выполнение при вводе чего либо в ячейку
 
Я так немогу стереть с чейки-макрос выводит сообщение которое я задал о о шибке и так погругу. приходтся убивать процесс диспетчером
Выполнение при вводе чего либо в ячейку
 
Здравствуйте. Есть такой код который я нашел где-то и пользовался им.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then ' реакция на изменение в ячейке с координатами A1 _
                                                  если нужна другая ячейка, поменяйте координату, _
                                                  т.е. вместо "$A$1" впишите любую другую (знак "$" _
                                                  обязателен!
        'запускаем наш макрос
        myMacro
    End If
End Sub
Но он прописывается в листе, и это не удобно так как в книге 20+листов.
Как поправить его, чтобы прописать не в листе а  в книге, так как листов много и задать в макросе не 1 ячейку, а несколько. например D5,D6, D7, D8,D9, D10 .?
Сам пробовал ,но нечего не выходит.((((
Пробовал так,это позволило добавить ячейки, но опять же это прописано в коде листа а не книги.
Скрытый текст
Изменено: vas_75353 - 24.07.2019 17:30:03
Выбрать из массива-1-3 ссылки
 
Отлично! Благодарю!
Выбрать из массива-1-3 ссылки
 
Цитата
casag написал:
Пробуйте.
Попробовал. Выбирает те ячейки где уже даты есть,причем все три одинаковых.
Выбрать из массива-1-3 ссылки
 
Забыл добавить в файл-пример. перезалил файл.
желательно как-можно проще код,чтобы понятно было потом мне
Выбрать из массива-1-3 ссылки
 
Здравствуйте. Помогите сделать макрос.
Макрос 1 или 2 должен по клику кнопки на из массива ссылок на листе 1 выбирать 1 или 3 случайных ссыдки у которыв нет даты
макрос 3 должен этим ссылкам проставить дату на лисите 1, напротив правее ссылок, дата указана на листе2
Изменено: vas_75353 - 03.07.2019 18:33:48
Страницы: 1
Наверх