Excel - autouzupełnianie daty

Question

Mam w pliku excel kolumnę z datą przedstawioną np. 2020-10-12.

Czy jest możliwość aby kolumna uzupełniała się sama dzisiejszą datą, przy rozpoczęciu wprowadzania nowego wiersza?

Imię | Nazwisko | Data | Miejscowość

Do tej pory wszystko uzupełniałem ręcznie. Gdy zacznę wpisywać imię, chciałbym aby data już sama  się uzupełniła.

Jak to zrobić?

Answer 1

Można makrem czyli VBA. Ja bym czekał na zmiane w kolumnie z imionami a następnie pobierał date z komputera przy użyciu VBA i wartość wrzucał automatycznie.
W jakich kolumnach są imoina a w jakich data?

Jeżeli chodzi o sam kod pobierania daty to:

Sub Makro1()
    myDate = Date
    ActiveCell.FormulaR1C1 = myDate
End Sub

 

Comments

Imiona kolumna B nazwana Imie

Daty kolumna E nazwana Data

---

Wejdź w wybrany arkusz. Wciśnij na klawiaturze alf + f11
W widocznym okienku wciśnij z lewej strony nazwe swojego arkusza.
W "luźnym okienku" tym na środku wklej kod

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B:B")) Is Nothing Then
ActiveSheet.Cells(Target.Row, 5).Select
ActiveCell.Value = Date
ActiveSheet.Cells(Target.Row, 2).Select
End If
End Sub

zamknij wciskając alt + f11
To tyle działa. Pamiętaj że plik w którym zapisujesz musi obsługiwać makra. Jeżeli ich nie obsługuje to po prostu plik → zapisz jako → [wskaż lokalizacje] → [i wybierz] Zapisz jako typ: Skoroszyt programu Excel z obsługą makr