Re: ]] XL-mania [[ Diurut

 

om om om....  kalo manual block kolom yang ingin di sorting ...Habis itu tekan toolbar button A- >Z kalo mau pake makro.....saya buatkan kodingan menggunakan VBA dengan mengkombinasikaan array, kodingannya sebagai berikut oom.... : ' -------------------------------------------------------------------- ' Nama Modul :ModSortasi.mod ' Kegunaan : Mensortasi Dalam Bentuk Array ' Created By : puthut_vai@yahoo.com @ 28 Okt 2009 ' -------------------------------------------------------------------- Sub SortingAlamatIP()     Dim Arr() As String ' Array Dinamis     Dim wShitHasil, InputSheet As Worksheet     Dim vRange As Range     Dim vCountBaris As Long     Dim BarisTerakhir As Long         Application.ScreenUpdating = False         Set InputSheet = ActiveSheet     ' Baris terakhir pada wShit Input     BarisTerakhir = InputSheet.Range("A" & Rows.Count).End(xlUp).Row         ' Deklarasi ulang Array dari Dinamis Menjadi Statis     ' Berdasarkan Jumlah Baris input Shit     ReDim Arr(1 To BarisTerakhir)         InputSheet.Activate         vCountBaris = 1   '   Looping ampe habis     Do While Cells(vCountBaris, 1) <> ""         ' Insert Text Pada Cell ke dalam array         Arr(vCountBaris) = Cells(vCountBaris, 1)         vCountBaris = vCountBaris + 1     Loop             Application.ScreenUpdating = False         ' Buat Shit Baru     Set wShitHasil = ThisWorkbook.Worksheets.Add         Set vRange = wShitHasil.Range("A1").Resize(UBound(Arr) - LBound(Arr) + 1, 1)     vRange = Application.Transpose(Arr)         ' Sortasi Array Ascending (Kecil ke Besar)     vRange.Sort key1:=vRange, order1:=xlAscending, MatchCase:=False         ' Masukan Hasil Array ke Sheet Baru     For vCountBaris = 1 To vRange.Rows.Count         Arr(vCountBaris) = vRange(vCountBaris, 1)     Next vCountBaris           Application.ScreenUpdating = True End Sub File Terlampir oomm......... --- On Tue, 10/27/09, { J 4 j a N k } <jajank@gmail.com> wrote: From: { J 4 j a N k } <jajank@gmail.com> Subject: ]] XL-mania [[ Diurut To: XL-mania@yahoogroups.com Date: Tuesday, October 27, 2009, 1:44 PM   Mohon bantuan untuk mensort data IP dari angka terendah ke tertinggi dan sebaliknya : 192.168.11.1 192.168.11.100 192.168.11.110 192.168.11.12 192.168.11.139 192.168.11.141 192.168.11.144 192.168.11.145 192.168.11.146 192.168.11.148 192.168.11.149 192.168.11.15 192.168.11.150 192.168.11.151 192.168.11.152 192.168.11.153 192.168.11.154 192.168.11.155 192.168.11.156 192.168.11.157 Thanks, J4j@nK

__._,_.___

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

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh      |
| 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

Recent Activity

•  89
  New Members

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___