Selasa, 02 April 2019

[belajar-excel] Digest Number 4743

6 Messages

Digest #4743
1b
Re: import data file dbf ke excel by "Mr. Kid" nmkid.family@ymail.com
1c
Re: import data file dbf ke excel by "hendrik karnadi" hendrikkarnadi
3a
Re: Tidak bisa record dan edit Macro by "Apriyadi" apriyadi_apry
4.1
Mohon petunjuk Angka Terbilang dengan desimal by "Monang Pasaribu" monang.pasaribu

Messages

Tue Apr 2, 2019 1:12 am (PDT) . Posted by:

"It Dpm" it_dpm

setelah sy tanyakan itu hasil generate dari program yg dibuat menggunakan bahasa foxpro, cuma sekarang vendornya sudah tidak ada lagi (source code programnya juga tidak ada) jadi hasil generate file dbf nya seperti. mohon bantuannya mungkin ada yg punya solusi, saya butuh datanya bisa masuk ke dalam excel tanpa harus copy 1 per 1 per kolom dari programnya..terima kasih
Pada Selasa, 2 April 2019 08.03.44 GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

Coba ditanyakan ke pihak pemberi file.

Sent from my smart enough phone
On Apr 1, 2019, at 21:33, It Dpm it_dpm@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

kalau untuk file dbf yg saya lampirkan itu jenisnya dbf yg apa ya?

#yiv0790586621 #yiv0790586621 -- #yiv0790586621ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0790586621 #yiv0790586621ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0790586621 #yiv0790586621ygrp-mkp #yiv0790586621hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0790586621 #yiv0790586621ygrp-mkp #yiv0790586621ads {margin-bottom:10px;}#yiv0790586621 #yiv0790586621ygrp-mkp .yiv0790586621ad {padding:0 0;}#yiv0790586621 #yiv0790586621ygrp-mkp .yiv0790586621ad p {margin:0;}#yiv0790586621 #yiv0790586621ygrp-mkp .yiv0790586621ad a {color:#0000ff;text-decoration:none;}#yiv0790586621 #yiv0790586621ygrp-sponsor #yiv0790586621ygrp-lc {font-family:Arial;}#yiv0790586621 #yiv0790586621ygrp-sponsor #yiv0790586621ygrp-lc #yiv0790586621hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0790586621 #yiv0790586621ygrp-sponsor #yiv0790586621ygrp-lc .yiv0790586621ad {margin-bottom:10px;padding:0 0;}#yiv0790586621 #yiv0790586621actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0790586621 #yiv0790586621activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0790586621 #yiv0790586621activity span {font-weight:700;}#yiv0790586621 #yiv0790586621activity span:first-child {text-transform:uppercase;}#yiv0790586621 #yiv0790586621activity span a {color:#5085b6;text-decoration:none;}#yiv0790586621 #yiv0790586621activity span span {color:#ff7900;}#yiv0790586621 #yiv0790586621activity span .yiv0790586621underline {text-decoration:underline;}#yiv0790586621 .yiv0790586621attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0790586621 .yiv0790586621attach div a {text-decoration:none;}#yiv0790586621 .yiv0790586621attach img {border:none;padding-right:5px;}#yiv0790586621 .yiv0790586621attach label {display:block;margin-bottom:5px;}#yiv0790586621 .yiv0790586621attach label a {text-decoration:none;}#yiv0790586621 blockquote {margin:0 0 0 4px;}#yiv0790586621 .yiv0790586621bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0790586621 .yiv0790586621bold a {text-decoration:none;}#yiv0790586621 dd.yiv0790586621last p a {font-family:Verdana;font-weight:700;}#yiv0790586621 dd.yiv0790586621last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0790586621 dd.yiv0790586621last p span.yiv0790586621yshortcuts {margin-right:0;}#yiv0790586621 div.yiv0790586621attach-table div div a {text-decoration:none;}#yiv0790586621 div.yiv0790586621attach-table {width:400px;}#yiv0790586621 div.yiv0790586621file-title a, #yiv0790586621 div.yiv0790586621file-title a:active, #yiv0790586621 div.yiv0790586621file-title a:hover, #yiv0790586621 div.yiv0790586621file-title a:visited {text-decoration:none;}#yiv0790586621 div.yiv0790586621photo-title a, #yiv0790586621 div.yiv0790586621photo-title a:active, #yiv0790586621 div.yiv0790586621photo-title a:hover, #yiv0790586621 div.yiv0790586621photo-title a:visited {text-decoration:none;}#yiv0790586621 div#yiv0790586621ygrp-mlmsg #yiv0790586621ygrp-msg p a span.yiv0790586621yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0790586621 .yiv0790586621green {color:#628c2a;}#yiv0790586621 .yiv0790586621MsoNormal {margin:0 0 0 0;}#yiv0790586621 o {font-size:0;}#yiv0790586621 #yiv0790586621photos div {float:left;width:72px;}#yiv0790586621 #yiv0790586621photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv0790586621 #yiv0790586621photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0790586621 #yiv0790586621reco-category {font-size:77%;}#yiv0790586621 #yiv0790586621reco-desc {font-size:77%;}#yiv0790586621 .yiv0790586621replbq {margin:4px;}#yiv0790586621 #yiv0790586621ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0790586621 #yiv0790586621ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0790586621 #yiv0790586621ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0790586621 #yiv0790586621ygrp-mlmsg select, #yiv0790586621 input, #yiv0790586621 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0790586621 #yiv0790586621ygrp-mlmsg pre, #yiv0790586621 code {font:115% monospace;}#yiv0790586621 #yiv0790586621ygrp-mlmsg * {line-height:1.22em;}#yiv0790586621 #yiv0790586621ygrp-mlmsg #yiv0790586621logo {padding-bottom:10px;}#yiv0790586621 #yiv0790586621ygrp-msg p a {font-family:Verdana;}#yiv0790586621 #yiv0790586621ygrp-msg p#yiv0790586621attach-count span {color:#1E66AE;font-weight:700;}#yiv0790586621 #yiv0790586621ygrp-reco #yiv0790586621reco-head {color:#ff7900;font-weight:700;}#yiv0790586621 #yiv0790586621ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0790586621 #yiv0790586621ygrp-sponsor #yiv0790586621ov li a {font-size:130%;text-decoration:none;}#yiv0790586621 #yiv0790586621ygrp-sponsor #yiv0790586621ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0790586621 #yiv0790586621ygrp-sponsor #yiv0790586621ov ul {margin:0;padding:0 0 0 8px;}#yiv0790586621 #yiv0790586621ygrp-text {font-family:Georgia;}#yiv0790586621 #yiv0790586621ygrp-text p {margin:0 0 1em 0;}#yiv0790586621 #yiv0790586621ygrp-text tt {font-size:120%;}#yiv0790586621 #yiv0790586621ygrp-vital ul li:last-child {border-right:none !important;}#yiv0790586621

Tue Apr 2, 2019 2:31 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Mungkin FoxPro.
Coba install vfp9 data provider (pilih yang oledb kalau ada) di office 32
bit.
Lalu manfaatkan fitur get external data from data connection wizard pilih
other/advanced, pilih provider visual foxpro yang baru di-install
ke tab Connection -> pilih database, pilih opsi free table -> pilih file
dbf nya -> pilih kemana akan ditampilkan (bisa jadi pivot table langsung
atau diletakkan dalam worksheet).

*** tidak ada vfp yang 64 bit ya, jadi tidak bisa pakai office 64 bit.
*** kalau pakai office 64 bit, biasanya pakai aplikasi lain yang 32 bit
untuk mengambil data dari dbf file tersebut, setelah itu baru di export ke
Excel.

Regards,
Kid

On Tue, Apr 2, 2019 at 4:00 PM It Dpm it_dpm@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> setelah sy tanyakan itu hasil generate dari program yg dibuat menggunakan
> bahasa foxpro, cuma sekarang vendornya sudah tidak ada lagi (source code
> programnya juga tidak ada) jadi hasil generate file dbf nya seperti. mohon
> bantuannya mungkin ada yg punya solusi, saya butuh datanya bisa masuk ke
> dalam excel tanpa harus copy 1 per 1 per kolom dari programnya..terima kasih
>
> Pada Selasa, 2 April 2019 08.03.44 GMT+7, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
> Coba ditanyakan ke pihak pemberi file.
>
> Sent from my smart enough phone
>
> On Apr 1, 2019, at 21:33, It Dpm it_dpm@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com> wrote:
>
>
>
> kalau untuk file dbf yg saya lampirkan itu jenisnya dbf yg apa ya?
>
>
>

Tue Apr 2, 2019 8:04 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Seingat saya file .dbf bisa juga dibuka dengan Excel 2003..
Salam,HK
Sent from Yahoo Mail on Android

On Wed, Apr 3, 2019 at 4:32, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Mungkin FoxPro.Coba install vfp9 data provider (pilih yang oledb kalau ada) di office 32 bit.Lalu manfaatkan fitur get external data from data connection wizard pilih other/advanced, pilih provider visual foxpro yang baru di-installke tab Connection -> pilih database, pilih opsi free table -> pilih file dbf nya -> pilih kemana akan ditampilkan (bisa jadi pivot table langsung atau diletakkan dalam worksheet).
*** tidak ada vfp yang 64 bit ya, jadi tidak bisa pakai office 64 bit. *** kalau pakai office 64 bit, biasanya pakai aplikasi lain yang 32 bit untuk mengambil data dari dbf file tersebut, setelah itu baru di export ke Excel.

Regards,Kid

On Tue, Apr 2, 2019 at 4:00 PM It Dpm it_dpm@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

setelah sy tanyakan itu hasil generate dari program yg dibuat menggunakan bahasa foxpro, cuma sekarang vendornya sudah tidak ada lagi (source code programnya juga tidak ada) jadi hasil generate file dbf nya seperti. mohon bantuannya mungkin ada yg punya solusi, saya butuh datanya bisa masuk ke dalam excel tanpa harus copy 1 per 1 per kolom dari programnya..terima kasih
Pada Selasa, 2 April 2019 08.03.44 GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

Coba ditanyakan ke pihak pemberi file.

Sent from my smart enough phone
On Apr 1, 2019, at 21:33, It Dpm it_dpm@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

kalau untuk file dbf yg saya lampirkan itu jenisnya dbf yg apa ya?

#yiv1667041503 #yiv1667041503 -- #yiv1667041503ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1667041503 #yiv1667041503ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1667041503 #yiv1667041503ygrp-mkp #yiv1667041503hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1667041503 #yiv1667041503ygrp-mkp #yiv1667041503ads {margin-bottom:10px;}#yiv1667041503 #yiv1667041503ygrp-mkp .yiv1667041503ad {padding:0 0;}#yiv1667041503 #yiv1667041503ygrp-mkp .yiv1667041503ad p {margin:0;}#yiv1667041503 #yiv1667041503ygrp-mkp .yiv1667041503ad a {color:#0000ff;text-decoration:none;}#yiv1667041503 #yiv1667041503ygrp-sponsor #yiv1667041503ygrp-lc {font-family:Arial;}#yiv1667041503 #yiv1667041503ygrp-sponsor #yiv1667041503ygrp-lc #yiv1667041503hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1667041503 #yiv1667041503ygrp-sponsor #yiv1667041503ygrp-lc .yiv1667041503ad {margin-bottom:10px;padding:0 0;}#yiv1667041503 #yiv1667041503actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1667041503 #yiv1667041503activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1667041503 #yiv1667041503activity span {font-weight:700;}#yiv1667041503 #yiv1667041503activity span:first-child {text-transform:uppercase;}#yiv1667041503 #yiv1667041503activity span a {color:#5085b6;text-decoration:none;}#yiv1667041503 #yiv1667041503activity span span {color:#ff7900;}#yiv1667041503 #yiv1667041503activity span .yiv1667041503underline {text-decoration:underline;}#yiv1667041503 .yiv1667041503attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1667041503 .yiv1667041503attach div a {text-decoration:none;}#yiv1667041503 .yiv1667041503attach img {border:none;padding-right:5px;}#yiv1667041503 .yiv1667041503attach label {display:block;margin-bottom:5px;}#yiv1667041503 .yiv1667041503attach label a {text-decoration:none;}#yiv1667041503 blockquote {margin:0 0 0 4px;}#yiv1667041503 .yiv1667041503bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1667041503 .yiv1667041503bold a {text-decoration:none;}#yiv1667041503 dd.yiv1667041503last p a {font-family:Verdana;font-weight:700;}#yiv1667041503 dd.yiv1667041503last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1667041503 dd.yiv1667041503last p span.yiv1667041503yshortcuts {margin-right:0;}#yiv1667041503 div.yiv1667041503attach-table div div a {text-decoration:none;}#yiv1667041503 div.yiv1667041503attach-table {width:400px;}#yiv1667041503 div.yiv1667041503file-title a, #yiv1667041503 div.yiv1667041503file-title a:active, #yiv1667041503 div.yiv1667041503file-title a:hover, #yiv1667041503 div.yiv1667041503file-title a:visited {text-decoration:none;}#yiv1667041503 div.yiv1667041503photo-title a, #yiv1667041503 div.yiv1667041503photo-title a:active, #yiv1667041503 div.yiv1667041503photo-title a:hover, #yiv1667041503 div.yiv1667041503photo-title a:visited {text-decoration:none;}#yiv1667041503 div#yiv1667041503ygrp-mlmsg #yiv1667041503ygrp-msg p a span.yiv1667041503yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1667041503 .yiv1667041503green {color:#628c2a;}#yiv1667041503 .yiv1667041503MsoNormal {margin:0 0 0 0;}#yiv1667041503 o {font-size:0;}#yiv1667041503 #yiv1667041503photos div {float:left;width:72px;}#yiv1667041503 #yiv1667041503photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv1667041503 #yiv1667041503photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1667041503 #yiv1667041503reco-category {font-size:77%;}#yiv1667041503 #yiv1667041503reco-desc {font-size:77%;}#yiv1667041503 .yiv1667041503replbq {margin:4px;}#yiv1667041503 #yiv1667041503ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1667041503 #yiv1667041503ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1667041503 #yiv1667041503ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1667041503 #yiv1667041503ygrp-mlmsg select, #yiv1667041503 input, #yiv1667041503 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1667041503 #yiv1667041503ygrp-mlmsg pre, #yiv1667041503 code {font:115% monospace;}#yiv1667041503 #yiv1667041503ygrp-mlmsg * {line-height:1.22em;}#yiv1667041503 #yiv1667041503ygrp-mlmsg #yiv1667041503logo {padding-bottom:10px;}#yiv1667041503 #yiv1667041503ygrp-msg p a {font-family:Verdana;}#yiv1667041503 #yiv1667041503ygrp-msg p#yiv1667041503attach-count span {color:#1E66AE;font-weight:700;}#yiv1667041503 #yiv1667041503ygrp-reco #yiv1667041503reco-head {color:#ff7900;font-weight:700;}#yiv1667041503 #yiv1667041503ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1667041503 #yiv1667041503ygrp-sponsor #yiv1667041503ov li a {font-size:130%;text-decoration:none;}#yiv1667041503 #yiv1667041503ygrp-sponsor #yiv1667041503ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1667041503 #yiv1667041503ygrp-sponsor #yiv1667041503ov ul {margin:0;padding:0 0 0 8px;}#yiv1667041503 #yiv1667041503ygrp-text {font-family:Georgia;}#yiv1667041503 #yiv1667041503ygrp-text p {margin:0 0 1em 0;}#yiv1667041503 #yiv1667041503ygrp-text tt {font-size:120%;}#yiv1667041503 #yiv1667041503ygrp-vital ul li:last-child {border-right:none !important;}#yiv1667041503

Tue Apr 2, 2019 3:47 am (PDT) . Posted by:

"..:: priel ::.." magganjenk

Salam untuk teman2 semua,

permisi kepada admin dan pengurus di milis tercintah ini
Mohon ijin jalurnya untuk posting OOT Lowongan ini, dengan detail sebagai
berikut
------------------------------------------------
*Posisi*
Staf, diutamakan untuk yang fresh graduate

*Status*
Kontrak

*Ketrampilan yang dibutuhkan*
Menguasai Microsoft Office, terutama MS Excel
Mampu mengolah data dengan MS Excel
Mampu membuat materi presentasi dengan MS Power Point
Mampu bekerja baik secara team maupun independen

*Ketrampilan lain*
Bersedia melakukan perjalanan bisnis keluar kota
Dapat berkomunikasi dengan bahasa Inggris, minimal pasif dan tulisan

Untuk teman2 yang berminat, silahkan kirim CV, foto dan data diri dan nomor
telpon yang bisa dihubungi ke

xavreil@gmail.com
Subject : Lamaran untuk posisi Staf CPCD

Kandidat yang memenuhi syarat, akan dihubungi lebih lanjut

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

Terima kasih jalurnya min, semoga ada yang jodoh dari group ini

salam
--
maspriel <http://www.facebook.com/maspriel>

Tue Apr 2, 2019 6:21 am (PDT) . Posted by:

"Apriyadi" apriyadi_apry

Dear Mr Kid,

Terima kasih atas bantuan nya dan share ilmu nya, Akan saya coba malam ini.

Salam,
Apri
--------------------------------------------
Pada Ming, 31/3/19, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

Judul: Re: [belajar-excel] Tidak bisa record dan edit Macro
Kepada: "BeExcel" <belajar-excel@yahoogroups.com>
Tanggal: Minggu, 31 Maret, 2019, 5:40 PM


 









Hai Apri,
Coba dulu begini ya :0.
coba clean up temp folder (cari di windows explorer dengan
search key %temp%), hapus isi folder tersebut,, update
office-nya, coba record macro    ** kalau
masih crash, coba cara 1
1.
buka excel yang akan di record macro, lakukan save as Macro
enable workbook atau binary (xlsm atau xlsb), lalu coba
record macro    ** kalau masih crash, coba cara
2

2. ke Excel Options -> Trust
center -> trust center settings -> pilih enable macro
-> centang trust vba blabla -> ok sampai kembali ke
worksheet -> coba record macro    ** kalau
masih crash, kembalikan setting di atas menjadi disable with
notif dan hilangkan centang trust vba blabla, lalu coba cara
3
3. ke Excel Options
-> Add-ins -> disable seluruh addin yang aktif ->
coba record macro    ** kalau masih crash,
aktifkan kembali addins, lalu coba cara 4
4. ke Excel Options -> Advanced ->
cari bagian General -> ubah status centangan di item
ignore other application that use dde -> coba record
macro
 
  ** kalau masih crash, ubah kembali status centangan di
item cara nomor 4 ini, lalu coba cara 5
5. ke Excel Options -> Advanced
-> cari bagian Editing Options -> ubah status
centangan di item Extend data range blabla -> coba record
macro    ** kalau masih crash, ubah
kembali status centangan di item cara nomor 5 ini, lalu coba
cara 6
6.
coba tambah sheet baru, isi beberapa cells di sheet baru,
lalu coba record macro untuk hapus isi cells di sheet baru
tersebut    ** kalau masih crash, coba cara
7
7. coba repair install-an
office-nya, coba record macro    ** kalau masih
crash, coba cara 8
 8.
uninstall office-nya (clean uninstall), lalu install ulang
(pastikan fitur VBA tercentang), coba record
macro     ** kalau masih crash, pakai Office
versi atasnya saja ya... tapi clean uninstall yang lama, dan
install yang versi baru, lalu update

Regards,Kid




On Sun, Mar 31,
2019 at 5:19 PM Apriyadi apriyadi_apry@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:















 









Dear All,



Mohon dbantu,Saya terdapat Case dimana saat saya Record
macro atau Edit Macro, Excel nya langsung not responding
atau langsung restart.

Namun jika hanya menjalankan Macro yang sudah ada bisa dan
normal berjalan.



Hal ini menyebabkan saya tidak dapat membuat report baru dan
tidak bisa mengubah Coding yang sudah ada.



Sebagai tambahan informasi, Saya menggunakan window 10
dengan Microsoft 2010. Sebelum nya laptop saya sering
restart karena tidak mengerti,

Saya salah ke klik Clean dan semua instalan hilang. Sebelum
case case tersebut saya masih bisa Record ataupun edit Macro
sekarang kondisinya seperti tidak bisa record atau Edit.



Mohon penerahannya, Apakah terdapat salah setting di Excel
nya dan hal apa yang saya perlu lakukan agar kembali
normal.



Atas bantuannya saya ucapkan terima kasih banyak



Salam,

Apri
































#yiv7021054757 #yiv7021054757 --
#yiv7021054757ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv7021054757 #yiv7021054757ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv7021054757 #yiv7021054757ygrp-mkp #yiv7021054757hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv7021054757 #yiv7021054757ygrp-mkp #yiv7021054757ads {
margin-bottom:10px;}

#yiv7021054757 #yiv7021054757ygrp-mkp .yiv7021054757ad {
padding:0 0;}

#yiv7021054757 #yiv7021054757ygrp-mkp .yiv7021054757ad p {
margin:0;}

#yiv7021054757 #yiv7021054757ygrp-mkp .yiv7021054757ad a {
color:#0000ff;text-decoration:none;}
#yiv7021054757 #yiv7021054757ygrp-sponsor
#yiv7021054757ygrp-lc {
font-family:Arial;}

#yiv7021054757 #yiv7021054757ygrp-sponsor
#yiv7021054757ygrp-lc #yiv7021054757hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv7021054757 #yiv7021054757ygrp-sponsor
#yiv7021054757ygrp-lc .yiv7021054757ad {
margin-bottom:10px;padding:0 0;}

#yiv7021054757 #yiv7021054757actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv7021054757 #yiv7021054757activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv7021054757 #yiv7021054757activity span {
font-weight:700;}

#yiv7021054757 #yiv7021054757activity span:first-child {
text-transform:uppercase;}

#yiv7021054757 #yiv7021054757activity span a {
color:#5085b6;text-decoration:none;}

#yiv7021054757 #yiv7021054757activity span span {
color:#ff7900;}

#yiv7021054757 #yiv7021054757activity span
.yiv7021054757underline {
text-decoration:underline;}

#yiv7021054757 .yiv7021054757attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv7021054757 .yiv7021054757attach div a {
text-decoration:none;}

#yiv7021054757 .yiv7021054757attach img {
border:none;padding-right:5px;}

#yiv7021054757 .yiv7021054757attach label {
display:block;margin-bottom:5px;}

#yiv7021054757 .yiv7021054757attach label a {
text-decoration:none;}

#yiv7021054757 blockquote {
margin:0 0 0 4px;}

#yiv7021054757 .yiv7021054757bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv7021054757 .yiv7021054757bold a {
text-decoration:none;}

#yiv7021054757 dd.yiv7021054757last p a {
font-family:Verdana;font-weight:700;}

#yiv7021054757 dd.yiv7021054757last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv7021054757 dd.yiv7021054757last p
span.yiv7021054757yshortcuts {
margin-right:0;}

#yiv7021054757 div.yiv7021054757attach-table div div a {
text-decoration:none;}

#yiv7021054757 div.yiv7021054757attach-table {
width:400px;}

#yiv7021054757 div.yiv7021054757file-title a, #yiv7021054757
div.yiv7021054757file-title a:active, #yiv7021054757
div.yiv7021054757file-title a:hover, #yiv7021054757
div.yiv7021054757file-title a:visited {
text-decoration:none;}

#yiv7021054757 div.yiv7021054757photo-title a,
#yiv7021054757 div.yiv7021054757photo-title a:active,
#yiv7021054757 div.yiv7021054757photo-title a:hover,
#yiv7021054757 div.yiv7021054757photo-title a:visited {
text-decoration:none;}

#yiv7021054757 div#yiv7021054757ygrp-mlmsg
#yiv7021054757ygrp-msg p a span.yiv7021054757yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv7021054757 .yiv7021054757green {
color:#628c2a;}

#yiv7021054757 .yiv7021054757MsoNormal {
margin:0 0 0 0;}

#yiv7021054757 o {
font-size:0;}

#yiv7021054757 #yiv7021054757photos div {
float:left;width:72px;}

#yiv7021054757 #yiv7021054757photos div div {
border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}

#yiv7021054757 #yiv7021054757photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv7021054757 #yiv7021054757reco-category {
font-size:77%;}

#yiv7021054757 #yiv7021054757reco-desc {
font-size:77%;}

#yiv7021054757 .yiv7021054757replbq {
margin:4px;}

#yiv7021054757 #yiv7021054757ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv7021054757 #yiv7021054757ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv7021054757 #yiv7021054757ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv7021054757 #yiv7021054757ygrp-mlmsg select,
#yiv7021054757 input, #yiv7021054757 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv7021054757 #yiv7021054757ygrp-mlmsg pre, #yiv7021054757
code {
font:115% monospace;}

#yiv7021054757 #yiv7021054757ygrp-mlmsg * {
line-height:1.22em;}

#yiv7021054757 #yiv7021054757ygrp-mlmsg #yiv7021054757logo {
padding-bottom:10px;}


#yiv7021054757 #yiv7021054757ygrp-msg p a {
font-family:Verdana;}

#yiv7021054757 #yiv7021054757ygrp-msg
p#yiv7021054757attach-count span {
color:#1E66AE;font-weight:700;}

#yiv7021054757 #yiv7021054757ygrp-reco
#yiv7021054757reco-head {
color:#ff7900;font-weight:700;}

#yiv7021054757 #yiv7021054757ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv7021054757 #yiv7021054757ygrp-sponsor #yiv7021054757ov
li a {
font-size:130%;text-decoration:none;}

#yiv7021054757 #yiv7021054757ygrp-sponsor #yiv7021054757ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv7021054757 #yiv7021054757ygrp-sponsor #yiv7021054757ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv7021054757 #yiv7021054757ygrp-text {
font-family:Georgia;}

#yiv7021054757 #yiv7021054757ygrp-text p {
margin:0 0 1em 0;}

#yiv7021054757 #yiv7021054757ygrp-text tt {
font-size:120%;}

#yiv7021054757 #yiv7021054757ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv7021054757


Tue Apr 2, 2019 2:21 pm (PDT) . Posted by:

"Monang Pasaribu" monang.pasaribu

dear Senior Excel

Mohon petunjuk dong bagaimana caranya untuk membuat fungsi angka terbilang tetapi ada angka desimal di belakang 0 (contoh 0.10 atau 0.01).

terima kasih seblumnya

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Point, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to Point amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"000", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Point = Temp & Place(Count) & Point
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Point
Case ""
Point = "Zero Point"
Case "One"
Point = "One Point"
Case Else
Point = Point & " Point"
End Select
Select Case Cents
Case ""
Cents = " Zero Zero"
Case "One"
Cents = " One "
Case Else
Cents = " " & Cents
End Select
SpellNumber = Point & 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)) & " Hundred "
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 = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen";
Case 14: Result = "Fourteen";
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen&quot;
Case 18: Result = "Eighteen";
Case 19: Result = "Nineteen";
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
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 0: GetDigit = "Zeiio"
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = "Zero"
End Select
End Function

Best Regards,
Monang

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar