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