RE: zaokroulovani EXCEL

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 20. 02. 2001, 12:49 CET


Zdar a silu Tomas, dna 20.02.2001 si napisal(a):

> Zdar,
> nas ekonom me pozadal o vyreseni tohoto problemu. Sam nevim tak se ptam
> odborniku
> 
> Ma celkem rozsahlou tabulhu s ruznymi vypocty. V bunkach je nastaven
> format
> aby zobrazoval pouze cela cisla (ne zaokrouhlovani). Ve vypoctech vsak
> timto
> vznikaji rozdily, prave proto ze bunky nema zaokrouhlene. Ted by je tedy
> potreboval zaokrouhlit, ale nechce do kazdeho vzorecku davat prikaz pro
> zaookrouhleni (je jich moc). Vzorce nepocitaji stale to stejne, takze je
> nelze kopirovat. Pokud nekdo vite jak na to, poradte.
> Dik Tomas

oprava!
bol som trochu moc rychly :-((((
hmmmm takze takto:
toto je vykonny sub
'****************************

Sub Zaokruhli()
Dim myRoundNr As String
Dim oldFcion As String
myRoundNr = InputBox _
("Na kolik desetinných míst zaokrouhlit?" _
, "Zaokrouhlit", "0")
If myRoundNr = "" Then Exit Sub
For Each myCell In Selection
If Left(myCell.Formula, 1) = "=" Then
oldFcion = "=ROUND(" & Right(myCell.Formula, _
Len(myCell.Formula) - 1) & "," & myRoundNr & ")"
myCell.Formula = oldFcion
End If
Next
End Sub
'***************************
a toto je taka drobna pomocka spustit a potom 
ak klikne pravym tlacitkom po vybrati oblasti na zaokruhlovanie
bude to mat v menu:
'**************************
Sub mymenu()
Dim cb As CommandBar, item As Object
Set cb = Application.CommandBars("Cell")
Set item = cb.Controls.Add _
(Type:=msoControlButton, Temporary:=True)
With item
.BeginGroup = True
.FaceId = 103
.Caption = "&Zaokrouhlit"
.OnAction = "Zaokruhli"
End With
End Sub
'*************************


-- 
s pozdravom
AleXXX



This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 05:36 CEST