Selasa, 25 Oktober 2011

[belajar-excel] Digest Number 1374

Messages In This Digest (25 Messages)

1a.
Bls: [belajar-excel] Menyimpan data Worksheet secara otomatis From: Harry
1b.
Re: Menyimpan data Worksheet secara otomatis From: Kid Mr.
1c.
Re: Menyimpan data Worksheet secara otomatis From: Haps
2a.
Re: Edit Author dengan macro excel From: Haps
2b.
Re: Edit Author dengan macro excel From: Kid Mr.
2c.
Bls: [belajar-excel] Edit Author dengan macro excel From: Muhammad Robin
2d.
Re: Edit Author dengan macro excel From: Kid Mr.
3a.
Mengambil 2 digit dari nomor yang formatnya "00000" From: Mansor
3b.
Re: Mengambil 2 digit dari nomor yang formatnya "00000" From: Kid Mr.
3c.
Re: Mengambil 2 digit dari nomor yang formatnya "00000" From: Haps
3d.
Re: Mengambil 2 digit dari nomor yang formatnya "00000" From: summonery
3e.
Re: Mengambil 2 digit dari nomor yang formatnya "00000" From: Kid Mr.
3f.
Re: Mengambil 2 digit dari nomor yang formatnya "00000" From: STDEV(i)
3g.
Re: Mengambil 2 digit dari nomor yang formatnya "00000" From: Kid Mr.
3h.
Re: Mengambil 2 digit dari nomor yang formatnya "00000" From: Haps
3i.
Re: Mengambil 2 digit dari nomor yang formatnya "00000" From: Franciscus SOG
4.
Fwd: Just info.. Semoga berkenan From: STDEV(i)
5a.
Mengubah csv menjadi txt From: yulius -
5b.
Re: Mengubah csv menjadi txt From: jkssxls Sudarsono
5c.
Re: Mengubah csv menjadi txt From: yulius -
5d.
Re: Mengubah csv menjadi txt From: jkssxls Sudarsono
5e.
Re: Mengubah csv menjadi txt From: jkssxls Sudarsono
6a.
Menyisipkan data di kolom sebelah From: Scorpio Alone
6b.
Re: Menyisipkan data di kolom sebelah From: STDEV(i)
7a.
Salam Kenal From: Asror Al-Aliif's

Messages

1a.

Bls: [belajar-excel] Menyimpan data Worksheet secara otomatis

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Mon Oct 24, 2011 6:56 am (PDT)



Terima kasih atas jawabannya.
Tapi, mohon dapat diinformasikan apa dan dimana event workbook Before Close itu...???
Mhn berkenan contoh worksheet-nya.

terima kasih

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 24 Oktober 2011 19:00
Judul: Re: [belajar-excel] Menyimpan data Worksheet secara otomatis

 
Coba gunakan event workbook Before Close.
Didalamnya bisa diisi script untuk memanggil prosedur penyimpanan data dan sertai dengan menyimpan workbook (thisworkbook.save)
supaya tidak muncul berbagai dialog akibat thisworkbook save, berikan application.displayalerts=false sebelumnya

Bila perlu, usahakan gunakan prosedur penyimpanan data yang tidak melalui pertanyaan yang memungkinkan pembatalan.

Kid.

2011/10/24 Harry <hariansyahptk@yahoo.com>

> 
>Untuk Moderator dan teman-2 Balajar Excel.
>
>Mohon bantuan akan pertanyaan saya dengan kondisi sbb:
>
>Pada Worksheet yang telah saya buat yang dipersiapkan untuk dapat
dioperasikan langsung oleh banyak user, sering kali di tutup (tanpa
sengaja) oleh User yang belum mengerti cara menggunakan Worksheet
tersebut.
>Adapun Worksheet tersebut adalah program Excel yang dikombinasikan dengan VB. Sehingga ada beberapa data yang telah diinput oleh user sebelumnya tidak tersimpan karena tidak bisa tersimpan (SAVE) secara otomatis.
>Pertanyaannya adalah; Bagaimana cara supaya bisa menyimpan data yang telah diinput secara otomatis (Otomatically SAVE)...???
>
>Terima kasih atas berkenan jawabannya.
>
>Regards,
>
>
>Harry
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1b.

Re: Menyimpan data Worksheet secara otomatis

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 24, 2011 8:33 am (PDT)



Kira-kira seperti ini :
Misal ada prosedur untuk simpan data bernama Simpan.
Public Sub Simpan()
If LenB(Range("d4").Value) <> 0 Then
Range("d4").Copy

Sheet2.Range("a1").Offset(Sheet2.Range("a1").CurrentRegion.Rows.Count).PasteSpecial
xlPasteValues
Range("d4").ClearContents
End If
End Sub

Lalu di object Workbook (double click tulisan Workbook di frame Project)
diberi event Before Close (pilih dari combo yang ada -- kiri pilih workbook
-- kanan pilih beforeclose)
lalu buat supaya berisi seperti :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'jika ingin simpan ke sheet2 sekalian, jalankan prosedur simpan
Simpan

'yang ini untuk ubah document properti author supaya tetap
'syaratnya, security macro harus ijinkan macro bekerja.
ThisWorkbook.BuiltinDocumentProperties("Author") = "Mr. Kid " &
Format$(Now, "YYYYMMDD_HHmmss")

'lalu ketika akan ditutup ini, disave paksa.
Application.DisplayAlerts = False
ThisWorkbook.Save
End Sub

Kid.

2011/10/24 Harry <hariansyahptk@yahoo.com>

> **
>
>
> Terima kasih atas jawabannya.
> Tapi, mohon dapat diinformasikan apa dan dimana event workbook Before
> Close itu...???
> Mhn berkenan contoh worksheet-nya.
>
> terima kasih
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Senin, 24 Oktober 2011 19:00
> *Judul:* Re: [belajar-excel] Menyimpan data Worksheet secara otomatis
>
>
> Coba gunakan event workbook Before Close.
> Didalamnya bisa diisi script untuk memanggil prosedur penyimpanan data dan
> sertai dengan menyimpan workbook (thisworkbook.save)
> supaya tidak muncul berbagai dialog akibat thisworkbook save, berikan
> application.displayalerts=false sebelumnya
>
> Bila perlu, usahakan gunakan prosedur penyimpanan data yang tidak melalui
> pertanyaan yang memungkinkan pembatalan.
>
>
> Kid.
>
> 2011/10/24 Harry <hariansyahptk@yahoo.com>
>
> **
>
> Untuk Moderator dan teman-2 Balajar Excel.
>
> Mohon bantuan akan pertanyaan saya dengan kondisi sbb:
>
> Pada Worksheet yang telah saya buat yang dipersiapkan untuk dapat
> dioperasikan langsung oleh banyak user, sering kali di tutup (tanpa sengaja)
> oleh User yang belum mengerti cara menggunakan Worksheet tersebut.
> Adapun Worksheet tersebut adalah program Excel yang dikombinasikan dengan
> VB. Sehingga ada beberapa data yang telah diinput oleh user sebelumnya tidak
> tersimpan karena tidak bisa tersimpan (SAVE) secara otomatis.
> Pertanyaannya adalah; Bagaimana cara supaya bisa menyimpan data yang telah
> diinput secara otomatis (Otomatically SAVE)...???
>
> Terima kasih atas berkenan jawabannya.
>
> Regards,
>
>
> Harry
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1c.

Re: Menyimpan data Worksheet secara otomatis

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Oct 24, 2011 5:47 pm (PDT)



ikut menambahkan jawaban Mr Kid yg sudah lengkap
(ditambah gambar / visual); semoga tidak salah gambar....

Kaadaan di VBE ketika *Project Explorer* mengaktifkan module 'Thisworkbook'

[image: events2.PNG]

[image: events1.PNG]

> 2011/10/24 Harry <hariansyahptk@yahoo.com>
>
>> **
>> Terima kasih atas jawabannya.
>> Tapi, mohon dapat diinformasikan* apa dan dimana **event workbook Before
>> Close itu*...???
>> Mhn berkenan contoh worksheet-nya.
>> terima kasih
>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2a.

Re: Edit Author dengan macro excel

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Oct 24, 2011 7:29 am (PDT)



Kalau anda sempat masuk ke help vba; sekali-sekali mampirlah ke (table
of contents) > Workbook Object.
Bila perlu, masuklah lebih dalam ke property (milik object workbook)
yg bernama BuiltinDocumentProperties

Kadang, ketika anda merangkai object dan property; apa yg kita rangkai
tsb menjadi object, Contohnya:
[ Workbooks("NamaWorkbookYgTerbuka.xlsx").BuiltinDocumentProperties ]
adalah sebuah object koleksi.
Kalau di Excel 2003 Koleksi ini mempunyai 30 items, (di excel 2007
Microsoft sudah menambahkan 4 item lagi menjadi 34 item)
Setiap Item punya properties, antara lain Name dan Value, misal :
Item(10).Name = "LastPrintDate"
Item(10).Value = #10/24/2011 7:14:59 PM#
(Perilaku Property Value yg khusus sebaiknya dikenali: jika dlm
keadaan kosong, jika diakses akan mengembalikan error.)

Jadi apa hubungannya omongan takberguna di atas dengan pertanyaan anda ?
Agar tak kepanjangan omongan-tak-berguna; tunjek-poin saja: makro yg
anda perlukan mungkin seperti ini

Sub Ubah_Author()
Workbooks("WokbukYgSudahDibuka.xlsx").BuiltinDocumentProperties(3).Value
= "muqoRobbin Hooooooooooood"
End Sub

Agar tak bisa diganti secara manual ? Wah saya tidak tahu, (kita
tunggu masukan dari members lain);
Mungkin dengan cara tidak langsung, misal dicari cara bgmana agar
ketika ada pengubahan properties no.3 tsb, HARUS ada suatu cell di
sheete tertentu yg berubah nilainya.
Perubahan nilai cell menyebabkan terjadinya event sheet_change, dan
event itu kita manfaatkan untuk mengembalikan nama author seperti
sebelum diubah oleh user usil.

2011/10/24 Muhammad Robin <mrobin86@yahoo.co.id>
> Dear Be-Exceller,
> Saya ingin bertanya, bagaimana cara menuliskan author diproperties file excel dengan macro excel dan tidak dapat diganti-ganti secara manual.
> Terima kasih banyak  sebelumnya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2b.

Re: Edit Author dengan macro excel

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 24, 2011 8:30 am (PDT)



Coba dengan mode paksa cara kuno, yaitu diletakkan di event before close.
Ikuti dengan save workbook.
Syaratnya, Security Macro harus diijinkan.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'jika ingin simpan ke sheet2 sekalian, jalankan prosedur simpan
Simpan

'yang ini untuk ubah document properti author supaya tetap
'syaratnya, security macro harus ijinkan macro bekerja.
*ThisWorkbook.BuiltinDocumentProperties("Author") = "Mr. Kid " &
Format$(Now, "YYYYMMDD_HHmmss")

*'lalu ketika akan ditutup ini, disave paksa.*
Application.DisplayAlerts = False
ThisWorkbook.Save*
End Sub

Kid.

2011/10/24 Haps <hapsari.stlizbeth@gmail.com>

> **
>
>
> Kalau anda sempat masuk ke help vba; sekali-sekali mampirlah ke (table
> of contents) > Workbook Object.
> Bila perlu, masuklah lebih dalam ke property (milik object workbook)
> yg bernama BuiltinDocumentProperties
>
> Kadang, ketika anda merangkai object dan property; apa yg kita rangkai
> tsb menjadi object, Contohnya:
> [ Workbooks("NamaWorkbookYgTerbuka.xlsx").BuiltinDocumentProperties ]
> adalah sebuah object koleksi.
> Kalau di Excel 2003 Koleksi ini mempunyai 30 items, (di excel 2007
> Microsoft sudah menambahkan 4 item lagi menjadi 34 item)
> Setiap Item punya properties, antara lain Name dan Value, misal :
> Item(10).Name = "LastPrintDate"
> Item(10).Value = #10/24/2011 7:14:59 PM#
> (Perilaku Property Value yg khusus sebaiknya dikenali: jika dlm
> keadaan kosong, jika diakses akan mengembalikan error.)
>
> Jadi apa hubungannya omongan takberguna di atas dengan pertanyaan anda ?
> Agar tak kepanjangan omongan-tak-berguna; tunjek-poin saja: makro yg
> anda perlukan mungkin seperti ini
>
> Sub Ubah_Author()
> Workbooks("WokbukYgSudahDibuka.xlsx").BuiltinDocumentProperties(3).Value
> = "muqoRobbin Hooooooooooood"
> End Sub
>
> Agar tak bisa diganti secara manual ? Wah saya tidak tahu, (kita
> tunggu masukan dari members lain);
> Mungkin dengan cara tidak langsung, misal dicari cara bgmana agar
> ketika ada pengubahan properties no.3 tsb, HARUS ada suatu cell di
> sheete tertentu yg berubah nilainya.
> Perubahan nilai cell menyebabkan terjadinya event sheet_change, dan
> event itu kita manfaatkan untuk mengembalikan nama author seperti
> sebelum diubah oleh user usil.
>
>
> 2011/10/24 Muhammad Robin <mrobin86@yahoo.co.id>
> > Dear Be-Exceller,
> > Saya ingin bertanya, bagaimana cara menuliskan author diproperties file
> excel dengan macro excel dan tidak dapat diganti-ganti secara manual.
> > Terima kasih banyak sebelumnya
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2c.

Bls: [belajar-excel] Edit Author dengan macro excel

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id   mrobin86

Mon Oct 24, 2011 7:01 pm (PDT)



Maaf, Mr Kid saya kurang mengerti, kalo diimplementasiin ke file excel terlampir bagaimana?

terima kasih

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 24 Oktober 2011 22:20
Judul: Re: [belajar-excel] Edit Author dengan macro excel

 
Coba dengan mode paksa cara kuno, yaitu diletakkan di event before close. Ikuti dengan save workbook.
Syaratnya, Security Macro harus diijinkan.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'jika ingin simpan ke sheet2 sekalian, jalankan prosedur simpan
    Simpan
   
   
    'yang ini untuk ubah document properti author supaya tetap
    'syaratnya, security macro harus ijinkan macro bekerja.
    ThisWorkbook.BuiltinDocumentProperties("Author") = "Mr. Kid " & Format$(Now, "YYYYMMDD_HHmmss")
   
    'lalu ketika akan ditutup ini, disave paksa.
    Application.DisplayAlerts = False
    ThisWorkbook.Save
End Sub

Kid.

2011/10/24 Haps <hapsari.stlizbeth@gmail.com>

> 
>Kalau anda sempat masuk ke help vba; sekali-sekali mampirlah ke (table
>of contents) > Workbook Object.
>Bila perlu, masuklah lebih dalam ke property (milik object workbook)
>yg bernama BuiltinDocumentProperties
>
>Kadang, ketika anda merangkai object dan property; apa yg kita rangkai
>tsb menjadi object, Contohnya:
>[ Workbooks("NamaWorkbookYgTerbuka.xlsx").BuiltinDocumentProperties ]
>adalah sebuah object koleksi.
>Kalau di Excel 2003 Koleksi ini mempunyai 30 items, (di excel 2007
>Microsoft sudah menambahkan 4 item lagi menjadi 34 item)
>Setiap Item punya properties, antara lain Name dan Value, misal :
>Item(10).Name = "LastPrintDate"
>Item(10).Value = #10/24/2011 7:14:59 PM#
>(Perilaku Property Value yg khusus sebaiknya dikenali: jika dlm
>keadaan kosong, jika diakses akan mengembalikan error.)
>
>Jadi apa hubungannya omongan takberguna di atas dengan pertanyaan anda ?
>Agar tak kepanjangan omongan-tak-berguna; tunjek-poin saja: makro yg
>anda perlukan mungkin seperti ini
>
>Sub Ubah_Author()
>Workbooks("WokbukYgSudahDibuka.xlsx").BuiltinDocumentProperties(3).Value
>= "muqoRobbin Hooooooooooood"
>End Sub
>
>Agar tak bisa diganti secara manual ? Wah saya tidak tahu, (kita
>tunggu masukan dari members lain);
>Mungkin dengan cara tidak langsung, misal dicari cara bgmana agar
>ketika ada pengubahan properties no.3 tsb, HARUS ada suatu cell di
>sheete tertentu yg berubah nilainya.
>Perubahan nilai cell menyebabkan terjadinya event sheet_change, dan
>event itu kita manfaatkan untuk mengembalikan nama author seperti
>sebelum diubah oleh user usil.
>
>
>2011/10/24 Muhammad Robin <mrobin86@yahoo.co.id>
>> Dear Be-Exceller,
>> Saya ingin bertanya, bagaimana cara menuliskan author diproperties file excel dengan macro excel dan tidak dapat diganti-ganti secara manual.
>> Terima kasih banyak  sebelumnya
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2d.

Re: Edit Author dengan macro excel

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 24, 2011 7:12 pm (PDT)



Caranya :
1. buka VBE (Alt F11)
2. cari object Workbook (di frame Project di kiri atas ada kotak window
kecil)
3. double click tulisan Workbook
4. copy prosedur dibawah ini

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'yang ini untuk ubah document properti author supaya tetap
'syaratnya, security macro harus ijinkan macro bekerja.
*ThisWorkbook.BuiltinDocumentProperties("Author") = "Mr. Kid " &
Format$(Now, "YYYYMMDD_HHmmss")

*'lalu ketika akan ditutup ini, disave paksa.*
Application.DisplayAlerts = False
ThisWorkbook.Save*
End Sub

5. Paste ke lembar script milik workbook yang di double click tadi
6. Save
7. Tutup workbook
8. ke Windows Explorer lihat properti si file
9. Ganti manual dari windows explorer
10. buka lagi si workbook
11. tutup lagi si workbook
12. Lakukan point 8 atau ke point 13
13. senyum-senyum

Kid.

2011/10/25 Muhammad Robin <mrobin86@yahoo.co.id>

> **
>
>
> Maaf, Mr Kid saya kurang mengerti, kalo diimplementasiin ke file excel
> terlampir bagaimana?
>
> terima kasih
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Senin, 24 Oktober 2011 22:20
> *Judul:* Re: [belajar-excel] Edit Author dengan macro excel
>
>
> Coba dengan mode paksa cara kuno, yaitu diletakkan di event before close.
> Ikuti dengan save workbook.
> Syaratnya, Security Macro harus diijinkan.
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> 'jika ingin simpan ke sheet2 sekalian, jalankan prosedur simpan
> Simpan
>
>
> 'yang ini untuk ubah document properti author supaya tetap
> 'syaratnya, security macro harus ijinkan macro bekerja.
> *ThisWorkbook.BuiltinDocumentProperties("Author") = "Mr. Kid " &
> Format$(Now, "YYYYMMDD_HHmmss")
>
> *'lalu ketika akan ditutup ini, disave paksa.*
> Application.DisplayAlerts = False
> ThisWorkbook.Save*
> End Sub
>
> Kid.
>
> 2011/10/24 Haps <hapsari.stlizbeth@gmail.com>
>
> **
>
> Kalau anda sempat masuk ke help vba; sekali-sekali mampirlah ke (table
> of contents) > Workbook Object.
> Bila perlu, masuklah lebih dalam ke property (milik object workbook)
> yg bernama BuiltinDocumentProperties
>
> Kadang, ketika anda merangkai object dan property; apa yg kita rangkai
> tsb menjadi object, Contohnya:
> [ Workbooks("NamaWorkbookYgTerbuka.xlsx").BuiltinDocumentProperties ]
> adalah sebuah object koleksi.
> Kalau di Excel 2003 Koleksi ini mempunyai 30 items, (di excel 2007
> Microsoft sudah menambahkan 4 item lagi menjadi 34 item)
> Setiap Item punya properties, antara lain Name dan Value, misal :
> Item(10).Name = "LastPrintDate"
> Item(10).Value = #10/24/2011 7:14:59 PM#
> (Perilaku Property Value yg khusus sebaiknya dikenali: jika dlm
> keadaan kosong, jika diakses akan mengembalikan error.)
>
> Jadi apa hubungannya omongan takberguna di atas dengan pertanyaan anda ?
> Agar tak kepanjangan omongan-tak-berguna; tunjek-poin saja: makro yg
> anda perlukan mungkin seperti ini
>
> Sub Ubah_Author()
> Workbooks("WokbukYgSudahDibuka.xlsx").BuiltinDocumentProperties(3).Value
> = "muqoRobbin Hooooooooooood"
> End Sub
>
> Agar tak bisa diganti secara manual ? Wah saya tidak tahu, (kita
> tunggu masukan dari members lain);
> Mungkin dengan cara tidak langsung, misal dicari cara bgmana agar
> ketika ada pengubahan properties no.3 tsb, HARUS ada suatu cell di
> sheete tertentu yg berubah nilainya.
> Perubahan nilai cell menyebabkan terjadinya event sheet_change, dan
> event itu kita manfaatkan untuk mengembalikan nama author seperti
> sebelum diubah oleh user usil.
>
>
> 2011/10/24 Muhammad Robin <mrobin86@yahoo.co.id>
> > Dear Be-Exceller,
> > Saya ingin bertanya, bagaimana cara menuliskan author diproperties file
> excel dengan macro excel dan tidak dapat diganti-ganti secara manual.
> > Terima kasih banyak sebelumnya
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3a.

Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "Mansor" dbpermatasari@gmail.com   nbmy1980

Mon Oct 24, 2011 8:07 am (PDT)



Para Expert Belajar Excel,

Saya mohon penceraha, jika saya mau ambil 2 digit di kiri dari nomornya
yang diformat "00000".

Dalam fungsi LEFT, jika 02304, hasilnya 23, yang saya inginkan 02,

File dilampirkan.

Terima kasih.

Mansor.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
3b.

Re: Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 24, 2011 8:27 am (PDT)



Coba dengan :
=Left( Text( b2 , "00000" ) , 2 )

Kid.

2011/10/24 Mansor <dbpermatasari@gmail.com>

>
> Terima kasih.
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
3c.

Re: Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Oct 24, 2011 4:37 pm (PDT)



*Cara lain* ( jika kita sedang lupa fungsi TEXT )

=LEFT(REPT("0",5-LEN(B2))&B2,2)
=LEFT(RIGHT("00000"&B2,5),2)
=SUBSTITUTE(REPT("0",5-LEN(B2))&B2,RIGHT(B2,3),"")
=SUBSTITUTE(RIGHT("00000"&B2,5),RIGHT(B2,3),"")
=REPLACE(REPT("0",5-LEN(B2))&B2,3,3,"")
=REPLACE(RIGHT("00000"&B2,5),3,3,"")
=MID(RIGHT("00000"&B2,5),1,2)
=MID(REPT("0",5-LEN(B2))&B2,1,2)

Nomor / Bilangan di konversi dulu menjadi TEXT/String dengan salah satu
formula:
TEXT(B2,"00000") (cara Basic #1)
RIGHT("00000"&B2,5) (cara Basic #2)
REPT("0",5-LEN(B2))&B2 (cara Basic #3)
Baru kemudian DIAMBIL part (subString) yg diperlukan, berdasarkan KPW eh..
POSISI/LETAK-nya..!

*Tafsir Al'Haps (Bahasa Menungso)*
1 mengambil 2 karakter dari kiri, dari [String hasil konversi dgn cara
Basic #3]
2 mengambil 2 karakter dari kiri, dari [String hasil konversi dgn cara
Basic #2
3 mengganti subString yg berupa 3 karakter terkanan dari [String hasil
konversi dgn cara Basic #3], diganti dgn blank /alias dihilangkan
4 mengganti subString yg berupa 3 karakter terkanan dari [String hasil
konversi dgn cara Basic #2], diganti dgn blank /alias dihilangkan
5 menukar SubString yg dimulai dari karakter ke 3 sebanyak 3 karakter dari
[String hasil konversi dgn cara Basic #3], ditukar dgn blank
6 menukar SubString yg dimulai dari karakter ke 3 sebanyak 3 karakter dari
[String hasil konversi dgn cara Basic #2], ditukar dgn blank
7 mengambil SubString (dari String hasil konversi cara Basic #3), mulai
dari karakter ke 1 sebanyak 2 karakter
8 mengambil SubString (dari String hasil konversi cara Basic #2), mulai
dari karakter ke 1 sebanyak 2 karakter

mohon koreksi jika ada yang salah...

-haps-

2011/10/24 Kid Mr. <mr.nmkid@gmail.com>

> **
>
> Coba dengan :
> =Left( Text( b2 , "00000" ) , 2 )
> Kid.
>
> 2011/10/24 Mansor <dbpermatasari@gmail.com>
>
>> Terima kasih.
>>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
3d.

Re: Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "summonery" summonery@yahoo.com   summonery

Mon Oct 24, 2011 6:26 pm (PDT)



Asumsi jika data tidak akan melebihi 5 digit:
coba juga,
=TEXT(TRUNC(B2/1000),"00")

>semoga bermanfaat

=============================================================
--- In belajar-excel@yahoogroups.com, Haps <hapsari.stlizbeth@...>
wrote:

*Cara lain* ( jika kita sedang lupa fungsi TEXT )

=LEFT(REPT("0",5-LEN(B2))&B2,2)
=LEFT(RIGHT("00000"&B2,5),2)
=SUBSTITUTE(REPT("0",5-LEN(B2))&B2,RIGHT(B2,3),"")
=SUBSTITUTE(RIGHT("00000"&B2,5),RIGHT(B2,3),"")
=REPLACE(REPT("0",5-LEN(B2))&B2,3,3,"")
=REPLACE(RIGHT("00000"&B2,5),3,3,"")
=MID(RIGHT("00000"&B2,5),1,2)
=MID(REPT("0",5-LEN(B2))&B2,1,2)

Nomor / Bilangan di konversi dulu menjadi TEXT/String dengan salah satu
formula:
TEXT(B2,"00000") (cara Basic #1)
RIGHT("00000"&B2,5) (cara Basic #2)
REPT("0",5-LEN(B2))&B2 (cara Basic #3)
Baru kemudian DIAMBIL part (subString) yg diperlukan, berdasarkan KPW
eh..
POSISI/LETAK-nya..!

*Tafsir Al'Haps (Bahasa Menungso)*
1 mengambil 2 karakter dari kiri, dari [String hasil konversi dgn cara
Basic #3]
2 mengambil 2 karakter dari kiri, dari [String hasil konversi dgn cara
Basic #2
3 mengganti subString yg berupa 3 karakter terkanan dari [String hasil
konversi dgn cara Basic #3], diganti dgn blank /alias dihilangkan
4 mengganti subString yg berupa 3 karakter terkanan dari [String hasil
konversi dgn cara Basic #2], diganti dgn blank /alias dihilangkan
5 menukar SubString yg dimulai dari karakter ke 3 sebanyak 3 karakter
dari
[String hasil konversi dgn cara Basic #3], ditukar dgn blank
6 menukar SubString yg dimulai dari karakter ke 3 sebanyak 3 karakter
dari
[String hasil konversi dgn cara Basic #2], ditukar dgn blank
7 mengambil SubString (dari String hasil konversi cara Basic #3),
mulai
dari karakter ke 1 sebanyak 2 karakter
8 mengambil SubString (dari String hasil konversi cara Basic #2),
mulai
dari karakter ke 1 sebanyak 2 karakter

mohon koreksi jika ada yang salah...

-haps-

2011/10/24 Kid Mr. mr.nmkid@...

**

Coba dengan :
=Left( Text( b2 , "00000" ) , 2 )
Kid.

2011/10/24 Mansor dbpermatasari@...

Terima kasih.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
3e.

Re: Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 24, 2011 6:40 pm (PDT)



Pasti max 5 digit data bisa juga
=right(0&int(b2/1000),2)

Kid.

2011/10/25 summonery <summonery@yahoo.com>

> **
>
>
> Asumsi jika data *tidak akan melebihi 5 digit*:
>
> coba juga,
>
> =TEXT(TRUNC(B2/1000),"00")
>
>
> >semoga bermanfaat
>
>
> =============================================================
> --- In belajar-excel@yahoogroups.com, Haps <hapsari.stlizbeth@...> wrote:
>
> *Cara lain* ( jika kita sedang lupa fungsi TEXT )
>
>
> =LEFT(REPT("0",5-LEN(B2))&B2,2)
> =LEFT(RIGHT("00000"&B2,5),2)
> =SUBSTITUTE(REPT("0",5-LEN(B2))&B2,RIGHT(B2,3),"")
> =SUBSTITUTE(RIGHT("00000"&B2,5),RIGHT(B2,3),"")
> =REPLACE(REPT("0",5-LEN(B2))&B2,3,3,"")
> =REPLACE(RIGHT("00000"&B2,5),3,3,"")
> =MID(RIGHT("00000"&B2,5),1,2)
> =MID(REPT("0",5-LEN(B2))&B2,1,2)
>
> Nomor / Bilangan di konversi dulu menjadi TEXT/String dengan salah satu
> formula:
> TEXT(B2,"00000") (cara Basic #1)
> RIGHT("00000"&B2,5) (cara Basic #2)
> REPT("0",5-LEN(B2))&B2 (cara Basic #3)
> Baru kemudian DIAMBIL part (subString) yg diperlukan, berdasarkan KPW eh..
> POSISI/LETAK-nya..!
>
> *Tafsir Al'Haps (Bahasa Menungso)*
>
> 1 mengambil 2 karakter dari kiri, dari [String hasil konversi dgn cara
> Basic #3]
> 2 mengambil 2 karakter dari kiri, dari [String hasil konversi dgn cara
> Basic #2
> 3 mengganti subString yg berupa 3 karakter terkanan dari [String hasil
> konversi dgn cara Basic #3], diganti dgn blank /alias dihilangkan
> 4 mengganti subString yg berupa 3 karakter terkanan dari [String hasil
> konversi dgn cara Basic #2], diganti dgn blank /alias dihilangkan
> 5 menukar SubString yg dimulai dari karakter ke 3 sebanyak 3 karakter dari
> [String hasil konversi dgn cara Basic #3], ditukar dgn blank
> 6 menukar SubString yg dimulai dari karakter ke 3 sebanyak 3 karakter dari
> [String hasil konversi dgn cara Basic #2], ditukar dgn blank
> 7 mengambil SubString (dari String hasil konversi cara Basic #3), mulai
> dari karakter ke 1 sebanyak 2 karakter
> 8 mengambil SubString (dari String hasil konversi cara Basic #2), mulai
> dari karakter ke 1 sebanyak 2 karakter
>
> mohon koreksi jika ada yang salah...
>
> -haps-
>
>
>
> 2011/10/24 Kid Mr. mr.nmkid@...
>
> **
>
>
> Coba dengan :
> =Left( Text( b2 , "00000" ) , 2 )
> Kid.
>
> 2011/10/24 Mansor dbpermatasari@...
>
> Terima kasih.
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
3f.

Re: Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Mon Oct 24, 2011 6:42 pm (PDT)



kata mas thukul : "amazing..!!"

inspired by pak anton formula; coba juga:

=MID((B2/100000),3,2)

2011/10/25 summonery <summonery@yahoo.com>

> =TEXT(TRUNC(B2/1000),"00")
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
3g.

Re: Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 24, 2011 6:43 pm (PDT)



Bukannya lebih enak kalo
=mid(10^5+b2,2,2)

Kid.

On Tue, Oct 25, 2011 at 08:41, STDEV(i) <setiyowati.devi@gmail.com> wrote:

> **
>
>
> kata mas thukul : "amazing..!!"
>
> inspired by pak anton formula; coba juga:
>
> =MID((B2/100000),3,2)
>
>
>
> 2011/10/25 summonery <summonery@yahoo.com>
>
>> =TEXT(TRUNC(B2/1000),"00")
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
3h.

Re: Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Oct 24, 2011 7:08 pm (PDT)



semuanya memang 'gila-gilaan' ! super amazing !pada makan vitamin apaan
sih...
mari teman, siapa lagi mo setor formula..
di-update dulu dech...host formula text (length of
formula text)Haps 1 =LEFT(REPT("0",5-LEN(B2))&B2,2)Haps 2
=LEFT(RIGHT("00000"&B2,5),2)Haps 3
=SUBSTITUTE(REPT("0",5-LEN(B2))&B2,RIGHT(B2,3),"")Haps 4
=SUBSTITUTE(RIGHT("00000"&B2,5),RIGHT(B2,3),"")Haps 5
=REPLACE(REPT("0",5-LEN(B2))&B2,3,3,"")Haps 6
=REPLACE(RIGHT("00000"&B2,5),3,3,"")Haps 7
=MID(RIGHT("00000"&B2,5),1,2) (30) Haps 8
=MID(REPT("0",5-LEN(B2))&B2,1,2)Mr. Kid
=LEFT(TEXT(B2,"00000"),2)Anton =TEXT(TRUNC(B2/1000),"00")
(27) siti =MID((B2/100000),3,2) (22) Mr Kid
=RIGHT(0&INT(B2/1000),2)Mr Kid =MID(10^5+B2,2,2)
(18)

--- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
>
> Bukannya lebih enak kalo
> =mid(10^5+b2,2,2)
>
> Kid.
>
> On Tue, Oct 25, 2011 at 08:41, STDEV(i) setiyowati.devi@... wrote:
> > kata mas thukul : "amazing..!!"
> > inspired by pak anton formula; coba juga:
> >
> > =MID((B2/100000),3,2)
> >
> > 2011/10/25 summonery summonery@...
> >
> >> =TEXT(TRUNC(B2/1000),"00")

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
3i.

Re: Mengambil 2 digit dari nomor yang formatnya "00000"

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Mon Oct 24, 2011 7:26 pm (PDT)



Tambah satu..

=TEXT(INT(B2/1000);"00")

Blessings,

Fran'z

On 10/25/11, Haps <hapsari.stlizbeth@gmail.com> wrote:
> semuanya memang 'gila-gilaan' ! super amazing !pada makan vitamin apaan
> sih...
> mari teman, siapa lagi mo setor formula..
> di-update dulu dech...host formula text (length of
> formula text)Haps 1 =LEFT(REPT("0",5-LEN(B2))&B2,2)Haps 2
> =LEFT(RIGHT("00000"&B2,5),2)Haps 3
> =SUBSTITUTE(REPT("0",5-LEN(B2))&B2,RIGHT(B2,3),"")Haps 4
> =SUBSTITUTE(RIGHT("00000"&B2,5),RIGHT(B2,3),"")Haps 5
> =REPLACE(REPT("0",5-LEN(B2))&B2,3,3,"")Haps 6
> =REPLACE(RIGHT("00000"&B2,5),3,3,"")Haps 7
> =MID(RIGHT("00000"&B2,5),1,2) (30) Haps 8
> =MID(REPT("0",5-LEN(B2))&B2,1,2)Mr. Kid
> =LEFT(TEXT(B2,"00000"),2)Anton =TEXT(TRUNC(B2/1000),"00")
> (27) siti =MID((B2/100000),3,2) (22) Mr Kid
> =RIGHT(0&INT(B2/1000),2)Mr Kid =MID(10^5+B2,2,2)
> (18)
>
>
>
> --- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
>>
>> Bukannya lebih enak kalo
>> =mid(10^5+b2,2,2)
>>
>> Kid.
>>
>> On Tue, Oct 25, 2011 at 08:41, STDEV(i) setiyowati.devi@... wrote:
>> > kata mas thukul : "amazing..!!"
>> > inspired by pak anton formula; coba juga:
>> >
>> > =MID((B2/100000),3,2)
>> >
>> > 2011/10/25 summonery summonery@...
>> >
>> >> =TEXT(TRUNC(B2/1000),"00")
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
4.

Fwd: Just info.. Semoga berkenan

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Mon Oct 24, 2011 7:26 pm (PDT)



sepertinya penjelasan (yg di quote di bawah ini / postng 24 okt siang)
belum bisa masuk milis

berhubung masih ada teman lain yg melapor bahwa menerima email dari
MIRIP nama siti (terakhir laporandari mbak riska); maka saya coba lagi
me-re-post posting tsb ke milis / dengan cara memforward

terima kasih atas perhatiannya
mohon maaf jika mengganggu ketenangan anda

~ siti (yang asli, he he he)

---------- Forwarded message ----------
From: STDEV(i) <setiyowati.devi@gmail.com>
Date: 2011/10/24
Subject: Re: Just info.. Semoga berkenan
To: belajar-excel <belajar-excel@yahoogroups.com>
Cc: belajar-excel-owner@yahoogroups.com, "Mr. Kid" <mr.nmkid@gmail.com>,
Franciscus SOG <jclugbu@gmail.com>

[ OOT ]

Terima kasih pak Franz..

Memang benar ada dua member baru yg menggunakan email address yg *dibuat *
*mirip* dengan email siti dan email Mr. Kid.

"mr.nmkid" <mr.nmkid@yahoo.co.id>
"Stdev I" <setiyowati.dev1@yahoo.co.id>

Semula kami anggap biasa seperti members lain karena kalau ternyata email -
address sudah bisa dibuat, berarti sudah lolos peraturan di pihak "Penyedia
Email address"
Kita tidak ada hak untuk melarang email yg mirip dengan email lain.

Sekitar tgl 21 Okt 2011 kedua email itu (kemungkinan besar dibuat oleh
1 orang yg sama) *mulai mengirim posting* tanggapan ke milis tetapi
langsung
dengan dengan "*inappropriate* email" maka tidak diloloskan (moderated)

Mungkin karena merasa dipersulit memposting ke milis, ybs kirim-kirim* via
japri *
*seakan akan **menanggapi suatu topik* tetapi isinya semakin tidak pantas.
beberapa members yg terkait dengan topik tsb diberi CC.

Tgl 22 Oct kedua email address tsb sudah di banned & removed oleh
Moderator.
Yang berarti : untuk selamanya email address tsb tidak akan bisa posting ke
milis ini.
Tetapi tidak ada yg menghalangi ybs untuk mengirim langsung (japri) ke
members
kecuali member yg dengan sengaja mem-block /memfilter alamat tsb (spt
laporan
dari Haps).

Demikian ceritak-nya dan juga sekaligus sebagai klarifikasinya.

Kepada seluruh members dimohon agar setiap menerima email dari manapun
(tidak hanya dari milis ini saja), meluangkan waktu *sejenak untuk
memperhatikan *
*eMail **Address-nya* karena EMAIL ADDRESS dan apalagi NICK NAME bisa
dibuat
mirip (bahkan dengan sedikit oprex, bisa dibuat persis *sama) dengan* email
milik
orang lain.
*
*
*Jangan salah duga dulu hanya karena hal yg MIRIP saja.*

Pendapat selanjutnya (mengenai email yg diterima) terserah kepada setiap
individu
member, karena kami tidak ingin memperngaruhi kebebasan berpendapat setiap
member, termasuk apakah harus 'menyayangi' atau 'membenci' moderator /
members lain.

Sebagai moderators, hal yg dapat kami atur hanya mengarahkan diskusi agar
fokus;
mengatur lalulintas posting dan kepantasannya.
(offensive, tidak patas, tidak sopan, sedapat mungkin kami cegah, setidaknya
kalau sudah terlanjur termuat, kami hapus)

Kepada pak Franz, sekali lagi terima kasih atas masukannya.
Kepada para pinisepuh, owner & moderator, mohon tambahannya bila dirasa
perlu.

kindest regards,
& wassalamu alaikum wr wb,
siti

note:
Khusus dlm kasus ini, sebagai data pembanding barangkali perlu di perhatikan
juga

siti
Yahoo_ID : siti_vi
Nick-Name saat ini : "STDEV(i)"
email address : setiyowati.devi.@gmail.com

Mr. Kid
Yahoo_ID : nmkid.family
Nick-Name saat ini : "Mr. Kid"* *
email address : mr.nmkid@gmail.com

----------------

2011/10/24 Franciscus SOG <jclugbu@gmail.com>

> Dear Mbak Siti,
>
> Sepertinya ada yang mencoba memperkeruh suasana dengan menggunakan
> email yang mirip dengan email mbak "Stdev I <setiyowati.dev1@yahoo.co.id
> >".

Mohon diklarifikasi kepada milist agar
> tidak terjadi pencemaran nama baik moderator. Just it.
>
> Blessings,
> Fran'z
>
> ---------- Forwarded message ----------
> From: Stdev I <setiyowati.dev1@yahoo.co.id>

Date: Sun, 23 Oct 2011 01:10:17 +0800 (SGT)
> Subject: Bls: [belajar-excel] Macro excel copy data ke posisi terakhir
> To: "jclugbu@gmail.com" <jclugbu@gmail.com>, "dwanxls@yahoo.co.id"
> <dwanxls@yahoo.co.id>
>
> kalau mau jawab, jawab saja jangan belagu kali.
> lu juga contek dari milis tetangga kan formulanya.
> jangan sok pintar lahhh...
> dasar berani dikampung.
>
>
> ________________________________
> Dari: Franciscus SOG <jclugbu@gmail.com>
> Kepada: belajar-excel@yahoogroups.com
> Dikirim: Rabu, 19 Oktober 2011 11:13
> Judul: Re: [belajar-excel] Macro excel copy data ke posisi terakhir
>
> Dear Pak Dewan,
> Panggil pak Dewan gpp ya, kan ga mau dipanggil pak Menteri (eh salah orang
> ya)..
>
> Untuk kasus Anda, bedakan antara penulisan Row dengan Rows.
>
> Benar :
> Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
>
> Salah :
> Set CellTujuan1 = Sheet2.Cells(Row.Count, 2).End(xlUp).Offset(1, 0)
>
> Just it. Semoga membantu.
>
> Blessings,
>
> Fran'z
>
> On 10/19/11, Dewan Deya <dwanxls@yahoo.co.id> wrote:
> > Sudah di coba sesuai listing di bawah. Masih belom bisa jalan.
> > file terlampir.
> > ________________________________
> > Dari: Haps <hapsari.stlizbeth@gmail.com>
> > Kepada: belajar-excel@yahoogroups.com
> > Dikirim: Selasa, 18 Oktober 2011 15:20
> > Judul: Re: [belajar-excel] Macro excel copy data ke posisi terakhir
> >
> > maaf ikutan..
> > Procedure yg ada di module milik Workbook SAMPLE.xls
> > seharusnya seperti ini (bandingkan dengan teliti) vl makro tulisan pak
> > Dewan
> >
> > Sub KopiTranspose()
> > Dim CellTujuan1 As Range, CellTujuan2 As Range
> > Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
> > Set CellTujuan2 = Sheet2.Cells(Rows.Count, 11).End(xlUp).Offset(1, 0)
> > Sheets("Master").Range("c3:c11").Copy
> > CellTujuan1.PasteSpecial Paste:=xlPasteValues, _
> > Operation:=xlNone, SkipBlanks:=False, Transpose:=True
> > Sheets("Master").Range("D13:D17").Copy
> > CellTujuan2.PasteSpecial Paste:=xlPasteValues, _
> > Operation:=xlNone, SkipBlanks:=False, Transpose:=True
> > End Sub
> >
> > sepertinya bapak harus membaca helpnya, bgmana cara merujuk sheet
> > (ada beberapa cara)
> > - dengan menyebut indexnyaSheets(1) , Sheets(6) dst..
> > - dengan menyebut NAMA nyaSheets("NamaSheet") , Sheets("Sheet10")
> > -dengan menyebut CodeName nya Sheet1 , Sheet32, dst
> > . dengan mengexpresikan object sheet tsb (banyak cara)
> > misalnya CellTujuan1.Parent.Range("A1:A1000")
> > adalah object range yg berada di sheet2 (yaitu sheet yg menjadi induk
> > (parent)
> > bagi range yg bernama CellTujuan1
> > dst...
> >
> > -hapsari-
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
5a.

Mengubah csv menjadi txt

Posted by: "yulius -" yulius0707@gmail.com   yu_li_us

Mon Oct 24, 2011 10:02 pm (PDT)



Hi teman2,

saya mau tanya bagaimana meng-Ubah nama suatu file dari sample.csv menjadi sample.txt tanpa perlu membukanya di excel terlebih dahulu
Saya coba mengolah yang csv tetapi parsing datanya error, tetapi kalau txt parsingnya lancar.

Terima kasih atas bantuannya

Salam,
Yulius

===========================================
mod's Note:
Barang kali sambil dicoba juga di-rename
di windows-explorer *.csv menjadi *.txt
lalu hasil parsingnya spt apa

Komentar lain sulit, berhubung tiadanya
contoh file yg BOLEH dilihat
===========================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
5b.

Re: Mengubah csv menjadi txt

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Tue Oct 25, 2011 1:49 am (PDT)




maksudnya mengubah nama ? atau import file ?kalau import :text yg ada ',' ( koma ) perlu diubah seperti ini "emapt,lima" pada format CVS isi data.txt (tab delimiter):Text Tanggal Numeric
satu 5/16/2011 12333
dua 12/5/2011 4567.4
tiga 12/12/2011 3444.56
"emapt,lima" 11/11/2011 1111 isi data.csv ( comma delimiter) :Text,Tanggal,Numeric
satu,5/16/2011,12333
dua,12/5/2011,4567.4
tiga,12/12/2011,3444.56
"emapt,lima",11/11/2011,1111

hasil :

Text
Tanggal
Numeric


satu
5/16/2011
12333


dua
12/5/2011
4567.4


tiga
12/12/2011
3444.56


emapt,lima
11/11/2011
1111


"emapt,lima" diubah menjadi emapt,lima pada data.cvs :

Text
Tanggal
Numeric



satu
5/16/2011
12333



dua
12/5/2011
4567.4



tiga
12/12/2011
3444.56



emapt
lima
11/11/2011
1111


Sub MacroCVS()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\data.csv", _
Destination:=Range("$A$1"))
.Name = "data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
'TEXT MYD GENERAL
.TextFileColumnDataTypes = Array(2, 3, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Sheet2").Select
End Sub
Sub MacroTXT()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\data.txt", _
Destination:=Range("$A$1"))
.Name = "data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
'TEXT MYD GENERAL
.TextFileColumnDataTypes = Array(2, 3, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Sheet2").Select
End Sub
2. kalau rename file kill "e:\data.txt" ' hapus file lama
Name "e:\data.cvs" As
"e:\data.txt"
To: belajar-excel@yahoogroups.com
From: yulius0707@gmail.com
Date: Tue, 25 Oct 2011 11:52:50 +0700
Subject: [belajar-excel] Mengubah csv menjadi txt

Hi teman2,

saya mau tanya bagaimana meng-Ubah nama suatu file dari sample.csv menjadi sample.txt tanpa perlu membukanya di excel terlebih dahulu

Saya coba mengolah yang csv tetapi parsing datanya error, tetapi kalau txt parsingnya lancar.

Terima kasih atas bantuannya

Salam,

Yulius

===========================================

mod's Note:

Barang kali sambil dicoba juga di-rename

di windows-explorer *.csv menjadi *.txt

lalu hasil parsingnya spt apa

Komentar lain sulit, berhubung tiadanya

contoh file yg BOLEH dilihat

===========================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
5c.

Re: Mengubah csv menjadi txt

Posted by: "yulius -" yulius0707@gmail.com   yu_li_us

Tue Oct 25, 2011 2:02 am (PDT)



it works [?]

Thanks

2011/10/25 jkssxls Sudarsono <jkssxls@hotmail.com>

> maksudnya mengubah nama ? atau import file ?
> kalau import :
> *text yg ada ',' ( koma ) perlu diubah seperti ini "emapt,lima" pada
> format CVS*
>
> isi *data.txt* (tab delimiter):
> Text Tanggal Numeric
> satu 5/16/2011 12333
> dua 12/5/2011 4567.4
> tiga 12/12/2011 3444.56
> "emapt,lima" 11/11/2011 1111
>
> isi *data.csv* ( comma delimiter) :
> Text,Tanggal,Numeric
> satu,5/16/2011,12333
> dua,12/5/2011,4567.4
> tiga,12/12/2011,3444.56
> "emapt,lima",11/11/2011,1111
>
> hasil :
> Text Tanggal Numeric satu 5/16/2011 12333 dua 12/5/2011 4567.4 tiga
> 12/12/2011 3444.56 emapt,lima 11/11/2011 1111
> "emapt,lima" diubah menjadi emapt,lima pada data.cvs :
> Text Tanggal Numeric satu 5/16/2011 12333 dua 12/5/2011 4567.4
> tiga 12/12/2011 3444.56 emapt lima 11/11/2011 1111
>
>
> Sub MacroCVS()
> With ActiveSheet.QueryTables.Add(Connection:= _
> "TEXT;E:\data.csv", _
> Destination:=Range("$A$1"))
> .Name = "data"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = True
> .RefreshOnFileOpen = False
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .TextFilePromptOnRefresh = False
> .TextFilePlatform = *437
> * .TextFileStartRow = *1
> * .TextFileParseType = *xlDelimited
> * .TextFileTextQualifier = *xlTextQualifierDoubleQuote
> * .TextFileConsecutiveDelimiter = False
> .TextFileTabDelimiter = False
> .TextFileSemicolonDelimiter = False
> .TextFileCommaDelimiter = *True
> * .TextFileSpaceDelimiter = False
> 'TEXT MYD GENERAL
> .TextFileColumnDataTypes = Array(*2, 3, 1)*
> .TextFileTrailingMinusNumbers = True
> .Refresh BackgroundQuery:=False
> End With
> Sheets("Sheet2").Select
> End Sub
> Sub MacroTXT()
> With ActiveSheet.QueryTables.Add(Connection:= _
> "TEXT;E:\data.txt", _
> Destination:=Range("$A$1"))
> .Name = "data"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = True
> .RefreshOnFileOpen = False
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .TextFilePromptOnRefresh = False
> .TextFilePlatform = *437
> * .TextFileStartRow = *1*
> .TextFileParseType = *xlDelimited
> * .TextFileTextQualifier = xlTextQualifierDoubleQuote
> .TextFileConsecutiveDelimiter = False
> .TextFileTabDelimiter = *True*
> .TextFileSemicolonDelimiter = False
> .TextFileCommaDelimiter = False
> .TextFileSpaceDelimiter = False
> 'TEXT MYD GENERAL
> .TextFileColumnDataTypes = Array(*2, 3, 1*)
> .TextFileTrailingMinusNumbers = True
> .Refresh BackgroundQuery:=False
> End With
> Sheets("Sheet2").Select
> End Sub
>
>
> 2. kalau rename file
> **
> *kill "e:\**data.txt" ' hapus file lama*
> *Name* "e:\data.cvs" *As* "e:\*data.txt"*
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: yulius0707@gmail.com
> Date: Tue, 25 Oct 2011 11:52:50 +0700
> Subject: [belajar-excel] Mengubah csv menjadi txt
>
> Hi teman2,
> saya mau tanya bagaimana meng-Ubah nama suatu file dari sample.csv menjadi
> sample.txt tanpa perlu membukanya di excel terlebih dahulu
> Saya coba mengolah yang csv tetapi parsing datanya error, tetapi kalau txt
> parsingnya lancar.
>
> Terima kasih atas bantuannya
>
> Salam,
> Yulius
>
> ===========================================
> mod's Note:
> Barang kali sambil dicoba juga di-rename
> di windows-explorer *.csv menjadi *.txt
> lalu hasil parsingnya spt apa
>
> Komentar lain sulit, berhubung tiadanya
> contoh file yg BOLEH dilihat
> ===========================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
5d.

Re: Mengubah csv menjadi txt

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Tue Oct 25, 2011 2:02 am (PDT)




untuk pengaturan tanda pemisah desimal dan ribuan gunakan : .TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Tue, 25 Oct 2011 08:49:47 +0000
Subject: RE: [belajar-excel] Mengubah csv menjadi txt

maksudnya mengubah nama ? atau import file ?
kalau import :
text yg ada ',' ( koma ) perlu diubah seperti ini "emapt,lima" pada format CVS

isi data.txt (tab delimiter):
Text Tanggal Numeric
satu 5/16/2011 12333
dua 12/5/2011 4567.4
tiga 12/12/2011 3444.56
"emapt,lima" 11/11/2011 1111

isi data.csv ( comma delimiter) :
Text,Tanggal,Numeric
satu,5/16/2011,12333
dua,12/5/2011,4567.4
tiga,12/12/2011,3444.56
"emapt,lima",11/11/2011,1111

hasil :

Text
Tanggal
Numeric


satu
5/16/2011
12333


dua
12/5/2011
4567.4


tiga
12/12/2011
3444.56


emapt,lima
11/11/2011
1111


"emapt,lima" diubah menjadi emapt,lima pada data.cvs :

Text
Tanggal
Numeric



satu
5/16/2011
12333



dua
12/5/2011
4567.4



tiga
12/12/2011
3444.56



emapt
lima
11/11/2011
1111


Sub MacroCVS()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\data.csv", _
Destination:=Range("$A$1"))
.Name = "data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
'TEXT MYD GENERAL
.TextFileColumnDataTypes = Array(2, 3, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Sheet2").Select
End Sub
Sub MacroTXT()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\data.txt", _
Destination:=Range("$A$1"))
.Name = "data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
'TEXT MYD GENERAL
.TextFileColumnDataTypes = Array(2, 3, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Sheet2").Select
End Sub

2. kalau rename file

kill "e:\data.txt" ' hapus file lama
Name "e:\data.cvs" As
"e:\data.txt"

To: belajar-excel@yahoogroups.com
From: yulius0707@gmail.com
Date: Tue, 25 Oct 2011 11:52:50 +0700
Subject: [belajar-excel] Mengubah csv menjadi txt

Hi teman2,

saya mau tanya bagaimana meng-Ubah nama suatu file dari sample.csv menjadi sample.txt tanpa perlu membukanya di excel terlebih dahulu

Saya coba mengolah yang csv tetapi parsing datanya error, tetapi kalau txt parsingnya lancar.

Terima kasih atas bantuannya

Salam,

Yulius

===========================================

mod's Note:

Barang kali sambil dicoba juga di-rename

di windows-explorer *.csv menjadi *.txt

lalu hasil parsingnya spt apa

Komentar lain sulit, berhubung tiadanya

contoh file yg BOLEH dilihat

===========================================



Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
5e.

Re: Mengubah csv menjadi txt

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Tue Oct 25, 2011 2:21 am (PDT)




Agar menghapus data sebelumnya , maka perlu diubah :Sub MacroCVS()
On Error Resume Next
ActiveSheet.QueryTables.Item("data_1").Delete
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\data.csv", _
Destination:=Range("$A$1"))
.Name = "data_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","

'TEXT MYD GENERAL
.TextFileColumnDataTypes = Array(2, 3, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Tue, 25 Oct 2011 09:02:41 +0000
Subject: RE: [belajar-excel] Mengubah csv menjadi txt

untuk pengaturan tanda pemisah desimal dan ribuan gunakan :

.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Tue, 25 Oct 2011 08:49:47 +0000
Subject: RE: [belajar-excel] Mengubah csv menjadi txt

maksudnya mengubah nama ? atau import file ?
kalau import :
text yg ada ',' ( koma ) perlu diubah seperti ini "emapt,lima" pada format CVS

isi data.txt (tab delimiter):
Text Tanggal Numeric
satu 5/16/2011 12333
dua 12/5/2011 4567.4
tiga 12/12/2011 3444.56
"emapt,lima" 11/11/2011 1111

isi data.csv ( comma delimiter) :
Text,Tanggal,Numeric
satu,5/16/2011,12333
dua,12/5/2011,4567.4
tiga,12/12/2011,3444.56
"emapt,lima",11/11/2011,1111

hasil :

Text
Tanggal
Numeric


satu
5/16/2011
12333


dua
12/5/2011
4567.4


tiga
12/12/2011
3444.56


emapt,lima
11/11/2011
1111


"emapt,lima" diubah menjadi emapt,lima pada data.cvs :

Text
Tanggal
Numeric



satu
5/16/2011
12333



dua
12/5/2011
4567.4



tiga
12/12/2011
3444.56



emapt
lima
11/11/2011
1111


Sub MacroCVS()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\data.csv", _
Destination:=Range("$A$1"))
.Name = "data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
'TEXT MYD GENERAL
.TextFileColumnDataTypes = Array(2, 3, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Sheet2").Select
End Sub
Sub MacroTXT()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\data.txt", _
Destination:=Range("$A$1"))
.Name = "data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
'TEXT MYD GENERAL
.TextFileColumnDataTypes = Array(2, 3, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Sheet2").Select
End Sub

2. kalau rename file

kill "e:\data.txt" ' hapus file lama
Name "e:\data.cvs" As
"e:\data.txt"

To: belajar-excel@yahoogroups.com
From: yulius0707@gmail.com
Date: Tue, 25 Oct 2011 11:52:50 +0700
Subject: [belajar-excel] Mengubah csv menjadi txt

Hi teman2,

saya mau tanya bagaimana meng-Ubah nama suatu file dari sample.csv menjadi sample.txt tanpa perlu membukanya di excel terlebih dahulu

Saya coba mengolah yang csv tetapi parsing datanya error, tetapi kalau txt parsingnya lancar.

Terima kasih atas bantuannya

Salam,

Yulius

===========================================

mod's Note:

Barang kali sambil dicoba juga di-rename

di windows-explorer *.csv menjadi *.txt

lalu hasil parsingnya spt apa

Komentar lain sulit, berhubung tiadanya

contoh file yg BOLEH dilihat

===========================================





Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
6a.

Menyisipkan data di kolom sebelah

Posted by: "Scorpio Alone" sc0rpi0_b0y82@yahoo.com   sc0rpi0_b0y82

Tue Oct 25, 2011 2:03 am (PDT)



Kepada para suhu X-cel

Mohon pencerahan untuk kasus newbie yang pertama, kalo bisa jangan pake macro

Thanks
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
6b.

Re: Menyisipkan data di kolom sebelah

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Tue Oct 25, 2011 2:19 am (PDT)



mungkin begini

=IF(MOD(ROW(),2)>0,*OFFSET($B$2,**CEILING(ROW()-2,2)/2**,0)*,
CEILING(ROW()-2,2)/2)

tinggal NGOPI ke cells dibawahnya sampai sebanyak yg anda perlukan

'-------
lupa kiboard-short-cut di excel???
daftarnya ada di sini:. http://www.box.net/shared/h0k1ds7gg3frypr67t1h

2011/10/25 Scorpio Alone <sc0rpi0_b0y82@yahoo.com>

> **
> Kepada para suhu X-cel
> Mohon pencerahan untuk kasus newbie yang pertama, kalo bisa jangan pake
> macro [image: ;) winking]
> Thanks
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
7a.

Salam Kenal

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Tue Oct 25, 2011 2:06 am (PDT)



Assalamualaikum,

Selamat siang Rekan milis,
Perkenalkan, nama saya Asror, Anggota baru di milis ini,
Salam kenal rekan2 semua, mohon bantuannya yah?

Terimakasih.
Asror

Safety is my responsibility

=========================================
Mod's Note:
Terima kasih telah bergabung di milis ini
Sayang sekali bantuan yg diharapkan tidak
dijelaskan
==========================================
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
Recent Activity
Visit Your Group
Yahoo! Groups

Mental Health Zone

Schizophrenia groups

Find support

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Small Business Group

Improve your business

by community exchange

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 02.21

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)