Táblázatok beszúrása a következő x napra
Szüksége van dátummal rendelkező táblázatokra? Ez akkor hasznos, ha például napi adatokat rögzít, és minden bejegyzéshez külön munkalapot használ.
Ha meg akarja menteni magát a munkalapok létrehozásának és a kívánt dátumértékek hozzáadásának problémájától, akkor egy makró segíthet. A következő makró számos munkalapot határoz meg, amelyek az aktuális dátumot követik az aktuális dátum alapján:
Sub FuegeTabellenEin ()
Halvány szám Egész számként
Dim i As Integer
Szám = InputBox ("Hány lapot kell beilleszteni?")
I = 1 számhoz
Munkalapok. Hozzáadás után: = Munkalapok (Worksheets.Count)
Munkalapok (Worksheets.Count) .Name = Dátum + i
Következő i
End Sub
A makró elindítása után az Excel egy beviteli ablakot jelenít meg. Ebben az ablakban megadhatja a létrehozni kívánt munkalapok számát. Az alábbi ábra bemutatja, hogyan néz ki ez az ablak:
Itt adja meg a kívánt munkalapok számát. Az aktuális dátumtól kezdve az Excel létrehozza a kívánt számú táblázatot, és megadja nekik az aktuális dátumot, a következő nap dátumát és így tovább. Az alábbi ábra azt mutatja, hogy milyen lehet az eredmény:
Tipp: Ha szeretné tudni, hogyan kell beírni és elindítani a makrókat az Excelben, itt talál egy rövid leírást: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html