Hoe een datumstempel in een cel invoegen als een selectievakje in Excel is aangevinkt?
Normaal gesproken voert u een datumstempel in met sneltoetsen in Excel. Hoe zit het met het invoegen van een datumstempel in een cel door een selectievakje in Excel? Wanneer u het selectievakje aanvinkt, wordt de tijdstempel automatisch in een opgegeven cel ingevoegd. Dit artikel helpt je om het op te lossen.
Voeg een datumstempel in een cel in als een selectievakje met VBA-code is aangevinkt
Voeg een datumstempel in een cel in als een selectievakje met VBA-code is aangevinkt
In dit gedeelte wordt een VBA-script ge茂ntroduceerd waarmee u automatisch een datumstempel in een cel kunt invoegen als een selectievakje in Excel is aangevinkt. Ga als volgt te werk.
1. Druk na het invoegen van een selectievakje op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: voeg een datumstempel in een cel in als een selectievakje is aangevinkt
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. druk op anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.
4. Klik met de rechtermuisknop op het selectievakje en selecteer Wijs Micro toe vanuit het rechtsklikmenu. Zie screenshot:
5. In de Wijs macro toe dialoogvenster, selecteer CheckBox_Datum_Stamp in de Macronaam vak en klik vervolgens op het OK knop. Zie screenshot:
Als u het selectievakje aanvinkt, wordt de datumstempel automatisch in de aangrenzende cel ingevoegd.
Gerelateerde artikelen:
- Hoe verander ik een gespecificeerde celwaarde of kleur wanneer het selectievakje is aangevinkt in Excel?
- Hoe cel of rij markeren met selectievakje in Excel?
- Hoe checkbox aangevinkt te maken op basis van celwaarde in Excel?
- Hoe gegevens filteren op basis van selectievakjes in Excel?
- Hoe het selectievakje te verbergen wanneer de rij is verborgen in Excel?
- Hoe maak je een vervolgkeuzelijst met meerdere selectievakjes in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!