tag:blogger.com,1999:blog-57402034256299104442024-03-08T03:07:38.487-08:00Cara Mengetik CepatJogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.comBlogger9125tag:blogger.com,1999:blog-5740203425629910444.post-60425993270966018852020-05-02T16:39:00.004-07:002020-05-04T06:03:40.046-07:00Cara membuat document lebih cepat<center>
<a href="https://youtu.be/KpiwCHxPZhQ" target="baru">TAMPIL DI HALAMAN YOUTUBE</a>
</center>
<br />
<centre>
<iframe width="560" height="315" src="https://www.youtube.com/embed/KpiwCHxPZhQ" frameborder="0" allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen></iframe>
</centre>
<br />
<center>
<a href="https://youtu.be/KpiwCHxPZhQ" target="baru">TAMPIL DI HALAMAN YOUTUBE</a>
</center>
<br />
Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com0tag:blogger.com,1999:blog-5740203425629910444.post-72640970337761852822017-04-21T20:48:00.001-07:002019-05-14T21:25:04.782-07:00Trik ExcelDari tadi pagi kok sepi, ndak ada berkas yang masuk. Jadi nganggur
gak ada sesuatu yang bisa diketik. Iseng-iseng ketik ah barangkali ada
gunanya.<br />
Men Temen, kepikiran gak ya dalam excel kita bisa membuat
pengaturan cel yang unik, misalnya gini nih dalam cel A1 biar bisa
diisi dengan huruf kapital thok thil jadi klo kita ketik huruf a
otomatis diganti menjadi A, lha untuk apa toh? biar gak salah ketik saja
sih. Sebetulnya kalau hasilnya diletakkan di cel lain sangat mudah
karena kita bisa bikin formula, misal di cel A2 kita beri formula sbb.
=UPPER(A1) maka kalau kita ketik di A1 huruf a maka otomatis pada sel A2
menjadi A begicu. Mudah to, gampang to he he he<br />
Lha masalahnya kalau ada yang ngeyel, pokoknya aku mau input di A1 dan hasilnya juga di A1 piye jal....<br />
Coba saja buat formula sendiri, caranya dari Excel pada tab INDEX diklik kanan terus pilih viewc code, pilih Worksheet terus masukkan formula seperti dibawah ini:<br />
<br />
Private Sub Worksheet_Change(ByVal Target As Excel.Range) <br />
Dim rngCell As Range <br />
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub <br />
<br />
Application.EnableEvents = False <br />
For Each rngCell In Target.Cells <br />
rngCell = UCase(rngCell) <br />
Next <br />
Application.EnableEvents = True <br />
<br />
End Sub<br />
<br />
Kalau sudah siap jangan lupa disimpan dengan klik gambar disket. Hasilnya, kalau kita masukkan huruf a akan otomatis diubah menjadi A, akan tetapi hanya sesuai range dalam baris kedua "A1:A100" kalau mau range yang lain ya disesuaikan sendiri saja.<br />
Kalau dari tab ndak bisa coba pakai ALT+F11 yaaaa,<br />
Have a nice day<br />
<br />Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com1tag:blogger.com,1999:blog-5740203425629910444.post-42874148513022631382017-02-05T23:16:00.001-08:002017-02-08T01:36:40.955-08:00Untuk dapat menikmati AddIn dalam Excell Anda harus memakai file XLA yang dapat Anda buat sendiri, atau download saja contohnya ini, kemudian letakkan pada direktory yang Anda pilih sendiri, trus ikuti petunjuk seperti dalam blog ini. Link untuk download SG-Terbilang / AddIn untuk MailingList mengetik dari Excell dan dimailinglist pakai MSword<br />
<a href="http://www.mediafire.com/file/6kwr5lg6mfhr1lq/SG-Terbilang.xla">http://www.mediafire.com/SG-Terbilang.xla</a><br />
silahkan didownload, selamat menikmati formula tambahan dalam program Excell Anda.Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com0tag:blogger.com,1999:blog-5740203425629910444.post-53008957276189283612016-10-10T22:41:00.001-07:002016-10-22T21:20:41.763-07:00Cara mengetik dengan cepatCara mengetik dengan cepat menggunakan MS-Word saja, atau menggunakan kombinasi antara Excel dan Word, cara ini terbukti dapat mempercepat pengetikan. Fungsi SG-terbilang.xla didalamnya memiliki kemampuan untuk mengubah angka(numerik) menjadi kalimat / AngkaTerbilang, ada juga TanggalTerbilang, JamTerbilang dll.<br />
<br />
<a href="http://sholatkusuk.blogspot.com/"><span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">http://sholatkusuk.blogspot.com</span></a><br />
<a href="http://quran4beginner.blogspot.com/"><span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;"><span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">http://quran4beginner.blogspot.com</span> </span></a> Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com0tag:blogger.com,1999:blog-5740203425629910444.post-3267867602881974632016-10-10T20:07:00.001-07:002016-10-10T20:57:36.580-07:00Selamat menikmatiSepertinya sudah saya upload semua yang aku tahu tentang mengetik dengan cepat, tapi kalau masih ada pertanyaan ya silahkan saja, sukur mau menambahkan pengalaman Anda atau dengan teknik yang berbeda, cuma saya jarang buka email je, beri komentar saja dikolom komentar. Thanks
kunjungi juga web saya yang lain di <a href="http://quran4beginner.blogspot.com">http://quran4beginner.blogspot.com</a>Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com0tag:blogger.com,1999:blog-5740203425629910444.post-11202957904844247952016-10-10T19:40:00.000-07:002016-10-10T19:40:01.568-07:00Praktek<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><br />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves>false</w:TrackMoves>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;}
</style>
<![endif]-->
<br />
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Panjang ya?
Fyuh cape ngetiknya, tapi kalau copy paste lain kayaknya he he he.</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.blogger.com/blogger.g?blogID=5740203425629910444" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Cara copy
paste ini paling sip, karena dijamin bebas virus, seperti kita ketahui file.xla
dibuat dengan bahasa pemrograman yang rentan dengan serangan virus. Mau lihat
kode aslinya, buka Excel trus pencet tombol [Alt]+[F11] bersamaan atau info
lebih lanjut lihat Help-nya Excel. Setelah diblok dan dicopy, jangan lupa di
paste ke program NotePad, dan diberinama dengan SG-Terbilang.xla atau
terserah.xla. Tapi kalau Anda ngotot mau download dengan berbagai alasan, ya
silahkan download disini nih SG-Terbilang.xla (tidak dijamin bebas virus lhoo..).</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Cara
pakainya: jangan sampai dah download filenya ndak tahu cara menggunakannya.
Mubadhir dong.</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Pertama
jalankan program Excel, <span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;"><span style="mso-spacerun: yes;"> </span>pilih tombol OfficeButton
disebelah kiri atas bergambar tombol bulat(seperti pada Word diatas), klik
tombol [Excel Options], kemudian pilih menu [Add-Ins], kemudian dari window
Add-Ins </span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri; mso-no-proof: yes;"><img height="323" src="file:///C:\DOCUME~1\Admin\LOCALS~1\Temp\msohtmlclip1\01\clip_image002.jpg" width="430" /></span><span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;"></span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Jika pilihan file SG-Terbilang.xla belum ada, pilih template
Manage: Excel Add-Ins dilanjutkan dengan mengklik tombol [GO] disampingnya. Pilih
tombol browse dan temukan filenya SG-Terbilang tadi disimpan di directory apa.<span style="mso-no-proof: yes;"> </span></span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri; mso-no-proof: yes;">Selanjutnya tinggal dikutak-katik dan dicoba
diExcel, misal </span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Cel A1 diisi 1.234.567,50 dan di cell b1 diisi =ANGKATERBILANG(A1)
maka pada cel B1 itu juga akan ditampilkan:<span style="mso-tab-count: 1;"> </span>“satu
juta dua ratus tiga puluh empat ribu lima ratus enam puluh tujuh rupiah lima
puluh sen”</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Jika ternya hasilnya berbeda, coba set Regional setting: Caranya
pergi ke controlpanelnya windows, kemudian pilih regional seting, trus maaf dah
ngantuk nih. Coba2 sendiri ya, gampang kok.</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri; mso-no-proof: yes;"><img height="462" src="file:///C:\DOCUME~1\Admin\LOCALS~1\Temp\msohtmlclip1\01\clip_image004.jpg" width="614" /></span><span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;"></span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Agar file/data kita yang berisi formula dapat dipakai di computer
lain yang tidak menggunakan SG-terbilang, setelah selesai menginput, buat file
lain/diberi nama file yang berbeda, missal xxx_copyvalue.xls </span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Cara menghilangkan formulanya: blok semua cel yang akan dihilangkan
formulanya, kemudian [CTRL]+[C] atau Klik kanan mouse, pilih copy, agar tercopy
ke clipboard, trus geser kursor ke ujung kiriatas cel yang diblok tadi, klik
kanan mouse, pilih Paste Special, pilih value, [OK]. Begitu saja dan semua
formula yang diblok tadi hilang tinggal hasilnya doang tanpa formula.</span></div>
Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com0tag:blogger.com,1999:blog-5740203425629910444.post-130179343995818662016-10-10T19:32:00.000-07:002016-10-10T19:33:59.084-07:00Kode Script<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><br />
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;}
</style>
<![endif]-->
<br />
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.blogger.com/blogger.g?blogID=5740203425629910444" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div>
‘******
Mulai - copy dari sini ********</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function angkaterbilang(x As Currency)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
' semua
kalimat dibelakang tanda ' ini tidak akan dibaca(hanya komentar).</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
' Hi... my
name is SINGGIH_PY, I made this software in the iddle time and just for fun.</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
' If you can
see this line, suppose you are a Hacker, unfortunately I hate hacker.</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
' This
software was protected by the Law, prohibited will be shoot at down. Oh no, I
just kiddy he he he</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
' All moslem
is brother, so you are my brother or my sister, you may use this software for
free, as long as possible</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
' and many
as manytime even until your fingger become curly, he he he.</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
' Anda suka
program ini? kunjungi " https://PengetikCepat.blogspot.com " dan
download versi terbarunya. Terimakasih.</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim triliun
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim milyar
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim juta As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim ribu As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim satu As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim sen As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim baca As
String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If x = 0
Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = angka(0, 1)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>triliun = Int(x * 0.001 ^ 4)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>milyar = Int((x - triliun * 1000 ^ 4) *
0.001 ^ 3)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>juta = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3) / 1000 ^ 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>ribu = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3 - juta * 1000 ^ 2) / 1000)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>satu = Int(x - triliun * 1000 ^ 4 - milyar *
1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>sen = Int((x - Int(x)) * 100)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If triliun > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = ratus(triliun, 5) + "triliun
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If milyar > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(milyar, 4) +
"milyar "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If juta > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(juta, 3) + "juta
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If ribu > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(ribu, 2) + "ribu
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If satu > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(satu, 1) +
"rupiah "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + "rupiah "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If sen > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(sen, 0) +
"sen"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
angkaterbilang
= LCase(Left(baca, 1)) & LCase(Mid(baca, 2))</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Function
ratus(x As Currency, posisi As Integer) As String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim a100 As
Integer, a10 As Integer, a1 As Integer</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim baca As
String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
a100 = Int(x
* 0.01)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
a10 = Int((x
- a100 * 100) * 0.1)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
a1 = Int(x -
a100 * 100 - a10 * 10)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If a100 = 1
Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = "Seratus "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If a100 > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = angka(a100, 2) + "ratus
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If a10 = 1
Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + angka(a10 * 10 + a1, 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If a10 > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + angka(a10, 2) + "puluh
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If a1 > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If posisi = 2 And a100 = 0 And a10 = 0
Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + angka(a1, 1)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + angka(a1, 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
ratus = baca</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Function
angka(x As Integer, posisi As Integer)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Select Case
x</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 0: angka = "nol"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 1:</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If posisi = 2 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>angka = "satu "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>angka = "se"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 2: angka = "dua "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 3: angka = "tiga "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 4: angka = "empat "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 5: angka = "lima "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 6: angka = "enam "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 7: angka = "tujuh "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 8: angka = "delapan "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 9: angka = "sembilan "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 10: angka = "sepuluh "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 11: angka = "sebelas "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 12: angka = "dua belas "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 13: angka = "tiga belas "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 14: angka = "empat belas
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 15: angka = "lima belas "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 16: angka = "enam belas "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 17: angka = "tujuh belas
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 18: angka = "delapan belas
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 19: angka = "sembilan belas
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Select</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Function
chari(hari As Currency)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Select Case
hari</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 1: chari = "Minggu "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 2: chari = "Senin "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 3: chari = "Selasa "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 4: chari = "Rabu "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 5: chari = "Kamis "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 6: chari = "Jumat "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 7: chari = "Sabtu "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Select</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Function
cbln(bulan As Currency)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Select Case
bulan</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 1: cbln = "Januari "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 2: cbln = "Februari "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 3: cbln = "Maret "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 4: cbln = "April "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 5: cbln = "Mei "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 6: cbln = "Juni "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 7: cbln = "Juli "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 8: cbln = "Agustus "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>Case 9: cbln = "September "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 10: cbln = "Oktober "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 11: cbln = "November "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 12: cbln = "Desember "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Select</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function hariterbilang(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim tgl As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim bln As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim thn As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim hari As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim MyDate</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
MyDate =
Date</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tgl =
Val(Day(tanggal))</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
bln =
Month(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
thn =
Year(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
ctgl =
angkaterbilang(tgl)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
cthn =
angkaterbilang(thn)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
hari =
Weekday(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>hariterbilang = chari(hari)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function tanggalterbilang(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim tgl As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim bln As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim thn As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim hari As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim MyDate</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
MyDate =
Date</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tgl =
Val(Day(tanggal))</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
bln =
Month(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
thn =
Year(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
ctgl =
angkaterbilang(tgl)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
cthn =
angkaterbilang(thn)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
hari =
Weekday(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>tanggalterbilang = Left(ctgl, Len(ctgl) -
7) & cbln(bln) & Left(cthn, Len(cthn) - 7)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function tanggal(x As Currency)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim triliun
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim milyar
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim juta As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim ribu As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim satu As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim sen As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim baca As
String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If x = 0
Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = angka(0, 1)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>triliun = Int(x * 0.001 ^ 4)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>milyar = Int((x - triliun * 1000 ^ 4) *
0.001 ^ 3)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>juta = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3) / 1000 ^ 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>ribu = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3 - juta * 1000 ^ 2) / 1000)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>satu = Int(x - triliun * 1000 ^ 4 - milyar *
1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>sen = Int((x - Int(x)) * 100)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If triliun > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = ratus(triliun, 5) + "triliun
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If milyar > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(milyar, 4) +
"milyar "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If juta > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(juta, 3) + "juta
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If ribu > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(ribu, 2) + "ribu
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If satu > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(satu, 1) +
"rupiah "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + "rupiah "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If sen > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(sen, 0) +
"sen"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tanggal =
LCase(Left(baca, 1)) & LCase(Mid(baca, 2))</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function jamterbilang(jam)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim tjam As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim tmenit
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim MyDate</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
MyDate =
Date</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tjam =
Left(jam, 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tmenit =
Right(jam, 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
cjam =
jmterbilang(tjam)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Cmenit =
jmterbilang(tmenit)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If tmenit = 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>jamterbilang = cjam &
"tepat"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>jamterbilang = cjam & "lewat
" & Cmenit & "menit"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function jam(x As Currency)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim triliun
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim milyar
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim juta As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim ribu As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim satu As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim sen As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim baca As
String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If x = 0
Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = angka(0, 1)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>triliun = Int(x * 0.001 ^ 4)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>milyar = Int((x - triliun * 1000 ^ 4) *
0.001 ^ 3)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>juta = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3) / 1000 ^ 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>ribu = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3 - juta * 1000 ^ 2) / 1000)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>satu = Int(x - triliun * 1000 ^ 4 - milyar *
1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>sen = Int((x - Int(x)) * 100)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If triliun > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = ratus(triliun, 5) + "triliun
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If milyar > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(milyar, 4) +
"milyar "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If juta > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(juta, 3) + "juta
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If ribu > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(ribu, 2) + "ribu
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If satu > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(satu, 1)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If sen > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>'baca = baca + ratus(sen, 0) +
"sen"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
jam =
LCase(Left(baca, 1)) & LCase(Mid(baca, 2))</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function jmterbilang(x As Currency)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim triliun
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim milyar
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim juta As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim ribu As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim satu As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim sen As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim baca As
String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If x = 0
Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = angka(0, 1)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>triliun = Int(x * 0.001 ^ 4)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>milyar = Int((x - triliun * 1000 ^ 4) *
0.001 ^ 3)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>juta = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3) / 1000 ^ 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>ribu = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3 - juta * 1000 ^ 2) / 1000)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>satu = Int(x - triliun * 1000 ^ 4 - milyar *
1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>sen = Int((x - Int(x)) * 100)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If triliun > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = ratus(triliun, 5) + "triliun
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If milyar > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(milyar, 4) +
"milyar "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If juta > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(juta, 3) + "juta
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If ribu > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(ribu, 2) + "ribu
"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If satu > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(satu, 1)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If sen > 0 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = baca + ratus(sen, 0) +
"sen"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
jmterbilang
= LCase(Left(baca, 1)) & LCase(Mid(baca, 2))</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function xtnn(sx As String)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim baca As
String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim iLength
As Integer</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim MyDate</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
MyDate =
Date</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If sx =
"" Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = ""</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>iLength = Len(sx)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If Left(sx, 5) = "Tuan " Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = Right(sx, iLength - 5)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If Left(sx, 5) = "Nona " Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = Right(sx, iLength - 5)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If Left(sx, 7) = "Nyonya " Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = Right(sx, iLength - 7)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>xtnn = baca</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function ddMMyyyy(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim tgl As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim bln As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim thn As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim hari As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim stgl As
String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim MyDate</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
MyDate =
Date</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tgl =
Val(Day(tanggal))</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
bln =
Month(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
thn =
Year(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
ctgl =
angkaterbilang(tgl)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
stgl =
"00"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
cthn =
angkaterbilang(thn)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
hari =
Weekday(tanggal)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Select Case tgl</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 1: stgl = "01 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 2: stgl = "02 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 3: stgl = "03 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 4: stgl = "04 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 5: stgl = "05 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 6: stgl = "06 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 7: stgl = "07 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 8: stgl = "08 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 9: stgl = "09 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 10: stgl = "10 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 11: stgl = "11 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 12: stgl = "12 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 13: stgl = "13 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 14: stgl = "14 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 15: stgl = "15 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 16: stgl = "16 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 17: stgl = "17 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 18: stgl = "18 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 19: stgl = "19 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 20: stgl = "20 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 21: stgl = "21 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 22: stgl = "22 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 23: stgl = "23 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 24: stgl = "24 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 25: stgl = "25 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 26: stgl = "26 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 27: stgl = "27 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 28: stgl = "28 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 29: stgl = "29 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 30: stgl = "30 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 31: stgl = "31 "</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End Select</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>ddMMyyyy = stgl & cbln(bln) & thn</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function jaminterval(sx As String, x As Integer)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim tjam As
Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim tmenit
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tjam =
Left(sx, 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tmenit =
Right(sx, 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
imenit =
tmenit + x</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If imenit
< 60 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>'cjam = tjam</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>'Cmenit = imenit</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>If tjam < 24 Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>tjam = tjam + 1</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>tjam = 1</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>'cjam = tjam</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>imenit = 0</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Select Case
tjam</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 1: sjam = "01"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 2: sjam = "02"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 3: sjam = "03"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 4: sjam = "04"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 5: sjam = "05"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 6: sjam = "06"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 7: sjam = "07"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 8: sjam = "08"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 9: sjam = "09"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 10: sjam = "10"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 11: sjam = "11"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 12: sjam = "12"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 13: sjam = "13"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 14: sjam = "14"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 15: sjam = "15"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 16: sjam = "16"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 17: sjam = "17"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 18: sjam = "18"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 19: sjam = "19"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 20: sjam = "20"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 21: sjam = "21"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 22: sjam = "22"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 23: sjam = "23"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 24: sjam = "24"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Select</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Select Case
imenit</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 0: smenit = "00"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 1: smenit = "01"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 2: smenit = "02"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 3: smenit = "03"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 4: smenit = "04"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 5: smenit = "05"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 6: smenit = "06"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 7: smenit = "07"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 8: smenit = "08"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 9: smenit = "09"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 10: smenit = "10"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 11: smenit = "11"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 12: smenit = "12"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 13: smenit = "13"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 14: smenit = "14"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 15: smenit = "15"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 16: smenit = "16"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 17: smenit = "17"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 18: smenit = "18"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 19: smenit = "19"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 20: smenit = "20"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 21: smenit = "21"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 22: smenit = "22"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 23: smenit = "23"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 24: smenit = "24"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 25: smenit = "25"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 26: smenit = "26"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 27: smenit = "27"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 28: smenit = "28"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 29: smenit = "29"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 30: smenit = "30"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 31: smenit = "31"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 32: smenit = "32"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 33: smenit = "33"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 34: smenit = "34"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 35: smenit = "35"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 36: smenit = "36"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 37: smenit = "37"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 38: smenit = "38"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 39: smenit = "39"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 40: smenit = "40"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 41: smenit = "41"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 42: smenit = "42"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 43: smenit = "43"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 44: smenit = "44"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 45: smenit = "45"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 46: smenit = "46"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 47: smenit = "47"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 48: smenit = "48"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 49: smenit = "49"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 50: smenit = "50"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 51: smenit = "51"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 52: smenit = "52"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 53: smenit = "53"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 54: smenit = "54"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 55: smenit = "55"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 56: smenit = "56"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 57: smenit = "57"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 58: smenit = "58"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 59: smenit = "59"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Select</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
jaminterval
= sjam & "." & smenit</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Public
Function inc2dgt(sx As String)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim iLength
As Integer</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim baca As
String</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Dim tmenit
As Currency</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
tmenit =
Right(sx, 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
imenit =
tmenit + 1</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Select Case
imenit</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 0: smenit = "00"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 1: smenit = "01"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 2: smenit = "02"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 3: smenit = "03"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 4: smenit = "04"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 5: smenit = "05"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 6: smenit = "06"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 7: smenit = "07"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 8: smenit = "08"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 9: smenit = "09"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 10: smenit = "10"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 11: smenit = "11"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 12: smenit = "12"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 13: smenit = "13"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 14: smenit = "14"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 15: smenit = "15"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 16: smenit = "16"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 17: smenit = "17"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 18: smenit = "18"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 19: smenit = "19"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 20: smenit = "20"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 21: smenit = "21"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 22: smenit = "22"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 23: smenit = "23"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 24: smenit = "24"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 25: smenit = "25"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 26: smenit = "26"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 27: smenit = "27"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 28: smenit = "28"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 29: smenit = "29"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 30: smenit = "30"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 31: smenit = "31"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 32: smenit = "32"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 33: smenit = "33"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 34: smenit = "34"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 35: smenit = "35"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 36: smenit = "36"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 37: smenit = "37"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 38: smenit = "38"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 39: smenit = "39"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 40: smenit = "40"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 41: smenit = "41"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 42: smenit = "42"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 43: smenit = "43"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 44: smenit = "44"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 45: smenit = "45"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 46: smenit = "46"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 47: smenit = "47"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 48: smenit = "48"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 49: smenit = "49"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 50: smenit = "50"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 51: smenit = "51"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 52: smenit = "52"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 53: smenit = "53"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 54: smenit = "54"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 55: smenit = "55"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 56: smenit = "56"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 57: smenit = "57"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 58: smenit = "58"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 59: smenit = "59"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 60: smenit = "60"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 61: smenit = "61"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 62: smenit = "62"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 63: smenit = "63"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 64: smenit = "64"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 65: smenit = "65"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 66: smenit = "66"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 67: smenit = "67"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 68: smenit = "68"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 69: smenit = "69"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 70: smenit = "70"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 71: smenit = "71"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 72: smenit = "72"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 73: smenit = "73"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 74: smenit = "74"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 75: smenit = "75"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 76: smenit = "76"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 77: smenit = "77"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 78: smenit = "78"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 79: smenit = "79"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 80: smenit = "80"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 81: smenit = "81"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 82: smenit = "82"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 83: smenit = "83"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 84: smenit = "84"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 85: smenit = "85"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 86: smenit = "86"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 87: smenit = "87"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 88: smenit = "88"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 89: smenit = "89"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 90: smenit = "90"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 91: smenit = "91"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 92: smenit = "92"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 93: smenit = "93"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 94: smenit = "94"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 95: smenit = "95"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<a href="https://www.blogger.com/blogger.g?blogID=5740203425629910444" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"></a><span style="mso-spacerun: yes;"> </span>Case 96: smenit = "96"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 97: smenit = "97"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 98: smenit = "98"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>Case 99: smenit = "99"</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Select</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
If sx =
"" Then</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = ""</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Else</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>iLength = Len(sx)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="mso-spacerun: yes;"> </span>baca = Left(sx, iLength - 2)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End If</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
inc2dgt =
baca & smenit</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
End Function</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
‘******
Akhir – copy sampai sini ********</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Panjang ya?
Fyuh cape ngetiknya, tapi kalau copy paste lain kayaknya he he he.</div>
<span style="font-family: "calibri" , "sans-serif"; font-size: 11.0pt; line-height: 115%;">Cara copy paste ini paling sip, karena dijamin
bebas virus, seperti kita ketahui file.xla dibuat dengan bahasa pemrograman
yang rentan dengan serangan virus. </span>Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com0tag:blogger.com,1999:blog-5740203425629910444.post-61669131341925933952016-10-10T19:24:00.000-07:002016-10-10T19:28:11.223-07:00AddIns<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><a href="https://www.blogger.com/blogger.g?blogID=5740203425629910444" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"></a><br />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves>false</w:TrackMoves>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;}
</style>
<![endif]--><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="2050"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1"/>
</o:shapelayout></xml><![endif]-->
<br />
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">SG-Terbilang dapat melakukan fungsi antara lain sbb.:</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">=ANGKATERBILANG()</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">=hariterbilang()</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">=ddMMyyyy()</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">=jaminterval()</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">=jamterbilang()</span></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">=tanggalterbilang()</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">=XTNN()</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Jika fungsi tersebut diterapkan di Excel, akan menghasilkan data
sbb.</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Cell A1 di Isi<span style="mso-tab-count: 1;"> </span>Cell B1
diisi fungsi dari Add-Ins<span style="mso-tab-count: 1;"> </span>Hasil di cell
B1</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">1.234.567,50<span style="mso-tab-count: 1;"> </span>=ANGKATERBILANG(A1)<span style="mso-tab-count: 2;"> </span>satu juta dua
ratus tiga puluh empat ribu lima ratus enam puluh tujuh rupiah lima puluh sen</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">A2<span style="mso-tab-count: 2;"> </span>B2
(formula)<span style="mso-tab-count: 3;"> </span>Hasil
(B2)</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">09-09-2016<span style="mso-tab-count: 1;"> </span>=hariterbilang(A2)<span style="mso-tab-count: 2;"> </span>Jumat</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">A3<span style="mso-tab-count: 2;"> </span>B3<span style="mso-tab-count: 1;"> </span><span style="mso-tab-count: 3;"> </span>B3</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">09-09-2016<span style="mso-tab-count: 1;"> </span>=ddMMyyyy(A3)<span style="mso-tab-count: 2;"> </span>sembilan September
dua ribu enam belas</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">A4<span style="mso-tab-count: 2;"> </span>B4<span style="mso-tab-count: 4;"> </span>B4</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">10.45<span style="mso-tab-count: 2;"> </span>=jaminterval(A4;5)<span style="mso-tab-count: 2;"> </span>10.50</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">A5<span style="mso-tab-count: 2;"> </span>B5<span style="mso-tab-count: 4;"> </span>B5</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">10.50<span style="mso-tab-count: 2;"> </span>=jamterbilang(A5;5)<span style="mso-tab-count: 2;"> </span>sepuluh lewat lima puluh
menit</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="height: 469px; left: -18px; mso-ignore: vglayout; position: relative; top: 0px; width: 757px; z-index: 1;">
</span></div>
<table cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td bgcolor="white" height="469" style="background: white; border: .75pt solid black; vertical-align: top;" width="757"><span style="mso-ignore: vglayout; position: absolute; z-index: 1;">
<table cellpadding="0" cellspacing="0" style="width: 100%px;">
<tbody>
<tr>
<td><div class="shape" style="padding: 4.35pt 7.95pt 4.35pt 7.95pt;">
<div class="MsoNormal">
<span style="mso-no-proof: yes;"></span></div>
</div>
</td>
</tr>
</tbody></table>
</span></td>
</tr>
</tbody></table>
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;"> </span>
<br />
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<span style="font-family: "calibri" , "sans-serif"; font-size: 11.0pt; line-height: 115%;"><br clear="all" style="mso-special-character: line-break; page-break-before: always;" />
</span>
<br />
<div class="MsoNormal">
<br /></div>
Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com0tag:blogger.com,1999:blog-5740203425629910444.post-26410651463423015412016-10-10T19:10:00.002-07:002016-10-22T21:19:22.564-07:00Mengetik Cepat<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><br />
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;}
</style>
<![endif]-->
<br />
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Kecepatan
mengetik setiap orang rata2/hampir sama, perbedaan biasanya terletak pada
tekniknya. Dalam MS-Word, meningkatkan kecepatan mengetik dapat dilakukan
dengan beberapa cara a.l.: Dengan menggunakan AutoCorrect, MailMerge(formula
dan Add-Ins.)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<b style="mso-bidi-font-weight: normal;">I. Menggunakan AutoCorrect</b></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Misal kita
akan mengetik "Daerah Istimewa Yogyakarta", kita cukup mengetik DIY
saja. Tentu kita harus menseting dulu, caranya sbb.:</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
*) Buka
program MS-Word. (Saya mencoba dengan Word-2007)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
*) Dari
dalam MS-Word, Pilih/klik menuutama/gambar tombol/lingkaran(office button),
kemudian pilih menu [Word Options], kemudian setelah muncul window “Word
Options” pilih menu Proofing, trus pilih menu [AutoCorrect Options], dari Tab
“AutoCorrect” pilihlah template” Replace: “ dan template ”With:”</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Didalam
template Replace ketikkan “diy” dan didalam template With ketikkan “Daerah
Istimewa Yogyakarta”, trus pilih menu [Add] dan [OK], [OK]</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Maka akan
kembali ke document dan cobalah mengetik DIY ikuti dengan spasi/titik/koma/tab/enter,
maka word akan menggantinya DIY tersebut dengan Daerah Istimewa Yogyakarta.</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
AutoCorrect
ini tidak hanya berlaku di MS-Word, akan tetapi juga di Excell, cobalah ketik
diy di Excell.</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Jika Anda
banyak bekerja dengan memasukkan data KTP, maka anda akan sering mengisi dengan
kata2 yang berulang2 seperti: dk = Desa/Kelurahan, kd = Kelurahan/Desa, kbb =
Kabupaten Bantul, kbs = Kabupaten Sleman, dlsb. Meskipun yang diAutoCorrect
hanya sedikit, akan tetapi kalau jumlahnya banyak, lumayan juga untuk
mempercepat pengetikan.</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<b style="mso-bidi-font-weight: normal;">II. Menggunakan data yang pernah diinput.</b></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Data dalam
KTP kadang terdapat kesamaan, contoh sbb.: Pekerjaan =</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Belum/Tidak
Bekerja</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Karyawan
Swasta</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Kepolisian
RI (POLRI)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Mengurus
Rumah Tangga</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Pegawai
Negeri Sipil (PNS)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Tentara
Nasional Indonesia(TNI)</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Buat data
seperti contoh diatas dalam satu kolom, kemudian mengetiklah dibawahnya, maka
jika Anda mengetik Kar, cell akan diisi dengan Karyawan Swasta, dst</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<b style="mso-bidi-font-weight: normal;">III. Menggunakan MailMerge</b></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Mengetiknya
di MS-Excel dahulu agar lebih cepat, kemudian datanya diambil dari Word untuk digabung
dengan document yang sudah disiapkan formatnya. Kita mulai dari mengetik di
Excell dulu:</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
Mengetik di
Excell dapat lebih cepat karena di excel ada rumus dan ada Add-In.</div>
<div class="MsoListParagraph" style="margin-bottom: .0001pt; margin-bottom: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -18.0pt;">
<span style="mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;"><span style="mso-list: Ignore;">A.<span style="font: 7.0pt "Times New Roman";">
</span></span></span>RUMUS</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
Penggunaan rumus misal sbb: </div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
*) Didalam
excel misal dalam CELL A1 berisi data “nama lengkap saya” kemudian akan diubah
menjadi huruf besar semua, maka kita tinggal masukkan rumus di CELL A2
sbb.:<span style="mso-spacerun: yes;"> </span>=UPPER(A1) dan hasilnya di cell a2
= <span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">NAMA LENGKAP SAYA</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Penggunaan formula yang lain, misal: =IF(AI32="suami";"bertempat
tinggal sama dengan alamat istrinya tersebut diatas";"bertempat
tinggal sama dengan alamat suaminya tersebut diatas")</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Apakah penggunaan formula seperti tersebut diatas sering digunakan
apa tidak, itu sangat tergantung kebutuhan masing2. Formula yang lebih penting
adalah penggunaan formula matematik atau penjumlahan, perkalian dlsb. Yang
tentu lebih mudah dikerjakan di Excell ketimbang dilakukan di Word, untuk
itulah kita sebaiknya mengetiknya tidak langsung di Word, melainkan di Excell
dulu. Disamping penggunaan formula/rumus, atau AutoCorrect, di Excell juga
memungkinkan menggunakan Add-In yang tidak kalah ampuh dari Rumus dan
AutoCorrect.</span></div>
<div class="MsoListParagraph" style="margin-bottom: .0001pt; margin-bottom: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -18.0pt;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-font-family: Calibri; mso-hansi-font-family: Calibri;"><span style="mso-list: Ignore;">B.<span style="font: 7.0pt "Times New Roman";">
</span></span></span><span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">ADD-INS</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Cara menggunakan Add-Ins, masuk ke program Excell, pilih tombol
OfficeButton disebelah kiri atas bergambar tombol bulat(seperti pada Word
diatas), klik tombol [Excel Options], kemudian pilih menu [Add-Ins], kemudian
dari window Add-Ins pilih template Manage: Excel Add-Ins dilanjutkan dengan
mengklik tombol [GO] disampingnya. Disitu sudah disediakan program Add-Ins,
tinggal dipilih program apa yang di inginkan, caranya tinggal dicentang pilihan
Anda dan klik tombol [OK].</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Akan tetapi jika Anda menginginkan program yang lebih spesifik dan
lebih disesuaikan dengan kebutuhan Anda, Anda dapat membuat programnya sendiri mudah
kok, anda tinggal copy paste program dibawah ini. Copykan ke Software NOTEPAD
bawaan Windows, dipilih Notepad karena software ini software yang benar2
menghasilkan karakter ascii atau file.txt murni, tanpa format apapun. Setelah
itu simpan file tersebut dengan nama terserah, yang penting extensionnya .XLA
misal: SG-Terbilang.xla dan letakkan file ini di folder yang mudah diingat. </span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Atau jika Anda tidak mau repot, dapat mendownload contoh Add-Ins
yang bernama SG-terbilang.xla ini, nanti setelah Anda selesai baca, sabar ya.</span><br />
<br />
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;">Kunjungi juga blog </span><br />
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;"> <a href="http://sholatkusuk.blogspot.com/">http://sholatkusuk.blogspot.com</a></span><br />
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;"> <a href="http://quran4beginner.blogspot.com/">http://quran4beginner.blogspot.com</a></span><br />
<span style="color: black; mso-ascii-font-family: Calibri; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: Calibri;"> </span></div>
Jogjahttp://www.blogger.com/profile/17358065538999262433noreply@blogger.com0