السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ mr Kid,
kodenya mantap.. memberikan pencerahan untuk Jan, selama ini masih bingung gimana caranya memindahkan dimensi ketiga ke setiap sheet yang berbeda [?] ternyata dimensi ketiganya ditaruh di loop yang paling luar xixixixi ^_^ وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ -Miss Jan Raisin- 2013/8/28 Mr. Kid <[email protected]> > ** > > > eh lupa, > baris : > > ReDim Data(1 To Baris, 1 To Kolom) > > jadi : > ReDim Data(1 To Baris, 1 To Kolom) as long > > > > 2013/8/28 Mr. Kid <[email protected]> > > 3D maksudnya dengan sheet ? >> >> misal ada 3 sheet >> >> Sub tes3d() >> Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double >> Dim i As Long, j As Long, Counter As Variant, lSht as long >> >> >> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis") >> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis") >> >> If Not WorksheetFunction.IsNumber(Kolom) Or Not >> WorksheetFunction.IsNumber(Baris) Then Exit Sub >> ReDim Data(1 To Baris, 1 To Kolom) >> >> tStart = Timer >> for lsht=1 to 3 >> For i = 1 To Baris >> For j = 1 To Kolom >> Counter = Counter + 1 >> Data(i, j) = Counter >> Next j >> Next i >> sheets(lsht).Range("A1").CurrentRegion.ClearContents >> sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data >> next lsht >> MsgBox Timer - tStart & " detik" >> End Sub >> >> >> misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui : >> Sub tes3d() >> Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double >> Dim i As Long, j As Long, Counter As Variant, vSht as variant >> >> >> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis") >> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis") >> >> If Not WorksheetFunction.IsNumber(Kolom) Or Not >> WorksheetFunction.IsNumber(Baris) Then Exit Sub >> ReDim Data(1 To Baris, 1 To Kolom) >> >> tStart = Timer >> for each vsht in array("sheet1","sheet5","sheetEmbuh","satsitsatsit") >> For i = 1 To Baris >> For j = 1 To Kolom >> Counter = Counter + 1 >> Data(i, j) = Counter >> Next j >> Next i >> sheets(vsht).Range("A1").CurrentRegion.ClearContents >> sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data >> next vsht >> MsgBox Timer - tStart & " detik" >> End Sub >> >> ;) >> >> Wassalam, >> Kid. >> >
<<B9E.gif>>
