Membuat Zoom Pada Cell Active

Menarik juga pertanyaan Pak Martono: “Gimana membuat zoom pada cell yang aktif  tank,s eh thank’s

Untuk membesarkan sel aktif ada beberapa cara, tapi harus menggunakan macro atau VBA code. Pada contoh ini  yang diletakkan kita akan membuat Macro sederhana yang dimasukkan ke dalam Sheet1. Dengancara membesarkan Font sehingga besarnya cell akan ikut berubah. (Tentunya masih banyak cara lainnya !!!).

Kita akan menggunakan   Worksheet_SelectionChange(ByVal Target As Range) dan untuk membesarkannya kita gunakan FontSize * 3 misalnya.

Untuk memasukkan ke dalam Sheet1 maka kita gunakan Klik Mouse Kanan -> View Code kemudian ketikan code berikut (kalau bingung download contoh disini termasuk contoh cara lainnya) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UkuranFont = ActiveCell.Font.Size
FontBesar = UkuranFont * 3
Cells.Font.Size = UkuranFont
ActiveCell.Font.Size = FontBesar
End Sub

Selamat mencoba !!

One Comment

  • martono says:

    pak Aurino, thank’ banget terima kasih fungsi zoom, asik juga ya. jadi bisa digunakan untuk yang pakai kaca mata.
    kali lain jangan kesel nggih.

Leave a Reply

Your email address will not be published. Required fields are marked *