napadá mne malé makříčko, které si nadefinujte na nějakou klávesu, pak označte buňku a spusťte>>
Sub celsius()
Dim retezec As String
Dim delka As Integer
retezec = ActiveCell.Value
retezec = retezec & "°C"
delka = Len(retezec)
ActiveCell = retezec
ActiveCell.Characters(Start:=delka - 1, Length:=2).Font.Size = 8
End Sub
buňka nemusí být naformátovaná v požadovaném formátu
Sub celsius()
Dim retezec As String
Dim delka As Integer
retezec = ActiveCell.Value
retezec = retezec & "°C"
delka = Len(retezec)
ActiveCell = retezec
ActiveCell.Characters(Start:=delka - 1, Length:=2).Font.Size = 8
End Sub
buňka nemusí být naformátovaná v požadovaném formátu
\n
RSS nejnovější články