Vba'da yakınlaştırma nasıl kullanılır (örneklerle)

VBA kullanarak Excel’de yakınlaştırmayı belirtmek için aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Yakınlaştırmayı belirli bir miktara ayarlayın

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Bu özel makro, şu anda etkin olan sayfa için yakınlaştırmayı %150’ye ayarlayacaktır.

Yöntem 2: Yakınlaştırmayı geçerli olarak seçili aralığa ayarlayın

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Bu özel makro, halihazırda seçili olan aralığa yakınlaşacaktır.

Yöntem 3: Yakınlaştırmayı Belirli Bir Aralığa Ayarlama

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Bu özel makro C1:E5 aralığını yakınlaştıracaktır.

Aşağıdaki örnekler, çeşitli basketbolculara ilişkin bir dizi veriyi içeren aşağıdaki Excel sayfasıyla her yöntemin pratikte nasıl kullanılacağını gösterir:

Örnek 1: Yakınlaştırmayı belirli bir miktara ayarlayın

Şu anda aktif olan sayfanın yakınlaştırmasını %150’ye ayarlamak için aşağıdaki makroyu kullanabiliriz:

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Bu makroyu çalıştırdığımızda sayfa otomatik olarak %150 yakınlaştırmaya sahip olacaktır:

Varsayılan yakınlaştırmanın 100 olduğunu unutmayın.

Yakınlaştırmayı 100’den büyük bir değere ayarlayarak yakınlaştırıyoruz.

Uzaklaştırmak için yakınlaştırmayı 100’den küçük bir değere ayarlayın.

Örnek 2: Yakınlaştırmayı geçerli olarak seçili aralığa ayarlayın

Şu anda aktif olan sayfanın yakınlaştırmasını şu anda seçili aralığa ayarlamak için aşağıdaki makroyu kullanabiliriz:

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Örneğin A7:C11 aralığını seçtiğimizi varsayalım.

Bu makroyu çalıştırdığımızda sayfa otomatik olarak bu aralığa yakınlaşacaktır:

Örnek 3: Yakınlaştırmayı belirli bir aralığa ayarlayın

Şu anda aktif olan sayfanın yakınlaştırmasını C1:E5 aralığına ayarlamak için aşağıdaki makroyu kullanabiliriz:

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Bu makroyu çalıştırdığımızda sayfa otomatik olarak bu aralığa yakınlaşacaktır:

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA kullanarak bir aralıktaki satır sayısı nasıl sayılır?
VBA kullanarak e-tablolarda nasıl gezinilir?
VBA kullanarak tüm satırlar nasıl gösterilir?