Syntaxe VBA – kousky kódu pro začátečníky
Protože ve VBA neprogramuji moc často, eviduji si pro sebe přehled příkazů, které používám nejčastěji. Obvykle je používám ve chvíli, kdy chci znát přesnou syntaxi.
A když už si to píšu pro sebe, dávám to rovnou i sem - třeba se někomu budou tyto kousky kódu hodit.
InputBox - MsgBox
Načtení proměnné z InputBoxu
|
1 |
promenna = Application.InputBox("dotaz") |
Zobrazení v MessageBoxu
|
1 |
MsgBox (promenna) |
Hodnoty v buňkách
Získat hodnotu
|
1 2 3 4 |
x = Worksheets("List1").Range("A1").Value x = ActiveSheet.Range("A1").Value x = ActiveSheet.Cells(1,1).Value x = ActiveCell.Value |
Uložit hodnotu
|
1 2 3 4 |
Worksheets("List1").Range("A1").Value = x ActiveSheet.Range("A1").Value = x ActiveSheet.Cells(1,1).Value = x ActiveCell.Value = x |
Výběr
Výběr listu
|
1 |
Worksheets("List1").Activate |
Výběr buněk
|
1 2 3 4 |
ActiveSheet.Cells(1,14).Select ActiveSheet.Range(Cells(1,13), Cells(2,2)).Select ActiveSheet.Range("A1").Select ActiveSheet.Range("A1:B2").Select |
Cykly
For Next
|
1 2 3 4 5 |
Sub cyklus() For a = 1 To 10 obsah cyklu Next a End Sub |
Do Until
|
1 2 3 4 5 6 |
Sub cyklus() Do Until a = 10 a = a + 1 obsah cyklu Loop End Sub |
Podmínky
|
1 2 3 4 5 6 7 8 9 10 11 12 |
IF Else Sub podminka() number = Application.InputBox("zadej cislo") If number < 10 Then Vysledek = "mensi nez deset" ElseIf number = 10 Then sledek = "presne deset" Else vysledek = "vetsi nez deset" End If MsgBox (vysledek) End Sub |
Select Case
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub selectcase() vek = InputBox("zadejte věk") Select Case vek Case 40 MsgBox ("je vám 40") Case 50 MsgBox ("je vám 50") Case Else MsgBox ("není vám 40 ani 50") End Select End Sub |
With
|
1 2 3 4 |
With Worksheets("List1").Range("A1:b2") .Value = 1 .Font.Size = 20 End With |