Прескочи на основното съдържание

Как да въвеждам автоматично дата при въвеждане на данни в колона?

Автор: Xiaoyang Последна промяна: 2016-07-27
doc автоматична дата при въвеждане на данни 1

Когато работите върху работен лист, искате текущата дата и час да се въвеждат автоматично в колона B при въвеждане на данни в колона A, както е показано на следната екранна снимка. В Excel, как бихте могли да опитате да разрешите тази задача с лесно и бързо решение?

Автоматично въвеждане на дата при въвеждане на данни в колона с VBA код


стрелка син десен балон Автоматично въвеждане на дата при въвеждане на данни в колона с VBA код

Може би няма директен начин да се справим с тази задача в Excel, но следният VBA код може да ви помогне, моля, направете следното:

1. Изберете раздела на листа, който искате да вмъкнете автоматично, след това щракнете с десния бутон върху него и изберете Преглед на кода от текстовото меню, след което в eh изскочи Microsoft Visual Basic за приложения прозорец, моля, копирайте и поставете следния код в модула:

VBA код: Автоматично въвеждане на дата при въвеждане на данни в друга колона:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

doc автоматична дата при въвеждане на данни 2

2. След това запазете и затворете този прозорец с код, върнете се към работния лист, сега, когато въведете данни в колона A, съответната клетка в колона B ще въведе текущата дата и час автоматично наведнъж.

Забележка: В горния код, A2: A15 са клетките, в които искате да въведете стойности.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola como fijo fecha cuando inserte un dato especifico en otro celda. por ejemplo cuando en la celda A Inserte Cerrado, en la celda B se fije la fecha actual.
This comment was minimized by the moderator on the site
comment étendre ce code VBA sur plusieurs colonnes en même temps ?

exemple conne A -> B et F->G et m ->N

MERCI
This comment was minimized by the moderator on the site
Hello, laurent

To apply this code to multiple ranges, please use the below code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("A2:A15")) Is Nothing) Or (Not Intersect(Target, Range("F2:F15")) Is Nothing) Or (Not Intersect(Target, Range("M2:M15")) Is Nothing) Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub


Tips: If there are more ranges you want to use, you just need to use Or to join this Not Intersect(Target, Range("A2:A15") script. Change the cell reference A2:A15 to other range reference.

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Merci pour ta réponse je l'essaye et je vous tiens au courant
This comment was minimized by the moderator on the site
Hi i was wondering if there was any way to make it input the date in the column before the data, like if i type in B the date appears in A, also more importantly, if there was any way to apply the code to multiple columns at once
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations