Predmet:Broj selektovani celija
Ova procedura braca broj selektovanih celija
PreuzmiIzvorni kôd (Visual Basic):Function Broj_Celija(Region As Range)
Dim tmp As String, str As String
Dim IntTmp As Integer
tmp = Region.Count
tmp = Right(tmp, 1)
IntTmp = Val(tmp)
If tmp > 1 And tmp < 5 Then
str = "
elije"
Else
str = "elija"
End If
MsgBox "Ukupno: " & Region.Count & " " & str
Broj_Celija = Region.Count
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.