Wow, ini mah jurus pamungkas. Saia belum mampu pakai jurus2 pamungkas, ginkang saya masih chetek (dangkal). Btw, trimakasih mbak Haps (kata org sih, a.k.a mbak Siti, bener yah mbak?)
Salam --- In [email protected], i Haps <hapsari.stlizbeth@...> wrote: > > cara cepat-nya mungkin begini > > (maaf ikut nimbrung, mas OntoSeno-nya lagi "pulang ndeso" ama Gatotkaca...) > > Sub Menormalkantabel_Jilid27() > '-------------------------------------------- > ' mengkonversi struktur tabel menjadi normal > ' indri Hapsari //20 Dec 2011 > ' BeExcel Case # 14751 > '------------------------------------------- > Dim Abnorm As Range, Normal As Range, Head > Dim i As Integer, n As Long, r As Long > > Head = Split("Emiten,Data,Tahun,Nilai", ",") > Set Abnorm = Sheets("Sheet1").Range("B2").CurrentRegion > Set Normal = Sheets("Sheet2").Range("A2") > Normal.Parent.Activate > > Application.Calculation = xlCalculationManual > Application.ScreenUpdating = False > > For i = 0 To UBound(Head): Normal(0, i + 1) = Head(i): Next > > * For n = 3 To Abnorm.Rows.Count* > * For i = 2 To Abnorm.Columns.Count* > * r = r + 1* > * Normal(r, 1) = Abnorm(n, 1)* > * Normal(r, 2) = Abnorm(1, i)* > * Normal(r, 3) = Abnorm(2, i)* > * Normal(r, 4) = Abnorm(n, i)* > * Next i* > * Next n* > > Application.ScreenUpdating = True > Application.Calculation = xlCalculationAutomatic > MsgBox "Selesai.." & vbCrLf & "Begini 'kan yg Boss !", 64, > ThisWorkbook.Name > > End Sub > > Seperti saran mas Zainul, data kolom terakhir kalau mau disebut sbg > "berkaidah database " > harus data yg typenya sama, jangan "rucahan" seperti itu.. > > iHaps. > > > 2011/12/20 Nathan Tama <nathan.tama@...> > > > ** > > Ternyata setelah dipikir2, saia punya KEHENDAK LAIN, yaitu mengubah tabel > > tadi menjadi TABEL BERKAIDAH DATABASE seperti yg dicontohkan suhu O'Seno. > > Mohon bantuannya sekali lagi untuk jurus2nya. > > Salam, > > Nathan > > > > > > --- In [email protected], "o' Seno" <ontoseno84@> wrote: > > > Dengan formula: masih bisa, > > > walaupun sangat khusus ( = jika data sumber berubah urutan & susunan > > > strukturnya) maka formula dijamin akan menghasilkan data yg "tidak > betoel") > > > > > > Dengan Pivot Tabel, > > > data AbNormal seperti itu tidak memenuhi syarat per*-Pivot-Tabel-*an, he > > > he.. ( tidak berkaidah database!) .. > > > Harus di ubah dulu menjadi tabel Normal / "berBAU" aturan database... > > > ( dulu di sini ada "embak-embak" yg sering bilang ogah pakai Pivot > becoz > > > takut pipinya komvot, kemana dia sekarang ya...) > > > > > > wassalam... > > > o'Seno >
