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
>
>
>
hmmmm takze takto:
toto je vykonny sub
'****************************
Sub Zaokruhli()
Dim myRoundNr As Integer
Dim oldFcion As String
myRoundNr = InputBox _
("Na kolik desetinných mís mají být fce zaokrouhleny?", "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) & ",0)"
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") 'Cells, Columns, Rows
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