Prikazi cijelu temu 07.03.2017 21:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Broj selektovani celija
Ova procedura braca broj selektovanih celija
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Broj_Celija(Region As Range)
  2. Dim tmp As String, str As String
  3. Dim IntTmp As Integer
  4.  
  5. tmp = Region.Count
  6. tmp = Right(tmp, 1)
  7. IntTmp = Val(tmp)
  8.     If tmp > 1 And tmp < 5 Then
  9.     str = "
  10. elije"
  11.     Else
  12.     str = " elija"
  13.     End If
  14. MsgBox "Ukupno: " & Region.Count & " " & str
  15. Broj_Celija = Region.Count
  16. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.