Как да вмъкнете таблици за следващите x дни
Имате ли нужда от електронни таблици с имена с дата? Това е полезно например, ако записвате данни за деня и използвате отделен работен лист за всеки запис.
Ако искате да си спестите неприятностите да създадете сами работните листове и да добавите желаните стойности за дата, може да ви помогне макрос. Следният макрос определя редица работни листове, които следват текущата дата въз основа на текущата дата:
Sub FuegeTabellenEin ()
Затъмнете числото като цяло число
Dim i As Integer
Number = InputBox ("Колко листа да вмъкнете?")
За i = 1 Към числото
Работни листове. Добавяне след: = Работни листове (Работни листове. Брой)
Работни листове (Worksheets.Count) .Name = Дата + i
Следва i
End Sub
След стартиране на макроса Excel ви показва прозорец за въвеждане. В този прозорец можете да въведете броя работни листове, които искате да създадете. Следващата илюстрация показва как изглежда този прозорец:
Тук въведете желания брой работни листове. Започвайки с текущата дата, Excel след това създава желания брой електронни таблици и им предоставя текущата дата, датата на следващия ден и т.н. Следващата фигура показва как може да изглежда резултатът:
Съвет: Ако искате да знаете как да въвеждате и стартирате макроси в Excel, ще намерите кратко описание тук: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- в-excel-ein.html
