Tahák VBA – kousky kódu pro začátečníky
S tímto tématem se setkáte na našich kurzech ExcelTown.
Aktuálně: kurzy můžete absolvovat jak online, tak prezenčně.
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 |
S tímto tématem se setkáte na našich kurzech ExcelTown.
Aktuálně: kurzy můžete absolvovat jak online, tak prezenčně.