Fügen Sie bei der Erstellung das aktuelle Datum in die Excel-Vorlage ein

StackOverflow https://stackoverflow.com/questions/40637

  •  09-06-2019
  •  | 
  •  

Frage

Ich erstelle hier eine Excel-Vorlage (*.xlt) für einen Benutzer, und ich möchte unter anderem, dass das aktuelle Datum eingefügt wird, wenn ein neues Dokument erstellt wird (d. h. wenn er auf die Datei doppelklickt). Windows Explorer).Wie mache ich das?

Aktualisieren: Ich hätte hinzufügen sollen, dass ich lieber kein VBA (Makro) verwenden würde.Wenn das die einzige Option ist, dann soll es so sein, aber ich möchte meinen Benutzer wirklich nicht dazu zwingen, daran zu denken, auf die Schaltfläche „Makroinhalt zulassen“ zu klicken.

War es hilfreich?

Lösung

Sie könnten die Arbeitsblattfunktion =TODAY() verwenden, aber diese würde natürlich bei jeder Neuberechnung der Arbeitsmappe auf das aktuelle Datum aktualisiert.

Die einzige andere Methode, die mir einfällt, ist, wie 1729 sagte, das Workbook_Open-Ereignis zu codieren:

Private Sub Workbook_Open()
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = Date
End Sub

Sie können das Problem reduzieren, dass der Benutzer jedes Mal Makros akzeptieren muss, indem Sie die Vorlage digital signieren (in VBA IDE Tools | Digitale Signatur...) und ein digitales Zertifikat auswählen. Sie müssen jedoch ein Zertifikat von einer kommerziellen Zertifizierung erhalten Autorität (vgl http://msdn.microsoft.com/en-us/library/ms995347.aspx).Der Benutzer muss beim ersten Ausführen der Vorlage auswählen, dass diesem Zertifikat immer vertraut werden soll. Danach wird er nicht mehr dazu aufgefordert.

Andere Tipps

Sie können die Standardvorlage für Excel bearbeiten –

Es gibt eine Datei namens Book.xlt im XLSTART Verzeichnis, normalerweise unter C:\Program Files\Microsoft Office\Office\XLStart\

Sie sollten in der Lage sein, ein Makro namens Workbook_Open hinzuzufügen

Private Sub Workbook_Open()
    If ActiveWorkBook.Sheets(1).Range("A1") = "" Then
        ActiveWorkBook.Sheets(1).Range("A1") = Now
    End If
End Sub

Mein VBA ist etwas eingerostet, aber vielleicht funktioniert so etwas.

Um VBA zu vermeiden und wenn Sie glauben, dass Ihre Benutzer den Anweisungen folgen könnten, können Sie sie bitten, das Datum zu kopieren und dann Sonderwerte einzufügen, um das Datum so festzulegen, dass es sich in Zukunft nicht ändert.

Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow
scroll top