1 New Message
Digest #2472
Message
Sun Aug 11, 2013 10:29 pm (PDT) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Mr DE Premor,
cara tsb saya pakai memang hilang spasi di depannya, tetapi diakhir ada pesan error Runtime error 1004: application defined or object defined error.
terima kasih.
ASL
To: belajar-excel@yahoogroups.com
From: de@premor.net
Date: Fri, 2 Aug 2013 16:31:01 +0700
Subject: Re: [belajar-excel] Fungsi Excel dalam Macro
Paling enaknya kalau masalahnya
seperti ini, kita gunakan seperti yang sudah
dijabarkan Mr. Kid
Yaitu menggunakan fungsi Replace
Range("C" & lRow) =
Trim(Replace(Replace(sht.Range("A1"), "PT.",
vbNullString), "PT", vbNullString))
Maksudnya adalah jika di Sht.Range("A1") ada katanya "PT."
maka langsung aja dibuang, lalu hasilnya dilihat lagi,
ada lagi kah kata "PT"
? jika ada buang juga, lalu hasilnya di TRIM buat
membuang karakter spasi dikanan kirinya (kalau ada)
Dengan menggunakan fungsi
Replace ini ada
keuntungannya, yaitu jika
misal nilai Range A1
adalah :
"KUD Maju Beudh",
maka hasilnya akan tetap seperti
itu, beda kalau kita memanfaatkan
fungsi Mid seperti
sebelumnya yang akan menghasilkan "D Maju Beudh"
padahal kita ingin hanya
membuang kata PT, tetapi KU
ikutan terbuang.
Kekurangannya,
Jika misalkan orang yang
kebarat-baratan,
mau bikin group usaha
bernama ACCEPT
GROUP,
maka
akan ikut2an dibuang
juga
sehingga menjadi
ACCE GROUP
(^_^)
Pada 02/08/2013 14:31, Ahmad Syaifullah
Lubis menulis:
Mr De Premor,
tip Range("D" & lRow) = Mid(sht.Range("A2"), 9) ini
sudah bisa jalan.
tetapi mengapa formula tsb saya pakai untuk mengganti
Nama2 Perusahaan, bisa tepat bisa tidak tepat karena masih
ada 1 spasi di depannya. seperti kalau targetnya tertulis
"PT ANDIKA BAHTERA" (tanpa tanda titik) akan menghasilkan
"Andika Bahtera" (cocok); tetapi kalau targetnya tertulis
"PT. ANDIKA BAHTERA" akan menghasilkan " Andika Bahtera"
(hasilnya ada spasi didepan Andika Bahtera. macro yang
saya isi adalah Range("C" & lRow) =
Mid(UCWords(sht.Range("A1")), 4) ini modifikasi dari macro
yang lamanya yaitu Range("C" & lRow) =
UCWords(sht.Range("A1")).
bagai
jangan pernah bosan ya Mr De Premor.
terima kasih.
ASL
cara tsb saya pakai memang hilang spasi di depannya, tetapi diakhir ada pesan error Runtime error 1004: application defined or object defined error.
terima kasih.
ASL
To: belajar-excel@
From: de@premor.net
Date: Fri, 2 Aug 2013 16:31:01 +0700
Subject: Re: [belajar-excel] Fungsi Excel dalam Macro
Paling enaknya kalau masalahnya
seperti ini, kita gunakan seperti yang sudah
dijabarkan Mr. Kid
Yaitu menggunakan fungsi Replace
Range("
Trim(Replace(
vbNullString)
Maksudnya adalah jika di Sht.Range("
maka langsung aja dibuang, lalu hasilnya dilihat lagi,
ada lagi kah kata "PT"
? jika ada buang juga, lalu hasilnya di TRIM buat
membuang karakter spasi dikanan kirinya (kalau ada)
Dengan menggunakan fungsi
Replace ini ada
keuntungannya, yaitu jika
misal nilai Range A1
adalah :
"KUD Maju Beudh",
maka hasilnya akan tetap seperti
itu, beda kalau kita memanfaatkan
fungsi Mid seperti
sebelumnya yang akan menghasilkan "D Maju Beudh"
padahal kita ingin hanya
membuang kata PT, tetapi KU
ikutan terbuang.
Kekurangannya,
Jika misalkan orang yang
kebarat-baratan,
mau bikin group usaha
bernama ACCEPT
GROUP,
maka
akan ikut2an dibuang
juga
sehingga menjadi
ACCE GROUP
(^_^)
Pada 02/08/2013 14:31, Ahmad Syaifullah
Lubis menulis:
Mr De Premor,
tip Range("
sudah bisa jalan.
tetapi mengapa formula tsb saya pakai untuk mengganti
Nama2 Perusahaan, bisa tepat bisa tidak tepat karena masih
ada 1 spasi di depannya. seperti kalau targetnya tertulis
"PT ANDIKA BAHTERA" (tanpa tanda titik) akan menghasilkan
"Andika Bahtera" (cocok); tetapi kalau targetnya tertulis
"PT. ANDIKA BAHTERA" akan menghasilkan " Andika Bahtera"
(hasilnya ada spasi didepan Andika Bahtera. macro yang
saya isi adalah Range("
Mid(UCWords(
yang lamanya yaitu Range("
UCWords(sht.
bagai
jangan pernah bosan ya Mr De Premor.
terima kasih.
ASL
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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