Senin, 23 Januari 2012

Membuat Zoom Pada Cell Active


By 

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

sumber : http://excel.aurino.com

Tidak ada komentar:

Poskan Komentar

Komentar Anda menjadikan kita maju bersama. Terimakasih