Hot Fox: Re: ]] XL-mania [[ sort by

sábado, 12 de setembro de 2009

Re: ]] XL-mania [[ sort by

Nah untuk xl2003, methods bisa menggunakan Range.Sort Key1:=bla-bla seperti yang digunakan Pak Puthut untuk mengganti methods Sort.SortFields di lampiran lalu.

Oh iya...
Kalau boleh meringkas dikit dari kode Pak Puthut.
Prosedur Sub FieldN_Sort() bisa dikumpulkan jadi

Public Sub singlekeysort(rngData As Range, rngKey As Range)
    rngData.Sort Key1:=rngKey, _
                 order1:=xlAscending, _
                 Header:=xlYes, _
                 OrderCustom:=1, _
                 MatchCase:=False, _
                 Orientation:=xlTopToBottom, _
                 DataOption1:=xlSortNormal
End Sub

kemudian event worksheet selection change bisa diringkaskan jadi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Count = 1 Then
            If .Row = 2 Then    'karena header dibaris 2
                Select Case .Column
                Case 1:
                    Call singlekeysort(.CurrentRegion, .Offset(1))
                Case 2:
                    Call singlekeysort(.CurrentRegion, .Offset(1))
                Case 3:
                    Call singlekeysort(.CurrentRegion, .Offset(1))
                End Select
            End If
        End If
    End With
End Sub

Tapi, lebih wangun kalo jadi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Count = 1 Then
            If .Row = 2 Then    'karena header dibaris 2
                if .Column >=1 then
                     if .Column<=3 then
                           Call singlekeysort(.CurrentRegion, .Offset(1))
                     end if
                end if
            End If
        End If
    End With
End Sub

Ini juga masih bisa diringkas atau disusun jadi lebih baik lagi...
tapi, karena gak mudeng mau digimanakan lagi ya segini aja...
maklum, masih terus baca-baca si excel dan juga VB...

Kid.

2009/9/11 Puthut Wibowo <puthut_vai@yahoo.com>

File terlampir oom.... sesuai pesenan.....karena gak ngerti formula excel saya buatnya make vba - excel jadi jangan lupa srikiti makronya yak oom..... (File terlampir)

...
Puthut Wibowo -

--- On Fri, 9/11/09, L- Van <l_van_37v417@yahoo.com> wrote:

From: L- Van <l_van_37v417@yahoo.com>
Subject: ]] XL-mania [[ sort by
To: "Milist XL - Mania" <XL-mania@yahoogroups.com>
Date: Friday, September 11, 2009, 11:11 AM

guys..ada yang tau cara buat fungsi untuk sort by..
tapi hanya dengan klik title nya aj..
ex : saya klik 'contoh' maka kolom yang lain akan mengurut ikut title 'contoh'
lalu kalo saya mao sort by 'sample' maka kolom2 yang lain juga akan ikut dengan sort 'sample'
begitu selanjur nya jika ada kolom2 yang lain..

contoh sample des

a e qwerty

b d asdf

c c zxcv

d b poiu

e a lkjh

thanks atas perhatian and bantuan nya..
L-van

__._,_.___

Messages in this topic (8) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Ada lowongan jadi direktur ga? Hubungi momods please... :D        |
| 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              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Nenhum comentário:

Postar um comentário

Hot Fox

sábado, 12 de setembro de 2009

Re: ]] XL-mania [[ sort by

Nenhum comentário:

Arquivo do blog