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