• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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

Zaslat odpověď >

---

Lugr(8.1.2021 7:54)#049401

Využil jsem jednu z vašich přechozích příloh.

Příloha: 49401_test_promenna-nazev-listu.zip (26kB, staženo 17x)

citovat

elninoslov(8.1.2021 9:03)#049402

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.

Příloha: 49402_test_promenna-nazev-listu.zip (27kB, staženo 14x)

citovat

Lugr(8.1.2021 9:13)#049403

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

elninoslov(8.1.2021 9:24)#049404

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

Lugr(8.1.2021 9:30)#049405

zkusím, děkujicitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse