Derece Simgesi Ekleme
29 Mart 2018
28 Eylül 2021
939
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 | |
|---|---|
| Kaydet / Alternatif | Shift F12 |
| İşlem Yapılmış En Alt Hücreye Gitme | Ctrl End |
| Stil Penceresini Açma | Alt Shift 2 |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |
| Sayfa Sonlarını Kaldırma | Alt P O K |