Geben Sie wie automatisch Wochentag VBA in Microsoft Excel 2010
In diesem Artikel erfahren Sie, wie Sie Wochentage, d. H. Montag bis Freitag, automatisch mit VBA-Code in einer beliebigen Spalte eingeben.
Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code Visual Basic
aus Klicken Sie auf Einfügen und dann auf Modul
Dadurch wird ein neues Modul erstellt.
Geben Sie den folgenden Code in das Modul
ein === Sub WeekendOut ()
Dim Start As Date, Off As Date
Dim y%, i #
Start = InputBox („Startdatum:“)
Off = InputBox („End Date:“)
===
Für i = Start To Off
y = y + 1
Wenn Wochentag (i, 2) <6, dann
Zellen (y, 2) = Format (i, „mm-tt-jj“)
Zellen (y, 1) = Format (i, „dddd“)
ElseIf Weekday (i, 2) = 6 Dann
Sonst
y = y – 1
End If
Weiter i
End Sub
===
Drücken Sie die Tastenkombination ALT + F8, um das Makrofenster zu öffnen, und wählen Sie dann das Makro aus.
Alternativ können Sie F5 drücken, um den Code im VBA-Bildschirm auszuführen.
Nach dem Ausführen des Makros erhalten wir das folgende Eingabefeld. Wir müssen das Startdatum im Format MM / TT / JJJJ
eingeben Dann fragt der Code nach der Eingabe des Enddatums
Daher erhalten wir den Wochentag in Spalte A und in der nächsten Zelle wird das Datum gespeichert.
Auf diese Weise können Sie die Wochentage problemlos eingeben, ohne manuelle Schmerzen zu haben.