Membuat Zoom Pada Cell Active

May 21, 2009 at 5:29 pm 1 comment

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 !!

Entry filed under: Ms Excel, Tips, Tutorial, VBA. Tags: .

My Amazon Store Menghilangkan Layar Configuration pada Office 2007

1 Comment Add your own

  • 1. martono  |  May 31, 2009 at 12:03 am

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

    Reply

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 14 other followers

Blog Stats

  • 94,725 hits

Twitter Updates

Iklan


%d bloggers like this: