Cum să inserați ștampila de dată într-o celulă dacă bifați o casetă de selectare în Excel?
În mod normal, introduceți o ștampilă de dată utilizând tastele rapide în Excel. Ce zici de inserarea ștampilei de dată într-o celulă printr-o casetă de selectare în Excel? Când bifați caseta de selectare, ștampila de timp este introdusă automat într-o celulă specificată. Acest articol vă va ajuta să îl rezolvați.
Introduceți ștampila de dată într-o celulă dacă bifați o casetă de selectare cu cod VBA
Introduceți ștampila de dată într-o celulă dacă bifați o casetă de selectare cu cod VBA
Această secțiune va introduce un script VBA pentru a vă ajuta să inserați automat o ștampilă de dată într-o celulă dacă bifați o casetă de selectare în Excel. Vă rugăm să faceți următoarele.
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 de dată într-o celulă dacă bifați o casetă de selectare
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:
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:
Când bifați caseta de selectare, ștampila de dată va fi introdusă automat în celula adiacentă.
Articole pe aceeași temă:
- Cum se modifică o valoare sau o culoare specificată a celulei când este bifată caseta de selectare în Excel?
- Cum să evidențiați celula sau rândul cu caseta de selectare în Excel?
- Cum se face căsuța bifată pe baza valorii celulei din Excel?
- Cum se filtrează datele pe baza casetei de selectare din Excel?
- Cum se ascunde caseta de selectare atunci când rândul este ascuns în Excel?
- Cum se creează o listă derulantă cu mai multe casete de selectare în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru 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...
Fila Office aduce interfața cu file în 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!