Aşağı Yuvarlama Makrosu - Excel VBA

Yazar: Temel Excel | Yayın Tarihi: 20 Ocak 2025 | Son Güncelleme: 20 Ocak 2025 | Excel VBA

Excel VBA İle Aşağı Yuvarlama Makrosu

Aşağı yuvarlama, sayıları istenilen basamağa kadar küçültmek için kullanılır. Excel VBA ile sayıları aşağıya doğru yuvarlamak, verilerinizi istediğiniz formatta düzenlemenize yardımcı olur. Bu yazıda, VBA kullanarak sayıları nasıl aşağı yuvarlanacağı gösterilecektir. Eğer aşağı yuvarlama işlemini Excel menüleri aracılığıyla yapmak isterseniz, detaylı talimatlar için bu bağlantıya tıklayabilirsiniz.

2. VBA ile aşağı yuvarlama makrosu nasıl yazılır?

Makro yazmak için öncelikli olarak üst menüden geliştirici sekmesinin aktif olduğundan emin olunuz. Eğer değilse, İlk olarak, Excel’de Geliştirici sekmesini etkinleştirmek için "Dosya" > "Seçenekler" > "Şeridi Özelleştir" menüsünden "Geliştirici"yi işaretleyin. Detaylı bilgi için linke tıklayabilirsiniz. Ardından, "Geliştirici" sekmesinden "Visual Basic" butonuna tıklayarak VBA Düzenleyicisini açabilir ve "Ekle" > "Modül" ile yeni bir modül ekleyebilirsiniz. Daha fazla bilgi için linke tıklayabilirsiniz.

Bu adımlar tamamlandıktan sonra, Excel VBA ile aşağı yuvarlama işlemi aşağıdaki VBA kodu ile gerçekleştirilebilir:

Vba İle Aşağı Yuvarlama Makrosu Kullanımı

Kopyalandı

Sub AsagiYuvarlama()
    ' Aşağıya Yuvarlama İşlemi
    Dim Sayi As Double
    Sayi = 12.6789
    ' Sayıyı 2 Ondalık Basamağa Kadar Aşağı Yuvarla
    Sayi = WorksheetFunction.Floor(Sayi, 0.01)
    MsgBox Sayi
End Sub

3. Kodun Parametreleri ve Açıklaması

• Sayi: Aşağı yuvarlanacak sayıyı belirtir.
• WorksheetFunction.Floor: Excel VBA'nın yerleşik fonksiyonlarından biri olan Floor, sayıyı belirli bir değere yuvarlar. Bu örnekte, 0.01'e yuvarlanmaktadır.

Kodun Açıklanması

• Makronun Başlangıcı: Sub AsagiYuvarlama() komutu ile makro başlatılır.
• Sayı Belirleme: Sayi = 12.6789 komutuyla sayıyı tanımlarız. Bu örnekte, 12.6789 sayısı kullanılmaktadır.
• Aşağı Yuvarlama: Sayi = WorksheetFunction.Floor(Sayi, 0.01) komutuyla sayıyı 0.01'e kadar aşağıya yuvarlarız.

4. Dikkat Edilmesi Gerekenler

Uyarı: Aşağı yuvarlama işlemi, verilen değere en yakın küçük sayıya yuvarlama yapar. Yani, sayının virgül sonrası belirli bir basamağını kaybeder. Bu yüzden doğru bir yuvarlama işlemi yapmak için dikkat edilmesi gerekir.

5. Ekstra İpucu

İpucu: Eğer sayıyı en yakın tam sayıya yuvarlamak istiyorsanız, WorksheetFunction.Floor(Sayi, 1) komutunu kullanabilirsiniz.

Aşağı Yuvarlama Makrosu -Sonuç

Excel VBA ile aşağı yuvarlama yapmak, sayılarınızı istenilen formatta düzenlemek için etkili bir yöntemdir. Bu teknik ile sayılarınızı otomatik olarak yuvarlayabilir ve analiz sürecinde önemli ölçüde zaman kazanabilirsiniz.

Alakalı Makaleler