OT: Zaokrouhlovani do E24 v Excelu

[Petr Tosovsky]

Zkusil jsem to, ale nevim jak funkci donutit aby bylo zapsana natrvalo v
Excelu. Po jeho vypnuti a neulozeni otevreneho listu zmizela.
Jinak jsem to napsal takto :

Function roundE24(x)
    expon = Int(Log(x) / Log(10#))
    R = x / (10 ^ expon)
    Select Case R
        Case 1 To 1.05
            R = 1
        Case 1.05 To 1.15
            R = 1.1
        Case 1.15 To 1.25
            R = 1.2
        Case 1.25 To 1.4
            R = 1.3
        Case 1.4 To 1.55
            R = 1.5
        Case 1.55 To 1.7
            R = 1.6
        Case 1.7 To 1.9
            R = 1.8
        Case 1.9 To 2.1
            R = 2
        Case 2.1 To 2.3
            R = 2.2
        Case 2.3 To 2.55
            R = 2.4
        Case 2.55 To 2.85
            R = 2.7
        Case 2.85 To 3.15
            R = 3
        Case 3.15 To 3.45
            R = 3.3
        Case 3.45 To 3.75
            R = 3.6
        Case 3.75 To 4.1
            R = 3.9
        Case 4.1 To 4.5
            R = 4.3
        Case 4.5 To 4.9
            R = 4.7
        Case 4.9 To 5.35
            R = 5.1
        Case 5.35 To 5.9
            R = 5.6
        Case 5.9 To 6.5
            R = 6.2
        Case 6.5 To 7.15
            R = 6.8
        Case 7.15 To 7.85
            R = 7.5
        Case 7.85 To 8.65
            R = 8.2
        Case 8.65 To 10
            R = 9.1
        Case Else
            R = 0
    End Select

    roundE24 = R * (10 ^ expon)
End Function


Tosa


2006/8/22, Aleš Novák <ales.novak@t-email.cz>:
>
> PK> Vlastni funkce asi makrem.
> PK> Zrovna jsem psal nejakej solver, ale funguje to na spusteni z menu,
> nebo
> PK>   se da pridat tlacitko. Jestli jde pouzit makro jako funce to nevim,
> PK> nikdy me to nenapadlo.
>
> Jde to docela jednoduse:
> http://www.lasakovi.com/pavel/znalosti/programovaci-sw/excel-makra/
> Ted uz jen napsat tu funkci...
> Novalex
>
> PK> Petr Tosovsky napsal(a):
> >> Pekny vecer.
> >> Vedel by nekdo jak by se dalo jednoduse provest zaokrouhlovani
> >> vypocitanych hodnot R a C v Excelu k nejblizsi z bezne vyrabenych
> >> radach? Nejlepe stylem funkce napr, =roundE24(bunka). V listu je tech
> >> hodnot mnoho, takze nemuzu resit kazdou bunku nekde bokem v nekolika
> >> bunkach. Vzdycky mi stacily standardni funkce, takze nevim jak se tvori
> >> vlastni.
> >> Diky
> >>
> >> Tosa
>
>
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list@list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list
>
------------- další část ---------------
HTML příloha byla odstraněna...
URL: http://list.hw.cz/pipermail/hw-list/attachments/20060823/af2774c2/attachment.htm