Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 5 de julho de 2010

Re: ]] XL-mania [[ This operation requires the merge cells to be identically sized.

 

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.ScreenUpdating = False
   Application.DisplayAlerts = False
  
   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 Not IsEmpty(Rng2(i, 1)) Then
         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), SortBubble(dat))
   For i = 1 To Rng.Cells.Count
      If Not IsEmpty(Rng(i, 1)) Then
         n = n + 1
         Rng(i, 1) = dat2(n)
      End If
   Next
  
   Rng2.EntireColumn.Delete
   Rng.Select
  
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
End Sub


2010/7/4 STDEV(i) <setiyowati.devi@gmail.com>
maaf maaf maaf
workbook ditarik kembali
karena hasilnya ternyata masih salah
mo diperbaiki dulu....
ctv


2010/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.




__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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              |
+-------------------------------------------------------------------+
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.


Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.


Hobbies & Activities Zone: Find others who share your passions! Explore new interests.

.

__,_._,___

Nenhum comentário:

Arquivo do blog