Tahák 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

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