Messages In This Digest (14 Messages)
- 1a.
- satu data untuk banyak file excel From: baguse
- 1b.
- Re: satu data untuk banyak file excel From: i Haps
- 2a.
- Re: Mengkopi dan Menggabungkan cell otomatis From: milsrin
- 2b.
- Re: Mengkopi dan Menggabungkan cell otomatis From: o' Seno
- 2c.
- Re: Mengkopi dan Menggabungkan cell otomatis From: milsrin
- 3a.
- Re: agar hanya userform yang bisa di liat From: Iqrarullah Setiawan Putra
- 4a.
- MENGAMBIL DATA DARI TABEL From: Giyanto Widodo
- 4b.
- Re: MENGAMBIL DATA DARI TABEL From: Giyanto Widodo
- 4c.
- Re: MENGAMBIL DATA DARI TABEL From: i Haps
- 4d.
- Re: MENGAMBIL DATA DARI TABEL From: i Haps
- 5a.
- Ada Terbilang di MS Word 2007 (siapa takut?) From: i Haps
- 5b.
- Re: Ada Terbilang di MS Word 2007 (siapa takut?) From: utthank abe
- 5c.
- Re: Ada Terbilang di MS Word 2007 (siapa takut?) From: o' Seno
- 6.
- Custom_Nurmber_Format buatan kita. From: jokendil@rocketmail.com
Messages
- 1a.
-
satu data untuk banyak file excel
Posted by: "baguse" bagusejogja@yahoo.com bagusejogja
Thu Jan 19, 2012 8:08 am (PST)
salam para pecinta excel khususnya master master yang banyak dipuja puji :)
saya mau tanya tapi maap tidak bisa melampirkan file excelnya, semisal saya lampirkan mungkin banyak file yang saya lampiran. Jadi yang saya tanyakan begini, semisal ada data di file "coba.xls" dan sheet "master" sbb. :
Nama Golongan
AdiIIA
BudiIIIB
CahyaIC
DaniIVE
yang saya tanyakan :
1. Apakah bisa membuat validation dengan list "adi;Budi;Cahya;DAni" yang diambil dari file "coba.xls" untuk file di luar file "coba.xls", semisal file "daftar karyaean.xls" atau file lainnya.
2. Apa ada penganti fungsi vlookup untuk lintas file? (jadi semisal di file "master.xls." mau mengetahui golongan adi tetapi data based tersebut di file "coba.xls"
tq master master dan teman exceler atas waktunya... - 1b.
-
Re: satu data untuk banyak file excel
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Jan 19, 2012 2:41 pm (PST)
saya mau jawab tapi maap saya melampirkan lampiran untuk sekedar
menjelaskan, itupun kalau jelas, dan kalau anda mau membukanya
semisal tidak saya lampirkan, ya tidak apa apa, wong kegiatan ini kan
hanya sukarela (sini suka situ gak rela) he he he..
yg saya jawab:
1
bahan untuk list pada validation list harus berada di workbook itu sendiri
kalau data ternyata ada di workbook lain, tentu masih ada caranya,
salah satu caranya dengan me LINK-nya
menjadi data di range di salah satu sheet dlm workbbok yg ada
validation-list-nya (dlm contoh Karyean.xls)
Sepertinya ini hal yg rugi, karena tetap saja datanya tertulis di
workbook Karyean (betul: "KARYEAN !")
Ya memang, tetapi daripada tidak punya LIST SOURCE !..
keuntungan kecil lainnya data ex link (rumus yg merujuk ke cell di
workbook lain) adalah: jika data sumber berubah,
data hasil links juga ikut berubah
Link harus sering dirawat, karena perpindahan folder / penggantian
nama file sering menyebabkan linknya bingung.
http://office.microsoft. com/en-us/ excel-help/ create-and- manage-links- to-other- workbooks- HA001054812. aspx
http://office.tizag.com/ excelTutorial/ excellinks. php
2
VLOOKUP tidak pernah dilarang untuk merujuk range / cells di workbook lain.
range / cell di workbook lalin bisa di rujuk dengan cara menyebut
workbook dan sheet-nya
http://blog.contextures. com/archives/ 2010/08/23/ excel-vlookup- from-another- workbook/
3.
tanya & saran: anda sama sekali tidak pegang text book pengoperasian
dasar-dasar excel kah ?
@ jika jawabannya = "ya" sebaiknya mulai mencari buku tsb (banyak
judul dan versinya, versi murah meriah juga ada
dimohon tidak balik bertanya minta judul dan nama penulis dan
penerbitnya (haree genee internet buat apa)
@ jika jawabnya "tidak" (artinya anda sudahpegang textbook), besar
kemungkinan: bukunya tidak pernah dibaca...
2012/1/19 baguse <bagusejogja@yahoo.com >
>
> saya mau tanya tapi maap tidak bisa melampirkan file excelnya, semisal saya lampirkan mungkin banyak file yang saya lampiran. Jadi yang saya tanyakan begini, semisal ada data di file "coba.xls" dan sheet "master" sbb. :
>
> Nama Golongan
> Adi IIA
> Budi IIIB
> Cahya IC
> Dani IVE
>
> yang saya tanyakan :
> 1. Apakah bisa membuat validation dengan list "adi;Budi;Cahya;DAni" yang diambil dari file "coba.xls" untuk file di luar file "coba.xls", semisal file "daftar karyaean.xls" atau file lainnya.
> 2. Apa ada penganti fungsi vlookup untuk lintas file? (jadi semisal di file "master.xls." mau mengetahui golongan adi tetapi data based tersebut di file "coba.xls"
- 2a.
-
Re: Mengkopi dan Menggabungkan cell otomatis
Posted by: "milsrin" milsrinlee@yahoo.com milsrinlee
Thu Jan 19, 2012 9:25 am (PST)
Dear para Suhu dan Suhuwati,
Terimakasih kepada Mbak Haps dan Pak O'Seno atas solusinya, sangat-sangat membantu pekerjaan Ane.
Oh iya, rumus tsb dikopikan apabila ada "tindakan manual" berupa dobelklik; dapatkah "tindakan manual" tersebut dihilangkan ;
digantikan dengan terkondisi misalnya kolom yg akan dikopi dan
digabungkan tersebut "tidak kosong", sehingga menjadi lebih
otomatis lagi.
Sekali lagi Ane ucapkan terimakasih sebesar-besarnya.
Regards,
Milsrinlee
- 2b.
-
Re: Mengkopi dan Menggabungkan cell otomatis
Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com
Thu Jan 19, 2012 3:43 pm (PST)
nah akhirnya berkenan juga pak Mils mengeluarkan kemauannya, susah banget
sih
mesti harus dipaksa-paksa; dan dipancing-pancing dulu... padahal yg perlu
itu siapa..?
Syarat:
"KAPAN" / "KARENA APA" otomatsasi itu harus dilaksanakan"
dari kemarinnya ditanya tidak segera dijawab, begitu diberi pancingan KLIK
CELL
MANUAL, pak Mils baru punya kemauan mengemukakan kehendaknya...
kalimatnyapun penuh dengan sesuatu yg masih relatif:
"jika cell yg mau di gabung tidak kosong !"
Kita perinci sbb
(1)
Pada saat workbook dibuka; makro akan melihat sampai di mana isi (baris)
KOLOM H
dan juga Kolom T.
Jika isi KOLOM T tidak-lebih-jauh daripada kolom H (jangkauan ke bawahnya)
>>> *maka otomatis (1) dijalankan*: kolom T (juga kolom U) diisi dengan
rumus penggabungan
pengisian formula hanya sampai cell yg sejajar dengan Cell-berdata di
kolom H terbawah
Berhubung tabel tidak memenuhi syarat untuk disebut "berkaidah database" /
database yg baik;
Jika T5 berisi data; T6 s/d T100000 = Kosong, dan T 100001 = ada datanya,
maka ...
T6:T100000 *dianggap sudah beres* ! kita hanya mengurus T100001 ke bawah.
Inilah salah satu kelemahan tabel berisi parit-parit kosong yg oleh
penciptanya (kata pak Milsrin)
"memang harus blegitu" ! (dibuat harus blegitu oleh penciptanya)
(2)
pada saat pemakai MENGUPDATE data di kolom H (secara satu cell demi satu
cell)
( di sini mengUpdate = berarti mengubah isi cell-cell di kolom H )
- dari kosong menjadi ada isinya
- atau dari ISI lain menjadi isi LAIN LAGI (berUbah data-value-nya)
jika hal itu terjadi
>>> *maka otomatis (2) dijalankan* yaitu kolom T dan U diisi rumus
penggabungan
ini khusus terjadi di 1 baris (dua cell pada kolom T dan U) saja !
yaitu pada baris
yg sejejar dengan terjadinya perubahan di kolom H
- jika cell di kolom H diupdate dengan MENGOSONGKAN nya,
(semula ada isinya lalu di dhapus menjadi NullString (blank cell)
>>> *maka rumus di Kolom T & U akan dihapus* (ini masih termasuk otomatis
(2)
Terlampir titipan file dan makro dari Hapsari.. yg sedang kabur..
*o'Seno*
*2012/1/20 milsrin <milsrinlee@yahoo.com >
*
>
> * *
> *Terimakasih kepada Mbak Haps dan Pak O'Seno atas solusinya,
> sangat-sangat membantu pekerjaan Ane.*
> *Oh iya, rumus tsb dikopikan apabila ada "tindakan manual" berupa
> dobelklik;*
>
*dapatkah "tindakan manual" tersebut dihilangkan ;
> digantikan dengan terkondisi misalnya kolom yg akan dikopi dan
> digabungkan tersebut "tidak kosong", sehingga menjadi lebih
> otomatis lagi.
> Regards,
> Milsrinlee*
>
>
- 2c.
-
Re: Mengkopi dan Menggabungkan cell otomatis
Posted by: "milsrin" milsrinlee@yahoo.com milsrinlee
Thu Jan 19, 2012 7:43 pm (PST)
Dear Suhu dan Suhuwati Be-Excel,
Special thanks buat Mbak Haps & Pak O'Seno atas solusinya yang
excellent.
Namun, Ane belum mendapat pencerahan nih.....karena dikala Ane membuka
makrohnya ternyata.....terpassword. Hiks-hiks ;(
Thanks and best regards,
Milsrinlee
- 3a.
-
Re: agar hanya userform yang bisa di liat
Posted by: "Iqrarullah Setiawan Putra" aanputra364@ymail.com aanputra364@ymail.com
Thu Jan 19, 2012 9:27 am (PST)
coba pelajari file ini mas....tapi security macro nya di setting jd low dulu ya.....trims
- 4a.
-
MENGAMBIL DATA DARI TABEL
Posted by: "Giyanto Widodo" widodomuh2@yahoo.co.id
Thu Jan 19, 2012 7:49 pm (PST)
Yth. Pakar2 EXCEL di Be-Excel,
Bagaimana cara mengambil data dari tabel, supaya bisa otomatis begitu
ditulis kata kunci muncul data dari tabel.
Bersama ini saya lampirkan filenya.
Terima kasih, success Be-Excel,
Giyanto Widodo
===================== ========= ========= ========= ===
<MODS NOTE>
ysh Pak Giyan..
Mohon dibaca lagi 'Peraturan Milis', khususnya
mengenai bab BESARNYA (ukuran) File Lampiran.
Lampiran anda melanggaran kesepakatan dan, mohon
maaf terpaksa kena cekal.
Anda dapat menyusulkan lampiran yg memenuhi syarat
(misal setelah di-zip atau "cara "pengecilan" lain ===================== ========= ========= ========= ===
- 4b.
-
Re: MENGAMBIL DATA DARI TABEL
Posted by: "Giyanto Widodo" widodomuh2@yahoo.co.id
Thu Jan 19, 2012 8:20 pm (PST)
Mohon maaf saya tidak cek kapasitas file
Ini saya kirim ulang ZIPnya
From: belajar-excel@yahoogroups. com
On Behalf Of Giyanto Widodo
Sent: 20 Januari 2012 9:26
Yth. Pakar2 EXCEL di Be-Excel,
Bagaimana cara mengambil data dari tabel, supaya bisa otomatis begitu
ditulis kata kunci muncul data dari tabel.
Bersama ini saya lampirkan filenya.
Terima kasih, success Be-Excel,
Giyanto Widodo
===================== ========= ========= ========= ===
<MODS NOTE>
ysh Pak Giyan..
Mohon dibaca lagi 'Peraturan Milis', khususnya
mengenai bab BESARNYA (ukuran) File Lampiran.
Lampiran anda melanggaran kesepakatan dan, mohon
maaf terpaksa kena cekal.
Anda dapat menyusulkan lampiran yg memenuhi syarat
(misal setelah di-zip atau "cara "pengecilan" lain
===================== ========= ========= ========= === - 4c.
-
Re: MENGAMBIL DATA DARI TABEL
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Jan 19, 2012 8:35 pm (PST)
ini rumus emergency
di tulis di cell E23, kemudian di tularkan ke cells di bawahnya
=IF(OR(E22="",ISERROR(
INDEX($K$4:$K$38,MATCH( $E$22,$J$ 4:$J$38,0) +J5))),"" ,
INDEX($K$4:$K$38,MATCH( $E$22,$J$ 4:$J$38,0) +J5))
yg saya maksud dgn 'emergency', artinya: *"kebetulan masih bisa"*
sebab tabel yg dirujuk (J4:K38) *bukan bentuk tabel yg normal.*
dia hanyalah selembar catatan
jika nantinya berdasarkan tabel KANAN (J4:K38) itu; permintaan
berkembang "macem-macem"; mungkin tidak ada lagi rumus nya,
sekalipun rumus 'emergency' spt di atas
- i -
*
*
*2012/1/20 Giyanto Widodo <widodomuh2@yahoo.co.id >
*
>
> * *
>
> *Mohon maaf saya tidak cek kapasitas file
> Ini saya kirim ulang ZIPnya
>
> From: belajar-excel@yahoogroups. com
> On Behalf Of Giyanto Widodo
> Sent: 20 Januari 2012 9:26*
> Yth. Pakar2 EXCEL di Be-Excel,
> Bagaimana cara mengambil data dari tabel, supaya bisa otomatis begitu
> ditulis kata kunci muncul data dari tabel.
> Bersama ini saya lampirkan filenya.
>
> Terima kasih, success Be-Excel,
> Giyanto Widodo
>
> ===================== ========= =======
> <MODS NOTE>
> ysh Pak Giyan..
> Mohon dibaca lagi 'Peraturan Milis', khususnya
> mengenai bab BESARNYA (ukuran) File Lampiran.
> Lampiran anda melanggaran kesepakatan dan, mohon
> maaf terpaksa kena cekal.
> Anda dapat menyusulkan lampiran yg memenuhi syarat
> (misal setelah di-zip atau "cara "pengecilan" lain
> ===================== ========= ========= ==
>
>
>
- 4d.
-
Re: MENGAMBIL DATA DARI TABEL
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Jan 19, 2012 9:33 pm (PST)
rumus itu ternyata berlaku TIDAK untuk semua keadaan...
saya lebih prefer ke:
** membuat tabel normal (lihat sheet sebelahnya)
** rumus didasarkan kpd tabel normal tsb
berdaarkan tabel normal itu dibuat array formula sbb
(array formula multi hasil lin 10 cells in row )
=OFFSET(TabelMapel!D4,
MATCH(IDENTITAS!$E$22,TabelMapel !$B$5:$B$ 32,0),0,
COUNTIF(TabelMapel!$B$5:$B$32, IDENTITAS! $E$22),1)
Karena jumlah mapel tiap kelas tidak sama, maka 10 rows itu
jika sisa akan menghasilkan #N/A
#N/A dapat disembunyikan dengan IF maupun dengan conditional formatting
lampiran contoh jawaban tidak dikirim setelah melihat rocords pak giyanto
dlm
bertanya-jawab di milis ini. (yaitu tidak pernah menutup / mengkonfirm
diskusi
bahwa jawaban teman dapat dipakai atau tidak (berguna atau tidak);
yg dapat saya simpulkan (sepihak) bahwa ybs tidak perlu jawaban...
kita tunggu teman lain yg membawa solusi lebih baik..
- i -
2012/1/20 i Haps <hapsari.stlizbeth@gmail.com >:
> ini rumus emergency
> di tulis di cell E23, kemudian di tularkan ke cells di bawahnya
> =IF(OR(E22="",ISERROR(
> INDEX($K$4:$K$38,MATCH( $E$22,$J$ 4:$J$38,0) +J5))),"" ,
> INDEX($K$4:$K$38,MATCH( $E$22,$J$ 4:$J$38,0) +J5))
>
> yg saya maksud dgn 'emergency', artinya: "kebetulan masih bisa"
> sebab tabel yg dirujuk (J4:K38) bukan bentuk tabel yg normal.
> dia hanyalah selembar catatan
>
> jika nantinya berdasarkan tabel KANAN (J4:K38) itu; permintaan
> berkembang "macem-macem"; mungkin tidak ada lagi rumus nya,
> sekalipun rumus 'emergency' spt di atas
>
> - i -
>
>
> 2012/1/20 Giyanto Widodo <widodomuh2@yahoo.co.id >
>>
>> Mohon maaf saya tidak cek kapasitas file
>> Ini saya kirim ulang ZIPnya
>>
>> From: belajar-excel@yahoogroups. com
>> On Behalf Of Giyanto Widodo
>> Sent: 20 Januari 2012 9:26
>>
>> Yth. Pakar2 EXCEL di Be-Excel,
>> Bagaimana cara mengambil data dari tabel, supaya bisa otomatis begitu
>> ditulis kata kunci muncul data dari tabel.
>> Bersama ini saya lampirkan filenya.
>>
>> Terima kasih, success Be-Excel,
>> Giyanto Widodo
>>
>> ===================== ========= =======
>> <MODS NOTE>
>> ysh Pak Giyan..
>> Mohon dibaca lagi 'Peraturan Milis', khususnya
>> mengenai bab BESARNYA (ukuran) File Lampiran.
>> Lampiran anda melanggaran kesepakatan dan, mohon
>> maaf terpaksa kena cekal.
>> Anda dapat menyusulkan lampiran yg memenuhi syarat
>> (misal setelah di-zip atau "cara "pengecilan" lain
>> ===================== ========= ========= ==
- 5a.
-
Ada Terbilang di MS Word 2007 (siapa takut?)
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Jan 19, 2012 11:10 pm (PST)
Terbilang (konversi ANGKA ke KATA-KATA dlm bahasa Indonesia) yg JALAN di
WORD pernah di'siar'kan di milis ini
http://tech.groups.yahoo. com/group/ belajar-excel/ message/8833
bertepatan dengan "hari April Mop" 2011
Saat ini file workbook tsb sudah di update sehingga tidak bermasalah jika
harus dijalankan di WORD 2007
(sudah di re-test pada WORD 2003 dan 2007)
Peningkatannya masih tetap dalam level / kelas: abal-abal, ecek-ecek :
*1. *
*Kapasitas*
Versi lama:
*15 digit (trilyunan)* tanpa desimal (max 999999999999999) harus *tanpa *tanda
pemisah ribuan
Versi sekarang:
*18 digit (kuadriliun) + dua digit desimal* (max
999,999,999,999,999,999. 99 )
Bagian bilangan utuh boleh bertanda pemisah ribuan, boleh polos...
Simbol Pemisah Ribuan = KOMA (,) Simbol Pemisah Desimal = TITK (.)
(atau sesuai setting di Control Panel > Regional & Language Option Anda )
Bagian pecahan akan diterjemahkan bila memang ada,
jika ada bagian pecahan ( misal 21*.99*) cara penyebutannya "dan sembilan
puluh sembilan per seratus"
Terjemahan akan ditulis di Baris berikutnya.
*
*
*2*
*Seleksi karakter angka yg akan diproses.*
Angka yg akan diproses harus di-blok / diselect / di-higlilghted lebih dulu
Angka tsb harus tertulis pada satu baris tersendiri (tidak tercampur dng
teks lain)
(Pada versi sebelumnya: cara memilih angka yg akan diproses : di dekati
dengan kursor pada ujung kanannya)
*3.*
*Cara menjalankan 'Otomatis'nya: *
Masih sama dengan versi sebelumnya: Dengan ALt+F8 > tunjuk Nama Prosedurnya
> ENTER / OK.
Diharapkan penggunanya meningkatkan sendiri misal dgn membuat tool-ikon di
QAT
( atau dibuatkan Pop_up Menu on Right-Click ?? - cobalah )
*4.*
*Makro / VBA Project *
Tidak diproteksi ( boleh dilihat lihat dan dikembangkan sendiri )
*Coding VBA - WORD yg dipakai*, kira kira spt ini
Sub ctvTerbilang()
'== STDEV(i) <setiyowati.devi@Gmail.com >,===
' retouched: awal Janari 2012
'-------------------- --------- --------- ------
Dim Number As Variant, Kata As String, sText As String
Const Ttel As String = "ctv_Terbilang Max 18 digit!!"
sText = Replace(Selection, Chr(10), "")
Selection = sText
'-- text angka dikonversi menjadi bilangn type decimal dengan fungsi *
CDec****
If IsNumeric(Selection) Then
*Number* = *CDec*(Selection)
With Selection
.Copy
.EndKey Unit:=wdLine
.TypeParagraph
End With
Select Case *Number*
Case 0
Kata = "Zero"
Case 1 To 1E+18
Kata = *TERBILANG(Number)*
Case Else
MsgBox "Bilangan Terlalu besar!", 48, Ttel
End Select
Else
MsgBox "Tidak ada bilangan di dalam selection!!", 48, Ttel
End If
Selection = Kata
End Sub
*5*
*Download*
Mohon maaf file tidak dilampirkan di posting ini, tetapi dapat anda unduh
langsung di sini
http://www.box.com/shared/ jycu9zie0j
*6. *
*Lan-Liyo-liyane ..*
Koreksi, pemberitahuan bugs, tegur sapa, comments (bila ada..) akan sangat
dihargai.
(japri ke: setiyowatidevi@gmail.com )
Bila "berbau teknis Excel, boleh via milis BeExcel..)
*** sedikit penjelasan mengenai bilangan type DECIMAL*
di VBA, data type Decimal tidak dapat langsung didiklarasikan kecuali
konversi dari Variant ke Decimal
Decimal memakai memory sebesar 96 bit (= 12 byte); Bandingkan dengan
kapasitas type Double
(Double Precission Floating Point) yg hanya 64 bit ( = 8 byte);
Integer : 16-bit
(2-byte).
Di bawah ini penjelasan dari VBA Help, "besarnya" bilangan dinyatakan
dlm *format
scientific*
E308 artinya 10 pangkat 308 sedangkan E-324 artinua 10 pangkat -324
*Decimal variables *are stored as 96-bit (12-byte) signed integers scaled
by a variable power of 10.
The power of 10 scaling factor specifies the number of digits to the right
of the decimal point,
and ranges from 0 to 28.
*With a scale of 0 (no decimal places)*, the *largest possible value is
+/-79,228,162,514,264,337, 593,543,950, 335*.
*With a 28 decimal places*, the *largest value is
+/-7.9228162514264337593543950335 *
and *the smallest, non-zero value is +/-0.0000000000000000000000000001*
*Double (double-precision floating-point) variables* are stored as IEEE
64-bit (8-byte)
floating-point numbers ranging in value
from -1.79769313486231E308 to -4.94065645841247E- 324 for negative values
and
from 4.94065645841247E-324 to 1.79769313486232E30 8 for positive values.
The type-declaration character for Double is the number sign (#).
kindest regards & wassalam
- i - // on behalf of ctv (yg lagi gak enak body..)
--------------------- --------- --------- --------- --------- -
*terbilang 18 digit + 2 Desimal*
versi WORD : http://www.box.com/shared/ jycu9zie0j
versi EXCEL : http://www.box.com/s/lxzuzvism8 87uoqq1uxr
*terbilang 27 Digit !! *
versi Excel : http://www.box.com/s/0feuadh2n2 evl6bdrxzq
--------------------- --------- --------- --------- --------- -
2011/4/1 STDEV(i) <setiyowati.devi@gmail.com >
>
> Selama ini kita wajar saja kalau DI SHEET EXCEL merekayasa agar bilangan
dapat
> diterjemahkan menjadi kata-kata; Karena milis ini memang khusus bicara
mengenai
> Excel, Excel dan Excel
> Saya tidak tahu apakah ada milis yg khusus ngubek-ubek ms.WORD, mestiny
ada,
> .. aku kurang gaul cih....
>
> Tetapi karena Word dan Excel itu ibarat sodara /sedulur sesumur dan
sekasur dengan
> Excel, terpikir juga bagaimana cara mengotomatiskan penterjemahan ANGKA
menjadi
> KATA-KATA "TERBILANG" langsung di Word nya tanpa bantuan Excel.
>
> Kebetulan beberapa hari y.l. ada juga member yg menanyakan walaupun yg
ditanyakan
> FORMULA (bagaimana cara mengaplikasikan formula terbilang di dokumen Word)
>
> Masuk di VBE dari WORD ternyata siti seperti monyet liar masuk kampung,
celingukan
> gag tahu apa yg harus dikerjakan. Terlalu keseringan melihat object model
Excel, ketika
> masuk ke Word semuanya seperti asing, karena memang belum kenal.
> Tapi tentu saja masih banyak hal yang sama. Nah itulah untungnya sesumur
& sekasur...
>
> Akhirnya setelah sambil berkali-kalli menoba makro-rekam-nya, ada
beberapa properties
> dan methods yg didapat, khusus untuk keperluan men-TERBILANG-kan Angka
menjadi
> Kata-Kata. (Plisss find attached: sebuah dokumen WORD yg sudah di beri
japa mantera
> "terbilang indonesia")
>
> So.. anda jangan berharap terlalu banyak dulu dengan TERBILANG DI MS WORD
ini.
> Cara menjalankanpun masih primitif:
> ** Setiap angka yg akan di-Terbilang-kan; misalnya 123456789 harus
didekati dulu
> dengan kursor (insertion point)
> ** Letakkan kursor di sebelah kanan angka tersebut misalnya 123456789|
> (karakter "|" merah itu angaplah sebagai kursornya)
> ** Pencet Alt + F8 (atau melalui menu: Tools > Macro > Macros.. )
>
> ** Pilih nama Makro > kilik Tombol RUN
>
>
> Tentu saja anda dapat membuat sendiri short-cut berupa Aikon (icon) dan
ditempelkan
> di ToolBar agar makro Terbilang ini lebih mudah anda SURUH kerja di Word
anda.
> Mainan ini masih perlu pengembangan, misalnya mengenal pecahan dsb...
>
> Members yg tidak kebagian attachment (karena gabung di milis ini jauh
hari setelah
> tgl posting (1 April 2011), atau karena berstatus web-only atau
daily-digest, atau
> misalnya siti lupa meng-attached lampirannya; jika berminat dapat
mengunduh sendiri
> di box siti, di sini
> http://www.box.net/shared/ jycu9zie0j
>
> semoga lebih banyak manfaatnya daripada mudharatnya...
- 5b.
-
Re: Ada Terbilang di MS Word 2007 (siapa takut?)
Posted by: "utthank abe" abeutthank@gmail.com abe_utthank
Fri Jan 20, 2012 1:38 am (PST)
zalut ama 2 tante ini... makan apa tante.. biar biza pintar kek kalian
--
R125
On 1/20/12, i Haps <hapsari.stlizbeth@gmail.com > wrote:
> Terbilang (konversi ANGKA ke KATA-KATA dlm bahasa Indonesia) yg JALAN di
> WORD pernah di'siar'kan di milis ini
> http://tech.groups.yahoo. com/group/ belajar-excel/ message/8833
> bertepatan dengan "hari April Mop" 2011
>
> Saat ini file workbook tsb sudah di update sehingga tidak bermasalah jika
> harus dijalankan di WORD 2007
> (sudah di re-test pada WORD 2003 dan 2007)
>
> Peningkatannya masih tetap dalam level / kelas: abal-abal, ecek-ecek :
>
> *1. *
> *Kapasitas*
>
> Versi lama:
> *15 digit (trilyunan)* tanpa desimal (max 999999999999999) harus *tanpa
> *tanda
> pemisah ribuan
>
> Versi sekarang:
> *18 digit (kuadriliun) + dua digit desimal* (max
> 999,999,999,999,999,999. 99 )
> Bagian bilangan utuh boleh bertanda pemisah ribuan, boleh polos...
> Simbol Pemisah Ribuan = KOMA (,) Simbol Pemisah Desimal = TITK (.)
> (atau sesuai setting di Control Panel > Regional & Language Option Anda )
> Bagian pecahan akan diterjemahkan bila memang ada,
> jika ada bagian pecahan ( misal 21*.99*) cara penyebutannya "dan sembilan
> puluh sembilan per seratus"
> Terjemahan akan ditulis di Baris berikutnya.
> *
> *
> *2*
> *Seleksi karakter angka yg akan diproses.*
> Angka yg akan diproses harus di-blok / diselect / di-higlilghted lebih dulu
> Angka tsb harus tertulis pada satu baris tersendiri (tidak tercampur dng
> teks lain)
> (Pada versi sebelumnya: cara memilih angka yg akan diproses : di dekati
> dengan kursor pada ujung kanannya)
>
> *3.*
> *Cara menjalankan 'Otomatis'nya: *
> Masih sama dengan versi sebelumnya: Dengan ALt+F8 > tunjuk Nama Prosedurnya
>> ENTER / OK.
> Diharapkan penggunanya meningkatkan sendiri misal dgn membuat tool-ikon di
> QAT
> ( atau dibuatkan Pop_up Menu on Right-Click ?? - cobalah )
>
> *4.*
> *Makro / VBA Project *
> Tidak diproteksi ( boleh dilihat lihat dan dikembangkan sendiri )
>
> *Coding VBA - WORD yg dipakai*, kira kira spt ini
>
> Sub ctvTerbilang()
> '== STDEV(i) <setiyowati.devi@Gmail.com >,===
> ' retouched: awal Janari 2012
> '-------------------- --------- --------- ------
> Dim Number As Variant, Kata As String, sText As String
> Const Ttel As String = "ctv_Terbilang Max 18 digit!!"
>
> sText = Replace(Selection, Chr(10), "")
> Selection = sText
> '-- text angka dikonversi menjadi bilangn type decimal dengan fungsi *
> CDec****
> If IsNumeric(Selection) Then
> *Number* = *CDec*(Selection)
> With Selection
> .Copy
> .EndKey Unit:=wdLine
> .TypeParagraph
> End With
>
> Select Case *Number*
> Case 0
> Kata = "Zero"
> Case 1 To 1E+18
> Kata = *TERBILANG(Number)*
> Case Else
> MsgBox "Bilangan Terlalu besar!", 48, Ttel
> End Select
> Else
> MsgBox "Tidak ada bilangan di dalam selection!!", 48, Ttel
> End If
> Selection = Kata
> End Sub
>
> *5*
> *Download*
> Mohon maaf file tidak dilampirkan di posting ini, tetapi dapat anda unduh
> langsung di sini
> http://www.box.com/shared/ jycu9zie0j
>
> *6. *
> *Lan-Liyo-liyane ..*
> Koreksi, pemberitahuan bugs, tegur sapa, comments (bila ada..) akan sangat
> dihargai.
> (japri ke: setiyowatidevi@gmail.com )
> Bila "berbau teknis Excel, boleh via milis BeExcel..)
>
> *** sedikit penjelasan mengenai bilangan type DECIMAL*
> di VBA, data type Decimal tidak dapat langsung didiklarasikan kecuali
> konversi dari Variant ke Decimal
> Decimal memakai memory sebesar 96 bit (= 12 byte); Bandingkan dengan
> kapasitas type Double
> (Double Precission Floating Point) yg hanya 64 bit ( = 8 byte);
> Integer : 16-bit
> (2-byte).
>
> Di bawah ini penjelasan dari VBA Help, "besarnya" bilangan dinyatakan
> dlm *format
> scientific*
> E308 artinya 10 pangkat 308 sedangkan E-324 artinua 10 pangkat -324
>
> *Decimal variables *are stored as 96-bit (12-byte) signed integers scaled
> by a variable power of 10.
> The power of 10 scaling factor specifies the number of digits to the right
> of the decimal point,
> and ranges from 0 to 28.
> *With a scale of 0 (no decimal places)*, the *largest possible value is
> +/-79,228,162,514,264,337, 593,543,950, 335*.
> *With a 28 decimal places*, the *largest value is
> +/-7.9228162514264337593543950335 *
> and *the smallest, non-zero value is +/-0.0000000000000000000000000001*
>
> *Double (double-precision floating-point) variables* are stored as IEEE
> 64-bit (8-byte)
> floating-point numbers ranging in value
> from -1.79769313486231E308 to -4.94065645841247E- 324 for negative values
> and
> from 4.94065645841247E-324 to 1.79769313486232E30 8 for positive values.
> The type-declaration character for Double is the number sign (#).
>
> kindest regards & wassalam
> - i - // on behalf of ctv (yg lagi gak enak body..)
>
> --------------------- --------- --------- --------- --------- -
> *terbilang 18 digit + 2 Desimal*
> versi WORD : http://www.box.com/shared/ jycu9zie0j
> versi EXCEL : http://www.box.com/s/lxzuzvism8 87uoqq1uxr
> *terbilang 27 Digit !! *
> versi Excel : http://www.box.com/s/0feuadh2n2 evl6bdrxzq
> --------------------- --------- --------- --------- --------- -
- 5c.
-
Re: Ada Terbilang di MS Word 2007 (siapa takut?)
Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com
Fri Jan 20, 2012 3:07 am (PST)
makannya ?
KROTO Oom !
makanya bisa bersuara kayak cucakrorwo...
( ha ha ha...)
by the way..
Select Case *Number*
Case 0
Kata = "Zero"
*Case 1 To 1E+18*
Kata = TERBILANG(Number)
Case Else
MsgBox "Bilangan Terlalu besar!", 48, Ttel
End Select
menyebabkan nilai *0.00001 *sampai* 0.99999* dianggap "terlalu besar"
mungkin struktur select itu perlu di koreksi sedikit.. menjadi sperti ini...
Select Case Number
Case 0
Kata = "Zero"
Case *0.0001* To 1E+18
Kata = TERBILANG(Number)
Case Else
MsgBox "Bilangan Terlalu besar!", 48, Ttel
End Select
Tetapi..... jika kita donlot lgi filenya, ternyata "bugs" itu *sudah
di"debugs" *!
horeee !! tengkyu my angels...
*o'Seno*
2012/1/20 utthank abe <abeutthank@gmail.com >
> **
>
> zalut ama 2 tante ini... makan apa tante.. biar biza pintar kek kalian
> --
> R125
>
> On 1/20/12, i Haps <hapsari.stlizbeth@gmail.com > wrote:
>
> *Coding VBA - WORD yg dipakai*, kira kira spt ini
> >
> > Select Case Number
> > Case 0
> > Kata = "Zero"
> > Case 1 To 1E+18
> > Kata = TERBILANG(Number)
> > Case Else
> > MsgBox "Bilangan Terlalu besar!", 48, Ttel
> > End Select
> >
> > *terbilang 18 digit + 2 Desimal*
> > versi WORD : http://www.box.com/shared/ jycu9zie0j
> > versi EXCEL : http://www.box.com/s/lxzuzvism8 87uoqq1uxr
> > *terbilang 27 Digit !! *
> > versi Excel : http://www.box.com/s/0feuadh2n2 evl6bdrxzq
> > --------------------- --------- --------- --------- --------- -
>
>
- 6.
-
Custom_Nurmber_Format buatan kita.
Posted by: "jokendil@rocketmail.com" jokendil@rocketmail.com jokendil@rocketmail.com
Fri Jan 20, 2012 1:38 am (PST)
Terkadang cukup sulit untuk membuat sebuah Custom Number Formatting.
Tetapi setiap kita membuka workbook baru, pekerjaan itu seperti sia-sia, karena custom_number_format "ciptaan-ku" itu tiada lagi di kotaknya, kabur entah kemana..
Mohon saran dan penjelasan para Jendral dan PerwiraTinggi Excel,
BeExcellers sekalian
bagaimana cara mengatur (setting atau cara apa saja) agar koleksi Custom_Number_Formatting tetap awet berada di kotaknya.
Terima kasih & salam hormat
Joko Kendil
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar