Re: ]] XL-mania [[ Macro Looping

Sub Loop_Yang_Tak_Teralalu_Sulit(MaxStep As Long)

   '  Rr.Wilis / 26 Mar 2012

   '  Xl-mania Case Nr: 20136

   '--------------------------

   Dim i As Long, X As Long, Y As Long

   Dim N As Long, r As Long, p As Long

   N = 3

   With Cells(3, 1)

      Do While (N + p) < MaxStep

         p = p + 1

         For i = 1 To (N + p)

            r = r + 1

            If i = (N + p) Then

               Y = 0

            Else

               If r <= N Then

                  Y = (i - 1) * 10

               Else

                  Y = (i) * 10

               End If

            End If

            .Cells(r, 1) = i

            .Cells(r, 2) = X

            .Cells(r, 4) = Y

            If i = (N + p - 1) Then X = Y

         Next i

      Loop

   End With

End Sub

'-----------------------

Karena Stepping Row arahnya semakin membesar, 4 baris, 5 baris, 6 baris, 7 baris, 8 baris dst...

maka LOOP tidak boleh HANYA diberi syarat dengan "dst" (dan seterusnya)  saja seperti kata Sdr Puthut di sheet 1  cell A26.

Sebaiknya  diberi batas misalnya max per step = 100 atau 1000 terserah asal Max nomor baris yg digunakan untuk  menuliskan hasil looping  tidak melebihi baris yg ada di suatu sheet (untuk excel 2007 = 1048576 - 2 )

Pembatasan MAX Stepping Row, (agar mudah diubah-ubah), dituliskan di cell G2 (Sheet2)

Cell G2 pun dapat anda ubah2 dengan mudah melalui SpinButton yg ada.

Tombol "Ya-Gitu-Deh" untuk menjalankan makro

Tombol  "Hapus "hasil untuk membersihkan  area penulisan hasil (barangkali  ada datanya)

Berhubung penjelasan sangat minim, Makro tsb di atas menganggap tabel yg ada Kolom A:D 

di sheet 1 adalah gambaran OUTPUT yg diinginkan (Inputnya ngak ada!)

Somewhere,  26 Mar 2012

Rara Wilis  

(AnakAsuhnya mbak ~siti)

On Mon, Mar 26, 2012 at 7:59 AM, Puthut Wibowo <puthut_vai@yahoo.com> wrote:
> Kepada member XL-Mania
> Saya mempunyai masalah untuk looping 2 dimensi (file), dimana looping tersbut nersarang (nested), 

> pertanyaanya bagaimana untuk membuat looping yang ada di dalam file lampiran ke dalam sebuah VBA Macro
> Terima Kasih