sortir DUK meliputi urutan: 1. Golongan 2. TMT GOLONGAN 3. MASA KERJA 4. DIKLAT JABATAN 5. PENDIDIKAN 6.TANGGAL LAHIR ATAU USIA 7. BISA TAMBAKAN SORTIR BERDASAR NIP.
RASANYA SAYA MERASA SUKAR KALAU BUAT DUK DI EXCEL, LEBIH MUDAH DI ACCESS Pada 15 Desember 2012 12:40, Dian Anas <[email protected]> menulis: > ** > > > terima kasih atas pencerahannya, kalau dibuat input di sheet lain dan edit > data yang sudah ada gmn yah? maklum masih newbie. terima kasih semoga tidak > mengganggu waktu anda para exceller > > > --- On *Fri, 12/14/12, Jan Raisin <[email protected]>* wrote: > > > From: Jan Raisin <[email protected]> > Subject: Re: [belajar-excel] membuat duk pns otomatis > To: [email protected] > Date: Friday, December 14, 2012, 4:19 AM > > > > Dear mbak/mas Dian, > > untuk kasus ini jika ingin otomatis, maka satu-satunya cara adalah > menggunakan VBA > script berikut ditulis dalam sebuah modul VBE, untuk menampilkannya tekan > tombol ALT F11 >> Insert >> Module > > Option Explicit > > ' -------------------------------------- ' > ' prosedur input data dan sort otomatis ' > ' sort Descending berdasarkan : ' > ' Golongan, Tahun & Bulan masa kerja ' > ' code by: Ms Jan Raisin ' > ' untuk millis Belajar Excel ' > ' 14 Desember 2012 ' > ' -------------------------------------- ' > > ' ini adalah nama prosedurnya > Sub InputAndSort() > > ' deklarasikan variabel bertipe String untuk mencari NIP pada data > Dim sCari As String > > ' deklarasikan variabel bertipe Range untuk menyimpan data berupa > objek range > ' variabel ini untuk menunjukkan apakah NIP sudah ada di data atau > belum > Dim Cari As Range > > ' deklarasikan variabel bertipe Long untuk menyimpan nomor baris data > yang paling akhir > Dim idxRow As Long > > ' ini adalah proses pengecekan apakah NIP tersebut sudah ada di data > atau belum > ' simpan NIP dari cell C2 ke dalam variabel yang bernama sCari > sCari = Range("c2").Value > > ' lakukan pencarian NIP mulai dari cell C8 sampai baris data yang > paling bawah > ' perhatian!!! pada contoh ini data pertama NIP ada pada cell C8 > ' jika berbeda maka sesuaikan lokasinya > Set Cari = Range(Range("c8"), Range("c8").End(xlDown)).Find(sCari) > > > ' jika ditemukan maka > If Not Cari Is Nothing Then > > ' tampilkan pesan kepada user bahwa NIP tersebut sudah ada di data > MsgBox "NIP tersebut sudah ada", vbOKOnly + vbExclamation, > "Validasi Data" > > ' karena sudah ada maka keluar dari prosedur > Exit Sub > > ' ini adalah akhir dari pengecekan keberadaan NIP pada data > End If > > ' jika sampai ke sini berarti data belum ada > ' bikin 2 baris bantu, 1 sebagai header di baris 8 > ' dan di baris 9 adalah lokasi penulisan data > ' Perhatian!!! insert baris dimulai dari baris data pertama > ' jika lokasinya berbeda maka lakukan penyesuaian > Range("a8:a9").EntireRow.Insert > > ' bikin header di setiap kolom baris bantu yang tadi sudah dibuat > Range("a8").Value = "No" > Range("b8:r8").Value = Range("b1:r1").Value > > ' copas data input ke tabel > Range("b2:r2").Copy > Range("b9").PasteSpecial xlPasteValuesAndNumberFormats > Application.CutCopyMode = False > > ' sekarang saatnya melakukan sortir data > ' pergi ke cell B8, ini adalah header dari baris bantu yang sudah > dibuat > Range("B8").Select > ' blok seluruh data ke arah kanan dan ke arah bawah > Range(Selection, Selection.End(xlToRight).End(xlDown)).Select > > ' jika ada sort sebelumnya, maka hapus dahulu sort tersebut > Sheets("ks dan guru").Sort.SortFields.Clear > > ' sort descending berdasarkan Golongan, headernya ada di cell D8 > Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _ > SortOn:=xlSortOnValues, Order:=xlDescending, > DataOption:=xlSortNormal > > ' sort descending berdasarkan Tahun tugas, headernya ada di cell H8 > ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add > Key:=Range("h8"), _ > SortOn:=xlSortOnValues, Order:=xlDescending, > DataOption:=xlSortNormal > > ' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8 > ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add > Key:=Range("i8"), _ > SortOn:=xlSortOnValues, Order:=xlDescending, > DataOption:=xlSortNormal > > ' sekarang bekerja pada proses sort di sheet KS dan Guru > With Sheets("ks dan guru").Sort > ' atur range data yang akan disort, mulai dari aktif cell (B8) ke > arah kanan dan bawah > .SetRange Range(ActiveCell, ActiveCell.End(xlToRight).End(xlDown)) > ' baris pertama adalah header data > .Header = xlYes > ' sort bukan berdasarkan case sensitif > .MatchCase = False > ' sort dilakukan dari atas ke bawah > .Orientation = xlTopToBottom > ' defaultnya adalah xlPinYin > .SortMethod = xlPinYin > ' terapkan sort berdasarkan kriteria yang telah ditentukan > .Apply > > ' akhir bekerja dengan proses sort pada sheet KS dan Guru > End With > > ' cari nomor baris data terakhir dan simpan di variabel idxRow > idxRow = ActiveCell.End(xlDown).Row > > ' bikin nomor urut > Range("a9").Value = 1 > Range("a10").Value = 2 > Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1)) > > ' hapus baris bantu > Range("b8").EntireRow.Delete > > ' pergi ke cell A1, biar keliatan lebih cantik aja > Range("a1").Select > > ' ini adalah akhir dari prosedur input dan simpan > End Sub > > untuk menjalankannya, buat sebuah objek berupa tombol, shape, atau mungkin > kalo mau sedikit narsis boleh lah pakai foto xixixi :D > assign macro tersebut ke dalam objek tadi dengan cara klik kanan pada > objek tersebut > > setelah itu setiap selesai input data klik objek tersebut > > file terlampir hanya disisakan 1 buah sheet saja, untuk mengurangi ukuran > file, semoga OP bersedia mempelajari script tersebut sehingga untuk > penerapan ke sheet yang lain akan lebih mudah > > Best Regard, > > -Ms. Jan Raisin- > > > > > Pada 13 Desember 2012 15:03, Mr. Kid > <[email protected]<http://mc/[email protected]> > > menulis: > > ** > > > Berhubung belum ada file susulan sebagai contoh datanya, dilampirkan file > asli yang telah dikurangi jumlah datanya. > > Mohon hati-hati bagi yang ne-reply, karena file sudah mendekati batas > maksimal ukuran file yang ditentukan dalam peraturan milis. > > Wassalam, > Kid. > > > > 2012/12/13 Dian Anas > <[email protected]<http://mc/[email protected]> > > > > ** > > > para master excel yang budiman. > saya mau tanya, apakah sorting otomatis pada excel itu bisa dilakukan > ketika kita memasukan data baru contohnya kalau kita memasukkan data > golongan IV/a dengan masa kerja 23 tahun maka akan diatas golongan IV/a > yang masa kerjanya 22 tahun. terima kasih pencerahannya. > > --- Mods --- > File lampiran yang sebesar 492KB tersandera. Kita tunggu kiriman file yang > lebih sesuai peraturan milis (<250KB) dari sdr/i Dian. > ------------ > > > > >
