Centar za edukaciju-BiH



#1 06.03.2017 01:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:VBA Excel funkcije*
U ovoj temi bit ce predstavljene neke korisne vba funkcije a ticu se excela.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2 06.03.2017 01:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 06.03.2017 02:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 06.03.2017 12:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 07.03.2017 20:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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.
↑  ↓

#6 07.03.2017 21:02
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: VBA Excel funkcije*
Svaka cast!
Vodis racuna i o gramatici Smiling
↑  ↓

#7 09.03.2017 00:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 09.03.2017 01:10 od strane Avko. ↑  ↓

#8 09.03.2017 10:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 09.03.2017 15:13
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,691


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

zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 09.03.2017 15:14 od strane Avko. ↑  ↓

#10 10.03.2017 16:33
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Ocjena: Ocjena:100 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:
Informacije o tipu datoteke za:zip  Presek.zip
Preuzimanja:405
Velicina datoteke:2.36 KB

↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 39 am.