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