Excel VBA Blog

2016-01-31

Sayfa açıldığında imlecin konumunu ve büyütme oranını sıfırlama

Filed under: Excel, VBA — Etiketler:, , — dutali @ 6:24 pm

Bu yazıyı exceltr.net altında okumak için  tıklayın


Her sayfa kullanıldığında fare imleci son bırakıldığı yerde kalır. Aynı şekilde büyütme oranı da son bırakıldığı haliyle kaydedilmiş olur

Sayfayı kullanan eğer fare imlecini en aşağılarda biryerde bırakmışsa veya sayfayı %500 büyütmüşse ve kaydetmişse bir seferki açtığında  da ilk göreceği son görüntülediği sayfa kısmı olacaktır

Bu tabii ki çoğu kişi için pek sorun olmayabilir. Ama profesyonel bir rapor hazırlıyorsanız sayfa her açıldığında saporun bulundupu alanın görüntülenmesi ve büyütme oranının  sizin sayfayı tasarlarken kullandıınız oran olması iyi bir etki bırakacaktır

Sayfaları tasarlarken standart bir büyütme oranı belirleyip ( En iyisi %100) diğer boyutları buna göre tasarlamanız isabetli olacaktır

Mesela şu sayfayı ilk açtığımda aşağıdaki şekilde görüyorum

image

 

Şimdi sayfanın aşaılarına doğru bir gezinip okumakta zorlandığım kısımları görmek için biraz sayfayı büyütüorum ve excel i kaydedip tekrar açıyorum

Bu sekmeyi seçtiğimde görüntü şu şekilde

image

 

 

Eh sorun değil benim için. Müdür de excel kullanmayı biliyor nasılsa.  Ama ben raporum daha profesyonel olsun istiyorum. Bunun için yapmam gereken her sayfa açıldığında imleci A1 adresine taşıyacak ve sayfa büyütme oranını %100  olarak atayacak bir VBA prosedürü yazmak. Yazması gayet kolay .Prosedür şunun gibi birşey olacak

 

Sub İmleciveBuyutmeyiSifirla()

”Aktif sayfanın scroll’unu 1a’ya getir ve büyütme oranını %100 yap”
If TypeName(Application.ActiveSheet) = “Worksheet” Then
With Application
.ScreenUpdating = False
.ActiveWindow.ScrollColumn = 1
.ActiveWindow.ScrollRow = 1
.ActiveWindow.Zoom = 100
End With
End If
Application.ScreenUpdating = True
End Sub

 

Bunu eğer sadece belirli bir sayfa için kullancaksak yapmamız gereken, ilgili sayfanın VBA kod sayfasını açıp

image

Worksheet_Activate prosedürü açmak ve bu kodu içerisine yazmak

 

Eğer tüm sayfalarda kullanacaksak çalışma kitabının VBA kod sayfasını açıp

image

 

Workbook_SheetActivate prosedürü açmak ve bu kodu içerisine yazmak olacak

 

Dikkat! Her iki durumda da başka sayfa açılıp geri gelidğinde bu prosedür gene çalışacak ve büyütme oranı ve imlecin konumunu sıfırlayacaktır.

Bunu istemiyor iseniz sayfa her açıldığında bir kereye mahsus bu kodu çalıştırın

 

Kodu direkt olarak bu prosedürlerin içine koymak yerine en üstteki prosedürü bir modüle yazıp gerekli yerlerde çağırmanız geliştirme yöntemi açısından daha uygun olacaktır

Yorum Yapın »

Henüz yorum yapılmamış.

RSS feed for comments on this post. TrackBack URI

Yorum bırakın

WordPress.com'da Blog Oluşturun.