9 Messages
Digest #3745
Messages
Wed Feb 3, 2016 11:44 pm (PST) . Posted by:
"Danu Fadillah"
Sudah saya coba langkah yang di contohkanText file saya memiliki karakter delimiter.Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Anda sudah mencoba langkah yang di email tempo lalu ?
Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
Jika memiliki karakter delimiter, apa karakter delimiternya ?
Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah karakter setiap barisnya selalu sama ?
2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr. Kid
Terimakasih sebelumnya atas penjelasannya.Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data format yang bebeda-beda.Berikut saya lampirkan macro dan text file yang terbaru. Mohon pencerahannya.
TerimaksihDanu
On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Danu,
Coba langkah berikut :
0. Kenali isi text file Anda
a> Ada berapa kolom
b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
c> apakah karakter pemisah antar kolom dalam text file Anda ?
d> Apa tipe data masing-masing kolom dalam file, dan bagaimana formatnya
e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil ? Buatlah daftarnya
* jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di tulis diselembar kertas, boleh juga diabaikan)
1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet CTRL O
-> pilih file type All Files (*.*) -> cari dan pilih text file Anda -> tekan OK
-> kalau muncul berita tak terduga yang ada pilihan Yes No blabla, pilih Yes
-> Muncul dialog window Text To Columns
3. di Window Step 1 :
> pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file tampak tak beraturan jumlah karakter per barisnya
> start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah Anda jawab
> tekan Next
4. di Window Step 2 :
> Delimiters : Centang yang sesuai dengan jawaban 0.c.
> tekan Next
5. di Window Step 3 :
> lihat Data preview -> klik salah satu header listbox data preview -> tentukan tipedata dan formatnya di Column data format
> klik header yang lain dan lakukan hal yang sama (set datatype dan formatnya di Column data format) -> lakukan di seluruh kolom
* Pilihan di column data format per kolom adalah seperti jawaban 0.d.
* Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not import'
* Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe Date dan memilih format yang digunakan data dalam file.
> tekan Finish
6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah di-parse (proses nomor 3 sampai 5)
* CATATAN : yang dibuka adalah text file, jadi jangan di-save agar text file Anda tidak rusak
7. Salin data text file yang dibuka ke workbook lain
> Blok seluruh cells hasil open text file -> copy -> klik workbook hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
8. tutup workbook hasil open text file TANPA SAVE
9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text file -> save workbook
10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang isi text file dengan notepad.
* Jika akan diproses lebih lanjut, silakan proses data hasil penyalinan tadi.
Catatan :
Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara record macro (lihat sudut kiri bawah layar ada icon record macro)
hal di atas tadi adalah langkah untuk opentext file apa saja.
jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan untuk merapikan atau menyesuaikan dengan kebutuhan.
Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
Contoh file pemanfaatan open text bisa dilihat disini. Anda bisa mencoba menggunakan file tersebut untuk text file Anda.
Wassalamu'alaikum wr wb
Kid
Wassalamu'alaikum wr wb
Kid
2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalaamu'alaikum,
Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh attach yang saya lampirkan. Bagaimana caranya ya?
Terima kasih
Danu
#yiv4635042473 #yiv4635042473 -- #yiv4635042473ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4635042473 #yiv4635042473ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4635042473 #yiv4635042473ygrp-mkp #yiv4635042473hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4635042473 #yiv4635042473ygrp-mkp #yiv4635042473ads {margin-bottom:10px;}#yiv4635042473 #yiv4635042473ygrp-mkp .yiv4635042473ad {padding:0 0;}#yiv4635042473 #yiv4635042473ygrp-mkp .yiv4635042473ad p {margin:0;}#yiv4635042473 #yiv4635042473ygrp-mkp .yiv4635042473ad a {color:#0000ff;text-decoration:none;}#yiv4635042473 #yiv4635042473ygrp-sponsor #yiv4635042473ygrp-lc {font-family:Arial;}#yiv4635042473 #yiv4635042473ygrp-sponsor #yiv4635042473ygrp-lc #yiv4635042473hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4635042473 #yiv4635042473ygrp-sponsor #yiv4635042473ygrp-lc .yiv4635042473ad {margin-bottom:10px;padding:0 0;}#yiv4635042473 #yiv4635042473actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4635042473 #yiv4635042473activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4635042473 #yiv4635042473activity span {font-weight:700;}#yiv4635042473 #yiv4635042473activity span:first-child {text-transform:uppercase;}#yiv4635042473 #yiv4635042473activity span a {color:#5085b6;text-decoration:none;}#yiv4635042473 #yiv4635042473activity span span {color:#ff7900;}#yiv4635042473 #yiv4635042473activity span .yiv4635042473underline {text-decoration:underline;}#yiv4635042473 .yiv4635042473attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4635042473 .yiv4635042473attach div a {text-decoration:none;}#yiv4635042473 .yiv4635042473attach img {border:none;padding-right:5px;}#yiv4635042473 .yiv4635042473attach label {display:block;margin-bottom:5px;}#yiv4635042473 .yiv4635042473attach label a {text-decoration:none;}#yiv4635042473 blockquote {margin:0 0 0 4px;}#yiv4635042473 .yiv4635042473bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4635042473 .yiv4635042473bold a {text-decoration:none;}#yiv4635042473 dd.yiv4635042473last p a {font-family:Verdana;font-weight:700;}#yiv4635042473 dd.yiv4635042473last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4635042473 dd.yiv4635042473last p span.yiv4635042473yshortcuts {margin-right:0;}#yiv4635042473 div.yiv4635042473attach-table div div a {text-decoration:none;}#yiv4635042473 div.yiv4635042473attach-table {width:400px;}#yiv4635042473 div.yiv4635042473file-title a, #yiv4635042473 div.yiv4635042473file-title a:active, #yiv4635042473 div.yiv4635042473file-title a:hover, #yiv4635042473 div.yiv4635042473file-title a:visited {text-decoration:none;}#yiv4635042473 div.yiv4635042473photo-title a, #yiv4635042473 div.yiv4635042473photo-title a:active, #yiv4635042473 div.yiv4635042473photo-title a:hover, #yiv4635042473 div.yiv4635042473photo-title a:visited {text-decoration:none;}#yiv4635042473 div#yiv4635042473ygrp-mlmsg #yiv4635042473ygrp-msg p a span.yiv4635042473yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4635042473 .yiv4635042473green {color:#628c2a;}#yiv4635042473 .yiv4635042473MsoNormal {margin:0 0 0 0;}#yiv4635042473 o {font-size:0;}#yiv4635042473 #yiv4635042473photos div {float:left;width:72px;}#yiv4635042473 #yiv4635042473photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4635042473 #yiv4635042473photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4635042473 #yiv4635042473reco-category {font-size:77%;}#yiv4635042473 #yiv4635042473reco-desc {font-size:77%;}#yiv4635042473 .yiv4635042473replbq {margin:4px;}#yiv4635042473 #yiv4635042473ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4635042473 #yiv4635042473ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4635042473 #yiv4635042473ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4635042473 #yiv4635042473ygrp-mlmsg select, #yiv4635042473 input, #yiv4635042473 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4635042473 #yiv4635042473ygrp-mlmsg pre, #yiv4635042473 code {font:115% monospace;}#yiv4635042473 #yiv4635042473ygrp-mlmsg * {line-height:1.22em;}#yiv4635042473 #yiv4635042473ygrp-mlmsg #yiv4635042473logo {padding-bottom:10px;}#yiv4635042473 #yiv4635042473ygrp-msg p a {font-family:Verdana;}#yiv4635042473 #yiv4635042473ygrp-msg p#yiv4635042473attach-count span {color:#1E66AE;font-weight:700;}#yiv4635042473 #yiv4635042473ygrp-reco #yiv4635042473reco-head {color:#ff7900;font-weight:700;}#yiv4635042473 #yiv4635042473ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4635042473 #yiv4635042473ygrp-sponsor #yiv4635042473ov li a {font-size:130%;text-decoration:none;}#yiv4635042473 #yiv4635042473ygrp-sponsor #yiv4635042473ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4635042473 #yiv4635042473ygrp-sponsor #yiv4635042473ov ul {margin:0;padding:0 0 0 8px;}#yiv4635042473 #yiv4635042473ygrp-text {font-family:Georgia;}#yiv4635042473 #yiv4635042473ygrp-text p {margin:0 0 1em 0;}#yiv4635042473 #yiv4635042473ygrp-text tt {font-size:120%;}#yiv4635042473 #yiv4635042473ygrp-vital ul li:last-child {border-right:none !important;}#yiv4635042473
On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Anda sudah mencoba langkah yang di email tempo lalu ?
Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
Jika memiliki karakter delimiter, apa karakter delimiternya ?
Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah karakter setiap barisnya selalu sama ?
2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr. Kid
Terimakasih sebelumnya atas penjelasannya.Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data format yang bebeda-beda.Berikut saya lampirkan macro dan text file yang terbaru. Mohon pencerahannya.
TerimaksihDanu
On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Danu,
Coba langkah berikut :
0. Kenali isi text file Anda
a> Ada berapa kolom
b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
c> apakah karakter pemisah antar kolom dalam text file Anda ?
d> Apa tipe data masing-masing kolom dalam file, dan bagaimana formatnya
e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil ? Buatlah daftarnya
* jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di tulis diselembar kertas, boleh juga diabaikan)
1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet CTRL O
-> pilih file type All Files (*.*) -> cari dan pilih text file Anda -> tekan OK
-> kalau muncul berita tak terduga yang ada pilihan Yes No blabla, pilih Yes
-> Muncul dialog window Text To Columns
3. di Window Step 1 :
> pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file tampak tak beraturan jumlah karakter per barisnya
> start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah Anda jawab
> tekan Next
4. di Window Step 2 :
> Delimiters : Centang yang sesuai dengan jawaban 0.c.
> tekan Next
5. di Window Step 3 :
> lihat Data preview -> klik salah satu header listbox data preview -> tentukan tipedata dan formatnya di Column data format
> klik header yang lain dan lakukan hal yang sama (set datatype dan formatnya di Column data format) -> lakukan di seluruh kolom
* Pilihan di column data format per kolom adalah seperti jawaban 0.d.
* Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not import'
* Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe Date dan memilih format yang digunakan data dalam file.
> tekan Finish
6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah di-parse (proses nomor 3 sampai 5)
* CATATAN : yang dibuka adalah text file, jadi jangan di-save agar text file Anda tidak rusak
7. Salin data text file yang dibuka ke workbook lain
> Blok seluruh cells hasil open text file -> copy -> klik workbook hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
8. tutup workbook hasil open text file TANPA SAVE
9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text file -> save workbook
10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang isi text file dengan notepad.
* Jika akan diproses lebih lanjut, silakan proses data hasil penyalinan tadi.
Catatan :
Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara record macro (lihat sudut kiri bawah layar ada icon record macro)
hal di atas tadi adalah langkah untuk opentext file apa saja.
jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan untuk merapikan atau menyesuaikan dengan kebutuhan.
Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
Contoh file pemanfaatan open text bisa dilihat disini. Anda bisa mencoba menggunakan file tersebut untuk text file Anda.
Wassalamu'alaikum wr wb
Kid
Wassalamu'alaikum wr wb
Kid
2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalaamu'
Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh attach yang saya lampirkan. Bagaimana caranya ya?
Terima kasih
Danu
#yiv4635042473 #yiv4635042473 -- #yiv4635042473ygrp-
Wed Feb 3, 2016 11:47 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hmmm....
Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena
ada delimiternya) dan kemudian mencentang TAB (karena kata Anda
delimiternya TAB) ?
Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di
copas ke sini bunyi script hasil record macro nya ?
Sorry, ndak bisa buka attachment.
Bisanya lihat preview file, dan script VBA tidak tampak.
2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Sudah saya coba langkah yang di contohkan
> Text file saya memiliki karakter delimiter.
> Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Anda sudah mencoba langkah yang di email tempo lalu ?
>
> Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
> Jika memiliki karakter delimiter, apa karakter delimiternya ?
> Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah
> karakter setiap barisnya selalu sama ?
>
>
>
>
>
>
>
>
>
>
> 2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid
>
> Terimakasih sebelumnya atas penjelasannya.
> Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data
> format yang bebeda-beda.
> Berikut saya lampirkan macro dan text file yang terbaru. Mohon
> pencerahannya.
>
> Terimaksih
> Danu
>
>
>
>
>
>
>
>
>
>
>
> On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Danu,
>
> Coba langkah berikut :
> 0. Kenali isi text file Anda
> a> Ada berapa kolom
> b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
> c> apakah karakter pemisah antar kolom dalam text file Anda ?
> d> Apa tipe data masing-masing kolom dalam file, dan bagaimana
> formatnya
> e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
> f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
> g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil
> ? Buatlah daftarnya
> * jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di
> tulis diselembar kertas, boleh juga diabaikan)
> 1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks
> berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
> 2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet
> CTRL O
> -> pilih file type All Files (*.*) -> cari dan pilih text file Anda
> -> tekan OK
> -> kalau muncul berita tak terduga yang ada pilihan Yes No blabla,
> pilih Yes
> -> Muncul dialog window Text To Columns
> 3. di Window Step 1 :
> > pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file
> tampak tak beraturan jumlah karakter per barisnya
> > start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah
> Anda jawab
> > tekan Next
> 4. di Window Step 2 :
> > Delimiters : Centang yang sesuai dengan jawaban 0.c.
> > tekan Next
> 5. di Window Step 3 :
> > lihat Data preview -> klik salah satu header listbox data preview ->
> tentukan tipedata dan formatnya di Column data format
> > klik header yang lain dan lakukan hal yang sama (set datatype dan
> formatnya di Column data format) -> lakukan di seluruh kolom
> * Pilihan di column data format per kolom adalah seperti jawaban 0.d.
> * Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not
> import'
> * Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe
> Date dan memilih format yang digunakan data dalam file.
> > tekan Finish
> 6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah
> di-parse (proses nomor 3 sampai 5)
> * CATATAN : yang dibuka adalah text file, jadi jangan di-save agar
> text file Anda tidak rusak
> 7. Salin data text file yang dibuka ke workbook lain
> > Blok seluruh cells hasil open text file -> copy -> klik workbook
> hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
> 8. tutup workbook hasil open text file TANPA SAVE
> 9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text
> file -> save workbook
> 10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang
> isi text file dengan notepad.
> * Jika akan diproses lebih lanjut, silakan proses data hasil
> penyalinan tadi.
>
> Catatan :
> Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara
> record macro (lihat sudut kiri bawah layar ada icon record macro)
>
> hal di atas tadi adalah langkah untuk opentext file apa saja.
> jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi
> lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan
> pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan
> untuk merapikan atau menyesuaikan dengan kebutuhan.
> Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
>
> Contoh file pemanfaatan open text bisa dilihat disini
> <https://app.box.com/s/2h62eqztzlzqth1cp43tvhz2dev5o5lw>. Anda bisa
> mencoba menggunakan file tersebut untuk text file Anda.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalaamu'alaikum,
>
> Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh
> attach yang saya lampirkan. Bagaimana caranya ya?
>
> Terima kasih
> Danu
>
>
>
>
>
>
>
>
>
Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena
ada delimiternya) dan kemudian mencentang TAB (karena kata Anda
delimiternya TAB) ?
Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di
copas ke sini bunyi script hasil record macro nya ?
Sorry, ndak bisa buka attachment.
Bisanya lihat preview file, dan script VBA tidak tampak.
2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Sudah saya coba langkah yang di contohkan
> Text file saya memiliki karakter delimiter.
> Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Anda sudah mencoba langkah yang di email tempo lalu ?
>
> Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
> Jika memiliki karakter delimiter, apa karakter delimiternya ?
> Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah
> karakter setiap barisnya selalu sama ?
>
>
>
>
>
>
>
>
>
>
> 2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid
>
> Terimakasih sebelumnya atas penjelasannya.
> Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data
> format yang bebeda-beda.
> Berikut saya lampirkan macro dan text file yang terbaru. Mohon
> pencerahannya.
>
> Terimaksih
> Danu
>
>
>
>
>
>
>
>
>
>
>
> On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Danu,
>
> Coba langkah berikut :
> 0. Kenali isi text file Anda
> a> Ada berapa kolom
> b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
> c> apakah karakter pemisah antar kolom dalam text file Anda ?
> d> Apa tipe data masing-masing kolom dalam file, dan bagaimana
> formatnya
> e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
> f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
> g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil
> ? Buatlah daftarnya
> * jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di
> tulis diselembar kertas, boleh juga diabaikan)
> 1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks
> berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
> 2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet
> CTRL O
> -> pilih file type All Files (*.*) -> cari dan pilih text file Anda
> -> tekan OK
> -> kalau muncul berita tak terduga yang ada pilihan Yes No blabla,
> pilih Yes
> -> Muncul dialog window Text To Columns
> 3. di Window Step 1 :
> > pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file
> tampak tak beraturan jumlah karakter per barisnya
> > start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah
> Anda jawab
> > tekan Next
> 4. di Window Step 2 :
> > Delimiters : Centang yang sesuai dengan jawaban 0.c.
> > tekan Next
> 5. di Window Step 3 :
> > lihat Data preview -> klik salah satu header listbox data preview ->
> tentukan tipedata dan formatnya di Column data format
> > klik header yang lain dan lakukan hal yang sama (set datatype dan
> formatnya di Column data format) -> lakukan di seluruh kolom
> * Pilihan di column data format per kolom adalah seperti jawaban 0.d.
> * Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not
> import'
> * Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe
> Date dan memilih format yang digunakan data dalam file.
> > tekan Finish
> 6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah
> di-parse (proses nomor 3 sampai 5)
> * CATATAN : yang dibuka adalah text file, jadi jangan di-save agar
> text file Anda tidak rusak
> 7. Salin data text file yang dibuka ke workbook lain
> > Blok seluruh cells hasil open text file -> copy -> klik workbook
> hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
> 8. tutup workbook hasil open text file TANPA SAVE
> 9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text
> file -> save workbook
> 10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang
> isi text file dengan notepad.
> * Jika akan diproses lebih lanjut, silakan proses data hasil
> penyalinan tadi.
>
> Catatan :
> Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara
> record macro (lihat sudut kiri bawah layar ada icon record macro)
>
> hal di atas tadi adalah langkah untuk opentext file apa saja.
> jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi
> lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan
> pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan
> untuk merapikan atau menyesuaikan dengan kebutuhan.
> Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
>
> Contoh file pemanfaatan open text bisa dilihat disini
> <https://app.box.com/s/2h62eqztzlzqth1cp43tvhz2dev5o5lw>. Anda bisa
> mencoba menggunakan file tersebut untuk text file Anda.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalaamu'
>
> Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh
> attach yang saya lampirkan. Bagaimana caranya ya?
>
> Terima kasih
> Danu
>
>
>
>
>
>
>
>
>
Thu Feb 4, 2016 12:08 am (PST) . Posted by:
"Danu Fadillah"
Klo record macro nya belum di coba gan hehe.. saya hanya mencoba langkah2 1-10 itu.Maksud saya suhu bisa mengkoreksi script saya yang ini gitu hehe.. Sub read_obslog()
fileToOpen = Application.GetOpenFilename("Semua Files (*.*), *.*,obslog Files (*.obsv*), *.obs*", 2, "Buka File obslog ASCII JRV K.08-01") If fileToOpen = False Then End If Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _ StartRow:=6, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _ 1), Array(6, 1), Array(12, 1), Array(14, 1), Array(20, 1), Array(22, 1), Array( _ 26, 1), Array(31, 1), Array(40, 1), Array(43, 1), Array(50, 1), Array(57, 1), _ Array(1245, 1), Array(1255, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1), _ Array(1259, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1)) Range("A1").Select start_select1 = "A1" Do While ActiveCell.Offset(1, 0).Range("A1") = "H" ActiveCell.Offset(1, 0).Range("A1").Select Loop end_select1 = ActiveCell.AddressLocal(rowAbsolute:=False) ' $A1 If end_select1 = "$A1" Then Else Range(start_select1 + ":" + end_select1).EntireRow.Select Selection.Delete Shift:=xlUp End If Rows("1:1").Select Selection.Insert Shift:=xlDown Selection.RowHeight = 136.5 Selection.HorizontalAlignment = xlGeneral Selection.VerticalAlignment = xlCenter Selection.WrapText = True Selection.Orientation = xlVertical Range("A1").FormulaR1C1 = "File #" Range("B1").FormulaR1C1 = "Shot #" Range("C1").FormulaR1C1 = "Swath" Range("D1").FormulaR1C1 = "ITB" Range("E1").FormulaR1C1 = "Blaster Id" Range("F1").FormulaR1C1 = "File Count" Range("G1").FormulaR1C1 = "Tape #" Range("H1").FormulaR1C1 = "Hour" Range("I1").FormulaR1C1 = "Jday" Range("J1").FormulaR1C1 = "Line Name" Range("K1").FormulaR1C1 = "Point Number" Range("L1").FormulaR1C1 = "Live Seis" Range("M1").FormulaR1C1 = "Process Type" Range("N1").FormulaR1C1 = "Record Type" Range("O1").FormulaR1C1 = "Spread #" Range("P1").FormulaR1C1 = "TB" Range("Q1").FormulaR1C1 = "Tb Window" Range("R1").FormulaR1C1 = "Uphole Time" Range("S1").FormulaR1C1 = "Type Of Test" Range("T1").FormulaR1C1 = "Date" Range("U1").FormulaR1C1 = "Comment" Range("A1").Select Exit Sub
Resume NextEnd Sub
On Thursday, 4 February 2016, 14:47, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
hmmm....
Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena ada delimiternya) dan kemudian mencentang TAB (karena kata Anda delimiternya TAB) ?
Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di copas ke sini bunyi script hasil record macro nya ?
Sorry, ndak bisa buka attachment.
Bisanya lihat preview file, dan script VBA tidak tampak.
2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Sudah saya coba langkah yang di contohkanText file saya memiliki karakter delimiter.Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Anda sudah mencoba langkah yang di email tempo lalu ?
Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
Jika memiliki karakter delimiter, apa karakter delimiternya ?
Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah karakter setiap barisnya selalu sama ?
2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr. Kid
Terimakasih sebelumnya atas penjelasannya.Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data format yang bebeda-beda.Berikut saya lampirkan macro dan text file yang terbaru. Mohon pencerahannya.
TerimaksihDanu
On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Danu,
Coba langkah berikut :
0. Kenali isi text file Anda
a> Ada berapa kolom
b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
c> apakah karakter pemisah antar kolom dalam text file Anda ?
d> Apa tipe data masing-masing kolom dalam file, dan bagaimana formatnya
e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil ? Buatlah daftarnya
* jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di tulis diselembar kertas, boleh juga diabaikan)
1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet CTRL O
-> pilih file type All Files (*.*) -> cari dan pilih text file Anda -> tekan OK
-> kalau muncul berita tak terduga yang ada pilihan Yes No blabla, pilih Yes
-> Muncul dialog window Text To Columns
3. di Window Step 1 :
> pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file tampak tak beraturan jumlah karakter per barisnya
> start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah Anda jawab
> tekan Next
4. di Window Step 2 :
> Delimiters : Centang yang sesuai dengan jawaban 0.c.
> tekan Next
5. di Window Step 3 :
> lihat Data preview -> klik salah satu header listbox data preview -> tentukan tipedata dan formatnya di Column data format
> klik header yang lain dan lakukan hal yang sama (set datatype dan formatnya di Column data format) -> lakukan di seluruh kolom
* Pilihan di column data format per kolom adalah seperti jawaban 0.d.
* Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not import'
* Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe Date dan memilih format yang digunakan data dalam file.
> tekan Finish
6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah di-parse (proses nomor 3 sampai 5)
* CATATAN : yang dibuka adalah text file, jadi jangan di-save agar text file Anda tidak rusak
7. Salin data text file yang dibuka ke workbook lain
> Blok seluruh cells hasil open text file -> copy -> klik workbook hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
8. tutup workbook hasil open text file TANPA SAVE
9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text file -> save workbook
10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang isi text file dengan notepad.
* Jika akan diproses lebih lanjut, silakan proses data hasil penyalinan tadi.
Catatan :
Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara record macro (lihat sudut kiri bawah layar ada icon record macro)
hal di atas tadi adalah langkah untuk opentext file apa saja.
jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan untuk merapikan atau menyesuaikan dengan kebutuhan.
Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
Contoh file pemanfaatan open text bisa dilihat disini. Anda bisa mencoba menggunakan file tersebut untuk text file Anda.
Wassalamu'alaikum wr wb
Kid
Wassalamu'alaikum wr wb
Kid
2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalaamu'alaikum,
Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh attach yang saya lampirkan. Bagaimana caranya ya?
Terima kasih
Danu
#yiv4891514042 #yiv4891514042 -- #yiv4891514042ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4891514042 #yiv4891514042ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4891514042 #yiv4891514042ygrp-mkp #yiv4891514042hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4891514042 #yiv4891514042ygrp-mkp #yiv4891514042ads {margin-bottom:10px;}#yiv4891514042 #yiv4891514042ygrp-mkp .yiv4891514042ad {padding:0 0;}#yiv4891514042 #yiv4891514042ygrp-mkp .yiv4891514042ad p {margin:0;}#yiv4891514042 #yiv4891514042ygrp-mkp .yiv4891514042ad a {color:#0000ff;text-decoration:none;}#yiv4891514042 #yiv4891514042ygrp-sponsor #yiv4891514042ygrp-lc {font-family:Arial;}#yiv4891514042 #yiv4891514042ygrp-sponsor #yiv4891514042ygrp-lc #yiv4891514042hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4891514042 #yiv4891514042ygrp-sponsor #yiv4891514042ygrp-lc .yiv4891514042ad {margin-bottom:10px;padding:0 0;}#yiv4891514042 #yiv4891514042actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4891514042 #yiv4891514042activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4891514042 #yiv4891514042activity span {font-weight:700;}#yiv4891514042 #yiv4891514042activity span:first-child {text-transform:uppercase;}#yiv4891514042 #yiv4891514042activity span a {color:#5085b6;text-decoration:none;}#yiv4891514042 #yiv4891514042activity span span {color:#ff7900;}#yiv4891514042 #yiv4891514042activity span .yiv4891514042underline {text-decoration:underline;}#yiv4891514042 .yiv4891514042attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4891514042 .yiv4891514042attach div a {text-decoration:none;}#yiv4891514042 .yiv4891514042attach img {border:none;padding-right:5px;}#yiv4891514042 .yiv4891514042attach label {display:block;margin-bottom:5px;}#yiv4891514042 .yiv4891514042attach label a {text-decoration:none;}#yiv4891514042 blockquote {margin:0 0 0 4px;}#yiv4891514042 .yiv4891514042bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4891514042 .yiv4891514042bold a {text-decoration:none;}#yiv4891514042 dd.yiv4891514042last p a {font-family:Verdana;font-weight:700;}#yiv4891514042 dd.yiv4891514042last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4891514042 dd.yiv4891514042last p span.yiv4891514042yshortcuts {margin-right:0;}#yiv4891514042 div.yiv4891514042attach-table div div a {text-decoration:none;}#yiv4891514042 div.yiv4891514042attach-table {width:400px;}#yiv4891514042 div.yiv4891514042file-title a, #yiv4891514042 div.yiv4891514042file-title a:active, #yiv4891514042 div.yiv4891514042file-title a:hover, #yiv4891514042 div.yiv4891514042file-title a:visited {text-decoration:none;}#yiv4891514042 div.yiv4891514042photo-title a, #yiv4891514042 div.yiv4891514042photo-title a:active, #yiv4891514042 div.yiv4891514042photo-title a:hover, #yiv4891514042 div.yiv4891514042photo-title a:visited {text-decoration:none;}#yiv4891514042 div#yiv4891514042ygrp-mlmsg #yiv4891514042ygrp-msg p a span.yiv4891514042yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4891514042 .yiv4891514042green {color:#628c2a;}#yiv4891514042 .yiv4891514042MsoNormal {margin:0 0 0 0;}#yiv4891514042 o {font-size:0;}#yiv4891514042 #yiv4891514042photos div {float:left;width:72px;}#yiv4891514042 #yiv4891514042photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4891514042 #yiv4891514042photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4891514042 #yiv4891514042reco-category {font-size:77%;}#yiv4891514042 #yiv4891514042reco-desc {font-size:77%;}#yiv4891514042 .yiv4891514042replbq {margin:4px;}#yiv4891514042 #yiv4891514042ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4891514042 #yiv4891514042ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4891514042 #yiv4891514042ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4891514042 #yiv4891514042ygrp-mlmsg select, #yiv4891514042 input, #yiv4891514042 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4891514042 #yiv4891514042ygrp-mlmsg pre, #yiv4891514042 code {font:115% monospace;}#yiv4891514042 #yiv4891514042ygrp-mlmsg * {line-height:1.22em;}#yiv4891514042 #yiv4891514042ygrp-mlmsg #yiv4891514042logo {padding-bottom:10px;}#yiv4891514042 #yiv4891514042ygrp-msg p a {font-family:Verdana;}#yiv4891514042 #yiv4891514042ygrp-msg p#yiv4891514042attach-count span {color:#1E66AE;font-weight:700;}#yiv4891514042 #yiv4891514042ygrp-reco #yiv4891514042reco-head {color:#ff7900;font-weight:700;}#yiv4891514042 #yiv4891514042ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4891514042 #yiv4891514042ygrp-sponsor #yiv4891514042ov li a {font-size:130%;text-decoration:none;}#yiv4891514042 #yiv4891514042ygrp-sponsor #yiv4891514042ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4891514042 #yiv4891514042ygrp-sponsor #yiv4891514042ov ul {margin:0;padding:0 0 0 8px;}#yiv4891514042 #yiv4891514042ygrp-text {font-family:Georgia;}#yiv4891514042 #yiv4891514042ygrp-text p {margin:0 0 1em 0;}#yiv4891514042 #yiv4891514042ygrp-text tt {font-size:120%;}#yiv4891514042 #yiv4891514042ygrp-vital ul li:last-child {border-right:none !important;}#yiv4891514042
fileToOpen = Application.GetOpenFilename("Semua Files (*.*), *.*,obslog Files (*.obsv*), *.obs*", 2, "Buka File obslog ASCII JRV K.08-01") If fileToOpen = False Then End If Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _ StartRow:=6, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _ 1), Array(6, 1), Array(12, 1), Array(14, 1), Array(20, 1), Array(22, 1), Array( _ 26, 1), Array(31, 1), Array(40, 1), Array(43, 1), Array(50, 1), Array(57, 1), _ Array(1245, 1), Array(1255, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1), _ Array(1259, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1)) Range("A1").Select start_select1 = "A1" Do While ActiveCell.Offset(1, 0).Range("A1") = "H" ActiveCell.Offset(1, 0).Range("A1").Select Loop end_select1 = ActiveCell.AddressLocal(rowAbsolute:=False) ' $A1 If end_select1 = "$A1" Then Else Range(start_select1 + ":" + end_select1).EntireRow.Select Selection.Delete Shift:=xlUp End If Rows("1:1").Select Selection.Insert Shift:=xlDown Selection.RowHeight = 136.5 Selection.HorizontalAlignment = xlGeneral Selection.VerticalAlignment = xlCenter Selection.WrapText = True Selection.Orientation = xlVertical Range("A1").FormulaR1C1 = "File #" Range("B1").FormulaR1C1 = "Shot #" Range("C1").FormulaR1C1 = "Swath" Range("D1").FormulaR1C1 = "ITB" Range("E1").FormulaR1C1 = "Blaster Id" Range("F1").FormulaR1C1 = "File Count" Range("G1").FormulaR1C1 = "Tape #" Range("H1").FormulaR1C1 = "Hour" Range("I1").FormulaR1C1 = "Jday" Range("J1").FormulaR1C1 = "Line Name" Range("K1").FormulaR1C1 = "Point Number" Range("L1").FormulaR1C1 = "Live Seis" Range("M1").FormulaR1C1 = "Process Type" Range("N1").FormulaR1C1 = "Record Type" Range("O1").FormulaR1C1 = "Spread #" Range("P1").FormulaR1C1 = "TB" Range("Q1").FormulaR1C1 = "Tb Window" Range("R1").FormulaR1C1 = "Uphole Time" Range("S1").FormulaR1C1 = "Type Of Test" Range("T1").FormulaR1C1 = "Date" Range("U1").FormulaR1C1 = "Comment" Range("A1").Select Exit Sub
Resume NextEnd Sub
On Thursday, 4 February 2016, 14:47, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
hmmm....
Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena ada delimiternya) dan kemudian mencentang TAB (karena kata Anda delimiternya TAB) ?
Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di copas ke sini bunyi script hasil record macro nya ?
Sorry, ndak bisa buka attachment.
Bisanya lihat preview file, dan script VBA tidak tampak.
2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Sudah saya coba langkah yang di contohkanText file saya memiliki karakter delimiter.Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Anda sudah mencoba langkah yang di email tempo lalu ?
Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
Jika memiliki karakter delimiter, apa karakter delimiternya ?
Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah karakter setiap barisnya selalu sama ?
2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr. Kid
Terimakasih sebelumnya atas penjelasannya.Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data format yang bebeda-beda.Berikut saya lampirkan macro dan text file yang terbaru. Mohon pencerahannya.
TerimaksihDanu
On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Danu,
Coba langkah berikut :
0. Kenali isi text file Anda
a> Ada berapa kolom
b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
c> apakah karakter pemisah antar kolom dalam text file Anda ?
d> Apa tipe data masing-masing kolom dalam file, dan bagaimana formatnya
e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil ? Buatlah daftarnya
* jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di tulis diselembar kertas, boleh juga diabaikan)
1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet CTRL O
-> pilih file type All Files (*.*) -> cari dan pilih text file Anda -> tekan OK
-> kalau muncul berita tak terduga yang ada pilihan Yes No blabla, pilih Yes
-> Muncul dialog window Text To Columns
3. di Window Step 1 :
> pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file tampak tak beraturan jumlah karakter per barisnya
> start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah Anda jawab
> tekan Next
4. di Window Step 2 :
> Delimiters : Centang yang sesuai dengan jawaban 0.c.
> tekan Next
5. di Window Step 3 :
> lihat Data preview -> klik salah satu header listbox data preview -> tentukan tipedata dan formatnya di Column data format
> klik header yang lain dan lakukan hal yang sama (set datatype dan formatnya di Column data format) -> lakukan di seluruh kolom
* Pilihan di column data format per kolom adalah seperti jawaban 0.d.
* Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not import'
* Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe Date dan memilih format yang digunakan data dalam file.
> tekan Finish
6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah di-parse (proses nomor 3 sampai 5)
* CATATAN : yang dibuka adalah text file, jadi jangan di-save agar text file Anda tidak rusak
7. Salin data text file yang dibuka ke workbook lain
> Blok seluruh cells hasil open text file -> copy -> klik workbook hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
8. tutup workbook hasil open text file TANPA SAVE
9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text file -> save workbook
10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang isi text file dengan notepad.
* Jika akan diproses lebih lanjut, silakan proses data hasil penyalinan tadi.
Catatan :
Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara record macro (lihat sudut kiri bawah layar ada icon record macro)
hal di atas tadi adalah langkah untuk opentext file apa saja.
jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan untuk merapikan atau menyesuaikan dengan kebutuhan.
Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
Contoh file pemanfaatan open text bisa dilihat disini. Anda bisa mencoba menggunakan file tersebut untuk text file Anda.
Wassalamu'alaikum wr wb
Kid
Wassalamu'alaikum wr wb
Kid
2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalaamu'
Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh attach yang saya lampirkan. Bagaimana caranya ya?
Terima kasih
Danu
#yiv4891514042 #yiv4891514042 -- #yiv4891514042ygrp-
Thu Feb 4, 2016 12:34 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hasil coba manualnya sukses kan...
Oh terus Anda nyomot script dari antah berantah to...
Kenapa gak coba record macro dari langkah 1 - 10 saja....
Karena script yang Anda comot itu gak cocok dengan text file Anda.
Hasil record macro langkah 1-10 tersebut di copas ke script yang Anda comot
tadi. Bisa menggantikan bagian workbooks.opentext sampai sebelum end sub.
Tinggal mengganti saja teks filename menjadi =filetoopen
Script yang Anda comot tidak sesuai dengan text file Anda karena di script
tersebut menggunakan xlFixedWidth dan pastilah field infonya yang ada array
panjang itu menjadi tidak berguna.
Oh iya,
Kalau bisa, atur type setiap kolomnya. Jangan asal dipasrahkan menjadi
general. Apalagi kalau sedang di record macro.
Kalau semua di set general, jika ada :
1. suatu kolom berisi kode yang berisi angka-angka sebanyak 16 digit atau
lebih, maka angka ke-16 dan seterusnya akan menjadi 0. Artinya Anda akan
kehilangan data.
2. suatu kolom berisi data tanggal dengan format yang tidak sama dengan
format yang dipakai Excel dan tidak sama dengan regional setting komputer
setempat, maka data tanggal tersebut bisa dikonversi menjadi tanggal yang
salah atau sekedar menjadi data text yang harus diolah dengan formula yang
cukup panjang agar bisa dimanfaatkan dengan mudah.
Contoh : text file berisi kolom tanggal berformat YYMMDD yang berbunyi
111223 bisa jadi akan diubah menjadi angka 111223 karena diset general,
padahal bisa menjadi datetime 23 Dec 2011.
Atau format file MM-DD-YY bernilai 11-03-07 yang harusnya 3 Nov 2007
menjadi 11 Mar 2007
2016-02-04 15:01 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Klo record macro nya belum di coba gan hehe.. saya hanya mencoba langkah2
> 1-10 itu.
> Maksud saya suhu bisa mengkoreksi script saya yang ini gitu hehe..
>
> Sub read_obslog()
>
> fileToOpen = Application.GetOpenFilename("Semua Files (*.*),
> *.*,obslog Files (*.obsv*), *.obs*", 2, "Buka File obslog ASCII
> JRV K.08-01")
> If fileToOpen = False Then
>
> End If
> Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _
> StartRow:=6, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
> 1), Array(6, 1), Array(12, 1), Array(14, 1), Array(20, 1),
> Array(22, 1), Array( _
> 26, 1), Array(31, 1), Array(40, 1), Array(43, 1), Array(50, 1),
> Array(57, 1), _
> Array(1245, 1), Array(1255, 1), Array(1259, 1), Array(1259, 1),
> Array(1259, 1), _
> Array(1259, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1))
> Range("A1").Select
> start_select1 = "A1"
> Do While ActiveCell.Offset(1, 0).Range("A1") = "H"
> ActiveCell.Offset(1, 0).Range("A1").Select
> Loop
> end_select1 = ActiveCell.AddressLocal(rowAbsolute:=False) ' $A1
> If end_select1 = "$A1" Then
> Else
> Range(start_select1 + ":" + end_select1).EntireRow.Select
> Selection.Delete Shift:=xlUp
> End If
> Rows("1:1").Select
> Selection.Insert Shift:=xlDown
> Selection.RowHeight = 136.5
> Selection.HorizontalAlignment = xlGeneral
> Selection.VerticalAlignment = xlCenter
> Selection.WrapText = True
> Selection.Orientation = xlVertical
>
> Range("A1").FormulaR1C1 = "File #"
> Range("B1").FormulaR1C1 = "Shot #"
> Range("C1").FormulaR1C1 = "Swath"
> Range("D1").FormulaR1C1 = "ITB"
> Range("E1").FormulaR1C1 = "Blaster Id"
> Range("F1").FormulaR1C1 = "File Count"
> Range("G1").FormulaR1C1 = "Tape #"
> Range("H1").FormulaR1C1 = "Hour"
> Range("I1").FormulaR1C1 = "Jday"
> Range("J1").FormulaR1C1 = "Line Name"
> Range("K1").FormulaR1C1 = "Point Number"
> Range("L1").FormulaR1C1 = "Live Seis"
> Range("M1").FormulaR1C1 = "Process Type"
> Range("N1").FormulaR1C1 = "Record Type"
> Range("O1").FormulaR1C1 = "Spread #"
> Range("P1").FormulaR1C1 = "TB"
> Range("Q1").FormulaR1C1 = "Tb Window"
> Range("R1").FormulaR1C1 = "Uphole Time"
> Range("S1").FormulaR1C1 = "Type Of Test"
> Range("T1").FormulaR1C1 = "Date"
> Range("U1").FormulaR1C1 = "Comment"
> Range("A1").Select
>
>
> Exit Sub
>
> Resume Next
> End Sub
>
>
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 14:47, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> hmmm....
> Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena
> ada delimiternya) dan kemudian mencentang TAB (karena kata Anda
> delimiternya TAB) ?
>
> Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
> Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di
> copas ke sini bunyi script hasil record macro nya ?
>
> Sorry, ndak bisa buka attachment.
> Bisanya lihat preview file, dan script VBA tidak tampak.
>
>
>
>
>
>
>
>
>
> 2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Sudah saya coba langkah yang di contohkan
> Text file saya memiliki karakter delimiter.
> Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Anda sudah mencoba langkah yang di email tempo lalu ?
>
> Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
> Jika memiliki karakter delimiter, apa karakter delimiternya ?
> Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah
> karakter setiap barisnya selalu sama ?
>
>
>
>
>
>
>
>
>
>
> 2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid
>
> Terimakasih sebelumnya atas penjelasannya.
> Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data
> format yang bebeda-beda.
> Berikut saya lampirkan macro dan text file yang terbaru. Mohon
> pencerahannya.
>
> Terimaksih
> Danu
>
>
>
>
>
>
>
>
>
>
>
> On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Danu,
>
> Coba langkah berikut :
> 0. Kenali isi text file Anda
> a> Ada berapa kolom
> b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
> c> apakah karakter pemisah antar kolom dalam text file Anda ?
> d> Apa tipe data masing-masing kolom dalam file, dan bagaimana
> formatnya
> e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
> f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
> g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil
> ? Buatlah daftarnya
> * jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di
> tulis diselembar kertas, boleh juga diabaikan)
> 1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks
> berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
> 2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet
> CTRL O
> -> pilih file type All Files (*.*) -> cari dan pilih text file Anda
> -> tekan OK
> -> kalau muncul berita tak terduga yang ada pilihan Yes No blabla,
> pilih Yes
> -> Muncul dialog window Text To Columns
> 3. di Window Step 1 :
> > pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file
> tampak tak beraturan jumlah karakter per barisnya
> > start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah
> Anda jawab
> > tekan Next
> 4. di Window Step 2 :
> > Delimiters : Centang yang sesuai dengan jawaban 0.c.
> > tekan Next
> 5. di Window Step 3 :
> > lihat Data preview -> klik salah satu header listbox data preview ->
> tentukan tipedata dan formatnya di Column data format
> > klik header yang lain dan lakukan hal yang sama (set datatype dan
> formatnya di Column data format) -> lakukan di seluruh kolom
> * Pilihan di column data format per kolom adalah seperti jawaban 0.d.
> * Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not
> import'
> * Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe
> Date dan memilih format yang digunakan data dalam file.
> > tekan Finish
> 6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah
> di-parse (proses nomor 3 sampai 5)
> * CATATAN : yang dibuka adalah text file, jadi jangan di-save agar
> text file Anda tidak rusak
> 7. Salin data text file yang dibuka ke workbook lain
> > Blok seluruh cells hasil open text file -> copy -> klik workbook
> hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
> 8. tutup workbook hasil open text file TANPA SAVE
> 9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text
> file -> save workbook
> 10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang
> isi text file dengan notepad.
> * Jika akan diproses lebih lanjut, silakan proses data hasil
> penyalinan tadi.
>
> Catatan :
> Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara
> record macro (lihat sudut kiri bawah layar ada icon record macro)
>
> hal di atas tadi adalah langkah untuk opentext file apa saja.
> jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi
> lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan
> pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan
> untuk merapikan atau menyesuaikan dengan kebutuhan.
> Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
>
> Contoh file pemanfaatan open text bisa dilihat disini
> <https://app.box.com/s/2h62eqztzlzqth1cp43tvhz2dev5o5lw>. Anda bisa
> mencoba menggunakan file tersebut untuk text file Anda.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalaamu'alaikum,
>
> Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh
> attach yang saya lampirkan. Bagaimana caranya ya?
>
> Terima kasih
> Danu
>
>
>
>
>
>
>
>
>
>
>
>
Oh terus Anda nyomot script dari antah berantah to...
Kenapa gak coba record macro dari langkah 1 - 10 saja....
Karena script yang Anda comot itu gak cocok dengan text file Anda.
Hasil record macro langkah 1-10 tersebut di copas ke script yang Anda comot
tadi. Bisa menggantikan bagian workbooks.opentext sampai sebelum end sub.
Tinggal mengganti saja teks filename menjadi =filetoopen
Script yang Anda comot tidak sesuai dengan text file Anda karena di script
tersebut menggunakan xlFixedWidth dan pastilah field infonya yang ada array
panjang itu menjadi tidak berguna.
Oh iya,
Kalau bisa, atur type setiap kolomnya. Jangan asal dipasrahkan menjadi
general. Apalagi kalau sedang di record macro.
Kalau semua di set general, jika ada :
1. suatu kolom berisi kode yang berisi angka-angka sebanyak 16 digit atau
lebih, maka angka ke-16 dan seterusnya akan menjadi 0. Artinya Anda akan
kehilangan data.
2. suatu kolom berisi data tanggal dengan format yang tidak sama dengan
format yang dipakai Excel dan tidak sama dengan regional setting komputer
setempat, maka data tanggal tersebut bisa dikonversi menjadi tanggal yang
salah atau sekedar menjadi data text yang harus diolah dengan formula yang
cukup panjang agar bisa dimanfaatkan dengan mudah.
Contoh : text file berisi kolom tanggal berformat YYMMDD yang berbunyi
111223 bisa jadi akan diubah menjadi angka 111223 karena diset general,
padahal bisa menjadi datetime 23 Dec 2011.
Atau format file MM-DD-YY bernilai 11-03-07 yang harusnya 3 Nov 2007
menjadi 11 Mar 2007
2016-02-04 15:01 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Klo record macro nya belum di coba gan hehe.. saya hanya mencoba langkah2
> 1-10 itu.
> Maksud saya suhu bisa mengkoreksi script saya yang ini gitu hehe..
>
> Sub read_obslog()
>
> fileToOpen = Application.GetOpenFilename("Semua Files (*.*),
> *.*,obslog Files (*.obsv*), *.obs*", 2, "Buka File obslog ASCII
> JRV K.08-01")
> If fileToOpen = False Then
>
> End If
> Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _
> StartRow:=6, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
> 1), Array(6, 1), Array(12, 1), Array(14, 1), Array(20, 1),
> Array(22, 1), Array( _
> 26, 1), Array(31, 1), Array(40, 1), Array(43, 1), Array(50, 1),
> Array(57, 1), _
> Array(1245, 1), Array(1255, 1), Array(1259, 1), Array(1259, 1),
> Array(1259, 1), _
> Array(1259, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1))
> Range("A1").Select
> start_select1 = "A1"
> Do While ActiveCell.Offset(1, 0).Range("A1") = "H"
> ActiveCell.Offset(1, 0).Range("A1").Select
> Loop
> end_select1 = ActiveCell.AddressLocal(rowAbsolute:=False) ' $A1
> If end_select1 = "$A1" Then
> Else
> Range(start_select1 + ":" + end_select1).EntireRow.Select
> Selection.Delete Shift:=xlUp
> End If
> Rows("1:1").Select
> Selection.Insert Shift:=xlDown
> Selection.RowHeight = 136.5
> Selection.HorizontalAlignment = xlGeneral
> Selection.VerticalAlignment = xlCenter
> Selection.WrapText = True
> Selection.Orientation = xlVertical
>
> Range("A1").FormulaR1C1 = "File #"
> Range("B1").FormulaR1C1 = "Shot #"
> Range("C1").FormulaR1C1 = "Swath"
> Range("D1").FormulaR1C1 = "ITB"
> Range("E1").FormulaR1C1 = "Blaster Id"
> Range("F1").FormulaR1C1 = "File Count"
> Range("G1").FormulaR1C1 = "Tape #"
> Range("H1").FormulaR1C1 = "Hour"
> Range("I1").FormulaR1C1 = "Jday"
> Range("J1").FormulaR1C1 = "Line Name"
> Range("K1").FormulaR1C1 = "Point Number"
> Range("L1").FormulaR1C1 = "Live Seis"
> Range("M1").FormulaR1C1 = "Process Type"
> Range("N1").FormulaR1C1 = "Record Type"
> Range("O1").FormulaR1C1 = "Spread #"
> Range("P1").FormulaR1C1 = "TB"
> Range("Q1").FormulaR1C1 = "Tb Window"
> Range("R1").FormulaR1C1 = "Uphole Time"
> Range("S1").FormulaR1C1 = "Type Of Test"
> Range("T1").FormulaR1C1 = "Date"
> Range("U1").FormulaR1C1 = "Comment"
> Range("A1").Select
>
>
> Exit Sub
>
> Resume Next
> End Sub
>
>
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 14:47, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> hmmm....
> Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena
> ada delimiternya) dan kemudian mencentang TAB (karena kata Anda
> delimiternya TAB) ?
>
> Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
> Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di
> copas ke sini bunyi script hasil record macro nya ?
>
> Sorry, ndak bisa buka attachment.
> Bisanya lihat preview file, dan script VBA tidak tampak.
>
>
>
>
>
>
>
>
>
> 2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Sudah saya coba langkah yang di contohkan
> Text file saya memiliki karakter delimiter.
> Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Anda sudah mencoba langkah yang di email tempo lalu ?
>
> Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
> Jika memiliki karakter delimiter, apa karakter delimiternya ?
> Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah
> karakter setiap barisnya selalu sama ?
>
>
>
>
>
>
>
>
>
>
> 2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid
>
> Terimakasih sebelumnya atas penjelasannya.
> Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data
> format yang bebeda-beda.
> Berikut saya lampirkan macro dan text file yang terbaru. Mohon
> pencerahannya.
>
> Terimaksih
> Danu
>
>
>
>
>
>
>
>
>
>
>
> On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Danu,
>
> Coba langkah berikut :
> 0. Kenali isi text file Anda
> a> Ada berapa kolom
> b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
> c> apakah karakter pemisah antar kolom dalam text file Anda ?
> d> Apa tipe data masing-masing kolom dalam file, dan bagaimana
> formatnya
> e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
> f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
> g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil
> ? Buatlah daftarnya
> * jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di
> tulis diselembar kertas, boleh juga diabaikan)
> 1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks
> berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
> 2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet
> CTRL O
> -> pilih file type All Files (*.*) -> cari dan pilih text file Anda
> -> tekan OK
> -> kalau muncul berita tak terduga yang ada pilihan Yes No blabla,
> pilih Yes
> -> Muncul dialog window Text To Columns
> 3. di Window Step 1 :
> > pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file
> tampak tak beraturan jumlah karakter per barisnya
> > start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah
> Anda jawab
> > tekan Next
> 4. di Window Step 2 :
> > Delimiters : Centang yang sesuai dengan jawaban 0.c.
> > tekan Next
> 5. di Window Step 3 :
> > lihat Data preview -> klik salah satu header listbox data preview ->
> tentukan tipedata dan formatnya di Column data format
> > klik header yang lain dan lakukan hal yang sama (set datatype dan
> formatnya di Column data format) -> lakukan di seluruh kolom
> * Pilihan di column data format per kolom adalah seperti jawaban 0.d.
> * Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not
> import'
> * Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe
> Date dan memilih format yang digunakan data dalam file.
> > tekan Finish
> 6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah
> di-parse (proses nomor 3 sampai 5)
> * CATATAN : yang dibuka adalah text file, jadi jangan di-save agar
> text file Anda tidak rusak
> 7. Salin data text file yang dibuka ke workbook lain
> > Blok seluruh cells hasil open text file -> copy -> klik workbook
> hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
> 8. tutup workbook hasil open text file TANPA SAVE
> 9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text
> file -> save workbook
> 10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang
> isi text file dengan notepad.
> * Jika akan diproses lebih lanjut, silakan proses data hasil
> penyalinan tadi.
>
> Catatan :
> Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara
> record macro (lihat sudut kiri bawah layar ada icon record macro)
>
> hal di atas tadi adalah langkah untuk opentext file apa saja.
> jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi
> lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan
> pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan
> untuk merapikan atau menyesuaikan dengan kebutuhan.
> Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
>
> Contoh file pemanfaatan open text bisa dilihat disini
> <https://app.box.com/s/2h62eqztzlzqth1cp43tvhz2dev5o5lw>. Anda bisa
> mencoba menggunakan file tersebut untuk text file Anda.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalaamu'
>
> Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh
> attach yang saya lampirkan. Bagaimana caranya ya?
>
> Terima kasih
> Danu
>
>
>
>
>
>
>
>
>
>
>
>
Thu Feb 4, 2016 1:23 am (PST) . Posted by:
"Danu Fadillah"
Iya sukses cara manualnya..Wah gak antah berantah juga kali gan hehe... Scriptnya sesuai ko ternyata bener kata agan masalahnya di sini xlFixedWidth harusnya ini xldelimited hehe..Tapi emg benar bagusnya type tiap kolom di atur.Btw matursuwun gan wejangannya sangat membantu.
On Thursday, 4 February 2016, 15:34, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hasil coba manualnya sukses kan...
Oh terus Anda nyomot script dari antah berantah to...
Kenapa gak coba record macro dari langkah 1 - 10 saja....
Karena script yang Anda comot itu gak cocok dengan text file Anda.
Hasil record macro langkah 1-10 tersebut di copas ke script yang Anda comot tadi. Bisa menggantikan bagian workbooks.opentext sampai sebelum end sub. Tinggal mengganti saja teks filename menjadi =filetoopen
Script yang Anda comot tidak sesuai dengan text file Anda karena di script tersebut menggunakan xlFixedWidth dan pastilah field infonya yang ada array panjang itu menjadi tidak berguna.
Oh iya,
Kalau bisa, atur type setiap kolomnya. Jangan asal dipasrahkan menjadi general. Apalagi kalau sedang di record macro.
Kalau semua di set general, jika ada :
1. suatu kolom berisi kode yang berisi angka-angka sebanyak 16 digit atau lebih, maka angka ke-16 dan seterusnya akan menjadi 0. Artinya Anda akan kehilangan data.
2. suatu kolom berisi data tanggal dengan format yang tidak sama dengan format yang dipakai Excel dan tidak sama dengan regional setting komputer setempat, maka data tanggal tersebut bisa dikonversi menjadi tanggal yang salah atau sekedar menjadi data text yang harus diolah dengan formula yang cukup panjang agar bisa dimanfaatkan dengan mudah.
Contoh : text file berisi kolom tanggal berformat YYMMDD yang berbunyi 111223 bisa jadi akan diubah menjadi angka 111223 karena diset general, padahal bisa menjadi datetime 23 Dec 2011.
Atau format file MM-DD-YY bernilai 11-03-07 yang harusnya 3 Nov 2007 menjadi 11 Mar 2007
2016-02-04 15:01 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Klo record macro nya belum di coba gan hehe.. saya hanya mencoba langkah2 1-10 itu.Maksud saya suhu bisa mengkoreksi script saya yang ini gitu hehe.. Sub read_obslog()
fileToOpen = Application.GetOpenFilename("Semua Files (*.*), *.*,obslog Files (*.obsv*), *.obs*", 2, "Buka File obslog ASCII JRV K.08-01") If fileToOpen = False Then End If Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _ StartRow:=6, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _ 1), Array(6, 1), Array(12, 1), Array(14, 1), Array(20, 1), Array(22, 1), Array( _ 26, 1), Array(31, 1), Array(40, 1), Array(43, 1), Array(50, 1), Array(57, 1), _ Array(1245, 1), Array(1255, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1), _ Array(1259, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1)) Range("A1").Select start_select1 = "A1" Do While ActiveCell.Offset(1, 0).Range("A1") = "H" ActiveCell.Offset(1, 0).Range("A1").Select Loop end_select1 = ActiveCell.AddressLocal(rowAbsolute:=False) ' $A1 If end_select1 = "$A1" Then Else Range(start_select1 + ":" + end_select1).EntireRow.Select Selection.Delete Shift:=xlUp End If Rows("1:1").Select Selection.Insert Shift:=xlDown Selection.RowHeight = 136.5 Selection.HorizontalAlignment = xlGeneral Selection.VerticalAlignment = xlCenter Selection.WrapText = True Selection.Orientation = xlVertical Range("A1").FormulaR1C1 = "File #" Range("B1").FormulaR1C1 = "Shot #" Range("C1").FormulaR1C1 = "Swath" Range("D1").FormulaR1C1 = "ITB" Range("E1").FormulaR1C1 = "Blaster Id" Range("F1").FormulaR1C1 = "File Count" Range("G1").FormulaR1C1 = "Tape #" Range("H1").FormulaR1C1 = "Hour" Range("I1").FormulaR1C1 = "Jday" Range("J1").FormulaR1C1 = "Line Name" Range("K1").FormulaR1C1 = "Point Number" Range("L1").FormulaR1C1 = "Live Seis" Range("M1").FormulaR1C1 = "Process Type" Range("N1").FormulaR1C1 = "Record Type" Range("O1").FormulaR1C1 = "Spread #" Range("P1").FormulaR1C1 = "TB" Range("Q1").FormulaR1C1 = "Tb Window" Range("R1").FormulaR1C1 = "Uphole Time" Range("S1").FormulaR1C1 = "Type Of Test" Range("T1").FormulaR1C1 = "Date" Range("U1").FormulaR1C1 = "Comment" Range("A1").Select Exit Sub
Resume NextEnd Sub
On Thursday, 4 February 2016, 14:47, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
hmmm....
Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena ada delimiternya) dan kemudian mencentang TAB (karena kata Anda delimiternya TAB) ?
Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di copas ke sini bunyi script hasil record macro nya ?
Sorry, ndak bisa buka attachment.
Bisanya lihat preview file, dan script VBA tidak tampak.
2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Sudah saya coba langkah yang di contohkanText file saya memiliki karakter delimiter.Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Anda sudah mencoba langkah yang di email tempo lalu ?
Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
Jika memiliki karakter delimiter, apa karakter delimiternya ?
Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah karakter setiap barisnya selalu sama ?
2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr. Kid
Terimakasih sebelumnya atas penjelasannya.Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data format yang bebeda-beda.Berikut saya lampirkan macro dan text file yang terbaru. Mohon pencerahannya.
TerimaksihDanu
On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Danu,
Coba langkah berikut :
0. Kenali isi text file Anda
a> Ada berapa kolom
b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
c> apakah karakter pemisah antar kolom dalam text file Anda ?
d> Apa tipe data masing-masing kolom dalam file, dan bagaimana formatnya
e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil ? Buatlah daftarnya
* jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di tulis diselembar kertas, boleh juga diabaikan)
1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet CTRL O
-> pilih file type All Files (*.*) -> cari dan pilih text file Anda -> tekan OK
-> kalau muncul berita tak terduga yang ada pilihan Yes No blabla, pilih Yes
-> Muncul dialog window Text To Columns
3. di Window Step 1 :
> pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file tampak tak beraturan jumlah karakter per barisnya
> start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah Anda jawab
> tekan Next
4. di Window Step 2 :
> Delimiters : Centang yang sesuai dengan jawaban 0.c.
> tekan Next
5. di Window Step 3 :
> lihat Data preview -> klik salah satu header listbox data preview -> tentukan tipedata dan formatnya di Column data format
> klik header yang lain dan lakukan hal yang sama (set datatype dan formatnya di Column data format) -> lakukan di seluruh kolom
* Pilihan di column data format per kolom adalah seperti jawaban 0.d.
* Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not import'
* Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe Date dan memilih format yang digunakan data dalam file.
> tekan Finish
6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah di-parse (proses nomor 3 sampai 5)
* CATATAN : yang dibuka adalah text file, jadi jangan di-save agar text file Anda tidak rusak
7. Salin data text file yang dibuka ke workbook lain
> Blok seluruh cells hasil open text file -> copy -> klik workbook hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
8. tutup workbook hasil open text file TANPA SAVE
9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text file -> save workbook
10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang isi text file dengan notepad.
* Jika akan diproses lebih lanjut, silakan proses data hasil penyalinan tadi.
Catatan :
Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara record macro (lihat sudut kiri bawah layar ada icon record macro)
hal di atas tadi adalah langkah untuk opentext file apa saja.
jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan untuk merapikan atau menyesuaikan dengan kebutuhan.
Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
Contoh file pemanfaatan open text bisa dilihat disini. Anda bisa mencoba menggunakan file tersebut untuk text file Anda.
Wassalamu'alaikum wr wb
Kid
Wassalamu'alaikum wr wb
Kid
2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalaamu'alaikum,
Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh attach yang saya lampirkan. Bagaimana caranya ya?
Terima kasih
Danu
#yiv4717957799 #yiv4717957799 -- #yiv4717957799ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4717957799 #yiv4717957799ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4717957799 #yiv4717957799ygrp-mkp #yiv4717957799hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4717957799 #yiv4717957799ygrp-mkp #yiv4717957799ads {margin-bottom:10px;}#yiv4717957799 #yiv4717957799ygrp-mkp .yiv4717957799ad {padding:0 0;}#yiv4717957799 #yiv4717957799ygrp-mkp .yiv4717957799ad p {margin:0;}#yiv4717957799 #yiv4717957799ygrp-mkp .yiv4717957799ad a {color:#0000ff;text-decoration:none;}#yiv4717957799 #yiv4717957799ygrp-sponsor #yiv4717957799ygrp-lc {font-family:Arial;}#yiv4717957799 #yiv4717957799ygrp-sponsor #yiv4717957799ygrp-lc #yiv4717957799hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4717957799 #yiv4717957799ygrp-sponsor #yiv4717957799ygrp-lc .yiv4717957799ad {margin-bottom:10px;padding:0 0;}#yiv4717957799 #yiv4717957799actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4717957799 #yiv4717957799activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4717957799 #yiv4717957799activity span {font-weight:700;}#yiv4717957799 #yiv4717957799activity span:first-child {text-transform:uppercase;}#yiv4717957799 #yiv4717957799activity span a {color:#5085b6;text-decoration:none;}#yiv4717957799 #yiv4717957799activity span span {color:#ff7900;}#yiv4717957799 #yiv4717957799activity span .yiv4717957799underline {text-decoration:underline;}#yiv4717957799 .yiv4717957799attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4717957799 .yiv4717957799attach div a {text-decoration:none;}#yiv4717957799 .yiv4717957799attach img {border:none;padding-right:5px;}#yiv4717957799 .yiv4717957799attach label {display:block;margin-bottom:5px;}#yiv4717957799 .yiv4717957799attach label a {text-decoration:none;}#yiv4717957799 blockquote {margin:0 0 0 4px;}#yiv4717957799 .yiv4717957799bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4717957799 .yiv4717957799bold a {text-decoration:none;}#yiv4717957799 dd.yiv4717957799last p a {font-family:Verdana;font-weight:700;}#yiv4717957799 dd.yiv4717957799last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4717957799 dd.yiv4717957799last p span.yiv4717957799yshortcuts {margin-right:0;}#yiv4717957799 div.yiv4717957799attach-table div div a {text-decoration:none;}#yiv4717957799 div.yiv4717957799attach-table {width:400px;}#yiv4717957799 div.yiv4717957799file-title a, #yiv4717957799 div.yiv4717957799file-title a:active, #yiv4717957799 div.yiv4717957799file-title a:hover, #yiv4717957799 div.yiv4717957799file-title a:visited {text-decoration:none;}#yiv4717957799 div.yiv4717957799photo-title a, #yiv4717957799 div.yiv4717957799photo-title a:active, #yiv4717957799 div.yiv4717957799photo-title a:hover, #yiv4717957799 div.yiv4717957799photo-title a:visited {text-decoration:none;}#yiv4717957799 div#yiv4717957799ygrp-mlmsg #yiv4717957799ygrp-msg p a span.yiv4717957799yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4717957799 .yiv4717957799green {color:#628c2a;}#yiv4717957799 .yiv4717957799MsoNormal {margin:0 0 0 0;}#yiv4717957799 o {font-size:0;}#yiv4717957799 #yiv4717957799photos div {float:left;width:72px;}#yiv4717957799 #yiv4717957799photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4717957799 #yiv4717957799photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4717957799 #yiv4717957799reco-category {font-size:77%;}#yiv4717957799 #yiv4717957799reco-desc {font-size:77%;}#yiv4717957799 .yiv4717957799replbq {margin:4px;}#yiv4717957799 #yiv4717957799ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4717957799 #yiv4717957799ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4717957799 #yiv4717957799ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4717957799 #yiv4717957799ygrp-mlmsg select, #yiv4717957799 input, #yiv4717957799 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4717957799 #yiv4717957799ygrp-mlmsg pre, #yiv4717957799 code {font:115% monospace;}#yiv4717957799 #yiv4717957799ygrp-mlmsg * {line-height:1.22em;}#yiv4717957799 #yiv4717957799ygrp-mlmsg #yiv4717957799logo {padding-bottom:10px;}#yiv4717957799 #yiv4717957799ygrp-msg p a {font-family:Verdana;}#yiv4717957799 #yiv4717957799ygrp-msg p#yiv4717957799attach-count span {color:#1E66AE;font-weight:700;}#yiv4717957799 #yiv4717957799ygrp-reco #yiv4717957799reco-head {color:#ff7900;font-weight:700;}#yiv4717957799 #yiv4717957799ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4717957799 #yiv4717957799ygrp-sponsor #yiv4717957799ov li a {font-size:130%;text-decoration:none;}#yiv4717957799 #yiv4717957799ygrp-sponsor #yiv4717957799ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4717957799 #yiv4717957799ygrp-sponsor #yiv4717957799ov ul {margin:0;padding:0 0 0 8px;}#yiv4717957799 #yiv4717957799ygrp-text {font-family:Georgia;}#yiv4717957799 #yiv4717957799ygrp-text p {margin:0 0 1em 0;}#yiv4717957799 #yiv4717957799ygrp-text tt {font-size:120%;}#yiv4717957799 #yiv4717957799ygrp-vital ul li:last-child {border-right:none !important;}#yiv4717957799
On Thursday, 4 February 2016, 15:34, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hasil coba manualnya sukses kan...
Oh terus Anda nyomot script dari antah berantah to...
Kenapa gak coba record macro dari langkah 1 - 10 saja....
Karena script yang Anda comot itu gak cocok dengan text file Anda.
Hasil record macro langkah 1-10 tersebut di copas ke script yang Anda comot tadi. Bisa menggantikan bagian workbooks.opentext sampai sebelum end sub. Tinggal mengganti saja teks filename menjadi =filetoopen
Script yang Anda comot tidak sesuai dengan text file Anda karena di script tersebut menggunakan xlFixedWidth dan pastilah field infonya yang ada array panjang itu menjadi tidak berguna.
Oh iya,
Kalau bisa, atur type setiap kolomnya. Jangan asal dipasrahkan menjadi general. Apalagi kalau sedang di record macro.
Kalau semua di set general, jika ada :
1. suatu kolom berisi kode yang berisi angka-angka sebanyak 16 digit atau lebih, maka angka ke-16 dan seterusnya akan menjadi 0. Artinya Anda akan kehilangan data.
2. suatu kolom berisi data tanggal dengan format yang tidak sama dengan format yang dipakai Excel dan tidak sama dengan regional setting komputer setempat, maka data tanggal tersebut bisa dikonversi menjadi tanggal yang salah atau sekedar menjadi data text yang harus diolah dengan formula yang cukup panjang agar bisa dimanfaatkan dengan mudah.
Contoh : text file berisi kolom tanggal berformat YYMMDD yang berbunyi 111223 bisa jadi akan diubah menjadi angka 111223 karena diset general, padahal bisa menjadi datetime 23 Dec 2011.
Atau format file MM-DD-YY bernilai 11-03-07 yang harusnya 3 Nov 2007 menjadi 11 Mar 2007
2016-02-04 15:01 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Klo record macro nya belum di coba gan hehe.. saya hanya mencoba langkah2 1-10 itu.Maksud saya suhu bisa mengkoreksi script saya yang ini gitu hehe.. Sub read_obslog()
fileToOpen = Application.GetOpenFilename("Semua Files (*.*), *.*,obslog Files (*.obsv*), *.obs*", 2, "Buka File obslog ASCII JRV K.08-01") If fileToOpen = False Then End If Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _ StartRow:=6, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _ 1), Array(6, 1), Array(12, 1), Array(14, 1), Array(20, 1), Array(22, 1), Array( _ 26, 1), Array(31, 1), Array(40, 1), Array(43, 1), Array(50, 1), Array(57, 1), _ Array(1245, 1), Array(1255, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1), _ Array(1259, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1)) Range("A1").Select start_select1 = "A1" Do While ActiveCell.Offset(1, 0).Range("A1") = "H" ActiveCell.Offset(1, 0).Range("A1").Select Loop end_select1 = ActiveCell.AddressLocal(rowAbsolute:=False) ' $A1 If end_select1 = "$A1" Then Else Range(start_select1 + ":" + end_select1).EntireRow.Select Selection.Delete Shift:=xlUp End If Rows("1:1").Select Selection.Insert Shift:=xlDown Selection.RowHeight = 136.5 Selection.HorizontalAlignment = xlGeneral Selection.VerticalAlignment = xlCenter Selection.WrapText = True Selection.Orientation = xlVertical Range("A1").FormulaR1C1 = "File #" Range("B1").FormulaR1C1 = "Shot #" Range("C1").FormulaR1C1 = "Swath" Range("D1").FormulaR1C1 = "ITB" Range("E1").FormulaR1C1 = "Blaster Id" Range("F1").FormulaR1C1 = "File Count" Range("G1").FormulaR1C1 = "Tape #" Range("H1").FormulaR1C1 = "Hour" Range("I1").FormulaR1C1 = "Jday" Range("J1").FormulaR1C1 = "Line Name" Range("K1").FormulaR1C1 = "Point Number" Range("L1").FormulaR1C1 = "Live Seis" Range("M1").FormulaR1C1 = "Process Type" Range("N1").FormulaR1C1 = "Record Type" Range("O1").FormulaR1C1 = "Spread #" Range("P1").FormulaR1C1 = "TB" Range("Q1").FormulaR1C1 = "Tb Window" Range("R1").FormulaR1C1 = "Uphole Time" Range("S1").FormulaR1C1 = "Type Of Test" Range("T1").FormulaR1C1 = "Date" Range("U1").FormulaR1C1 = "Comment" Range("A1").Select Exit Sub
Resume NextEnd Sub
On Thursday, 4 February 2016, 14:47, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
hmmm....
Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena ada delimiternya) dan kemudian mencentang TAB (karena kata Anda delimiternya TAB) ?
Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di copas ke sini bunyi script hasil record macro nya ?
Sorry, ndak bisa buka attachment.
Bisanya lihat preview file, dan script VBA tidak tampak.
2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Sudah saya coba langkah yang di contohkanText file saya memiliki karakter delimiter.Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Anda sudah mencoba langkah yang di email tempo lalu ?
Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
Jika memiliki karakter delimiter, apa karakter delimiternya ?
Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah karakter setiap barisnya selalu sama ?
2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr. Kid
Terimakasih sebelumnya atas penjelasannya.Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data format yang bebeda-beda.Berikut saya lampirkan macro dan text file yang terbaru. Mohon pencerahannya.
TerimaksihDanu
On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Danu,
Coba langkah berikut :
0. Kenali isi text file Anda
a> Ada berapa kolom
b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
c> apakah karakter pemisah antar kolom dalam text file Anda ?
d> Apa tipe data masing-masing kolom dalam file, dan bagaimana formatnya
e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil ? Buatlah daftarnya
* jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di tulis diselembar kertas, boleh juga diabaikan)
1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet CTRL O
-> pilih file type All Files (*.*) -> cari dan pilih text file Anda -> tekan OK
-> kalau muncul berita tak terduga yang ada pilihan Yes No blabla, pilih Yes
-> Muncul dialog window Text To Columns
3. di Window Step 1 :
> pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file tampak tak beraturan jumlah karakter per barisnya
> start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah Anda jawab
> tekan Next
4. di Window Step 2 :
> Delimiters : Centang yang sesuai dengan jawaban 0.c.
> tekan Next
5. di Window Step 3 :
> lihat Data preview -> klik salah satu header listbox data preview -> tentukan tipedata dan formatnya di Column data format
> klik header yang lain dan lakukan hal yang sama (set datatype dan formatnya di Column data format) -> lakukan di seluruh kolom
* Pilihan di column data format per kolom adalah seperti jawaban 0.d.
* Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not import'
* Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe Date dan memilih format yang digunakan data dalam file.
> tekan Finish
6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah di-parse (proses nomor 3 sampai 5)
* CATATAN : yang dibuka adalah text file, jadi jangan di-save agar text file Anda tidak rusak
7. Salin data text file yang dibuka ke workbook lain
> Blok seluruh cells hasil open text file -> copy -> klik workbook hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
8. tutup workbook hasil open text file TANPA SAVE
9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text file -> save workbook
10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang isi text file dengan notepad.
* Jika akan diproses lebih lanjut, silakan proses data hasil penyalinan tadi.
Catatan :
Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara record macro (lihat sudut kiri bawah layar ada icon record macro)
hal di atas tadi adalah langkah untuk opentext file apa saja.
jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan untuk merapikan atau menyesuaikan dengan kebutuhan.
Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
Contoh file pemanfaatan open text bisa dilihat disini. Anda bisa mencoba menggunakan file tersebut untuk text file Anda.
Wassalamu'alaikum wr wb
Kid
Wassalamu'alaikum wr wb
Kid
2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalaamu'
Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh attach yang saya lampirkan. Bagaimana caranya ya?
Terima kasih
Danu
#yiv4717957799 #yiv4717957799 -- #yiv4717957799ygrp-
Thu Feb 4, 2016 1:25 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wkwkwkwkwk...
script nya bukan antah berantah ya...
ya maaf kalo gitu...
soale, ada bagian script yang menulis header berbaris-baris...
padahal kan harusnya ndak perlu kalo textfilenya sudah punya header.
2016-02-04 16:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Iya sukses cara manualnya..
> Wah gak antah berantah juga kali gan hehe...
> Scriptnya sesuai ko ternyata bener kata agan masalahnya di sini
> xlFixedWidth harusnya ini xldelimited hehe..
> Tapi emg benar bagusnya type tiap kolom di atur.
> Btw matursuwun gan wejangannya sangat membantu.
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 15:34, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Hasil coba manualnya sukses kan...
>
> Oh terus Anda nyomot script dari antah berantah to...
> Kenapa gak coba record macro dari langkah 1 - 10 saja....
> Karena script yang Anda comot itu gak cocok dengan text file Anda.
> Hasil record macro langkah 1-10 tersebut di copas ke script yang Anda
> comot tadi. Bisa menggantikan bagian workbooks.opentext sampai sebelum end
> sub. Tinggal mengganti saja teks filename menjadi =filetoopen
>
> Script yang Anda comot tidak sesuai dengan text file Anda karena di script
> tersebut menggunakan xlFixedWidth dan pastilah field infonya yang ada array
> panjang itu menjadi tidak berguna.
>
> Oh iya,
> Kalau bisa, atur type setiap kolomnya. Jangan asal dipasrahkan menjadi
> general. Apalagi kalau sedang di record macro.
> Kalau semua di set general, jika ada :
> 1. suatu kolom berisi kode yang berisi angka-angka sebanyak 16 digit atau
> lebih, maka angka ke-16 dan seterusnya akan menjadi 0. Artinya Anda akan
> kehilangan data.
>
> 2. suatu kolom berisi data tanggal dengan format yang tidak sama dengan
> format yang dipakai Excel dan tidak sama dengan regional setting komputer
> setempat, maka data tanggal tersebut bisa dikonversi menjadi tanggal yang
> salah atau sekedar menjadi data text yang harus diolah dengan formula yang
> cukup panjang agar bisa dimanfaatkan dengan mudah.
> Contoh : text file berisi kolom tanggal berformat YYMMDD yang berbunyi
> 111223 bisa jadi akan diubah menjadi angka 111223 karena diset general,
> padahal bisa menjadi datetime 23 Dec 2011.
> Atau format file MM-DD-YY bernilai 11-03-07 yang harusnya 3 Nov 2007
> menjadi 11 Mar 2007
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2016-02-04 15:01 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Klo record macro nya belum di coba gan hehe.. saya hanya mencoba langkah2
> 1-10 itu.
> Maksud saya suhu bisa mengkoreksi script saya yang ini gitu hehe..
>
> Sub read_obslog()
>
> fileToOpen = Application.GetOpenFilename("Semua Files (*.*),
> *.*,obslog Files (*.obsv*), *.obs*", 2, "Buka File obslog ASCII
> JRV K.08-01")
> If fileToOpen = False Then
>
> End If
> Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _
> StartRow:=6, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
> 1), Array(6, 1), Array(12, 1), Array(14, 1), Array(20, 1),
> Array(22, 1), Array( _
> 26, 1), Array(31, 1), Array(40, 1), Array(43, 1), Array(50, 1),
> Array(57, 1), _
> Array(1245, 1), Array(1255, 1), Array(1259, 1), Array(1259, 1),
> Array(1259, 1), _
> Array(1259, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1))
> Range("A1").Select
> start_select1 = "A1"
> Do While ActiveCell.Offset(1, 0).Range("A1") = "H"
> ActiveCell.Offset(1, 0).Range("A1").Select
> Loop
> end_select1 = ActiveCell.AddressLocal(rowAbsolute:=False) ' $A1
> If end_select1 = "$A1" Then
> Else
> Range(start_select1 + ":" + end_select1).EntireRow.Select
> Selection.Delete Shift:=xlUp
> End If
> Rows("1:1").Select
> Selection.Insert Shift:=xlDown
> Selection.RowHeight = 136.5
> Selection.HorizontalAlignment = xlGeneral
> Selection.VerticalAlignment = xlCenter
> Selection.WrapText = True
> Selection.Orientation = xlVertical
>
> Range("A1").FormulaR1C1 = "File #"
> Range("B1").FormulaR1C1 = "Shot #"
> Range("C1").FormulaR1C1 = "Swath"
> Range("D1").FormulaR1C1 = "ITB"
> Range("E1").FormulaR1C1 = "Blaster Id"
> Range("F1").FormulaR1C1 = "File Count"
> Range("G1").FormulaR1C1 = "Tape #"
> Range("H1").FormulaR1C1 = "Hour"
> Range("I1").FormulaR1C1 = "Jday"
> Range("J1").FormulaR1C1 = "Line Name"
> Range("K1").FormulaR1C1 = "Point Number"
> Range("L1").FormulaR1C1 = "Live Seis"
> Range("M1").FormulaR1C1 = "Process Type"
> Range("N1").FormulaR1C1 = "Record Type"
> Range("O1").FormulaR1C1 = "Spread #"
> Range("P1").FormulaR1C1 = "TB"
> Range("Q1").FormulaR1C1 = "Tb Window"
> Range("R1").FormulaR1C1 = "Uphole Time"
> Range("S1").FormulaR1C1 = "Type Of Test"
> Range("T1").FormulaR1C1 = "Date"
> Range("U1").FormulaR1C1 = "Comment"
> Range("A1").Select
>
>
> Exit Sub
>
> Resume Next
> End Sub
>
>
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 14:47, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> hmmm....
> Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena
> ada delimiternya) dan kemudian mencentang TAB (karena kata Anda
> delimiternya TAB) ?
>
> Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
> Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di
> copas ke sini bunyi script hasil record macro nya ?
>
> Sorry, ndak bisa buka attachment.
> Bisanya lihat preview file, dan script VBA tidak tampak.
>
>
>
>
>
>
>
>
>
> 2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Sudah saya coba langkah yang di contohkan
> Text file saya memiliki karakter delimiter.
> Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Anda sudah mencoba langkah yang di email tempo lalu ?
>
> Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
> Jika memiliki karakter delimiter, apa karakter delimiternya ?
> Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah
> karakter setiap barisnya selalu sama ?
>
>
>
>
>
>
>
>
>
>
> 2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid
>
> Terimakasih sebelumnya atas penjelasannya.
> Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data
> format yang bebeda-beda.
> Berikut saya lampirkan macro dan text file yang terbaru. Mohon
> pencerahannya.
>
> Terimaksih
> Danu
>
>
>
>
>
>
>
>
>
>
>
> On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Danu,
>
> Coba langkah berikut :
> 0. Kenali isi text file Anda
> a> Ada berapa kolom
> b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
> c> apakah karakter pemisah antar kolom dalam text file Anda ?
> d> Apa tipe data masing-masing kolom dalam file, dan bagaimana
> formatnya
> e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
> f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
> g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil
> ? Buatlah daftarnya
> * jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di
> tulis diselembar kertas, boleh juga diabaikan)
> 1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks
> berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
> 2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet
> CTRL O
> -> pilih file type All Files (*.*) -> cari dan pilih text file Anda
> -> tekan OK
> -> kalau muncul berita tak terduga yang ada pilihan Yes No blabla,
> pilih Yes
> -> Muncul dialog window Text To Columns
> 3. di Window Step 1 :
> > pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file
> tampak tak beraturan jumlah karakter per barisnya
> > start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah
> Anda jawab
> > tekan Next
> 4. di Window Step 2 :
> > Delimiters : Centang yang sesuai dengan jawaban 0.c.
> > tekan Next
> 5. di Window Step 3 :
> > lihat Data preview -> klik salah satu header listbox data preview ->
> tentukan tipedata dan formatnya di Column data format
> > klik header yang lain dan lakukan hal yang sama (set datatype dan
> formatnya di Column data format) -> lakukan di seluruh kolom
> * Pilihan di column data format per kolom adalah seperti jawaban 0.d.
> * Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not
> import'
> * Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe
> Date dan memilih format yang digunakan data dalam file.
> > tekan Finish
> 6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah
> di-parse (proses nomor 3 sampai 5)
> * CATATAN : yang dibuka adalah text file, jadi jangan di-save agar
> text file Anda tidak rusak
> 7. Salin data text file yang dibuka ke workbook lain
> > Blok seluruh cells hasil open text file -> copy -> klik workbook
> hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
> 8. tutup workbook hasil open text file TANPA SAVE
> 9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text
> file -> save workbook
> 10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang
> isi text file dengan notepad.
> * Jika akan diproses lebih lanjut, silakan proses data hasil
> penyalinan tadi.
>
> Catatan :
> Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara
> record macro (lihat sudut kiri bawah layar ada icon record macro)
>
> hal di atas tadi adalah langkah untuk opentext file apa saja.
> jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi
> lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan
> pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan
> untuk merapikan atau menyesuaikan dengan kebutuhan.
> Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
>
> Contoh file pemanfaatan open text bisa dilihat disini
> <https://app.box.com/s/2h62eqztzlzqth1cp43tvhz2dev5o5lw>. Anda bisa
> mencoba menggunakan file tersebut untuk text file Anda.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalaamu'alaikum,
>
> Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh
> attach yang saya lampirkan. Bagaimana caranya ya?
>
> Terima kasih
> Danu
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
script nya bukan antah berantah ya...
ya maaf kalo gitu...
soale, ada bagian script yang menulis header berbaris-baris...
padahal kan harusnya ndak perlu kalo textfilenya sudah punya header.
2016-02-04 16:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Iya sukses cara manualnya..
> Wah gak antah berantah juga kali gan hehe...
> Scriptnya sesuai ko ternyata bener kata agan masalahnya di sini
> xlFixedWidth harusnya ini xldelimited hehe..
> Tapi emg benar bagusnya type tiap kolom di atur.
> Btw matursuwun gan wejangannya sangat membantu.
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 15:34, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Hasil coba manualnya sukses kan...
>
> Oh terus Anda nyomot script dari antah berantah to...
> Kenapa gak coba record macro dari langkah 1 - 10 saja....
> Karena script yang Anda comot itu gak cocok dengan text file Anda.
> Hasil record macro langkah 1-10 tersebut di copas ke script yang Anda
> comot tadi. Bisa menggantikan bagian workbooks.opentext sampai sebelum end
> sub. Tinggal mengganti saja teks filename menjadi =filetoopen
>
> Script yang Anda comot tidak sesuai dengan text file Anda karena di script
> tersebut menggunakan xlFixedWidth dan pastilah field infonya yang ada array
> panjang itu menjadi tidak berguna.
>
> Oh iya,
> Kalau bisa, atur type setiap kolomnya. Jangan asal dipasrahkan menjadi
> general. Apalagi kalau sedang di record macro.
> Kalau semua di set general, jika ada :
> 1. suatu kolom berisi kode yang berisi angka-angka sebanyak 16 digit atau
> lebih, maka angka ke-16 dan seterusnya akan menjadi 0. Artinya Anda akan
> kehilangan data.
>
> 2. suatu kolom berisi data tanggal dengan format yang tidak sama dengan
> format yang dipakai Excel dan tidak sama dengan regional setting komputer
> setempat, maka data tanggal tersebut bisa dikonversi menjadi tanggal yang
> salah atau sekedar menjadi data text yang harus diolah dengan formula yang
> cukup panjang agar bisa dimanfaatkan dengan mudah.
> Contoh : text file berisi kolom tanggal berformat YYMMDD yang berbunyi
> 111223 bisa jadi akan diubah menjadi angka 111223 karena diset general,
> padahal bisa menjadi datetime 23 Dec 2011.
> Atau format file MM-DD-YY bernilai 11-03-07 yang harusnya 3 Nov 2007
> menjadi 11 Mar 2007
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2016-02-04 15:01 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Klo record macro nya belum di coba gan hehe.. saya hanya mencoba langkah2
> 1-10 itu.
> Maksud saya suhu bisa mengkoreksi script saya yang ini gitu hehe..
>
> Sub read_obslog()
>
> fileToOpen = Application.GetOpenFilename("Semua Files (*.*),
> *.*,obslog Files (*.obsv*), *.obs*", 2, "Buka File obslog ASCII
> JRV K.08-01")
> If fileToOpen = False Then
>
> End If
> Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _
> StartRow:=6, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
> 1), Array(6, 1), Array(12, 1), Array(14, 1), Array(20, 1),
> Array(22, 1), Array( _
> 26, 1), Array(31, 1), Array(40, 1), Array(43, 1), Array(50, 1),
> Array(57, 1), _
> Array(1245, 1), Array(1255, 1), Array(1259, 1), Array(1259, 1),
> Array(1259, 1), _
> Array(1259, 1), Array(1259, 1), Array(1259, 1), Array(1259, 1))
> Range("A1").Select
> start_select1 = "A1"
> Do While ActiveCell.Offset(1, 0).Range("A1") = "H"
> ActiveCell.Offset(1, 0).Range("A1").Select
> Loop
> end_select1 = ActiveCell.AddressLocal(rowAbsolute:=False) ' $A1
> If end_select1 = "$A1" Then
> Else
> Range(start_select1 + ":" + end_select1).EntireRow.Select
> Selection.Delete Shift:=xlUp
> End If
> Rows("1:1").Select
> Selection.Insert Shift:=xlDown
> Selection.RowHeight = 136.5
> Selection.HorizontalAlignment = xlGeneral
> Selection.VerticalAlignment = xlCenter
> Selection.WrapText = True
> Selection.Orientation = xlVertical
>
> Range("A1").FormulaR1C1 = "File #"
> Range("B1").FormulaR1C1 = "Shot #"
> Range("C1").FormulaR1C1 = "Swath"
> Range("D1").FormulaR1C1 = "ITB"
> Range("E1").FormulaR1C1 = "Blaster Id"
> Range("F1").FormulaR1C1 = "File Count"
> Range("G1").FormulaR1C1 = "Tape #"
> Range("H1").FormulaR1C1 = "Hour"
> Range("I1").FormulaR1C1 = "Jday"
> Range("J1").FormulaR1C1 = "Line Name"
> Range("K1").FormulaR1C1 = "Point Number"
> Range("L1").FormulaR1C1 = "Live Seis"
> Range("M1").FormulaR1C1 = "Process Type"
> Range("N1").FormulaR1C1 = "Record Type"
> Range("O1").FormulaR1C1 = "Spread #"
> Range("P1").FormulaR1C1 = "TB"
> Range("Q1").FormulaR1C1 = "Tb Window"
> Range("R1").FormulaR1C1 = "Uphole Time"
> Range("S1").FormulaR1C1 = "Type Of Test"
> Range("T1").FormulaR1C1 = "Date"
> Range("U1").FormulaR1C1 = "Comment"
> Range("A1").Select
>
>
> Exit Sub
>
> Resume Next
> End Sub
>
>
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 14:47, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> hmmm....
> Sudah mencoba langkah yang diemail lalu ? Sudah dipilih Delimited (karena
> ada delimiternya) dan kemudian mencentang TAB (karena kata Anda
> delimiternya TAB) ?
>
> Atau sudah mencoba record macro dari langkah yang ada di email lalu ?
> Kalau sudah mencoba record macro yang di email lalu, bagaimana kalau di
> copas ke sini bunyi script hasil record macro nya ?
>
> Sorry, ndak bisa buka attachment.
> Bisanya lihat preview file, dan script VBA tidak tampak.
>
>
>
>
>
>
>
>
>
> 2016-02-04 14:39 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Sudah saya coba langkah yang di contohkan
> Text file saya memiliki karakter delimiter.
> Karakter Delimiternya TAB dan tipe data masing2 kolom GENERAL.
>
>
>
>
>
>
>
>
>
>
>
> On Thursday, 4 February 2016, 13:25, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Anda sudah mencoba langkah yang di email tempo lalu ?
>
> Kalau sudah, apakah text file Anda memiliki karakter delimiter ?
> Jika memiliki karakter delimiter, apa karakter delimiternya ?
> Jika TIDAK memiliki karakter delimiter, sudahkah Anda hitung bahwa jumlah
> karakter setiap barisnya selalu sama ?
>
>
>
>
>
>
>
>
>
>
> 2016-02-04 12:52 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid
>
> Terimakasih sebelumnya atas penjelasannya.
> Saya sudah buat macro VBA, cuma ada masalah dengan beberapa column data
> format yang bebeda-beda.
> Berikut saya lampirkan macro dan text file yang terbaru. Mohon
> pencerahannya.
>
> Terimaksih
> Danu
>
>
>
>
>
>
>
>
>
>
>
> On Wednesday, 3 February 2016, 16:52, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Danu,
>
> Coba langkah berikut :
> 0. Kenali isi text file Anda
> a> Ada berapa kolom
> b> Setiap record yang diharapkan tersusun sebagai 1 baris atau tidak
> c> apakah karakter pemisah antar kolom dalam text file Anda ?
> d> Apa tipe data masing-masing kolom dalam file, dan bagaimana
> formatnya
> e> Apa karakter pemisah antar baris (bukan record) di dalam file Anda
> f> Data yang dibutuhkan mulai di baris ke berapa dalam file Anda
> g> Adakah kolom-kolom yang tidak dibutuhkan alias tidak perlu diambil
> ? Buatlah daftarnya
> * jawab semua pertanyaan tersebut (boleh dalam hati, boleh juga di
> tulis diselembar kertas, boleh juga diabaikan)
> 1. Buka Excel berisi sebuah workbook kosong, isi cells A1 dengan teks
> berbunyi 'Kid', lalu save workbook (beri nama sesuka Anda).
> 2. Dari workbook hasil proses 1 -> menu File lalu pilih Open atau pencet
> CTRL O
> -> pilih file type All Files (*.*) -> cari dan pilih text file Anda
> -> tekan OK
> -> kalau muncul berita tak terduga yang ada pilihan Yes No blabla,
> pilih Yes
> -> Muncul dialog window Text To Columns
> 3. di Window Step 1 :
> > pilih Delimited kalau jawaban 0.c. Anda jawab dan data dalam file
> tampak tak beraturan jumlah karakter per barisnya
> > start import at row : Anda isi jawaban nomor 0.f. di atas yang sudah
> Anda jawab
> > tekan Next
> 4. di Window Step 2 :
> > Delimiters : Centang yang sesuai dengan jawaban 0.c.
> > tekan Next
> 5. di Window Step 3 :
> > lihat Data preview -> klik salah satu header listbox data preview ->
> tentukan tipedata dan formatnya di Column data format
> > klik header yang lain dan lakukan hal yang sama (set datatype dan
> formatnya di Column data format) -> lakukan di seluruh kolom
> * Pilihan di column data format per kolom adalah seperti jawaban 0.d.
> * Jika kolom tersebut masuk dalam daftar 0.g., maka pilih 'Do not
> import'
> * Jika ada kolom yang berisi tipe datetime, pastikan Anda memilih tipe
> Date dan memilih format yang digunakan data dalam file.
> > tekan Finish
> 6. Text file Anda sudah dibuka oleh Excel (proses nomor 2) dan sudah
> di-parse (proses nomor 3 sampai 5)
> * CATATAN : yang dibuka adalah text file, jadi jangan di-save agar
> text file Anda tidak rusak
> 7. Salin data text file yang dibuka ke workbook lain
> > Blok seluruh cells hasil open text file -> copy -> klik workbook
> hasil proses nomor 1 -> klik cells A1 di sebuah sheet -> CTRL V
> 8. tutup workbook hasil open text file TANPA SAVE
> 9. kembali ke workbook hasil nomor 1 yang sudah berisi salinan data text
> file -> save workbook
> 10. Kalau susunan baris atau kolomnya ada yang kurang sesuai, lihat ulang
> isi text file dengan notepad.
> * Jika akan diproses lebih lanjut, silakan proses data hasil
> penyalinan tadi.
>
> Catatan :
> Anda bisa membuat proses otomasi dari langkah 1 sampai 10 dengan cara
> record macro (lihat sudut kiri bawah layar ada icon record macro)
>
> hal di atas tadi adalah langkah untuk opentext file apa saja.
> jika data file Anda memiliki atau membutuhkan proses lanjutan agar menjadi
> lebih rapi, maka silakan pelajari lebih dulu bentuk hasil opentext, dan
> pahami susunan data file text Anda. Jabarkan setiap langkah yang diperlukan
> untuk merapikan atau menyesuaikan dengan kebutuhan.
> Manfaatkan fitur-fitur Excel untuk mencoba memprosesnya sendiri.
>
> Contoh file pemanfaatan open text bisa dilihat disini
> <https://app.box.com/s/2h62eqztzlzqth1cp43tvhz2dev5o5lw>. Anda bisa
> mencoba menggunakan file tersebut untuk text file Anda.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2016-02-02 13:17 GMT+07:00 Danu Fadillah danu_fadill@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalaamu'
>
> Mohon bantuannya. Saya mau memisahkan data yang ada seperti di contoh
> attach yang saya lampirkan. Bagaimana caranya ya?
>
> Terima kasih
> Danu
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Thu Feb 4, 2016 12:02 am (PST) . Posted by:
"Dody Irawan"
Mohon bantuannya temen-temen master.
gimana caranya buat stok yang otomatis ter update.
file terlampir.
maaf pemula banget.....
gimana caranya buat stok yang otomatis ter update.
file terlampir.
maaf pemula banget.....
Thu Feb 4, 2016 1:04 am (PST) . Posted by:
"Subroto, Matzen"
Hi dody
Saya baru bisa bantu formula seperti ini
=SUMIFS(Beli!$D$4:$D$18;Beli!$C$4:$C$18;$B13)-SUMIFS(Jual!$D$4:$D$18;Jual!$C$4:$C$18;$B13)
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 04 Februari 2016 14:49
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] [belajar excel] mohon bantuan untuk membuat stok sederhana [1 Attachment]
Mohon bantuannya temen-temen master.
gimana caranya buat stok yang otomatis ter update.
file terlampir.
maaf pemula banget.....
__________________________________________________________
This email has been scanned by AkzoNobel for Viruses and Spam.
For more information please contact your local IT Service Desk.
__________________________________________________________
Saya baru bisa bantu formula seperti ini
=SUMIFS(Beli!$D$4:$D$18;Beli!$C$4:$C$18;$B13)-SUMIFS(Jual!$D$4:$D$18;Jual!$C$4:$C$18;$B13)
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 04 Februari 2016 14:49
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] [belajar excel] mohon bantuan untuk membuat stok sederhana [1 Attachment]
Mohon bantuannya temen-temen master.
gimana caranya buat stok yang otomatis ter update.
file terlampir.
maaf pemula banget.....
____________
This email has been scanned by AkzoNobel for Viruses and Spam.
For more information please contact your local IT Service Desk.
____________
Thu Feb 4, 2016 12:51 am (PST) . Posted by:
"asam gatal"
Terima kasih buat Pak Kid dan Pak Hendrik. Solusinya sangat luar biasa dan
sangat berguna. Nanti kalau sudah saya coba akan saya share.
sangat berguna. Nanti kalau sudah saya coba akan saya share.
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar