Salt la conținutul principal

Cum se inserează ștampila cu data într-o celulă dacă o casetă de selectare este bifată în Excel?

Autor: Siluvia Ultima modificare: 2024-11-05

În mod normal, introduceți o ștampilă de dată utilizând taste rapide în Excel. Ce zici de inserarea unei ștampile de dată într-o celulă folosind o casetă de selectare în Excel? Când bifați caseta, marca temporală este inserată automat într-o celulă specificată. Acest articol vă va ajuta să o rezolvați.

Introduceți ștampila cu data într-o celulă dacă o casetă de selectare este bifată cu cod VBA


Introduceți ștampila cu data într-o celulă dacă o casetă de selectare este bifată cu cod VBA

Această secțiune va introduce un script VBA pentru a vă ajuta să introduceți automat o ștampilă de dată într-o celulă dacă o casetă de selectare este bifată în Excel. Vă rugăm să faceți după cum urmează.

1. După introducerea unei casete de selectare, apăsați Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în fereastra Module.

Cod VBA: introduceți ștampila cu data într-o celulă dacă o casetă de selectare este bifată

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

3. presa Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

4. Faceți clic dreapta pe caseta de selectare și selectați Atribuiți Micro din meniul cu clic dreapta. Vedeți captura de ecran:

O captură de ecran care arată opțiunea Atribuire macro pentru o casetă de selectare

5. În Atribuiți macro fereastră de dialog, selectați CheckBox_Date_Stamp în Numele macro , apoi faceți clic pe OK buton. Vedeți captura de ecran:

O captură de ecran a casetei de dialog Atribuire macro în Excel cu macrocomandă CheckBox_Date_Stamp selectată

Când bifați caseta de selectare, ștampila de dată va fi introdusă automat în celula adiacentă.

O captură de ecran care arată ștampila dată introdusă într-o celulă adiacentă după bifarea casetei de selectare


Articole pe aceeași temă:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools Ajutor AI: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  invoca Kutools funcţii...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele
Utilizare Kutools în limba preferată – este compatibilă cu engleză, spaniolă, germană, franceză, chineză și peste 40 de alte limbi!

Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...


Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!