Sub pozdrav()
MsgBox ("Ahoj")
End Sub


Sub pozdrav_jmeno()
jmeno = InputBox("Zadej jméno")
MsgBox ("Ahoj, tvoje jmeno je:" & jmeno)
End Sub


Sub kladnazaporna()
Dim cislo As Integer
pk = 0 'vynuluju pocet kladnych
pz = 0 'vynuluju pocet zapotnych
'nactu prvni cislo
cislo = InputBox("Zadej cislo (konec=0):")
Do While cislo <> 0 'jsou-li cisla ruzna od 0 opakuji telo cyklu
    If cislo > 0 Then
        pk = pk + 1 'je-li cislo vetsi nez nula zvysim pocet kladnych
        Else
        pz = pz + 1 'jinak zvysim pocet zapornych
    End If
    'nacti dalsi cislo
    cislo = InputBox("Zadej dalsi cislo (konec=0):")
Loop
MsgBox ("Kladny bylo " & pk & " a zapornych " & pz & ".")
End Sub

Sub prum()
Dim cislo As Integer
s = 0
p = 0
'nactu prvni cislo
cislo = InputBox("Zadej cislo (konec=0):")
Do While cislo <> 0 'jsou-li cisla ruzna od 0 opakuji telo cyklu
   s = s + cislo
   p = p + 1
   'nacti dalsi cislo
   cislo = InputBox("Zadej dalsi cislo (konec=0):")
Loop
MsgBox ("Prumer je: " & s / p & ".")
End Sub











Sub vyber()
' promennou s nastavim jako vybranou oblast
Set s = Selection
'chci zacit pracovat s prvni bunkou
p = 1
'dokud je obsah aktualni bunky neprazdny
Do While s(p) <> ""
soucet = soucet + s(p)
p = p + 1 ' posun se do dalsi bunky
Loop
MsgBox (soucet)
End Sub
Sub nejmensi()
Set s = Selection
'nastav minimum na prvni cislo
Min = s(1)
'chci zacit pracovat s prvni bunkou
p = 1
'dokud je obsah aktualni bunky neprazdny
Do While s(p) <> ""
'je-li obsah bunky mensi nez predchozi min
If s(p) < Min Then
      Min = s(p) ' uloz do min novou hodnotu
End If
p = p + 1 ' posun se do dalsi bunky
Loop

End Sub