Jak wstawić znacznik daty do komórki, jeśli zaznaczono pole wyboru w programie Excel?

Zwykle datownik wprowadza się za pomocą skrótów klawiszowych w programie Excel. Co powiesz na wstawienie daty do komórki za pomocą pola wyboru w programie Excel? Po zaznaczeniu tego pola wyboru znacznik czasu jest wstawiany automatycznie do określonej komórki. Ten artykuł pomoże Ci go rozwiązać.

Wstaw znacznik daty do komórki, jeśli zaznaczono pole wyboru z kodem VBA

Wstaw znacznik daty do komórki, jeśli zaznaczono pole wyboru z kodem VBA

W tej sekcji wprowadzimy skrypt VBA, który pomoże Ci automatycznie wstawić znacznik daty do komórki, jeśli zaznaczysz pole wyboru w programie Excel. Wykonaj następujące czynności.

1. Po wstawieniu pola wyboru naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.

Kod VBA: wstaw znacznik daty do komórki, jeśli zaznaczono pole wyboru

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. naciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

4. Kliknij prawym przyciskiem pole wyboru i wybierz Przypisz Micro z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

5. w Przypisz makro okno dialogowe, wybierz CheckBox_Date_Stamp Nazwa makra a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

Po zaznaczeniu pola wyboru znacznik daty zostanie automatycznie wstawiony do sąsiedniej komórki.

Powiązane artykuły:

• Jak zmienić określoną wartość lub kolor komórki, gdy pole wyboru jest zaznaczone w programie Excel?
• Jak wyróżnić komórkę lub wiersz za pomocą pola wyboru w programie Excel?
• Jak zaznaczyć pole wyboru na podstawie wartości komórki w programie Excel?
• Jak filtrować dane na podstawie pola wyboru w programie Excel?
• Jak ukryć pole wyboru, gdy wiersz jest ukryty w programie Excel?
• Jak utworzyć listę rozwijaną z wieloma polami wyboru w programie Excel?