<div>Zkusil jsem to, ale nevim jak funkci donutit aby bylo zapsana natrvalo v Excelu. Po jeho vypnuti a neulozeni otevreneho listu zmizela.</div>
<div>Jinak jsem to napsal takto :</div>
<div> </div>
<div>Function roundE24(x)<br> expon = Int(Log(x) / Log(10#))<br> R = x / (10 ^ expon)<br> Select Case R<br> Case 1 To 1.05<br> R = 1<br> Case 1.05 To 1.15<br> R = 1.1<br> Case
1.15 To 1.25<br> R = 1.2<br> Case 1.25 To 1.4<br> R = 1.3<br> Case 1.4 To 1.55<br> R = 1.5<br> Case 1.55 To 1.7<br> R = 1.6<br> Case 1.7 To 1.9<br> R =
1.8<br> Case 1.9 To 2.1<br> R = 2<br> Case 2.1 To 2.3<br> R = 2.2<br> Case 2.3 To 2.55<br> R = 2.4<br> Case 2.55 To 2.85<br> R = 2.7<br> Case
2.85 To 3.15<br> R = 3<br> Case 3.15 To 3.45<br> R = 3.3<br> Case 3.45 To 3.75<br> R = 3.6<br> Case 3.75 To 4.1<br> R = 3.9<br> Case 4.1 To 4.5<br> R =
4.3<br> Case 4.5 To 4.9<br> R = 4.7<br> Case 4.9 To 5.35<br> R = 5.1<br> Case 5.35 To 5.9<br> R = 5.6<br> Case 5.9 To 6.5<br> R = 6.2<br> Case
6.5 To 7.15<br> R = 6.8<br> Case 7.15 To 7.85<br> R = 7.5<br> Case 7.85 To 8.65<br> R = 8.2<br> Case 8.65 To 10<br> R = 9.1<br> Case Else<br> R = 0
<br> End Select<br> <br> roundE24 = R * (10 ^ expon)<br>End Function<br> </div>
<div> </div>
<div>Tosa<br><br> </div>
<div><span class="gmail_quote">2006/8/22, Aleš Novák <<a href="mailto:ales.novak@t-email.cz">ales.novak@t-email.cz</a>>:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">PK> Vlastni funkce asi makrem.<br>PK> Zrovna jsem psal nejakej solver, ale funguje to na spusteni z menu, nebo
<br>PK> se da pridat tlacitko. Jestli jde pouzit makro jako funce to nevim,<br>PK> nikdy me to nenapadlo.<br><br>Jde to docela jednoduse:<br><a href="http://www.lasakovi.com/pavel/znalosti/programovaci-sw/excel-makra/">
http://www.lasakovi.com/pavel/znalosti/programovaci-sw/excel-makra/</a><br>Ted uz jen napsat tu funkci...<br>Novalex<br><br>PK> Petr Tosovsky napsal(a):<br>>> Pekny vecer.<br>>> Vedel by nekdo jak by se dalo jednoduse provest zaokrouhlovani
<br>>> vypocitanych hodnot R a C v Excelu k nejblizsi z bezne vyrabenych<br>>> radach? Nejlepe stylem funkce napr, =roundE24(bunka). V listu je tech<br>>> hodnot mnoho, takze nemuzu resit kazdou bunku nekde bokem v nekolika
<br>>> bunkach. Vzdycky mi stacily standardni funkce, takze nevim jak se tvori<br>>> vlastni.<br>>> Diky<br>>><br>>> Tosa<br><br><br>_______________________________________________<br>HW-list mailing list - sponsored by
<a href="http://www.HW.cz">www.HW.cz</a><br><a href="mailto:Hw-list@list.hw.cz">Hw-list@list.hw.cz</a><br><a href="http://list.hw.cz/mailman/listinfo/hw-list">http://list.hw.cz/mailman/listinfo/hw-list</a><br></blockquote>
</div><br>