MS Excel

Téma: Vytvoření makrem listy

Zaslal/a bach1 12.8.2009 11:16

Chtěl bych se zeptat , jak vytvořím po spuštění makra např. k listu1 dalších třeba 10 listů s názvy třeba data1-data10? a pokud bude tento sešit obsahovat např. listy data1-data8 smazat tyto nadefinované listy a pak následně znova vytvořit listy data1-data10.

Zaslat odpověď >

Jeza.m(12.8.2009 16:13)#000638

Třeba takhle :-) :

Public Sub listy()
On Error Resume Next

Application.DisplayAlerts = False

For i = 1 To 10
Sheets("data" & i).Delete
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
ActiveWorkbook.ActiveSheet.Name = "data" & i
Next

Application.DisplayAlerts = True
End Sub

M@citovat

Ales(13.8.2009 5:51)#000640

Toto by se mi taky hodilo , ale mě by to asi takto nechodilo mám list vyhdnoceni a potřebuji vytvořit např. 5 listů s názvy měst trebic,brno,ostrava,plzen,chomutov...jak to zmodofokovat? děkuji.citovat

Jeza.m(13.8.2009 11:46)#000641

S drobnou úpravou lze použít takto:

Public Sub listy()
Dim mesto() As String
On Error Resume Next

mesto = Split("trebic,brno,ostrava,plzen,chomutov", ",")

Application.DisplayAlerts = False

For i = 0 To UBound(mesto)
Sheets(mesto(i)).Delete
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
ActiveWorkbook.ActiveSheet.Name = mesto(i)
Next

Application.DisplayAlerts = True
End Sub

M@citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.