Avko |
11.03.2017 11: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 12: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 14: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):Option Explicit
Public FSO As New FileSystemObject
Function SlobodanProstor(ImeDiska As String)
Dim disk As Drive
Dim vel As Double
Set disk = FSO.GetDrive(ImeDiska)
vel = disk.FreeSpace
vel = vel / 1073741824 ' pretvaranje u GB
vel = WorksheetFunction.Round(vel, 2)
MsgBox "Slobodnog prostora na disku " & ImeDiska & " je " & vel & " GB"
SlobodanProstor = vel
End Function
|
zxz |
12.03.2017 14: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):Option Explicit
Public FSO As New FileSystemObject
Sub NapraviDir()
Dim Ime_Dir As String
Ime_Dir = InputBox("Putanja do direktorija :")
If Len(Ime_Dir) > 0 Then
If FSO.FolderExists(Ime_Dir) = True Then
MsgBox "Direktorij ve postoji!"
Else
FSO.CreateFolder (Ime_Dir)
MsgBox ("Direktorij je kreiran!")
End If
Else
MsgBox "Niste upisali putanju i ime direktorija"
End If
End Sub
|
Avko |
11.07.2017 09:13 |
Predmet:Re: trazi zadnju kolonu
| A | B | C | D |
---|
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):Function traziZadnjuKolonu(ImeSita As String)
Dim Zadnji As Long
Dim ws As Worksheet
Dim zadnjaCelija As Range
Set ws = Sheets(ImeSita)
Set zadnjaCelija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, MatchCase:=False)
Zadnji = zadnjaCelija.Column
traziZadnjuKolonu = Zadnji
End Function
pozivamo ju :
aktivniList = ActiveSheet.Name
zadnjaKolona = traziZadnjuKolonu(aktivniList) |
zxz |
01.02.2018 18: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):Function Saberi(Region As Range)
'********************************************
'Sabiranje celija sa provjerom dali je u
' celiji num,ericka vrijedost
'********************************************
Dim Celija As Range
Dim Suma As Double
Dim Vrijednost As Double
Dim Vrs As String
For Each Celija In Region.Cells
Vrs = Celija.Value
Vrijednost = Celija.Value
If Len(Vrs) = Len(Format$(Vrijednost)) Then
Suma = Suma + Vrijednost
Else
MsgBox "Vrijednost u polju" & vbCr _
& Celija.Address & vbCr _
& "Nije numericka"
Celija.Select
Exit Function
End If
Next Celija
Saberi = Suma
End Function
|