zxz 06.03.2017 12:14
Predmet:Prazna polja u regiji

Vraca broj praznih polja u obiljezenom regionu.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Prazna(Regija As Range)
  2. Dim Br_polja As Integer
  3.      Br_polja = WorksheetFunction.CountBlank(Regija)
  4.      MsgBox "Prazniih polja u regiji " & Regija.Address & vbCr & Br_polja
  5.      Prazna = Br_polja
  6. End Functio

zxz 06.03.2017 01:50
Predmet:VBA Excel funkcije*

U ovoj temi bit ce predstavljene neke korisne vba funkcije a ticu se excela.

zxz 06.03.2017 01:55
Predmet:Zadnj prazan red u koloni

PreuzmiIzvorni kôd (Visual Basic):
  1. Function ZanjiRedKolone()
  2. 'Pronalazi zadnj prazan red u koloni A1
  3.    Dim ZadnjRed As Long
  4.     With ActiveSheet
  5.         ZadnjRed = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
  6.     End With
  7.     MsgBox ZadnjRed
  8. End Function

zxz 06.03.2017 02:15
Predmet:Zadnja kolona u redu

Pronalazi zadnju kolonu u zadatom redu
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ZadnjaPunaKolona()
  2. 'Pronalazi zadnju popunjenu kolonu u redu 1
  3.    Dim ZadnjaKolona As Long
  4.     With ActiveSheet
  5.         ZadnjaKolona = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
  6.     End With
  7.     MsgBox ZadnjaKolona
  8. End Function

zxz 07.03.2017 20:54
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

dex 07.03.2017 21:02
Predmet:Re: VBA Excel funkcije*

Svaka cast!
Vodis racuna i o gramatici Smiling

zxz 09.03.2017 00:08
Predmet:Selektovanje polja

Selektovanja polja pomocu VBA.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Selektovanje()
  2. Dim Regija As Range
  3.  
  4. Set Regija = Range("A1:B9")
  5. Regija.Select
  6. End Function

zxz 09.03.2017 10:03
Predmet:Verzija excela

Ova funkcija vraca verziju excela u kojem radite
PreuzmiIzvorni kôd (Visual Basic):
  1. Function verzija()
  2. Dim Ver As Integer
  3. Dim Str As String
  4. Ver = Val(Application.Version)
  5. Select Case Ver
  6. Case 8
  7. Str = "Excel 97"
  8. Case 9
  9. Str = "Excel 2000"
  10. Case 10
  11. Str = "Excel 2002"
  12. Case 11
  13. Str = "Excel 2003"
  14. Case 12
  15. Str = "Excel 2007"
  16. Case 14
  17. Str = "Excel 2010"
  18. Case 15
  19. Str = "Excel 2013"
  20. Case 16
  21. Str = "Excel 2016"
  22. Case Else
  23. Str = "Nepoznata verzija"
  24. End Select
  25.  
  26. MsgBox Str
  27. End Function

Avko 09.03.2017 15:13
Predmet:Razlika izmedu dva string vremena

Nije problem usporediti datum u VBA, no ponekad u nekim slucajevima imate samo vrijeme u celijama, a i to vrijeme je formatirano kao string.
funkcija koja usporeduje dva vremena koja su formatirana kao string.

PreuzmiIzvorni kôd (Visual Basic):
  1. sub test()
  2.   If vrijemeBroj("10:34:21") > vrijemeBroj("11:23:11") Then
  3.                  MsgBox "vece"
  4.   ElseIf vrijemeBroj("10:34:21")<vrijemeBroj("11:23:11") then
  5.                  MsgBox "manje"
  6.   else
  7.                  MsgBox "jednako"
  8.   End if
  9.  
  10. end sub
  11.  
  12. Function vrijemeBroj(vrijeme As String) As Long
  13.     vrijemeBroj = CLng(Replace(Format(vrijeme, "hhnnss"), ":", ""))
  14. End Function

dex 10.03.2017 16:33
Predmet:Presek

A jeste li znali za funkciju presek.
Obelezava se sa SPACE (razmak)

Ako u formula Bar ukucamo =D1:D8 B2:M2 ili =D:D 2:2

Dobicemo vrednost u iz celije D2

Moze da se koristi i u matricnim formulama, kao rezultat daje oblast preseka dve oblasti

Na prvi pogled nista narocito, ali funkcija svoju pravu snagu pokazuje u kombinaciji sa INDIRECT i imenovanim podrucjima. Nesto slicno kao MATCH - INDEX, samo mnoogooo jednostavnije

Videti primer. Obratite paznju na D18, zgodno za pretrazivanje velikih tabela.
Moze da se iskoristi i za prebacivanje unakrsnih tabela u bazu podataka, ali o tome u novoj temi
Prilozi:
Presek.zip (Velicina datoteke:2.36 KB)