Avko 11.03.2017 10:56
Predmet:Re: VBA Excel funkcije*

Ja dodao grad i neke vrijednosti za mjesece i onda u onoj koloni desno upisao
=INDIRECT(K28) INDIRECT(L28), ali mi dao rezultat: #REF!

dex 11.03.2017 11:06
Predmet:Re: VBA Excel funkcije*

Trebas ponovo redefinisati nazive oblasti.
Oznacis oblast, odes na formula ribon, kod defined names kliknes create from selection, cekiras top row i left column

zxz 12.03.2017 13:37
Predmet:Slobodan prostor na disku

Da bi procedura radila u referencama treba biti ukljuceno:
Microsoft Sripting Runtime
Procedura vraca veličinu slobodnog prostora na disku.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2.  
  3. Public FSO As New FileSystemObject
  4. Function SlobodanProstor(ImeDiska As String)
  5. Dim disk As Drive
  6. Dim vel As Double
  7. Set disk = FSO.GetDrive(ImeDiska)
  8. vel = disk.FreeSpace
  9. vel = vel / 1073741824 ' pretvaranje u GB
  10. vel = WorksheetFunction.Round(vel, 2)
  11. MsgBox "Slobodnog prostora na disku " & ImeDiska & " je " & vel & " GB"
  12. SlobodanProstor = vel
  13. End Function

zxz 12.03.2017 13:45
Predmet:Kreiranje direktorija

Da bi procedura radila u referencama treba biti ukljuceno:
Microsoft Sripting Runtime
Procedura kreira direktorij na zadatoj putanji

PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2.  
  3. Public FSO As New FileSystemObject
  4. Sub NapraviDir()
  5. Dim Ime_Dir As String
  6. Ime_Dir = InputBox("Putanja do direktorija :")
  7. If Len(Ime_Dir) > 0 Then
  8.   If FSO.FolderExists(Ime_Dir) = True Then
  9.     MsgBox "Direktorij ve postoji!"
  10.   Else
  11.     FSO.CreateFolder (Ime_Dir)
  12.     MsgBox ("Direktorij je kreiran!")
  13.   End If
  14. Else
  15.   MsgBox "Niste upisali putanju i ime direktorija"
  16. End If
  17. End Sub

Avko 11.07.2017 08:13
Predmet:Re: trazi zadnju kolonu

    A    B    CD
1    Jabuka    10     
2    Tresnja    5     
3    Visnja    6     
4    Sljiva    12    2 
5    Banana    10    3 
6    Kruska    4    8
7    Krastavac    5     

funkcija trazi zadnju kolonu
PreuzmiIzvorni kôd (Visual Basic):
  1. Function traziZadnjuKolonu(ImeSita As String)
  2.     Dim Zadnji As Long
  3.     Dim ws As Worksheet
  4.     Dim zadnjaCelija As Range
  5.    
  6.     Set ws = Sheets(ImeSita)
  7.    
  8.     Set zadnjaCelija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
  9.                                     LookAt:=xlPart, SearchOrder:=xlByColumns, _
  10.                                     SearchDirection:=xlPrevious, MatchCase:=False)
  11.    
  12.     Zadnji = zadnjaCelija.Column
  13.     traziZadnjuKolonu = Zadnji
  14. End Function

pozivamo ju :
aktivniList = ActiveSheet.Name
zadnjaKolona = traziZadnjuKolonu(aktivniList)

zxz 01.02.2018 17:58
Predmet:Sum Malo dugacije

Ova procedura sabira vrijednosti odabranih celija i ujedno provjerava dali je u svakoj celiji upisana numericka vrijednost.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Saberi(Region As Range)
  2. '********************************************
  3. 'Sabiranje celija sa provjerom dali je u
  4. ' celiji num,ericka vrijedost
  5. '********************************************
  6. Dim Celija As Range
  7. Dim Suma As Double
  8. Dim Vrijednost As Double
  9. Dim Vrs As String
  10.  
  11. For Each Celija In Region.Cells
  12. Vrs = Celija.Value
  13. Vrijednost = Celija.Value
  14. If Len(Vrs) = Len(Format$(Vrijednost)) Then
  15. Suma = Suma + Vrijednost
  16. Else
  17. MsgBox "Vrijednost u polju" & vbCr _
  18. & Celija.Address & vbCr _
  19. & "Nije numericka"
  20. Celija.Select
  21. Exit Function
  22. End If
  23. Next Celija
  24. Saberi = Suma
  25. End Function