Derece Simgesi Ekleme
29 Mart 2018
28 Eylül 2021
963
Bu kod ile Derece Simgesi Ekleme işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
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 SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
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.
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Eğik Yazdırma / Alternatif | Ctrl 3 |
| Yazdırma Penceresini Açma | Ctrl F2 |
| Bir Hücre Sağa Git | → |
| Veri Aralığının En Sağına Gitme | Ctrl → |
| Kes / Alternatif | Shift Delete |