Derece Simgesi Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub degreeSymbol()
Dim rng As Range
For Each rng In Selection
rng.Select
If ActiveCell <> "" Then
If IsNumeric(ActiveCell.Value) Then
ActiveCell.Value = ActiveCell.Value & "°"
End If
End If
Next
End Sub
Açıklama
Bir hücre aralığındaki sayıların sonuna derece simgesi eklemek istiyorsanız, bu aralığı seçtikten sonra üstteki kodu çalıştırmanız yeterli olacaktır.Faydalanılması temennisiyle