Re: [belajar-excel] loop dari kolum baru kemudian baris di vba xls
Dear Mr. Kid, Terima kasih atas pengarahan dan pembelajarannya. Regards, Gultom
Re: [belajar-excel] loop dari kolum baru kemudian baris di vba xls
Dear Mr. Kid,
Artinya tidak bisa merubah arah dengan for each yah?Karena saya suka dengan
"for each data in selection"
Dimana data array tersebut jadi mudah untuk patokan process selanjutnya.
seperti berikut, jadi harus saya buat fix cellnya (saya butuh perpindahan
otomatis dari array data)
Sub Forecast()Dim rng1, rng2, rng3 As RangeDim rw, clm, no1, no2, no3, no4, no5
As Integer
no3 = 30Set rng2 = Cells(11, no3)
Set rng1 = Range("k11:r14")
rw = rng1.Rows.Count - 1clm = rng1.Columns.Count - 1
For dt = 0 To clmFor dt1 = 0 To rwSet rng3 = Cells(14 - dt1, 11 + dt)If
rng3.Value >= 1 ThenRange(Cells(no3, 12), Cells(no3 + rng3.Value, 12)).Value =
Cells(14 - dt1, 8).ValueRange(Cells(no3, 11), Cells(no3 + rng3.Value,
11)).Value = Cells(14 - dt1, 6).Valueno3 = no3 + rng3.ValueEnd IfNextNext
End Sub
Terima kasih,Gultom
Re: [belajar-excel] loop dari kolum baru kemudian baris di vba xls
Dear Mr, Kids, Terima kasih ats sharenya.Yang saya maksud adalah kebalikan dari 1. Secara default, loop pada sekumpulan range menggunakan for each akan bergerak ke kanan (pindah kolom) lebih dulu. dimana agar bergerak ke bawah dulu baru kekanan. Terima kasih,
[belajar-excel] loop dari kolum baru kemudian baris di vba xls
Dear All, Mohon bantuannya buat merubah loop vba xls dari kalum daulu baru kemudian ke baris. Ini salah contoh yang saya buat Sub Forecast()Dim rng1, rng2 As RangeDim rw, clm, no1, no2, no3, no4, no5 As Integer no3 = 30Set rng1 = Application.SelectionSet rng2 = Cells(11, no3) no4 = rng1.Column For Each dt In rng1If dt >= 1 ThenRange(Cells(no3, 12), Cells(no3 + dt.Value, 12)).Value = dt.Offset(0, -3 - dt.Column + no4).Valueno3 = no3 + dt.ValueEnd IfNext End Sub Kalau ini dijalankan, maka akan diurutkan dari baris kemudian ke kolumn. yang diinginkan adalah sebaluknya dari kelumn dulu baru baris. Terima kasih, Gultom
