Využil jsem jednu z vašich přechozích příloh.
Příloha: 
49401_test_promenna-nazev-listu.zip (26kB, staženo 18x)
citovat49401_test_promenna-nazev-listu.zip (26kB, staženo 18x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA vyber více listu
MS Excel
Téma: VBA vyber více listu 
Zaslal/a hans66 8.1.2021 7:00
AHoj, mam cyklus který mi podle hodnoty bunky doplní text do sloupců.Tento cyklus potřebuji pouzit na 12 listu.
Zkoušel jsem Sheets(Array("List2", "List3")).Select, ale to mi nefungovalo.
Jak nejlépe aplikovat cyklus na 12 listu (celkem listu 15)?
Sheets("Unor").Select
Sheets("Brezen").Select
For i = 5 To 29
For j = 4 To 34
Cells(3, j) = "Sobota" Or Cells(3, j) = "Neděle" Then
Cells(i, j) = "Volno"
End If
Next j
Next i
Děkuji 
Môžete vyskúšať aj rýchlejší variant, kód je ale ťažší:
Sub Makro()
Dim WS As Worksheet, i As Integer, D(), rng As Range
For Each WS In ThisWorkbook.Worksheets
Select Case WS.Name
Case "Leden", "Únor", "Březen", "Duben", "Květen", "Červen", "Červenec", "Srpen", "Září", "Říjen", "Listopad", "Prosinec":
D = WS.Range("D4:AH4").Value
For i = 1 To 31
If LenB(D(1, i)) <> 0 Then
If Weekday(D(1, i), vbMonday) > 5 Then If rng Is Nothing Then Set rng = WS.Range("C5:C29").Offset(0, i) Else Set rng = Union(rng, WS.Range("C5:C29").Offset(0, i))
End If
Next i
rng.Value = "Volno"
Set rng = Nothing
End Select
Next WS
End Sub
Zmenil som Vám aj vzorec v bunkách D3:AH3 na tento
=PROPER(TEXT(D4;"[$-405]dddd"))
=VELKÁ2(HODNOTA.NA.TEXT(D4;"[$-405]dddd"))
aby dával české názvy dní aj v nečeských Office.
Sub Makro()
Dim WS As Worksheet, i As Integer, D(), rng As Range
For Each WS In ThisWorkbook.Worksheets
Select Case WS.Name
Case "Leden", "Únor", "Březen", "Duben", "Květen", "Červen", "Červenec", "Srpen", "Září", "Říjen", "Listopad", "Prosinec":
D = WS.Range("D4:AH4").Value
For i = 1 To 31
If LenB(D(1, i)) <> 0 Then
If Weekday(D(1, i), vbMonday) > 5 Then If rng Is Nothing Then Set rng = WS.Range("C5:C29").Offset(0, i) Else Set rng = Union(rng, WS.Range("C5:C29").Offset(0, i))
End If
Next i
rng.Value = "Volno"
Set rng = Nothing
End Select
Next WS
End Sub
Zmenil som Vám aj vzorec v bunkách D3:AH3 na tento
=PROPER(TEXT(D4;"[$-405]dddd"))
=VELKÁ2(HODNOTA.NA.TEXT(D4;"[$-405]dddd"))
aby dával české názvy dní aj v nečeských Office.
Příloha: 49402_test_promenna-nazev-listu.zip (27kB, staženo 15x)
citovat49402_test_promenna-nazev-listu.zip (27kB, staženo 15x)elninoslov
když už jsi zmínil formát "[$-405]dddd", měl bych dotaz.
Ve firmě používám "[$-407]dddd", ale když soubor otevřu v německé verzi (2010), tak si s tím neví rady. Zkoušel jsem i [$-de-DE], ale je to stejný negativní výsledek. Nevíš čím by to mohlo být?
Jinak četl jsem v jiném příspěvku o tvém zdraví, tak přeji ať ti to všechno dobře dopadne.citovat
když už jsi zmínil formát "[$-405]dddd", měl bych dotaz.
Ve firmě používám "[$-407]dddd", ale když soubor otevřu v německé verzi (2010), tak si s tím neví rady. Zkoušel jsem i [$-de-DE], ale je to stejný negativní výsledek. Nevíš čím by to mohlo být?
Jinak četl jsem v jiném příspěvku o tvém zdraví, tak přeji ať ti to všechno dobře dopadne.citovat
Nemci majú Tag, teda skúste "tttt"
Vyskúšajte niečo takéto
=PROPER(IF(TEXT(D4;"[$-407]tttt")="tttt";TEXT(D4;"[$-407]dddd");TEXT(D4;"[$-407]tttt")))
=VELKÁ2(KDYŽ(HODNOTA.NA.TEXT(D4;"[$-407]tttt")="tttt";HODNOTA.NA.TEXT(D4;"[$-407]dddd");HODNOTA.NA.TEXT(D4;"[$-407]tttt")))
Teda skúsi najskôr nemecké označenie dňa, a ak dostane "tttt" tak to nemecký Office nieje, a skúsi označenie dňa "dddd" ktoré je v CZ, SK, EN a mnohých ďalších.citovat
Vyskúšajte niečo takéto
=PROPER(IF(TEXT(D4;"[$-407]tttt")="tttt";TEXT(D4;"[$-407]dddd");TEXT(D4;"[$-407]tttt")))
=VELKÁ2(KDYŽ(HODNOTA.NA.TEXT(D4;"[$-407]tttt")="tttt";HODNOTA.NA.TEXT(D4;"[$-407]dddd");HODNOTA.NA.TEXT(D4;"[$-407]tttt")))
Teda skúsi najskôr nemecké označenie dňa, a ak dostane "tttt" tak to nemecký Office nieje, a skúsi označenie dňa "dddd" ktoré je v CZ, SK, EN a mnohých ďalších.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články