SpinButton ile Sayfada Uzaklaştırma Yakınlaştırma Yapma

Bu dosyada bir UserForm üzerindeki kaydırma çubukları ile etkin sayfanın yakınlaştırma oranı ayarlanır; aynı form sayfanın yatay ve dikey kaydırma konumunu da kontrol eder. Form sayfanın üzerinde açık kalır (modeless), böylece ayar yapılırken sayfa ile çalışmaya devam edilebilir.

Dosyanın içeriği​

• exceldestekc.om | exceldepo.com: A1:AH1611 aralığında 1 ile 500 arasında sayısal değerler içeren örnek veri sayfası. Yakınlaştırma ve kaydırma işlemleri bu sayfa üzerinde denenir.
• UserForm1: Yakınlaştırma oranını gösteren bir etiket (LabelZoom), üç kaydırma çubuğu (ScrollBarZoom, ScrollBarColumns, ScrollBarRows) ve formu kapatan OKButton düğmesi.
• Module1: Formu açan ShowDialog makrosu.

Dosyada formül bulunmaz; tüm işlem makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi işlemler yoktur; makrolar yalnızca etkin pencerenin yakınlaştırma ve kaydırma ayarlarını değiştirir.

• ShowDialog: UserForm1 formunu vbModeless olarak açar.
• UserForm_Initialize: Form açılırken çalışır. Zoom çubuğu 10 ile 400 arasında ayarlanır (küçük adım 1, büyük adım 10) ve mevcut yakınlaştırma oranını gösterir. Sütun ve satır çubuklarının üst sınırı etkin sayfadaki UsedRange sütun ve satır sayısıdır; küçük adım 1, büyük adım 25'tir. Başlangıç değerleri pencerenin mevcut konumundan alınır.
• ScrollBarZoom_Change: Pencerenin Zoom değerini çubuğa göre değiştirir, etiketi "%" ile günceller ve kaydırma konumunu korur.
• ScrollBarColumns_Change: Pencereyi çubuğun değerindeki sütuna kaydırır.
• ScrollBarRows_Change: Pencereyi çubuğun değerindeki satıra kaydırır.
• OKButton_Click: Formu kapatır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile makro listesini açıp ShowDialog makrosunu çalıştırın.
3. Zoom çubuğunu hareket ettirerek yakınlaştırma oranını %10 ile %400 arasında değiştirin; oran etikette görünür.
4. Sütun ve satır çubuklarıyla sayfayı yatay ve dikey olarak kaydırın.
5. İşlem bitince OKButton düğmesiyle formu kapatın.

Başka bir sayfada kullanmak için o sayfa etkinken ShowDialog makrosu yeniden çalıştırılır; çubukların sınırları etkin sayfanın kullanılan alanına göre belirlenir.