Tahák Excel VBA - Podmínky Cykly

Úvodem k taháku Excel VBA

Rozpracovaná verze podkladů pro vytvoření taháku pomahajicímu při práci s VBA Excel. Budu rád za tipy na vyleošení. Další díly taháku postupně zveřejním jen co je dostanu do mírně publikovatelné podoby:

Pdf ke stažení

Soubor Tahák Excel VBA - podmínky, cykly ke stažení zdarma.

Obrázek

Jak vypadá první verze taháku.

Surová data

Pokud si bude někdo chtít vytvořit vlastní:

Podmínky

If podmínka Then [příkazy] [ElseIf podmínka-n Then [příkazy pro ElseIf]] [Else [příkazy Else - ostatní]] End If

Operátory And Or

podmínka1 Or podmínka2 [... Or podmínkan] ) podmínka1 And podmínka2 If podmínka1 And podmínka2 Then Not (0 = 0)

For Next Cykly

For čítač = od To do [Step krok] [příkazy] [Exit For] [příkazy] Next čítač

Case

Select Case testexpression [Case podmínka-n [, podmínka n +1] [příkazy pro case n]] [Case podmínka-n To podmínka m] [příkazy]] [Case Is > podmínka n] [příkazy]] [Case Like > podmínka n] [příkazy]] [Case Else [příkazy Else - ostatní]] End Select

Do Until | While

Do [{While | Until} podmínka] [příkazy] [Exit Do] [příkazy] Loop

Praktické ukázky

Dim i As Integer i = 1 Do While i < 6 Cells(i, 1).Value = i i = i + 1 Loop

Do Until | While

Do [příkazy] [Exit Do] [příkazy] Loop [{While | Until} podmínka]

Praktické ukázky

k = 11 Do k = k - 1 Cells(k, 3).Value = k Loop While k <> 5

Switch

Switch ( expr1, value1, expr2, value2, ... expr_n, value_n )

Praktické ukázky

Dim Value As String Dim ID ID = 2 LValue = Switch (ID=1, "A", ID=2, "B")

Like

* jakakoliv délka, počet znaků ? právě jeden znak # číselný znak [ ] znak(y) mezi závorkami – až pro rozsah v závorkách ! nesmí obsahovat

Option Compare

Option Compare Binary 0 < 9 < A < B < C < D < Z < a < z < Á < á < Ě < ě < Ř Option Compare Text 0 < 9 < (A=a) < (Á = á) < (B=b) < (E=e) < (Ě=ě) < (Z=z)

Praktické ukázky

Dim val As String: val = "Kocky Pes Mys" If val Like "*Pes*" Then Debug.Print "Pes nenalezen (NOK)" End If Debug.Print "Pes nalezen. (OK)" End If

With … With

End With [objekt] [příkazy] End With

Praktické ukázky

With ActiveCell.Font .Bold = True .Color = vbBlue .Size = 22 .Italic = True End With

While … Wend

While podmínka [příkazy] [příkazy] Wend

Praktické ukázky

Dim Pocitadlo Pocitadlo = 0 While Pocitadlo < 40 Pocitadlo = Pocitadlo + 1 Wend MsgBox (Pocitadlo )

For Each

For Each element In group [příkazy] Exit For [příkazy] Next element

Praktické ukázky

Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws

Související odkazy

Další související díly taháku

• Formuláře ....

Závěrem

Prosím o tipy na vylepšení.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.