Terima kasih Mr. Kid atas jawabannya. Semoga Allah membalas kebaikan Mr. Kid dengan pahala yang jauh lebih baik. Amiin.,.
Sungguh briliant otak Mr. Kid. Hm..hm..enaknya jadi orang pintar..he..he.. Ada sesuatu yang menggelitik yang ingin saya tanyakan. 1. Bisa tolong kasih penjelasan singkat tentang Resize dan contohnya ? 2. Apakah semua module harus di kasih Option Explicit, dan apa gunanya ? Karena selama ini semua module saya tidak di kasih Option Explicit, tapi jalan. Terima kasih Mr.Kid. Wassalam, Tio "Mr. Kid" <[email protected]> Sent by: [email protected] 02/20/2013 11:36 AM Please respond to belajar-excel To: [email protected] cc: Subject: Re: [belajar-excel] Menginput cells di setiap kelipatan 3 sebanyak 4 kali Bagaimana jika mencoba memanfaatkan klausa STEP pada statement FOR..NEXT Private Sub CommandButton5_Click() Dim repeatku As Integer For repeatku = 1 To 12 step 3 Range("W80").Select ActiveCell.Offset(0, repeatku) = "Non Prod Hrs" ActiveCell.Offset(0, repeatku + 1) = "Prod Hrs" ActiveCell.Offset(0, repeatku + 2) = "Std Hrs" 'repeatku = repeatku + 2 Next repeatku End Sub Bisa juga mencoba tanpa loop : Private Sub CommandButton5_Click() range("w80").offset(0,1).resize(1,3).value = Array( "Non Prod Hrs" , "Prod Hrs" , "Std Hrs" ) range("w80").offset(0,1).resize(1,3).copy range("w80").offset(0,1).resize(1,12) end sub Jika akan menggunakan with (agar lebih simple) Private Sub CommandButton5_Click() with range("w80").offset(0,1).resize(1,3) .value = Array( "Non Prod Hrs" , "Prod Hrs" , "Std Hrs" ) .copy .resize(1,12) end with end sub Jika langsung menggunakan alamat cell pertama penulisan item : Private Sub CommandButton5_Click() with range("x80").resize(1,3) .value = Array( "Non Prod Hrs" , "Prod Hrs" , "Std Hrs" ) .copy .resize(1,12) end with end sub Wassalam, Kid. 2013/2/20 <[email protected]> Pak Hendrik. terima kasih jawabannya. Tapi saya sudah dapatkan jawabannya. : Private Sub CommandButton5_Click() Dim repeatku As Integer For repeatku = 1 To 12 Range("W80").Select ActiveCell.Offset(0, repeatku) = "Non Prod Hrs" ActiveCell.Offset(0, repeatku + 1) = "Prod Hrs" ActiveCell.Offset(0, repeatku + 2) = "Std Hrs" repeatku = repeatku + 2 Next repeatku End Sub Problem solved. Wassalam Tio hendrikkarnadi <[email protected]> Sent by: [email protected] 02/19/2013 09:38 PM Please respond to belajar-excel To: [email protected] cc: Subject: RE: [belajar-excel] Menginput cells di setiap kelipatan 3 sebanyak 4 kali Coba pakai macro recording. Salam, Hendrik Sent from Samsung Mobile [email protected] wrote: Dear Be-Exceller, Saya mau tanya. Saya mau input cell di tiap 3 kolom dari kolom pertama sebanyak 4x dengan text = "aku". Bagaimana yah caranya ? Saya sudah coba dengan for next berkali2, tapi gak berhasil2. Terima kasih, Wassalam, Tio
