• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel Macro en vermenigvuldigen

Status
Niet open voor verdere reacties.
Ik weet niet of het zo voor alle getallen werkt natuurlijk, want je plaatste er maar twee.

Code:
Function CoppersToMoney(Coppers [COLOR=#0000ff]As Double[/COLOR], Optional teken, Optional total As Long) As String
' This function will format a number (value) into WoW Gold/Silver/Copper values
' The INPUT is any number (value) (...that isn't too big to kill Excel)
' The OUTPUT is a "(x)g (y)s (z)c" WoW currency formatted string


' Tell Excel to recalculate this value if/when other cells change
' by making sure it is defined as "volatile"
    Application.Volatile (True)


' Declare vars
' (Using Long to possibly avoid overflow if the string has a very large number to parse)
    Dim iCopper As [COLOR=#0000ff]Double[/COLOR]
    Dim iSilver As[COLOR=#0000ff] Double[/COLOR]
    Dim iGold As[COLOR=#0000ff] Double[/COLOR]


' Crunch numbers
If Not IsMissing(teken) Then
    iGold = Int(Evaluate(Join(Array([COLOR=#0000ff](Coppers * 10000)[/COLOR], teken, IIf(total = 0, 1, total)))) / 10000)
    iSilver = Int((Evaluate(Join(Array([COLOR=#0000ff](Coppers * 10000)[/COLOR], teken, IIf(total = 0, 1, total)))) - (iGold * 10000)) / 100)
    iCopper = Int((Evaluate(Join(Array([COLOR=#0000ff](Coppers * 10000)[/COLOR], teken, IIf(total = 0, 1, total)))) - (iGold * 10000) - (iSilver * 100)))
Else
    iGold = Int([COLOR=#0000ff]Coppers[/COLOR])
    iSilver = Int(([COLOR=#0000ff](Coppers * 10000)[/COLOR] - (iGold * 10000)) / 100)
    iCopper = Int(([COLOR=#0000ff](Coppers * 10000)[/COLOR] - (iGold * 10000) - (iSilver * 100)))
End If
' Return the full formatted string
CoppersToMoney = iGold & "g " & iSilver & "s " & iCopper & "c"


'Finish:
End Function
 
Laatst bewerkt:
Geweldig :D.

Werkt tot nu toe moet elk getal dat ik in vul.
Ben je eeuwig dankbaar dit scheelt mij een hele goeie week werk, toppie :)

Mag ik nog wel een brutale vraag stellen ?
Is het mogelijk als de waarde positief is dat het groen kleurt en bij negatief rood ?

63G 78S 13C

-63G 78S 13C

Ieder geval nogmaals bedankt :thumb:
 
in die functie gaat dat niet, dus kies je best standaardkleur groen en via voorwaardelijke opmaak maak je die rood als de 1e letter een "-" is
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan