maaf maaf maaf workbook ditarik kembali karena hasilnya ternyata masih salah mo diperbaiki dulu....
ctv 2010/7/4 STDEV(i) <[email protected]> > *Punya !* > > makro dapat membantu mengurutkan data di range yang sebagian > berupa merged-cell sebagian lain berupa cell sehat. > > karena "gambar tabel" yg dikatakan "terlampir" ternyata =tidak ada > maka contoh workbook menggunakan data yg diKARANG sendiri.. > > workbook terlampir dapat mensort data dlm range dimana range tsb > mengandung mergedcells yg tidak beraturan dimensinya > > ========= > Private Sub Urutkan(Rng As Range, Optional Ascending As Boolean = True) > ' siti Vi / 4 Juli 2010 > ' mengurutkan data pada range vektor sekolom > ' yg di dalamnya mengandung Merged-Cells > '------------------------------------------- > Dim dat(), dat2, Rng2 As Range, i As Long > > Application.ScreenUpdating = False > Application.DisplayAlerts = False > ReDim dat(1 To Rng.Rows.Count) > Set Rng2 = Rng.Offset(0, 200) > Rng.Copy: Rng2.PasteSpecial xlPasteAll > Application.CutCopyMode = False > Rng2.MergeCells = False > > For i = 1 To Rng2.Rows.Count > If IsEmpty(Rng2(i, 1)) Then Rng2(i, 1) = Rng2(i - 1, 1) > Next > For i = 1 To Rng2.Rows.Count > dat(i) = Rng2(i, 1) > Next > dat2 = IIf(Ascending = True, BubbleSort(dat), SortBubble(dat)) > For i = 1 To Rng.Cells.Count > Rng2(i, 1) = dat2(i) > Next > > Rng.Copy: Rng2.PasteSpecial xlPasteFormats > Rng2.Copy: Rng.PasteSpecial xlPasteAll > Rng2.EntireColumn.Delete > Rng(i).Select > Application.DisplayAlerts = True > Application.ScreenUpdating = True > End Sub > ========== > > > 2010/7/2 DAY <[email protected]> > > > > > Pertanyaannya langsung aja , mas yach.. > > Mengapa Excel tak dapat mengurutkan tabel yang terdiri dari cel yang > > dimerge dan tak dimerge?. > *> *Apakah XLmania *punya trik *untuk mengurutkan tabel seperti tsb > diatas?? > >... contoh gambar tabelnya terlampir. > > >
