Giriş |  Kayıt

Yeni başlık gönder Başlığa cevap ver

13 Ağu 2009 08:57

Site Yöneticisi
Kayıt: 20 Kas 2008 13:43
Başlıklar: 132
Mesajlar: 208
Çevrimdışı

Excel Sayfalarında Sıfır Değerlerinin yerine boşluk gözükmesini istiyorsanız aşağıdaki kodlardan birini kullanabilirsiniz.

Kod: Tümünü seç
Option Explicit

Sub Auto_Open()
    Dim sht As Worksheet
    For Each sht In Worksheets
      sht.Activate
      ActiveWindow.DisplayZeros = False
    Next sht
End Sub

Sub Auto_Close()
    Dim sht As Worksheet
    For Each sht In Worksheets
      sht.Activate
      ActiveWindow.DisplayZeros = True
    Next sht
End Sub

Sub BaskaBirYöntem()
  Dim byt As Byte
  For byt = 1 To Worksheets.Count
    Worksheets(byt).Activate
    ActiveWindow.DisplayZeros = False
  Next byt
End Sub


Başa Dön Başa Dön
 
 
Eskiden itibaren mesajları göster:  Sırala  
Yeni başlık gönder Başlığa cevap ver
 1. sayfa (Toplam 1 sayfa)  [ 1 mesaj ] 

Tüm zamanlar UTC + 2 saat [ GITZ ]


Kimler çevrimiçi

Bu forumu gezen kullanıcılar: Hiç bir kayıtlı kullanıcı yok ve 0 misafir


Bu foruma yeni başlıklar gönderemezsiniz
Bu forumdaki başlıklara cevap veremezsiniz
Bu forumdaki mesajlarınızı düzenleyemezsiniz
Bu forumdaki mesajlarınızı silemezsiniz


Aranacak:
Geçiş yap:  

Site haritası


YGH Forum memurlar Toner windows 8 indir Grafik Tasarım kanal d oyunları silah oyunları araba oyunları ukash ukash kart maurers satılık daire kamp çadırı