ini dikirimkan workbook yg kayaknya sudah bisa menghasilkan data yg benar
(sorting pada range yang mengandung merged-cells yg tidak seragam dimensinya)
coding yg kemarin hasilnya nguawurr
karena dibuat sambil nonton bola
coding yg sekarang hasilnya (coba aja..!)
ini dibuat sambil.. main bola...
Private Sub Urutkan(Rng As Range, Optional Ascending As Boolean = True)
' siti Vi / 4 Juli 2010 /revisi2
' mengurutkan data pada range vektor sekolom
' yg di dalamnya mengandung Merged-Cells
'------------
Dim dat(), dat2, Rng2 As Range, i As Long, n As Long
Application.
Application.
Set Rng2 = Rng.Offset(0, 200)
Rng.Copy: Rng2.PasteSpecial xlPasteAll
Application.
Rng2.MergeCells = False
For i = 1 To Rng2.Rows.Count
If Not IsEmpty(Rng2(
n = n + 1
ReDim Preserve dat(1 To n)
dat(n) = Rng2(i, 1)
End If
Next
n = 0
dat2 = IIf(Ascending = True, BubbleSort(dat)
For i = 1 To Rng.Cells.Count
If Not IsEmpty(Rng(
n = n + 1
Rng(i, 1) = dat2(n)
End If
Next
Rng2.EntireColumn.
Rng.Select
Application.
Application.
End Sub
maaf maaf maaf
workbook ditarik kembali
karena hasilnya ternyata masih salah
mo diperbaiki dulu....
ctv2010/7/4 STDEV(i) <setiyowati.devi@gmail.com >
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
2010/7/2 DAY <dhayku@gmail.com >>
> 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.
| jangan lupa sebelum bertanya, cek dulu www.XL-mania.com dan |
| http://tech.groups.yahoo.com/group/XL-mania/messages |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário