Excel'de bir sayı aralığını en yakın çift sayıya nasıl yuvarlarsınız?
Excel'de "çift sayıya yuvarlama" nedir? Çift sayıya yuvarlama, aynı zamanda banker yuvarlaması olarak da bilinir. Temelde normal yuvarlamaya benzer; ancak yuvarlanacak basamaktaki rakam 5 olduğunda farklı davranır: 5’ten önceki basamaktaki rakam tekse yukarı, çiftse aşağı yuvarlar.
Örneğin, 23,345 sayısı, yüzde birler basamağına çift sayıya yuvarlandığında 23,34 olur ve 12,335 sayısı, yüzde birler basamağına çift sayıya yuvarlandığında 12,34 olur.
Bu makalede, Excel’de banker yuvarlamasının nasıl uygulanacağını adım adım anlatacağım.
Kullanıcı Tanımlı İşlev ile sayıları çift sayıya yuvarlama
VBA kodu ile sayıları çift sayıya yuvarlama
Kutools for Excel ile sayıları çift sayıya yuvarlama
Kullanıcı Tanımlı İşlev ile sayıları çift sayıya yuvarlama
Excel'de sayıları en yakın çift sayıya yuvarlamak için aşağıdaki kullanıcı tanımlı işlevi kullanabilirsiniz. Lütfen şu adımları izleyin:
1. Çift sayıya yuvarlamak istediğiniz hücreleri seçin.
2. Ardından ALT + F11 tuşlarına basılı tutun; bu, Microsoft Visual Basic for Applications penceresini açar.
3. Ekle > Modül seçeneğine tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın.
Function BankersRound(num, precision)
BankersRound = Round(num, precision)
End Function
4. Kodu kaydedin ve bitişik boş hücreye =bankersround(A1,2) formülünü girin. Ekran görüntüsüne bakın:
5. Ardından Enter tuşuna basın. B1 hücresini seçtikten sonra, bu formülü içermesini istediğiniz aralığa kadar doldurma kulmanını sürükleyin. Ekran görüntüsüne bakın:
VBA kodu ile sayıları çift sayıya yuvarlama
Tanımlı işlevi kullanmak istemiyorsanız, aşağıdaki VBA kodu da size yardımcı olabilir. Şöyle yapın:
1. Çift sayıya yuvarlamak istediğiniz aralığı seçin.
2Ardından ALT + F11tuşlarına basılı tutun; bu işlem Microsoft Visual Basic for Applicationspenceresini açar.
3. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
Sub RoundToEven()
'Update 20131107
Dim rng As Range
Dim WorkRng As Range
Dim intNumberOfDecimal As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
intNumberOfDecimal = Application.InputBox("NumberOfDecimal", xTitleId, Type:=1)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
rng.Value = Round(rng.Value, intNumberOfDecimal)
Next
End Sub4. Ardından, kodu çalıştırmak için F5 tuşuna basın; açılan iletişim kutusuna yuvarlamak istediğiniz ondalık basamak sayısını girin. Ekran görüntüsüne bakın:
5. Ardından Tamam düğmesine tıklayın; seçili tüm sayılar çift sayıya yuvarlanacaktır. Ekran görüntülerine bakın:
 |  |  |
Kutools for Excel ile sayıları çift sayıya yuvarlama
Ne kullanıcı tanımlı işlevler ne de VBA kodu sizi korkutmasın; bu sorunu çözmeniz için size çok kolay bir yol sunuyorum! Formül kullanmadan yuvarlama özelliğine sahip Kutools for Excel ile bir sayı aralığını hızlıca çift sayıya yuvarlayabilirsiniz.
Kutools for Excel, 30 gün boyunca sınırsız şekilde ücretsiz deneyebileceğiniz 300'den fazla kullanışlı Excel aracı sunar. Şimdi Edinin.
Kutools for Excel'i yükledikten sonra şu adımları izleyebilirsiniz:
1. Çift sayıya yuvarlamak istediğiniz aralığı seçin.
2. Kutools > Yuvarla seçeneğine tıklayın.
3. Formül kullanmadan yuvarlama iletişim kutusunda ihtiyaç duyduğunuz ondalık basamak sayısını girin ve ardından Çift Sayıya Yuvarla seçeneğini Seçenek bölümünden işaretleyin; sonucu Önizleme Bölmesi'nden görebilirsiniz. Ekran görüntüsüne bakın:
4. Ardından Tamam veya Uygula düğmesine tıklayın; tüm sayılar, 2 ondalık basamağa yuvarlanan çift sayılara dönüştürülecektir.
«Çift Sayıya Yuvarla» seçeneğine tıklayarak bu özelliğin ayrıntılarını keşfedin.
İlgili makale:
Excel'de bir hücre aralığındaki sayıları yuvarlama / yukarı yuvarlama / aşağı yuvarlama
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar