[belajar-excel] Fw: memindahkan data dari notepad ke excel
Locked
 
|
Dear Mod,
Mod, gimana ya cara memindahkan data dari notepad menjadi excel dengan pemisahan angka File terlampir ya Thanks be4 Salam Tini Powered by Telkomsel BlackBerry® -----Original Message----- From: [hidden email] Date: Thu, 8 Sep 2011 11:24:37 To: <[hidden email]> Subject: memindahkan data dari notepad ke excel |
20110723 (5K)
|
Mohon maaf, BUKAN MODERATOR boleh menjawab apa tidak ya ??
Soalnya surat dari mbak hartini ditujukannya khusus kepada MODS Jika ternyata jawaban tidak dikehendaki, mohon di anulir saja.. File Text bisa dibuka langsung dengan EXCEL [image: buka text to excel.GIF] (akan ada tawaran memisah data by kolom) pilih >> *FIXED Width* [image: txt to column1.PNG] kemudian berikan garis garis pemisah spt ini [image: txt to column2.PNG] hasilnya file text terbuka sepeti excel tahap terakhir men-save worokbook tsb sebagai XLS. Jika senang makro; ketiga tahap tsb dapat diotomatiskan dengan makro spt ini lihat workbook lampiran) tinggal klik tombolnya saja Nama file dapat diganti-ganti di* Cell J13* File text dan file XLS berisi makro tsb harus berada di FOLDER YG SAMA Sub BukaTextFileToXls() ' Hapsari // sept 08, 2011 Dim txtFname As String, xlsFname As String ' tentukan Path dan nama filenya (diambil dari cell J13) txtFname = ThisWorkbook.Path & "\" & Range("J13").Value xlsFname = Replace(txtFname, "txt", "xls") ' membuka file text dan memotong-motong ' data sesuai kehendak mbak hartini Workbooks.OpenText _ Filename:=txtFname, _ Origin:=437, StartRow:=1, _ DataType:=xlFixedWidth, _ FieldInfo:= _ Array(Array(0, 2), Array(3, 2), Array(10, 2), _ Array(12, 2), Array(14, 2), Array(16, 2), _ Array(18, 2), Array(20, 1), Array(22, 1)), _ TrailingMinusNumbers:=True 'menyimpan file yg dibuka sebagai XLS. ActiveWorkbook.SaveAs Filename:=xlsFname, FileFormat:=xlNormal End Sub -haps- 2011/9/8 <[hidden email]> > ** > > *Dear Mod,* > Mod, gimana ya cara memindahkan data dari notepad menjadi excel dengan > pemisahan angka > File terlampir ya > Thanks be4 > Salam > Tini > |
|
|
|
|
Administrator
|
|
|
In reply to this post by hartini dewi
mungkin karena mbah hartini memakai Look_Up_Value nya berupa BILANGAN
sedangka yg ada di tabel itu jika kelihatan LEFT Allignied (rata kiri) maka pasti adalah TEXT. walaupun kelihatannya seperti bilangan cara mengatasinya 1. *LookUp Value*nya mbak tin ganti dengan *text yg seperti bilangan* atau 2 data di tabel di konversi menjadi bilangan semua (akibatnya "07" akan menjadi 7; agar bisa tampak 07 kolom harus di custom format "00") Berikut ini dilampirkan contoh workbook bermakro *yg menghasilkan semua data (8 kokolom, A:H) itu adalah BILANGAN* * * Dengan semua data = bilangan maka LookUp value (argument1 pada fungsi lookup) nya harus berupa type bilangan pula semoga bermanffaat -hapsari- 2011/9/8 <[hidden email]> > ** > > > ** Mba, td sudah saya test, berhasil benar sprti itu yg sy inginkan, hanya > saja, saya ingin melakukan fungsi lookup ke data lain kok dia ndak mau > membaca ya mba, malahan formulanya yg tampil di row tersebut > Knpa ya itu mba? > Salam > Tini > > Powered by Telkomsel BlackBerry® > ------------------------------ > *From: * Haps <[hidden email]> > *Sender: * [hidden email] > *Date: *Thu, 8 Sep 2011 12:32:03 +0700 > *To: *<[hidden email]> > *ReplyTo: * [hidden email] > *Subject: *Re: [belajar-excel] Fw: memindahkan data dari notepad ke excel > > Mohon maaf, BUKAN MODERATOR boleh menjawab apa tidak ya ?? > Soalnya surat dari mbak hartini ditujukannya khusus kepada MODS > Jika ternyata jawaban tidak dikehendaki, mohon di anulir saja.. > > File Text bisa dibuka langsung dengan EXCEL > [image: buka text to excel.GIF] > > (akan ada tawaran memisah data by kolom) > pilih >> *FIXED Width* > > [image: txt to column1.PNG] > > kemudian berikan garis garis pemisah spt ini > [image: txt to column2.PNG] > > > hasilnya file text terbuka sepeti excel > tahap terakhir men-save worokbook tsb sebagai XLS. > > Jika senang makro; ketiga tahap tsb dapat diotomatiskan dengan makro spt > ini > lihat workbook lampiran) tinggal klik tombolnya saja > Nama file dapat diganti-ganti di* Cell J13* > File text dan file XLS berisi makro tsb harus berada di FOLDER YG SAMA > > > Sub BukaTextFileToXls() > ' Hapsari // sept 08, 2011 > > Dim txtFname As String, xlsFname As String > > ' tentukan Path dan nama filenya (diambil dari cell J13) > txtFname = ThisWorkbook.Path & "\" & Range("J13").Value > xlsFname = Replace(txtFname, "txt", "xls") > > ' membuka file text dan memotong-motong > ' data sesuai kehendak mbak hartini > Workbooks.OpenText_ > Filename:=txtFname,_ > Origin:=437, StartRow:=1,_ > DataType:=xlFixedWidth,_ > FieldInfo:=_ > Array(Array(0, 2), Array(3, 2), Array(10, 2),_ > Array(12, 2), Array(14, 2), Array(16, 2),_ > Array(18, 2), Array(20, 1), Array(22, 1)),_ > TrailingMinusNumbers:=True > > 'menyimpan file yg dibuka sebagai XLS. > ActiveWorkbook.SaveAs Filename:=xlsFname, FileFormat:=xlNormal > > End Sub > > -haps- > > > > 2011/9/8 <[hidden email]> > >> ** >> >> *Dear Mod,* >> Mod, gimana ya cara memindahkan data dari notepad menjadi excel dengan >> pemisahan angka >> File terlampir ya >> Thanks be4 >> Salam >> Tini >> > > |
|
Administrator
|
Jika NIK memang berupa bilangan pada data masternya, mungkin proses import
data dari text file yang menghasilkan datatype NIK berupa bilangan akan lebih memudahkan. Kolom-kolom komponen tanggal dan waktu bisa juga disusun menjadi 2 kolom saja, yaitu kolom tanggal dan kolom waktu. Untuk disusun sebagai 1 kolom pun juga bisa, hanya saja, bisa jadi data waktu digunakan secara intensif secara mandiri. Regards. Kid. 2011/9/8 Haps <[hidden email]> > ** > > > mungkin karena mbah hartini memakai Look_Up_Value nya berupa BILANGAN > sedangka yg ada di tabel itu jika kelihatan LEFT Allignied (rata kiri) > maka pasti adalah > TEXT. walaupun kelihatannya seperti bilangan > > cara mengatasinya > 1. > *LookUp Value*nya mbak tin ganti dengan *text yg seperti bilangan* > atau > > 2 > data di tabel di konversi menjadi bilangan semua > (akibatnya "07" akan menjadi 7; agar bisa tampak 07 kolom harus di custom > format "00") > > Berikut ini dilampirkan contoh workbook bermakro > *yg menghasilkan semua data (8 kokolom, A:H) itu adalah BILANGAN* > * > * > Dengan semua data = bilangan maka LookUp value (argument1 pada fungsi > lookup) nya > harus berupa type bilangan pula > > semoga bermanffaat > > -hapsari- > > > > > > > 2011/9/8 <[hidden email]> > >> ** >> >> >> ** Mba, td sudah saya test, berhasil benar sprti itu yg sy inginkan, >> hanya saja, saya ingin melakukan fungsi lookup ke data lain kok dia ndak mau >> membaca ya mba, malahan formulanya yg tampil di row tersebut >> Knpa ya itu mba? >> Salam >> Tini >> >> Powered by Telkomsel BlackBerry® >> ------------------------------ >> *From: * Haps <[hidden email]> >> *Sender: * [hidden email] >> *Date: *Thu, 8 Sep 2011 12:32:03 +0700 >> *To: *<[hidden email]> >> *ReplyTo: * [hidden email] >> *Subject: *Re: [belajar-excel] Fw: memindahkan data dari notepad ke excel >> >> Mohon maaf, BUKAN MODERATOR boleh menjawab apa tidak ya ?? >> Soalnya surat dari mbak hartini ditujukannya khusus kepada MODS >> Jika ternyata jawaban tidak dikehendaki, mohon di anulir saja.. >> >> File Text bisa dibuka langsung dengan EXCEL >> [image: buka text to excel.GIF] >> >> (akan ada tawaran memisah data by kolom) >> pilih >> *FIXED Width* >> >> [image: txt to column1.PNG] >> >> kemudian berikan garis garis pemisah spt ini >> [image: txt to column2.PNG] >> >> >> hasilnya file text terbuka sepeti excel >> tahap terakhir men-save worokbook tsb sebagai XLS. >> >> Jika senang makro; ketiga tahap tsb dapat diotomatiskan dengan makro spt >> ini >> lihat workbook lampiran) tinggal klik tombolnya saja >> Nama file dapat diganti-ganti di* Cell J13* >> File text dan file XLS berisi makro tsb harus berada di FOLDER YG SAMA >> >> >> Sub BukaTextFileToXls() >> ' Hapsari // sept 08, 2011 >> >> Dim txtFname As String, xlsFname As String >> >> ' tentukan Path dan nama filenya (diambil dari cell J13) >> txtFname = ThisWorkbook.Path & "\" & Range("J13").Value >> xlsFname = Replace(txtFname, "txt", "xls") >> >> ' membuka file text dan memotong-motong >> ' data sesuai kehendak mbak hartini >> Workbooks.OpenText_ >> Filename:=txtFname,_ >> Origin:=437, StartRow:=1,_ >> DataType:=xlFixedWidth,_ >> FieldInfo:=_ >> Array(Array(0, 2), Array(3, 2), Array(10, 2),_ >> Array(12, 2), Array(14, 2), Array(16, 2),_ >> Array(18, 2), Array(20, 1), Array(22, 1)),_ >> TrailingMinusNumbers:=True >> >> 'menyimpan file yg dibuka sebagai XLS. >> ActiveWorkbook.SaveAs Filename:=xlsFname, FileFormat:=xlNormal >> >> End Sub >> >> -haps- >> >> >> >> 2011/9/8 <[hidden email]> >> >>> ** >>> >>> *Dear Mod,* >>> Mod, gimana ya cara memindahkan data dari notepad menjadi excel dengan >>> pemisahan angka >>> File terlampir ya >>> Thanks be4 >>> Salam >>> Tini >>> >> > > |
|
|
|
Administrator
|
|
|
|
|
|
|
|
|
|
|
|
Administrator
|
File terlampir contoh hasil manggut-manggut karena ngantuk bukan karena
makan pisang goreng. Jadi kalau ada yang salah, dimaklumi sajah. Untuk data absensi, mungkin ada kolom yang menerangkan sebagai data saat masuk atau data saat keluar. Data text file mbak Tini tidak unique record, tetapi dianggap boleh unique record dengan beberapa asumsi. File terlampir berasumsi bahwa absensi pertama yang digunakan. Jadi sisanya akan dihapus, memanfaatkan fitur remove duplicate minimal berdasar kolom NIK. Pada file terlampir di-remove duplicate berdasar kolom NIK dan Tanggal, karena was-was ada file yang berisi 2 tanggal (misal ada lembur dihari libur atau sabtu dan direkap di hari seninnya). Tapi sebelum di remove duplicate, harus disort ascending lebih dulu. MInimal berdasar waktu, tapi pada file terlampir berdasar 3 kolom, saking isengnya. Ubah sort order type menjadi descending ketika data yang dipakai adalah absensi terakhir. Asumsi lainnya adalah, sebuah file text hanya berisi data masuk saja atau data keluar saja. Meski demikian, pada file terlampir belum disertakan sebuah kolom penanda data apakah data baru tersebut sebagai data masuk atau data keluar. Silakan dikembangkan saja. Hasil import text file yang telah di sort dan remove duplicate di salin ke database, dan masuk sebagai record pertama, karena sifat fitur remove duplicate adalah mempertahankan data pertama yang ditemukan dan menghapus data berikutnya yang terduplikasi berdasar suatu kriteria. Kriteria berdasar tanggal dan NIK, karena database berisi seluruh data sepanjang masa. Setelah didapatkan database yang benar-benar unique berdasar keys (tanggal dan NIK), maka data diurutkan kembali berdasar tanggal dan NIK, agar data lebih clustered. Semoga terus dikembangkan, hingga suatu saat akan muncul kebutuhan penggunaan database engine sebagai media penyimpan data dan ekstraksi data kerja. Regards. Kid. 2011/9/9 <[hidden email]> > ** > > > ** Ndak ada kembarannya mba karena dia mengacu pada tanggal,bulan dan > tahun, untuk NAME FILE TEXT (file yg di notepad) biasanya disimpen di folder > yg bernama Finger Print, karena dia di download dr mesin finger print, kalo > biasanya saya pisahkan manual tiap digitnya dan saya pindahkan ke folder dgn > keterangan data Finger sudah dipakai jika data tsb telah saya gunakan dan > menggantinya dgn data dr tgl yg baru. Begitu proses kerja saya mba, manual > banget. Masukan dr mba haps dan mr kid sangat membantu sekali, seandainya > bisa di filter dan berpindah sendiri tanpa dipindah manual (hehehe maaf ya > mba banyak permintaan) > > Salam > Tini > > Powered by Telkomsel BlackBerry® > ------------------------------ > *From: * Haps <[hidden email]> > *Sender: * [hidden email] > *Date: *Fri, 9 Sep 2011 17:21:35 +0700 > *To: *<[hidden email]> > *ReplyTo: * [hidden email] > *Subject: *Re: [belajar-excel] Fw: memindahkan data dari notepad ke excel > > > > bisa > yaitu (seperti telah dikatakan di email sebelum ini) dengan cara memberi > kolom baru > pada tabel hasil konversi, di kolom baru itu kita tuliskan (dng makro) nama > file-text-nya > > cara untuk mencegah file-text diproses lebih dari sekali antara lain > ** setelah dikonversi, file text langsung dihapus atau dipindah ke folder > khusus > cara lain dengan memeriksanya di kolom NAMAFILE TEXT spt tsb di atas. > > > Tetapi yg penting mbak hart tentukan: > > apakah nomor (22 digit) itu bisa ada kembarannya di FILE-TEXT LAIN ?? > hal ini tidak dapat kita analisis di sini karena mbak hart mengajukan > contoh file > hanya satu saja.. > > jawaban dari mbak hart (semakin banyak info semakin baik) *akan sangat > menentukan* > *"jalan ceritak" nya makro* yg akan dibuat (oleh mr kid maupun haps yg > akan ikut belajar) > > Coba lihat di seberang sana, Mr Kid kelihatan manggut-manggut kan ?? > (sepertinya sambil makan pisang goreng tuh..) he he he.. > > > > > 2011/9/9 <[hidden email]> > >> ** >> >> >> ** NAMA FILE TEXT yg dr notepad itu yg berbeda mba, karena dia mengacu >> pada tanggal ditariknya data dr Mesinnya. Bisakan kira2 nama file tersebut >> dijadikan filter mba? >> >> Salam >> Tini >> >> *From: * Haps <[hidden email]> >> *Date: *Fri, 9 Sep 2011 17:00:46 +0700 >> * >> * >> >> nambahin pertanyaan Mr Kid >> mohon di dicerita'in dikit mengenai: "data yg sudah diambil" >> >> ** jika yg dimaksud =DATA= adalah SETIAP FILE TEXT * >> * >> * >> maka tiap file text harusnya punya nama yg unik , isinya pun unik (tidak >> akan diperiksa lagi. >> >> perlakuan kita untuk menCHECK apakah DATA sudah ada hanya mengenai NAMA >> file TEXTnya >> bila sudah pernah diproses, >> tidak diproses lagi.. >> >> di dalam proses konversinya mungkin harus ditambah kolom baru yg diisi >> NAMA FILE TEXT >> nantinya ini akan berguna untuk di cek apakah nama file yg diproses sudah >> ada tertulis di kolom tsb >> >> MAKRO yg akan dipakai (dan dilanjutkan pengembangannya) adalah makro dari >> Mr Kid >> karena sudah memikirkan jauh ke depan >> ** tiap file text isinya di APPEND ke sheet yg tetap, bukan dibuka sebagai >> workbook baru >> seperti makro dari haps.. >> >> ** data date dan time sudah di jadikan dua data (bukan 6 data lagi) >> >> hal ini pun sepertinya belum mendapat "suara" dari mbak hart (mana yg akan >> dipakai) >> >> demikian sekedar menambahkan pendapat.. >> >> haps >> >> >> > > |
Loading...
| Powered by Nabble | Edit this page |