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
promenna = Application.InputBox("dotaz")
Zobrazení v MessageBoxu
MsgBox (promenna)
Hodnoty v buňkách
Získat hodnotu
x = Worksheets("List1").Range("A1").Value x = ActiveSheet.Range("A1").Value x = ActiveSheet.Cells(1,1).Value x = ActiveCell.Value
Uložit hodnotu
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
Worksheets("List1").Activate
Výběr buněk
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
Sub cyklus() For a = 1 To 10 obsah cyklu Next a End Sub
Do Until
Sub cyklus() Do Until a = 10 a = a + 1 obsah cyklu Loop End Sub
Podmínky
IF Else Sub podminka() number = Application.InputBox("zadej cislo") If number < 10 Then Vysledek = "mensi nez deset" ElseIf number = 10 Then výsledek = "presne deset" Else vysledek = "vetsi nez deset" End If MsgBox (vysledek) End Sub
Select Case
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
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ě.