< návrat zpět

MS Excel


Téma: Vytvoření makrem listy rss

Zaslal/a 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.

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#000638
Jeza.m
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
#000640
avatar
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
#000641
Jeza.m
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)
avatar\n

Menu

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.

On-line nástroje