Function Raspodjela(Optional BrojOsoba As Integer = 5)
Dim Kovanice As Object
Dim Vrijednosti As Object
Dim UkupnaVrijednost As Currency
Dim Apoen As Variant
Dim Podjela As Currency
Dim I, N As Integer
Dim KovanicaVrijednost As Currency
Dim BrojKovanica As Integer
Dim KovanicaRaspodjela As Integer
Dim OsobaIndex As Integer
Dim PodjelaPara() As Integer
Set Kovanice = CreateObject("Scripting.Dictionary")
Kovanice.Add "50c", 24 ' 50 centi
Kovanice.Add "1e", 28 ' 1 euro
Kovanice.Add "2e", 29 ' 2 eura
Kovanice.Add "5e", 4 ' 5 eura
Set Vrijednosti = CreateObject("Scripting.Dictionary")
Vrijednosti.Add "50c", 0.5
Vrijednosti.Add "1e", 1
Vrijednosti.Add "2e", 2
Vrijednosti.Add "5e", 5
ReDim PodjelaPara(1 To BrojOsoba, 1 To 4)
UkupnaVrijednost = 0
For Each Apoen In Kovanice.Keys
UkupnaVrijednost = UkupnaVrijednost + (Kovanice(Apoen) * Vrijednosti(Apoen))
Next Apoen
Podjela = UkupnaVrijednost / BrojOsoba
OsobaIndex = 1
For I = 1 To BrojOsoba
IznosPreostali = Podjela
For Each Apoen In Array("5e", "2e", "1e", "50c")
KovanicaVrijednost = Vrijednosti(Apoen)
BrojKovanica = Kovanice(Apoen)
KovanicaRaspodjela = 0
Do While IznosPreostali >= KovanicaVrijednost And BrojKovanica > 0
If I = BrojOsoba Then
KovanicaRaspodjela = BrojKovanica
BrojKovanica = 0
IznosPreostali = IznosPreostali - KovanicaVrijednost
Else
KovanicaRaspodjela = KovanicaRaspodjela + 1
IznosPreostali = IznosPreostali - KovanicaVrijednost
BrojKovanica = BrojKovanica - 1
End If
Loop
PodjelaPara(OsobaIndex, Application.Match(Apoen, Array("50c", "1e", "2e", "5e"), 0)) = _
PodjelaPara(OsobaIndex, Application.Match(Apoen, Array("50c", "1e", "2e", "5e"), 0)) + KovanicaRaspodjela
Kovanice(Apoen) = BrojKovanica
Next Apoen
OsobaIndex = OsobaIndex + 1
Next I
' Ispis rezultata u Excel
Dim ImesSita As String
ImesSita = "Raspodjela kovanica"
Obrisi (ImesSita)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add
ws.Name = ImesSita
' Ispis naziva stupaca (kovanice)
ws.Cells(1, 1).Value = "Osoba"
ws.Cells(1, 2).Value = "50c"
ws.Cells(1, 3).Value = "1e"
ws.Cells(1, 4).Value = "2e"
ws.Cells(1, 5).Value = "5e"
' Ispis raspodjele po osobama
For I = 1 To BrojOsoba
ws.Cells(I + 1, 1).Value = "Osoba " & I
For N = 1 To 4
ws.Cells(I + 1, N + 1).Value = PodjelaPara(I, N)
Next N
Next I
For I = 1 To BrojOsoba
Dim suma As Currency
suma = PodjelaPara(I, 1) * 0.5 + PodjelaPara(I, 2) * 1 + PodjelaPara(I, 3) * 2 + PodjelaPara(I, 4) * 5
ws.Cells(I + 1, 6).Value = "' " & suma & " " & Chr(128)
Next I
Dim BrojApoena As Integer
For I = 2 To 5
BrojApoena = 0
For N = 2 To BrojOsoba + 1
BrojApoena = BrojApoena + ws.Cells(N, I).Value
Next N
ws.Cells(BrojOsoba + 2, I).Value = BrojApoena
Next I
MsgBox "Gotovo!", vbInformation
End Function
Function Obrisi(Naziv As String)
Dim ws As Worksheet
On Error Resume Next
Set ws = ThisWorkbook.Sheets(Naziv)
On Error GoTo 0
If Not ws Is Nothing Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
End Function
Portal
iCentar
Statistike
Procitajte pravila
Donacije
Pretrazi
Tim
Registriraj se
Vazni alati
Razno. veze Aktivne teme ... Vijesti (RSS, ...)
Prijavi se
Verzija za stampu
Racunari i oprema
Softver i op. sistemi
Hardver i mreze
Programiranje i baze
Nauka
Tehnika
Dom i porodica
Biznis
Sport i rekreacija
Zabava
Zanimljivosti