Tecnologia, programação e muito Visual FoxPro.

domingo, 31 de agosto de 2014

]] XL-mania [[ Menambah row

 

‎Dear master xl mania

Mohon bantuannya cara untuk menambah row ada excel, fail sy tidak bs di tambahh entriie. Row, setiiap menambahkan row selalu muncul keterangan di layar 

To prevente possible loss of data, excel canon shift nonblank cell off of the worsheet, select another location in which to insert cells, or delete data from the end of you worksheet,,,,,,,,

If you do not have in cells that can be shifted off of the worksheet, you cann reset which cell excel considers nonblank. To do this, press CIRL+End to locate the last notblank cell on the worksheet, delete this cell between it and the last row and column of your data then save,

Mohon bantuannya, terimakasih

Salam
Arif

Sent from my BlackBerry 10 smartphone on the Telkomsel network.

__._,_.___

Posted by: arif setiawan <taaup@yahoo.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, pembicaraan pribadi, one line message,  melecehkan,  tidak sopan.
:: ------------- ::::::::::::::::::::
Buat subjek yang kreatif, jangan : &quot;tanya&quot;, &quot;help&quot;, &quot;mohon bantu&quot;
Usahakan besar attachment &lt; 200 kb. Gunakan  winzip  jika  perlu.
:: ------------- ::::::::::::::::::::
Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke
XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari
http://groups.yahoo.com/group/XL-mania/files/Promotion/         
:: ------------- ::::::::::::::::::::
Berikan testimoni di : 
http://www.xl-mania.com/2008/06/testimoni-xl-mania.html        
:: ------------- ::::::::::::::::::::
Message lama ada di :
http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]
http://www.mail-archive.com/xl-mania@yahoogroups.com

.

__,_._,___

]] XL-mania [[ File - rules_and_tips

 


Rules, petunjuk, dan tips melakukan posting di XL-mania

:::: TENTANG XL-mania :::::::::::::::::::::::::::::::::::::::::::::::

+-:: TERIMA KASIH ::::::::::::::::------------ updated : 25 Jun 08 -+
| |
| Dear member XL-mania, |
| |
| Terima kasih telah bergabung dengan XL-mania. Untuk lebih kenal |
| dengan XL-mania, kami kirimkan file "about_XL-mania.zip". Untuk |
| memperkenalkan XL-mania kepada rekan-rekan Anda, kirimkan file |
| "about_XL-mania.zip" tersebut atau file-file menarik lain dari |
| XL-mania kepada rekan-rekan Anda. |
| |
+-:: ATURAN XL-mania :::::::::::::----------------------------------+
| |
| 1 Dilarang : MLM, money game, berita, OOT, iklan tanpa izin |
| khusus, SARA, testing, pembicaraan pribadi / tidak relevan, |
| komentar 1 - 2 baris, melecehkan, tidak sopan, testing. |
| |
| 2 Harap mengganti subjek sesuai dengan topik yang dibicarakan. |
| Jangan terus me-reply subjek yang sama untuk topik yang lain |
| dan jangan lupa, buat subjek yang unik, hindari subjek |
| "tanya", "help", "tolong" [penjelasan lihat "Tips Bertanya |
| di XL-mania" pada bagian bawah] |
| |
| 3 Usahakan besar attachment < 200kb, gunakan winzip jika perlu |
| |
| 4 Siapa saja boleh menjawab masalah Excel dari member lain. Di |
| sini kita saling belajar [malu bertanya, kerja manual ^_~ ] |
| |
| [Aturan "hanya" empat ini, yang di bawah hanyalah penjelasan |
| detail dari aktivitas group dan tips posting] |
| |
+----------------------------------------------------------+

:::: FREQUENTLY ASKED QUESTIONS :::::::::::::::::::::::::::::::::::::

+-:: INBOX PENUH? ::::::::::::::::----------------------------------+
| |
| Inbox penuh? Gunakan digest! [1 email per hari] Caranya : |
| Untuk menerima ringkasan posting kirim e-mail ke : |
| XL-mania-digest@yahoogroups.com |
| Untuk kembali menerima masing-masing posting kirim e-mail ke : |
| XL-mania-normal@yahoogroups.com |
| |
+-:: FILE DIGEST TIDAK ADA? ::::::----------------------------------+
| |
| Dengan menggunakan fasilitas digest pada yahoo, otomatis Anda |
| tidak menerima attachment. Tapi jangan khawatir karena file-file |
| attachment tersebut tersimpan di : |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
| |
+-:: E-MAIL BOUNCING? ::::::::::::----------------------------------+
| |
| Untuk mengatasi bouncing kirim e-mail kosong ke : |
| XL-mania-normal@yahoogroups.com |
| |
+-:: DI MANA LETAK MESSAGE LAMA? :----------------------------------+
| |
| Untuk mencari message lama, masuk ke : |
| http://groups.yahoo.com/group/XL-mania/messages |
| Jika ingin melihat attachment pada message tersebut masuk ke : |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
| |
+-:: MENGAJAK TEMAN KE XL-mania? :----------------------------------+
| |
| Minta teman Anda mengirim e-mail kosong ke : |
| XL-mania-subscribe@yahoogroups.com |
| Setelah itu ada e-mail konfirmasi dari yahoo, reply saja e-mail |
| tersebut tanpa perlu ditulis apa-apa. |
| |
+-:: FILE PELAJARAN XL-mania? ::::----------------------------------+
| |
| File yang bisa dipelajari dapat diakses di : |
| http://groups.yahoo.com/group/XL-mania/files/Lessons/ |
| http://groups.yahoo.com/group/XL-mania/files/Problems/ |
| |
+-:: FILE EXCEL MENARIK? :::::::::----------------------------------+
| |
| Ingin mengirimkan teman Anda file Excel menarik? |
| http://groups.yahoo.com/group/XL-mania/files/Games+etc/ |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
| |
+-:: MERASA JAGOAN EXCEL? ^_^ ::::----------------------------------+
| |
| Ayo ikutan XL-mania challenge di : |
| http://groups.yahoo.com/group/XL-mania/files/Challenge/ |
| |
+-:: MEMBUAT GUIDE EXCEL? ::::::::----------------------------------+
| |
| Ingin membuat guide Excel dan menguploadnya ke bagian files? |
| Kirimkan ke XL-mania-owner@yahoogroups.com |
| |
+-:: TAK BISA AKSES LINK GROUP? ::----------------------------------+
| |
| Tak bisa akses link http://groups.yahoo.com/group/XL-mania/...? |
| Anda harus punya yahoo.id! Yahoo.id adalah login untuk masuk ke |
| seluruh fasilitas yahoo. Jika Anda sudah punya yahoo mail, masuk |
| ke www.yahoogroups.com dengan login yahoo mail tersebut. Jika |
| belum ada : |
| 1. masuk ke www.yahoogroups.com dan daftarkan diri Anda. |
| 2. masukkan e-mail secondary Anda dengan e-mail Anda yang sudah |
| terdaftar di XL-mania. |
| 3. reply konfirmasi yang masuk dari yahoo ke e-mail secondary |
| Malas melakukan step di atas? |
| 1. Buat yahoo id baru, |
| 2. Subscribe lagi ke XL- mania melalui : |
| http://groups.yahoo.com/group/XL-mania/ |
| |
+-:: SUKA XL-mania? ::::::::::::::----------------------------------+
| |
| Berikan testimoni tentang XL-mania di : |
| http://www.friendster.com/profiles/xlmania |
| Atau... ajak teman Anda ikut XL-mania! |
| |
+-:: TIDAK ADA YANG MENJAWAB? ::::----------------------------------+
| |
| Tidak ada yang menjawab pertanyaan Anda... Hmmm... Sebenarnya |
| kami mau mengakhiri tulisan ini sampai di sini. Tapi, sepertinya |
| Anda perlu "tips bertanya dan menjawab". O.K. deh, Jangan malas |
| membaca [tulisan panjang] yang di bawah ini. Hehehe... |
| |
+----------------------------------------------------------+


:::: TIPS BERTANYA DAN MENJAWAB :::::::::::::::::::::::::::::::::::::

+-:: TIPS BERTANYA DI XL-mania ::::---------------------------------+
| |
| Terkadang ada pertanyaan yang tidak dijawab, bahkan ada yang |
| kena filter. Cobalah untuk mengikuti tips-tips berikut : |
| |
| 1 Kerumitan masalah terkadang membuat pertanyaan Anda tidak |
| mendapat respons. Topik seperti "Bantu saya membuat program |
| inventory" atau "Bantu saya membuat program cash register" |
| memakan banyak waktu untuk menjawabnya. |
| |
| 2 Sebelum bertanya, jika ada fasilitas browsing, lihat dulu di |
| http://groups.yahoo.com/group/XL-mania/messages [yang berisi |
| arsip e-mail terdahulu, gunakan fasilitas "search"] atau... |
| http://groups.yahoo.com/group/XL-mania/files/Problems/ atau |
| http://groups.yahoo.com/group/XL-mania/files/Lessons/. Siapa |
| tahu saja problem Anda sudah pernah dibahas. |
| |
| 3 Tulis subjek yang mewakili masalah Anda |
| Hindari subjek yang tidak jelas, seperti : |
| "Tolong", "Help", "Problem", "Case", "Tugas", |
| "Urgent", "Penting", "Tanya", "Macro", "Test" |
| Contoh subject yang baik : |
| "Refresh pivot table otomatis" |
| "Conditional formatting lebih dari 4 kondisi" |
| "Error pada rumus vlookup" |
| Contoh subject yang terlalu panjang dan harus dihindari : |
| "Tolong dibantu, error pada vlookup" |
| "Help! Urgent! Refrest pivot table otomatis!!!!" |
| |
| 4 Jika Anda tidak tahu harus memberi subjek apa pada e-mail |
| Anda, berikan nama apa saja, asal unik dan tidak "generik". |
| Daripada subjek seperti "Tolong" dan "Tanya", lebih menarik |
| Jika Anda memberi subject yang "unik" |
| Contoh subject yang unik : |
| "Menjumlah jualan saya per bulan" |
| "Menghitung banyak tupai yang optimal" |
| |
| 5 Sertakan pertanyaan Anda di e-mail, jangan hanya disertakan |
| pada attachment. Ingat, tidak semua member dapat menerima |
| attachment. Jangan lupa menggunakan bahasa Indonesia yang |
| baik dan benar. |
| Contoh pertanyaan yang harus dihindari : |
| "Tolong dibantu, see attached" |
| "..." [tidak menyertakan pertanyaan sama sekali] |
| "Ini gimana caranya? |
| Contoh pertanyaan yang baik : |
| "Saya sedang menggunakan conditional formatting di |
| cell A5. Yang ingin saya buat adalah warna merah |
| jika nilainya 1, biru jika 2, hijau jika 3, kuning |
| jika 4. Dengan 4 kondisi ini, bagaimana cara |
| memasukkannya ke conditional formatting mengingat |
| fitur ini hanya men-support 3 kondisi?" |
| |
| 6 Terkadang sangat perlu untuk menyertakan attachment. Yang |
| perlu diperhatikan adalah : |
| - Gunakan attachment dalam ukuran kecil [gunakan winzip, |
| atau sederhanakan kasus tersebut], usahakan < 200 KB. |
| - Hapus gambar / object yang tidak berhubungan dengan |
| pertanyaan Anda. Contoh : Logo perusahaan |
| - Dalam attachment, tunjukkan di mana masalah Anda lagi |
| - Jangan lupa tunjukkan contoh hasil yang diinginkan jika |
| problem itu dikerjakan dengan cara lain / manual |
| |
| 7 Jangan nyalakan "request delivery receipt" dan "request read |
| receipt" karena akan menyebabkan message yang masuk ke group |
| bertambah banyak. |
| |
| 8 Terkadang perlu juga untuk menyebutkan versi Excel yang Anda |
| gunakan. Sehingga solusi yang diberikan lebih sesuai. |
| |
| 9 Jika sudah ada yang menjawab pertanyaan Anda, dan Anda tidak |
| puas, atau solusi yang diberikan tidak sesuai dengan yang |
| Anda inginkan, hindari posting 1 baris seperti : |
| "Tidak bisa tuh...", "Kok ga bisa yah" |
| Perjelas lagi keinginan Anda, misalnya dengan menceritakan |
| bahwa dengan solusi tadi hasil yang muncul adalah X, tetapi |
| yang Anda inginkan adalah Y. |
| |
| 10 Jika belum ada yang menjawab, tanyakan lagi, tapi sebaiknya |
| jangan pada hari yang sama. Tunggulah 2 atau 3 hari kemudian |
| karena di sini banyak yang membaca posting Anda. Masalahnya, |
| ada kemungkinan memang tidak ada solusinya, atau... rumit. |
| Saat posting kembali, tulis pertanyaan Anda dengan lebih |
| detail, jangan post pertanyaan yang sama. |
| |
| 11 Jika sudah ada yang menjawab, dan memang sesuai dengan yang |
| Anda inginkan, ucapkan terima kasih langsung ke e-mail |
| penjawab. Jangan kirim ke group, kecuali jika ucapan terima |
| kasih itu disertai dengan pertanyaan baru lagi. |
| |
| 12 Jangan selalu bertanya ke XL-mania-owner@yahoogroups.com. |
| Cobalah bertanya ke XL-mania@yahoogroups.com karena solusi |
| yang diberikan lebih bervariasi. |
| |
| 13 Jika Anda tahu jawaban atas permasalahan orang lain, jangan |
| malu untuk menjawab, walaupun Anda juga dalam taraf belajar. |
| |
| 14 Saat mereply suatu posting, taruh reply Anda di bagian atas, |
| jangan di bagian bawah. Ini memudahkan member lain membaca |
| jawaban / reply dari Anda. |
| |
| 15 Berikan signature dan nama panggilan Anda, jangan sampai |
| orang lain memanggil Anda, "...hai Mr QC-01@ptxyz.co.id..." |
| atau "...begini, Mbak assembly-innerpart@abc.co.id..." |
| |
| 16 Jangan gunakan huruf besar semua, karena di dunia maya dan |
| di mailing list/ forum, artinya adalah Anda sedang berteriak |
| atau marah-marah. |
| |
| 17 Hindari cc ke personal / membanjiri e-mail individual dengan |
| pertanyaan. |
| |
+-:: TIPS MENJAWAB DI XL-mania ::::---------------------------------+
| |
| Jawaban untuk tiap masalah sangat fleksibel. karena itu tipsnya |
| mungkin lebih sedikit : |
| |
| 1 Mohon dalam merespons e-mail member lain tidak mengganti |
| subjectnya. Contoh subject pertanyaan : |
| "Membuat grafik stacked pie" |
| Contoh subject reply yang diharapkan : |
| RE : "Membuat grafik stacked pie" |
| Contoh subject reply yang TIDAK diharapkan : |
| RE : "Membuat grafik stacked pie (SOLVED)" |
| RE : "Jawaban membuat grafik stacked pie" |
| RE : "Jawaban membuat grafik stacked pie, revisi" |
| |
| 2 Menjawab tidak harus memberikan solusi saja. Anda dapat : |
| - Berdiskusi, sharing |
| - Memberi kritik atau cara lain yang menurut Anda lebih |
| baik / efisien, memberi saran perubahan metode kerja |
| |
+----------------------------------------------------------+

:::: TENTANG MACRO / VBA ::::::::::::::::::::::::::::::::::::::::::::

+-:: PENGGUNAAN MACRO / VBA ::::::----------------------------------+
| |
| Berikut ini adalah beberapa petunjuk tentang macro : |
| |
| 1 Peringatan tentang adanya macro pada suatu file saat file |
| bukan berarti file tersebut mengandung virus. Macro memang |
| dapat berbahaya, tapi dapat juga membantu pekerjaan. |
| |
| 2 Untuk mengaktifkan macro, ubah macro security ke low jika |
| SELALU bekerja dengan macro dari sumber terpercaya : |
| Tools, macro, security, low, ok, keluar dari excel, buka |
| lagi file Anda [tahap ini tidak perlu diulang lagi untuk |
| aktivasi berikutnya] |
| |
| 3 Jika anda tak selalu bekerja dengan sumber terpercaya, ubah |
| setting security macro ke medium, sehingga Anda dapat segera |
| mendeteksi apa ada macro dalam suatu file dan apakah macro |
| tersebut berbahaya atau tidak : |
| Tools, macro, security, medium, ok, keluar dari excel, |
| buka lagi file Anda [tahapan ini tidak perlu diulang lagi |
| untuk aktivasi berikutnya]. Saat membuka file itu lagi, |
| pilih "Enabled" |
| |
| 4 Moderator akan menyaring macro yang sifatnya "berbahaya", |
| jadi member tidak perlu khawatir untuk melihat file-file |
| dengan macro di XL-mania |
| |
| 5 Saat seseorang memberi Anda solusi dengan macro, Anda dapat |
| mengcopy syntax yang diberikan melalui : menu tools, macro, |
| visual basic editor |
| |
| 6 Untuk Anda yang awam mengenai macro, dapat mempelajarinya |
| melalui : |
| a. File-file di yahoogroup XL-mania : |
| http://groups.yahoo.com/group/xl-mania/files/lessons |
| b. Tools, macro, record new macro [Anda perlu mengaktifkan |
| macro terlebih dahulu seperti pada poin 2 dan 3] |
| |
+----------------------------------------------------------+

:::: TENTANG MODERASI :::::::::::::::::::::::::::::::::::::::::::::::

+-:: MODERASI DI XL-mania ::::::::----------------------------------+
| |
| Berikut ini adalah aturan moderasi di XL-mania : |
| |
| :: PASTI DI-DELETE [message tidak diapprove] |
| |
| 1 MLM, money game, berita, OOT, iklan tanpa izin khusus, SARA, |
| testing, pembicaraan pribadi / tidak relevan, testing : |
| "Wowww... signaturemu keren, gimana cara bikinnya?" |
| "Wah hebat, kerja di mana mbak?" |
| "Boleh nih kursus, tinggal di mana mas?" |
| |
| 2 Worm, virus, trojan, macro berbahaya |
| |
| 3 Repost message yang sama dalam tenggang < 3 hari |
| |
| 4 Pertanyaan yang terlalu general / hanya 1 baris saja: |
| "Excel saya kok sering hang ya?" [tanpa penjelasan] |
| "Ada yang udah liat Excel versi terbaru?" |
| "SUM itu apa ya?" [pencet F1 please!] |
| |
| 5 Pertanyaan seputar hacking / cracking |
| |
| 6 Pertanyaan / jawaban yang tidak sopan, melecehkan atau |
| ditulis dalam huruf besar semua |
| |
| :: MUNGKIN DI-DELETE [kalau moderator lagi nganggur, "mungkin" |
| akan diforward japri, tapi ga janji deh... ^_^ hehehe...] |
| |
| 1 Attachment penting, tapi ukurannya > 200 kb |
| |
| 2 Ucapan terima kasih [mohon disampaikan japri / langsung ke |
| orang yang bersangkutan] |
| |
| 3 Respons satu baris : |
| "Diinstall ulang aja mas excelnya" |
| "Ehhh... saya juga pernah kejadian gitu tuh" |
| |
| :: DI-APPROVE JIKA MESSAGE HARI ITU SEDIKIT |
| |
| 1 Bagian bawah message ada message lama yang tidak perlu |
| |
| 2 Subject tidak jelas: "tanya", "tolong", "urgent", "help pls" |
| |
| 3 Request yang sangat sulit / tidak mungkin / negatif : |
| "Bagaimana cara menggunakan Excel untuk menyembuhkan |
| tupai saya yang sedang pilek?" |
| "Bagaimana cara membuat virus dengan Excel?" [Well, ini |
| sebenarnya mungkin dilakukan... tapi gimana gitu lho...] |
| |
| 4 Pembuatan aplikasi rumit dengan Excel [serius, ga ada yang |
| respons kalau terlalu rumit] |
| "Tolong buatin program yang inputnya *bla* *bla* *bla* |
| *bla* *bla* *bla* *bla* [sampai 300 baris], ntar saya |
| kirimin cumi-cumi deh sebagai ucapan terima kasih" |
| "Tolong buatin saya program penjadwalan mesin dong, yang |
| lengkap dari setting mesin sampai penjadwalan pekerja" |
| |
| 5 Jawaban yang sama untuk satu topik sama |
| |
+----------------------------------------------------------+

:::: PENUTUP ::::::::::::::::::::::::::::::::::::::::::::::::::::::::

+-:: KRITIK / SARAN ::::::::::::::----------------------------------+
| |
| untuk mengirimkan saran ke moderator kirim e-mail ke : |
| XL-mania-owner@yahoogroups.com |
| |
+-:: AYO AJAK TEMAN-TEMAN ANDA :::----------------------------------+
| |
| Ajak teman join dengan mengirim e-mail kosong dari alamat e-mail |
| mereka ke : XL-mania-subscribe@yahoogroups.com |
| Anda juga dapat mengundang mereka dengan mengirimkan file-file |
| menarik dari : |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
| |
| Selamat ber-EXCEL ria!!! |
| |
+----------------------------------------------------------+

+-:: SUPPORT :::::::::::::::::::::----------------------------------+
| |
| Support www.XL-mania.com |
| BCA, 466 121 2564, cabang citraland mall |
| Mandiri, 117 000 419 4601, cabang kyai tapa |
+----------------------------------------------------------+

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (291)
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, pembicaraan pribadi, one line message,  melecehkan,  tidak sopan.
:: ------------- ::::::::::::::::::::
Buat subjek yang kreatif, jangan : &quot;tanya&quot;, &quot;help&quot;, &quot;mohon bantu&quot;
Usahakan besar attachment &lt; 200 kb. Gunakan  winzip  jika  perlu.
:: ------------- ::::::::::::::::::::
Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke
XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari
http://groups.yahoo.com/group/XL-mania/files/Promotion/         
:: ------------- ::::::::::::::::::::
Berikan testimoni di : 
http://www.xl-mania.com/2008/06/testimoni-xl-mania.html        
:: ------------- ::::::::::::::::::::
Message lama ada di :
http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]
http://www.mail-archive.com/xl-mania@yahoogroups.com

.

__,_._,___

sábado, 30 de agosto de 2014

Bls: ]] XL-mania [[ Menghilangkan karakter

 

Dear Sdr. Ningrum,

Coba pakai rumus ini : =SUBSTITUTE(A1,"-","")
Misalnya data 0056-27-45-12345  ada di A1, kemudian ketik rumus seperti itu di cell manapun.
Hasilnya tetap text.

Semoga berhasil
Salam YouSee


Pada Senin, 25 Agustus 2014 21:04, "girlsaye@ymail.com [XL-mania]" <XL-mania@yahoogroups.com> menulis:


 
Dear para pakar excell mania,

Mohon dibantu saya untuk memecahkan case sbb.

Misal No rekenening : 0056-27-45-12345

Dari data no rekening tsb di atas bagaimana sy menghilangkan karakter minus (-) tanpa menghilangakan karakter depan (0056). Karena sy sdh mencoba menggunakan control replace untuk menghilang karakter (-), tetapi karakter yg didepan juga ikut hilang (angaka 00). Atas bantuannya, sy sampaikan terima kasih

Regards
Ningrum
Powered by Telkomsel BlackBerry®


__._,_.___

Posted by: You See <theroadstar@yahoo.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (8)
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, pembicaraan pribadi, one line message,  melecehkan,  tidak sopan.
:: ------------- ::::::::::::::::::::
Buat subjek yang kreatif, jangan : &quot;tanya&quot;, &quot;help&quot;, &quot;mohon bantu&quot;
Usahakan besar attachment &lt; 200 kb. Gunakan  winzip  jika  perlu.
:: ------------- ::::::::::::::::::::
Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke
XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari
http://groups.yahoo.com/group/XL-mania/files/Promotion/         
:: ------------- ::::::::::::::::::::
Berikan testimoni di : 
http://www.xl-mania.com/2008/06/testimoni-xl-mania.html        
:: ------------- ::::::::::::::::::::
Message lama ada di :
http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]
http://www.mail-archive.com/xl-mania@yahoogroups.com

.

__,_._,___

sexta-feira, 29 de agosto de 2014

]] XL-mania [[ Cari jasa pembuatan macro excel sistem interpolasi polinomial xzy

 

Assalamu Alaikum wr. Wb Saya lagi mencari jasa pembuatan macro excel untuk sistem interpolasi polinomial (forecast) dengan variabel xyz. Interface macro telah saya buat, beserta contoh data. Sekiranya ada dari teman2 yg berminat, harap menghubungi saya melalui email atau di nomor 089666955139. Terima kasih Wassalam, Adhy

__._,_.___

Posted by: adhy_chemistry@yahoo.co.id
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, pembicaraan pribadi, one line message,  melecehkan,  tidak sopan.
:: ------------- ::::::::::::::::::::
Buat subjek yang kreatif, jangan : &quot;tanya&quot;, &quot;help&quot;, &quot;mohon bantu&quot;
Usahakan besar attachment &lt; 200 kb. Gunakan  winzip  jika  perlu.
:: ------------- ::::::::::::::::::::
Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke
XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari
http://groups.yahoo.com/group/XL-mania/files/Promotion/         
:: ------------- ::::::::::::::::::::
Berikan testimoni di : 
http://www.xl-mania.com/2008/06/testimoni-xl-mania.html        
:: ------------- ::::::::::::::::::::
Message lama ada di :
http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]
http://www.mail-archive.com/xl-mania@yahoogroups.com

.

__,_._,___

Bls: ]] XL-mania [[ Menulis bilangan utk uang (Rupiah) [1 Attachment]

 

Bapak Edhie Wibowo

Terlampir saya sampaikan file contoh dan VBA scripnya 
Semoga bermanfaat

Effendy Karim


Pada Senin, 25 Agustus 2014 21:02, "Edhie Wibowo edhiewibowo@gmail.com [XL-mania]" <XL-mania@yahoogroups.com> menulis:


 
Dear temans,
saya mau tanya nih, ttg macro penulisan bilangan utk uang (rupiah),
dapet dari google dalam dollar, kemudian saya modifikasi jadi rupiah.
Sejauh ini sih macronya berhasil dgn baik, hanya ketika ada angka 100,
tidak bisa membacanya "seratus" tapi satu ratus, juga 10, tidak dibaca
"sepuluh", tapi satu puluh. Gimana spy bisa terbaca cara Indonesia?

Mohon solusinya dari para master. Terima kasih banyak.

-------------------------------------------
Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " ribu "
Place(3) = " juta "
Place(4) = " milyar "
Place(5) = " trilyun "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "Tidak ada uang"
Case "One"
Dollars = "satu rupiah"
Case Else
Dollars = Dollars & " rupiah"
End Select
Select Case Cents
Case ""
Cents = " "
Case "One"
Cents = " dan satu sen"
Case Else
Cents = " and " & Cents & " sen"
End Select
SpellNumber = Dollars & Cents
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " ratus "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "sepuluh"
Case 11: Result = "sebelas"
Case 12: Result = "dua belas"
Case 13: Result = "tiga belas"
Case 14: Result = "empat belas"
Case 15: Result = "lima belas"
Case 16: Result = "enam belas"
Case 17: Result = "tujuh belas"
Case 18: Result = "Delapan Belas"
Case 19: Result = "Sembilan Belas"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "dua puluh "
Case 3: Result = "tiga puluh "
Case 4: Result = "empat puluh "
Case 5: Result = "lima puluh "
Case 6: Result = "enam puluh "
Case 7: Result = "tujuh puluh "
Case 8: Result = "delapan puluh "
Case 9: Result = "sembilan puluh "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "satu"
Case 2: GetDigit = "dua"
Case 3: GetDigit = "tiga"
Case 4: GetDigit = "empat"
Case 5: GetDigit = "lima"
Case 6: GetDigit = "enam"
Case 7: GetDigit = "tujuh"
Case 8: GetDigit = "delapan"
Case 9: GetDigit = "sembilan"
Case Else: GetDigit = ""
End Select
End Function

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

--
Jabat hangat,
Edhie Wibowo

"Vision Shows the Way, Passion Sustains the Journey"


__._,_.___
View attachments on the web

Posted by: Endut Karim <endutkarim@yahoo.co.id>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (3)
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, pembicaraan pribadi, one line message,  melecehkan,  tidak sopan.
:: ------------- ::::::::::::::::::::
Buat subjek yang kreatif, jangan : &quot;tanya&quot;, &quot;help&quot;, &quot;mohon bantu&quot;
Usahakan besar attachment &lt; 200 kb. Gunakan  winzip  jika  perlu.
:: ------------- ::::::::::::::::::::
Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke
XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari
http://groups.yahoo.com/group/XL-mania/files/Promotion/         
:: ------------- ::::::::::::::::::::
Berikan testimoni di : 
http://www.xl-mania.com/2008/06/testimoni-xl-mania.html        
:: ------------- ::::::::::::::::::::
Message lama ada di :
http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]
http://www.mail-archive.com/xl-mania@yahoogroups.com

.

__,_._,___

quinta-feira, 28 de agosto de 2014

Re: ]] XL-mania [[ Menghilangkan karakter [1 Attachment]

 

Dear Ibu Ningrum,

Berikut saya coba bantu menggunakan kombinasi formula replace, left, mid & right dgn asumsi struktur text defaultnya XXXX-XX-XX-XXXXX
=REPLACE(LEFT(A1,5),5,1,"")&REPLACE(MID(A1,6,3),3,1,"")&REPLACE(MID(A1,9,3),3,1,"")&REPLACE(RIGHT(A1,6),1,1,"")
*file terlampir

Semoga bermanfaat & sesuai harapan.

Best regards,
Primas Adexa


From: "girlsaye@ymail.com [XL-mania]" <XL-mania@yahoogroups.com>
To: XL-mania@yahoogroups.com
Sent: Sunday, August 24, 2014 3:28 PM
Subject: ]] XL-mania [[ Menghilangkan karakter

 
Dear para pakar excell mania,

Mohon dibantu saya untuk memecahkan case sbb.

Misal No rekenening : 0056-27-45-12345

Dari data no rekening tsb di atas bagaimana sy menghilangkan karakter minus (-) tanpa menghilangakan karakter depan (0056). Karena sy sdh mencoba menggunakan control replace untuk menghilang karakter (-), tetapi karakter yg didepan juga ikut hilang (angaka 00). Atas bantuannya, sy sampaikan terima kasih

Regards
Ningrum
Powered by Telkomsel BlackBerry®


__._,_.___
View attachments on the web

Posted by: primas adexa <retroductionz@yahoo.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (9)
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, pembicaraan pribadi, one line message,  melecehkan,  tidak sopan.
:: ------------- ::::::::::::::::::::
Buat subjek yang kreatif, jangan : &quot;tanya&quot;, &quot;help&quot;, &quot;mohon bantu&quot;
Usahakan besar attachment &lt; 200 kb. Gunakan  winzip  jika  perlu.
:: ------------- ::::::::::::::::::::
Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke
XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari
http://groups.yahoo.com/group/XL-mania/files/Promotion/         
:: ------------- ::::::::::::::::::::
Berikan testimoni di : 
http://www.xl-mania.com/2008/06/testimoni-xl-mania.html        
:: ------------- ::::::::::::::::::::
Message lama ada di :
http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]
http://www.mail-archive.com/xl-mania@yahoogroups.com

.

__,_._,___

terça-feira, 26 de agosto de 2014

Bls: ]] XL-mania [[ Menulis bilangan utk uang (Rupiah)

 

Copykan aja ke Module
lalu pada sheet ditulis rumus fungsi terbilang.
contoh ditulis di Cell A2: =terbilang(A1;1;"Rupiah")
A1 = cell untuk angka
angka 1 = untuk huruf besar semua
angka 2 = untuk huruf kecil semua
angka 3 = untuk huruf besar pada tiap kata
"Rupiah" = untuk mata uang rupiah, tidak dipakai pun tak apa-apa atau mata uang manapun (dolar, ringgit, dsb)

'Fungsi Terbilang dengan VBA untuk MS Office
'Ditulis oleh Iksan

'Fungsi penterjemahan masing-masing angka
Private Function KeKata(Nomor)
TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan")
KeKata = TrjKata(Nomor)
End Function

'Mulai penulisan Fungsi Terbilang
Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional Satuan = "")
Angka = Fix(Abs(Nilai_Angka))
'Desimal dibelakang koma
des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)
des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)

If des2 = "" Then
    If des1 = "" Or des1 = "0" Then
    Koma = ""
    Else
    Koma = " koma " & KeKata(des1)
    End If
ElseIf des2 = "0" Then
    If des1 = "0" Then
    Koma = ""
    ElseIf des1 = "1" Then
    Koma = " koma sepuluh"
    Else
    Koma = " koma " & KeKata(des1) & " puluh"
    End If
Else
    If des1 = "0" Then
    Koma = " koma nol " & KeKata(des2)
    ElseIf des1 = "1" Then
        If des2 = "1" Then
        Koma = " koma sebelas"
        Else
        Koma = " koma " & KeKata(des2) & " belas"
        End If
    Else
    Koma = " koma " & KeKata(des1) & " puluh " & KeKata(des2)
    End If
End If
'Misahin Angka
No1 = Left(Right(Angka, 1), 1)
No2 = Left(Right(Angka, 2), 1)
No3 = Left(Right(Angka, 3), 1)
No4 = Left(Right(Angka, 4), 1)
No5 = Left(Right(Angka, 5), 1)
No6 = Left(Right(Angka, 6), 1)
No7 = Left(Right(Angka, 7), 1)
No8 = Left(Right(Angka, 8), 1)
No9 = Left(Right(Angka, 9), 1)
No10 = Left(Right(Angka, 10), 1)
No11 = Left(Right(Angka, 11), 1)
No12 = Left(Right(Angka, 12), 1)
No13 = Left(Right(Angka, 13), 1)
No14 = Left(Right(Angka, 14), 1)
No15 = Left(Right(Angka, 15), 1)
'Satuan
If Len(Angka) >= 1 Then
    If Len(Angka) = 1 And No1 = 1 Then
    Nomor1 = "satu"
    ElseIf Len(Angka) = 1 And No1 = 0 Then
    Nomor1 = "Nol"
    ElseIf No2 = "1" Then
        If No1 = "1" Then
        Nomor1 = "sebelas"
        ElseIf No1 = "0" Then
        Nomor1 = "sepuluh"
        Else
        Nomor1 = KeKata(No1) & " belas"
        End If
   
    Else
    Nomor1 = KeKata(No1)
    End If
Else
Nomor1 = ""
End If

'Puluhan
If Len(Angka) >= 2 Then
    If No2 = 1 Or No2 = "0" Then
    Nomor2 = ""
    Else
    Nomor2 = KeKata(No2) & " puluh "
    End If
Else
Nomor2 = ""
End If
'Ratusan
If Len(Angka) >= 3 Then
    If No3 = "1" Then
    Nomor3 = "seratus "
    ElseIf No3 = "0" Then
    Nomor3 = ""
    Else
    Nomor3 = KeKata(No3) & " ratus "
    End If
Else
Nomor3 = ""
End If
'Ribuan
If Len(Angka) >= 4 Then
    If No6 = "0" And No5 = "0" And No4 = "0" Then
    Nomor4 = ""
    ElseIf (No4 = "1" And Len(Angka) = 4) Or (No6 = "0" And No5 = "0" And No4 = "1") Then
    Nomor4 = "seribu "
    ElseIf No5 = "1" Then
        If No4 = "1" Then
        Nomor4 = "sebelas ribu "
        ElseIf No4 = "0" Then
        Nomor4 = "sepuluh ribu "
        Else
        Nomor4 = KeKata(No4) & " belas ribu "
        End If

    Else
    Nomor4 = KeKata(No4) & " ribu "
    End If
Else
Nomor4 = ""
End If
'Puluhan ribu
If Len(Angka) >= 5 Then
    If No5 = "1" Or No5 = "0" Then
    Nomor5 = ""
    Else
    Nomor5 = KeKata(No5) & " puluh "
    End If
Else
Nomor5 = ""
End If
'Ratusan Ribu
If Len(Angka) >= 6 Then
    If No6 = "1" Then
    Nomor6 = "seratus "
    ElseIf No6 = "0" Then
    Nomor6 = ""
    Else
    Nomor6 = KeKata(No6) & " ratus "
    End If
Else
Nomor6 = ""
End If
'Jutaan
If Len(Angka) >= 7 Then
    If No9 = "0" And No8 = "0" And No7 = "0" Then
    Nomor7 = ""
    ElseIf No7 = "1" And Len(Angka) = 7 Then
    Nomor7 = "satu juta "
    ElseIf No8 = "1" Then
        If No7 = "1" Then
        Nomor7 = "sebelas juta "
        ElseIf No7 = "0" Then
        Nomor7 = "sepuluh juta "
        Else
        Nomor7 = KeKata(No7) & " belas juta "
        End If

    Else
    Nomor7 = KeKata(No7) & " juta "
    End If
Else
Nomor7 = ""
End If
'Puluhan juta
If Len(Angka) >= 8 Then
    If No8 = "1" Or No8 = "0" Then
    Nomor8 = ""
    Else
    Nomor8 = KeKata(No8) & " puluh "
    End If
Else
Nomor8 = ""
End If
'Ratusan juta
If Len(Angka) >= 9 Then
    If No9 = "1" Then
    Nomor9 = "seratus "
    ElseIf No9 = "0" Then
    Nomor9 = ""
    Else
    Nomor9 = KeKata(No9) & " ratus "
    End If
Else
Nomor9 = ""
End If
'Milyar
If Len(Angka) >= 10 Then
    If No12 = "0" And No11 = "0" And No10 = "0" Then
    Nomor10 = ""
    ElseIf No10 = "1" And Len(Angka) = 10 Then
    Nomor10 = "satu milyar "
    ElseIf No11 = "1" Then
        If No10 = "1" Then
        Nomor10 = "sebelas milyar "
        ElseIf No10 = "0" Then
        Nomor10 = "sepuluh milyar "
        Else
        Nomor10 = KeKata(No10) & " belas milyar "
        End If

    Else
    Nomor10 = KeKata(No10) & " milyar "
    End If
Else
Nomor10 = ""
End If
'Puluhan Milyar
If Len(Angka) >= 11 Then
    If No11 = "1" Or No11 = "0" Then
    Nomor11 = ""
    Else
    Nomor11 = KeKata(No11) & " puluh "
    End If
Else
Nomor11 = ""
End If
'Ratusan Milyar
If Len(Angka) >= 12 Then
    If No12 = "1" Then
    Nomor12 = "seratus "
    ElseIf No12 = "0" Then
    Nomor12 = ""
    Else
    Nomor12 = KeKata(No12) & " ratus "
    End If
Else
Nomor12 = ""
End If
'Triliun
If Len(Angka) >= 13 Then
    If No15 = "0" And No14 = "0" And No13 = "0" Then
    Nomor13 = ""
    ElseIf No13 = "1" And Len(Angka) = 13 Then
    Nomor13 = "satu triliun "
    ElseIf No14 = "1" Then
        If No13 = "1" Then
        Nomor13 = "sebelas triliun "
        ElseIf No13 = "0" Then
        Nomor13 = "sepuluh triliun "
        Else
        Nomor13 = KeKata(No13) & " belas triliun "
        End If

    Else
    Nomor13 = KeKata(No13) & " triliun "
    End If
Else
Nomor13 = ""
End If
'Puluhan triliun
If Len(Angka) >= 14 Then
    If No14 = "1" Or No14 = "0" Then
    Nomor14 = ""
    Else
    Nomor14 = KeKata(No14) & " puluh "
    End If
Else
Nomor14 = ""
End If
'Ratusan triliun
If Len(Angka) >= 15 Then
    If No15 = "1" Then
    Nomor15 = "seratus "
    ElseIf No15 = "0" Then
    Nomor15 = ""
    Else
    Nomor15 = KeKata(No15) & " ratus "
    End If
Else
Nomor15 = ""
End If

If Len(Angka) > 15 Then
bilang = "Digit Angka Terlalu Banyak"
Else
    If IsNull(Nilai_Angka) Then
    bilang = ""
    ElseIf Nilai_Angka < 0 Then
    bilang = "minus " & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _
    & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " & Satuan)
    Else
    bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _
    & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " & Satuan)
    End If
End If
If Style = 4 Then
terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000), 2)
Else
terbilang = StrConv(bilang, Style)
End If
terbilang = Replace(terbilang, "  ", " ", 1, 1000, vbTextCompare)

End Function






Pada Senin, 25 Agustus 2014 21:03, "Edhie Wibowo edhiewibowo@gmail.com [XL-mania]" <XL-mania@yahoogroups.com> menulis:


 
Dear temans,
saya mau tanya nih, ttg macro penulisan bilangan utk uang (rupiah),
dapet dari google dalam dollar, kemudian saya modifikasi jadi rupiah.
Sejauh ini sih macronya berhasil dgn baik, hanya ketika ada angka 100,
tidak bisa membacanya "seratus" tapi satu ratus, juga 10, tidak dibaca
"sepuluh", tapi satu puluh. Gimana spy bisa terbaca cara Indonesia?

Mohon solusinya dari para master. Terima kasih banyak.

-------------------------------------------
Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " ribu "
Place(3) = " juta "
Place(4) = " milyar "
Place(5) = " trilyun "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "Tidak ada uang"
Case "One"
Dollars = "satu rupiah"
Case Else
Dollars = Dollars & " rupiah"
End Select
Select Case Cents
Case ""
Cents = " "
Case "One"
Cents = " dan satu sen"
Case Else
Cents = " and " & Cents & " sen"
End Select
SpellNumber = Dollars & Cents
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " ratus "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "sepuluh"
Case 11: Result = "sebelas"
Case 12: Result = "dua belas"
Case 13: Result = "tiga belas"
Case 14: Result = "empat belas"
Case 15: Result = "lima belas"
Case 16: Result = "enam belas"
Case 17: Result = "tujuh belas"
Case 18: Result = "Delapan Belas"
Case 19: Result = "Sembilan Belas"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "dua puluh "
Case 3: Result = "tiga puluh "
Case 4: Result = "empat puluh "
Case 5: Result = "lima puluh "
Case 6: Result = "enam puluh "
Case 7: Result = "tujuh puluh "
Case 8: Result = "delapan puluh "
Case 9: Result = "sembilan puluh "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "satu"
Case 2: GetDigit = "dua"
Case 3: GetDigit = "tiga"
Case 4: GetDigit = "empat"
Case 5: GetDigit = "lima"
Case 6: GetDigit = "enam"
Case 7: GetDigit = "tujuh"
Case 8: GetDigit = "delapan"
Case 9: GetDigit = "sembilan"
Case Else: GetDigit = ""
End Select
End Function

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

--
Jabat hangat,
Edhie Wibowo

"Vision Shows the Way, Passion Sustains the Journey"


__._,_.___

Posted by: Iksan Bondang <xanbondang@yahoo.co.id>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (5)
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, pembicaraan pribadi, one line message,  melecehkan,  tidak sopan.
:: ------------- ::::::::::::::::::::
Buat subjek yang kreatif, jangan : &quot;tanya&quot;, &quot;help&quot;, &quot;mohon bantu&quot;
Usahakan besar attachment &lt; 200 kb. Gunakan  winzip  jika  perlu.
:: ------------- ::::::::::::::::::::
Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke
XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari
http://groups.yahoo.com/group/XL-mania/files/Promotion/         
:: ------------- ::::::::::::::::::::
Berikan testimoni di : 
http://www.xl-mania.com/2008/06/testimoni-xl-mania.html        
:: ------------- ::::::::::::::::::::
Message lama ada di :
http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]
http://www.mail-archive.com/xl-mania@yahoogroups.com

.

__,_._,___

Arquivo do blog