Thanks De Premor hehehe keren... thanks. :D Salam, Andy
________________________________ Dari: De Premor <[email protected]> Kepada: [email protected] Dikirim: Selasa, 27 Agustus 2013 15:47 Judul: Re: [belajar-excel] Cara membuat Zooming Otomatis di lembar kerja. ( User Friendly ) 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]> >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
