Zoom Sel Yang Terpilih atau Aktif

Kesalahan pengentrian data sangat mungkin terjadi jika dalam satu sheet terdapat banyak sekali data yang tertulis, dan salah satu alasannya bisa karena ukuran font atau huruf yang terlalu kecil sehingga sangat sulit untuk mengecek apakah data yang di masukkan sudah sesuai atau belum. Jika ukuran font harus diperbesar semua atau dengan memperbesar ukuran layar dengan tujuan agar terlihat lebih jelas, tentunya hal ini bisa dijadikan solusi - tapi apakah efektif ???
Bagaimana cara untuk memperbesar sel yang dipilih ?
Konsep untuk melakukannya cukup sederhana yaitu merubah ukuran huruf hanya pada sel yang dipilih saja. dan untuk melakukannya tinggal copy kode berikut :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
FontSize = 12 '-- Ukuran Font Asli
FontBesar = 30 '-- Ukuran font jika sel terpilih, ganti nilai sesuai selera
Cells.Font.Size = FontSize
ActiveCell.Font.Size = FontBesar
End Sub
FontSize = 12 '-- Ukuran Font Asli
FontBesar = 30 '-- Ukuran font jika sel terpilih, ganti nilai sesuai selera
Cells.Font.Size = FontSize
ActiveCell.Font.Size = FontBesar
End Sub
Cara Meletakkan kode
Jika anda menginginkan perubahan ukuran huruf pada Sheet1, maka lakukan langkah seperti berikut :
- klik kanan nama sheet yang anda inginkan
- Pilih View Code
- Paste kode di atas di jendela kode Visual Basic
- Ulangi langkah yang sama jika anda menginginkan untuk sheet yang lainnya.
Catatan :
Kode di atas akan merubah semua ukuran font sesuai dengan kode FontSize seperti yang tertulis di atas.
Kode di atas akan merubah semua ukuran font sesuai dengan kode FontSize seperti yang tertulis di atas.
http://www.rumahexcel.com/2012/11/zoom-sel-yang-terpilih-atau-aktif.html
Tidak ada komentar:
Posting Komentar