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

Î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:

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?