Nambahin dikit punya MJ (Miss Jan)
Sub PasLayar()
Dim Rng As Range, LastCell As Range
'Ingat2 Sel yang dipilih user
Set LastCell = Selection
'Tentukan dulu range yang mau di Zoom
Set Rng = Range("A6:I6")
'Pilih Range nya
Rng.Select
'Buat hitungan kecil2'an guna mencari persentase lebar Range dengan
lebar Window, kemudian dikurangi dengan perkiraan lebar Scrollbar
ActiveWindow.Zoom = ((ActiveWindow.Width / Rng.Width) * 100) - 3
'Pilih Kembali Sel yang dipilih oleh user sebelum diresize
LastCell.Select
End Sub
On 27-08-2013 15:04, Jan Raisin wrote:
السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Hai Andy,
kolom yang ingin ditampilkan hanya kolom A sampai I saja ya?
coba cara ini.. belum ditest tapi mudah-mudahan berhasil, asumsi hanya
ada 1 sheet
pada event woorkbook open:
range("a6:i6").select
activewindow.zoom = true
range("a6").select
مُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
-Miss Jan Raisin-
Pada 27 Agustus 2013 10.17, Andy Ajhis Ramadhan
<[email protected] <mailto:[email protected]>>
menulis:
Assalamu a'llaikum,
Be-Excel,
Mau tanya ada gak rumus Zooming Otomatis pada Excel yang mengikuti
lebar komputer User. karena setiap monitor lebarnya berbeda-beda.
Permasalahan terlampir.
Thanks & Best Regards,
Andy
