Dobrý den,
42891_procenta.zip
K tomuto je potřeba nastudovat si práci s kolekcemi.
P.
Př.:
Sub Prevod_na_procenta()
Dim bunka As Range
Dim oblast As Range
Set oblast = Selection
For Each bunka In oblast
bunka.Value = bunka.Value / 100
bunka.NumberFormat = "0.0 %"
Next bunka
End Subcitovat
P.
Př.:
Sub Prevod_na_procenta()
Dim bunka As Range
Dim oblast As Range
Set oblast = Selection
For Each bunka In oblast
bunka.Value = bunka.Value / 100
bunka.NumberFormat = "0.0 %"
Next bunka
End Subcitovat
RSS nejnovější články