• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sifirdan KÜÇÜk Rakamlari 0 Sayisi Yapma

Katılım
29 Nisan 2005
Mesajlar
26
Merhaba Arkadaşlar, bir konuda yardımınıza ihtiyacım elimde çok büyük bir excell tablosu var. bu tabloda 0,7, 0,03, 0,09, 0,9 gibi rakamlar mevcut bu rakamların 0, olanlarının hepsini 0 yapmak istiyorum. Bunun için bir formül mevcutmudur. Yuvarla seceneği, 0,3 leri 0 yapıyor ama 0,7, 0.9 rakamını da 1 olarak belirliyor.. Ben onunda 0 olarak belirlemesini istiyorum. Yardımcı olursanız sevinirim.
 
Bunları siz elle mi giriyorsunuz? Yoksa bunlar bir formülün sonucunda mı oluşuyor?
 
Son düzenleme:
Eğer elle giriyorsanız.

Hücre formatını İsteğe uyralanmış 0. yapın.

Eğer bir formülün sonucunda geliyorsa;

=ROUND(formülünüz;-1)
=YUVARLA(formülünüz;-1)

Not:Hücre format yöntemini her ikisi için kullanabilirsiniz.
 
Son düzenleme:
Eğer elle giriyorsanız.

Hücre formatını İsteğe uyralanmış 0. yapın.

Eğer bir formülün sonucunda geliyorsa;

=ROUND(formülünüz;-1)
=YUVARLA(formülünüz;-1)

bunlar daha önceden elle girilmiş, Çok fazla sayfa mevcut, tekrardan elle girmek çok uğraştıracak. Komple tabloyu seçerek, Format Cell den yapmak istiyorum.. Yapabilirmiyim.
 
Format/Cells/Number/Custom'dan Type boşluğuna 0. yazın.
 
Format/Cells/Number/Custom'dan Type boşluğuna 0. yazın.

0. yaptığımda tüm tabloyu seçtiğim için, alakasız tüm rakamları 0 yapıyor, 0, yaptığımda ise rakamların sonuna , işareti koyuyor (255,) gibi. Sadece 0 yazdığımda ise, 0,4 (0) oluyor, ancak (0,9) 1 e tamamlanıyor.
 
1. Tüm tabloyu değil. Nereyi yapmak istiyorsanız orayı seçin.

2. Yazıyla yazıyorum. sıfır nokta (0.) olacak. Virgül değil.
 
1. Tüm tabloyu değil. Nereyi yapmak istiyorsanız orayı seçin.

2. Yazıyla yazıyorum. sıfır nokta (0.) olacak. Virgül değil.

Teşekkür ederim. Yurttaş kardeş ancak Ben 500 küsür sayfadan bahsediyorum Bunu tek tek seçmek bile dünyanın zamanını alır.. Bir şekilde halletmeye çalışacağım. İlgine teşekkür ederim. Zamanını aldım..
 
Selamlar,

Sn. yurttas çözümü sunmuş. Eğer kod ile yapmak isterseniz aşağıdaki şekilde kullanabilirsiniz.

Kod:
Sub SIFIR_YAP()
    On Error Resume Next
    Dim Sayfa As Object
    For Each Sayfa In ThisWorkbook.Sheets
    Sayfa.Select
    Sayfa.Cells.SpecialCells(xlCellTypeConstants, 1).Replace What:="0.*", Replacement:="0"
    Next
    Sheets(1).Select
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub
 
Son düzenleme:
Geri
Üst