Макрос вставки ДАТЫ в любую ячейку.

Поділитися
Вставка
  • Опубліковано 28 кві 2022
  • ► 15 бесплатных уроков! Регистрируйся - lk.1excel.ru/
    ► Telegram - t.me/myeasyexcel
    С помощью процедуры создаем в Excel простой макрос в одну строчку кода. Записываем в любую активную ячейку текущую дату и вставляем ее с помощью элементов управления Кнопка.
    Одна строка кода: ActiveCell = VBA.Date
    Easy Excel - ПОЛНОЕ и ПОДРОБНОЕ обучение программы Excel для новичков и практиков! Уроки по макросам и VBA
    Подписка на канал Easy Excel: / easyexcellesson

КОМЕНТАРІ • 29

  • @user-lf4zr5cl3d
    @user-lf4zr5cl3d 28 днів тому +1

    Здравствуйте! За музыку отдельное спасибо!

  • @ExcelStore
    @ExcelStore 2 роки тому

    Отличная исчерпывающая информация. Спасибо за видео.

  • @fiery-starper
    @fiery-starper 2 роки тому

    Только вчера думал надо поискать вариант вставки даты))))😁👍

  • @user-gc3lz8ep7t
    @user-gc3lz8ep7t 2 роки тому

    Прикольно!!!

  • @user-nn2yr1oy9s
    @user-nn2yr1oy9s 2 роки тому

    полезно!

  • @Dmitrii-Zhinzhilov
    @Dmitrii-Zhinzhilov 2 роки тому

    👍

  • @pitbull6446
    @pitbull6446 2 роки тому

    👍👑

  • @luxarmiger5729
    @luxarmiger5729 3 місяці тому

    Привет, а у меня еще почему-то время добавляет 0:00 А как сделать, чтобы актуальное время добавлялось?

  • @gaysyukav
    @gaysyukav 2 роки тому

    Здравствуйте Павел. Возник вопрос касаемо excel. Самостоятельно решения найти не смог. Можете помочь. Где можно задать вопрос?

    • @Badimalone
      @Badimalone 2 роки тому

      Пиши тут может кто поможет. Помощь каналу, ради комментов

  • @gaysyukav
    @gaysyukav 2 роки тому

    Возник вопрос. Может кто подскажет решение. Имеется 2016 excel. Периодически возникает потребность перерасчета прайс листов. Делаю это в ручную копируя некоторое количество строк из нужного столбца и вставляя в другой эксель документ, который автоматически прибавляет к вставленным суммам нужный процент. Далее суммы копируются в исходный документ и так пока не посчитаю всю таблицу. Вопрос в следующем. В 2016 екселе столкнулся со следующим. Нажимая стрелку назад, в таблице добавляющей процент к сумме, обнуляются не только значения в таблице подсчета но и в исходном документе. Как будто стрелка отмены действия отменяет последнее действие на всех открытых документах. Если кто знает подскажите как это исправить. Заранее благодарю.

    • @YakovZR
      @YakovZR 2 роки тому +1

      Измените ссылку на excel добавив /x в конец ссылки, в таком случае будет открываться каждый раз новая программа excel, это увеличит нагрузку на оперативную память пк, но для пк это будут отрытые разные программы, а не множество файлов в одной программе. Манипуляции проделанные в одном файле не отразятся на другом. А лучше переходите к надстройке Power Query

    • @gaysyukav
      @gaysyukav 2 роки тому

      @@YakovZR не понял что Вы имеете ввиду говоря изменить ссылку. Поменять расширение с .xls на .xlsx ? Если да, то изменение расширения проблему не решило.

  • @user-or5gu8mk3q
    @user-or5gu8mk3q 5 місяців тому

    А как сделать вместо даты текущее время ?

  • @user-mc9fu8si9s
    @user-mc9fu8si9s 2 роки тому +1

    Это же ctrl+ж

  • @KrgBastau
    @KrgBastau 5 місяців тому

    А как сделать так, чтобы дата вставлялась в определенную ячейку на определенной странице вне зависимости активна ячейка или нет?

    • @easyexcellesson
      @easyexcellesson  5 місяців тому +1

      необходимо указать интересующий лист, ячейку, например вот так - ThisWorkbook.Worksheets("Лист1").Range("A1")

    • @navigon46
      @navigon46 2 місяці тому

      Тоже искал такое решение. В жизни бы не догадался как это сделать. Спасибо автору!

  • @user-ss7eh7xf1b
    @user-ss7eh7xf1b 2 роки тому

    Чем не устроил ctrl+; ?

    • @Mirumir47
      @Mirumir47 2 місяці тому

      А кто ж знал, кроме вас?

  • @VeNTeL1977
    @VeNTeL1977 2 роки тому +3

    Открою страшную тайну. Только никому не говорите:
    Для вставки даты комбинация клавиш CTRL+;
    Для встаки времени: CTRL+: (т.е. СTRL+SHIFT+;)

    • @Badimalone
      @Badimalone 2 роки тому

      Причем скрипт будет работать и после окончания дня заходишь завтра и глядь - дата опять сегодня. Хотя нужна чтобы была вчерашняя. Так что да, каждому нужно своё решение

    • @VeNTeL1977
      @VeNTeL1977 2 роки тому

      @@Badimalone тогда пишем функцию. =сегодня()

    • @Badimalone
      @Badimalone 2 роки тому

      @@VeNTeL1977 если не забуду попробую но мне кажется завтра там, в этой ячейке дата изменится. Просто работаем в 2 смены. 1 смена это ночная с 19 до 7. Вторая с7 до 19. Дневной смене хорошо - контр+шифт +; . А у ночной смены должна дата быть завтрашняя. Приходится ручками.

    • @RomZhig
      @RomZhig 2 роки тому +1

      ​@@Badimalone на кнопку
      Sub СегодняЗавтра()
      Select Case Hour(Time)
      Case 19 To 23 'c 19 до 23:59:59 вставит дату следующего дня
      ActiveCell = VBA.Date + 1
      Case Else
      ActiveCell = VBA.Date
      End Select
      End Sub

    • @Badimalone
      @Badimalone 2 роки тому

      @@RomZhig Спасибо!