|
Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis |
|
|
Pengirim |
Message |
cotman2005
Posts : 109
Reputation : 4
Join date : 18.10.09
Location : Depan Komputer
|
Subyek: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Tue Oct 27 2009, 13:27 |
|
|
Sering sekali kita bekerja dengan Ms. Excel dengan mengisi Manual Tulisan Terbilang dari total Angka. seperti halnya Membuat Kwitansi, Membuat Rekapitulasi, Invoice dan lain-lain. selalu ada kata terbilang dari total angka. Tetapi karena banyak nya Transaksi yang sering kita lakukan (Banyak nya Kwitansi yang dibuat setiap hari nya) sering sekali ada nya ketidak akuratan dalam memasukkan kata-kata terbilang yang tadinya adalah Rp. 1.300.000 dalam terbilang "Satu Juta Tiga Ratus Ribu Rupiah"
sering membuat kesalahan dikarenakan File yang dibuat Copy - Paste dari Workbook yang lain.
Nah sedikit ada solusi nya : Dengan Membuat Function Sendiri di Ms.Excel Fungsi Terbilang
Bagaimana Saya Membuat nya dan Menginplementasikannya ??
Mari... Yukk..!!!
Munculkan Text terbilang di Microsoft Excel
Nah Tahapannya adalah pilih Menu Tools - > Macro -> Visual Basic Editor
akan Tampil Gambar layar editor kosong dibawah ini :
kemudian Pilih Insert -> Pilih Module
hasil nya adalah
‘Copy Mastekan Code ini di Aplikasi tempat yang kosong ‘====================================================== Option Explicit Function KonvCurrRp(ByVal MyNumber, lRupiah As Boolean)
Dim temp Dim Rupiah, sent Dim PosisiDesimal, Count
ReDim Posisi(12) As String Posisi(2) = " Ribu " Posisi(3) = " Juta " Posisi(4) = " Miliar " Posisi(5) = " Triliun "
' Konversi MyNumber ke string, trimming extra spaces. MyNumber = Trim(Str(MyNumber))
' Find Posisi desimal. PosisiDesimal = InStr(MyNumber, ".")
' Jika ketemu Posisi desimal... If PosisiDesimal > 0 Then ' Konversi Sent temp = Left(Mid(MyNumber, PosisiDesimal + 1) & "00", 2) sent = KonversiTens(temp)
' Strip off Sent dari remainder ke Konversi. MyNumber = Trim(Left(MyNumber, PosisiDesimal - 1)) End If
' Untuk awalan Seribu If (MyNumber < 2000) And (MyNumber > 999) Then temp = KonversiHundreds(Right(MyNumber, 3)) Rupiah = "Seribu " & temp & Rupiah Else Count = 1 Do While MyNumber <> "" ' Konversi 3 digit terakhir MyNumber ke Rupiah. temp = KonversiHundreds(Right(MyNumber, 3)) If temp <> "" Then Rupiah = temp & Posisi(Count) & Rupiah If Len(MyNumber) > 3 Then ' Buang 3 hasil Konversi digit terakhir dari MyNumber. MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop End If ' Bersihkan Rupiah Rupiah. Select Case Rupiah Case "" Rupiah = "" Case "Sent" If lRupiah Then Rupiah = "Satu Rupiah" Else Rupiah = "Satu Dollar" End If Case Else If lRupiah Then Rupiah = Rupiah & " Rupiah" Else Rupiah = Rupiah & " Dollar" End If End Select
' Bersihkan Sent. Select Case sent Case "" sent = "" Case "One" sent = " Satu Sen" Case Else sent = " " & sent & " Sen" End Select
KonvCurrRp = Rupiah & sent End Function
Private Function KonversiDigit(ByVal MyDigit) Select Case Val(MyDigit) Case 1: KonversiDigit = "Satu" Case 2: KonversiDigit = "Dua" Case 3: KonversiDigit = "Tiga" Case 4: KonversiDigit = "Empat" Case 5: KonversiDigit = "Lima" Case 6: KonversiDigit = "Enam" Case 7: KonversiDigit = "Tujuh" Case 8: KonversiDigit = "Delapan" Case 9: KonversiDigit = "Sembilan" Case Else: KonversiDigit = "" End Select End Function
Private Function KonversiHundreds(ByVal MyNumber) Dim Result As String
' Jika tidak ada yang akan dikonversi Konversi. If Val(MyNumber) = 0 Then Exit Function
' Tambahkan nol pada angka. MyNumber = Right("000" & MyNumber, 3)
' Apakah kita punya posisi digit ratusan untuk di Konversi? If Left(MyNumber, 1) <> "0" Then Result = KonversiDigit(Left(MyNumber, 1)) & " Ratus " End If ' Untuk awalan SEratus If Left(MyNumber, 1) = "1" Then Result = " Seratus " End If ' Apakah kita punya Posisi digit Tens untuk di Konversi? If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & KonversiTens(Mid(MyNumber, 2)) Else ' Jika tidak, Konversi the Satu Posisi digit. Result = Result & KonversiDigit(Mid(MyNumber, 3)) End If
KonversiHundreds = Trim(Result) End Function
Private Function KonversiTens(ByVal MyTens) Dim Result As String
' Apakah nilai antara 10 dan 19? If Val(Left(MyTens, 1)) = 1 Then Select Case Val(MyTens) Case 10: Result = "Sepuluh" Case 11: Result = "Sebelas" Case 12: Result = "Dua Belas" Case 13: Result = "Tiga Belas" Case 14: Result = "Empat Belas" Case 15: Result = "Lima Belas" Case 16: Result = "Enam Belas" Case 17: Result = "Tujuh Belas" Case 18: Result = "Delapan Belas" Case 19: Result = "Sembilan Belas" Case Else End Select Else ' .. selainnya, antara 20 dan 99. Select Case Val(Left(MyTens, 1)) Case 2: Result = "Dua Puluh " Case 3: Result = "Tiga Puluh " Case 4: Result = "Empat Puluh " Case 5: Result = "Lima Puluh " Case 6: Result = "Enam Puluh " Case 7: Result = "Tujuh Puluh " Case 8: Result = "Delapan Puluh " Case 9: Result = "Sembilan Puluh " Case Else End Select
' Konversi Posisi digit Satu. Result = Result & KonversiDigit(Right(MyTens, 1)) End If
KonversiTens = Result End Function
Function NumberToWord(ByVal MyNumber) ' Function untuk mengkonversi nilai dalam tipe currency ' ke bilangan rupiah. ' Disadur dari fungsi ConvertionCurrencyToDollar(ByVal MyNumber) ' Diperoleh di Internet pada site microsoft.com freedownload.
Dim temp Dim Rupiah, sent Dim PosisiDesimal, Count
ReDim Posisi(9) As String Posisi(2) = " Ribu " Posisi(3) = " Juta " Posisi(4) = " Miliar " Posisi(5) = " Triliun "
' Konversi MyNumber ke string, trimming extra spaces. MyNumber = Trim(Str(MyNumber))
' Find Posisi desimal. PosisiDesimal = InStr(MyNumber, ".")
' Jika ketemu Posisi desimal... If PosisiDesimal > 0 Then ' Konversi Sent temp = Left(Mid(MyNumber, PosisiDesimal + 1) & "00", 2) sent = KonversiTens(temp)
' Strip off Sent dari remainder ke Konversi. MyNumber = Trim(Left(MyNumber, PosisiDesimal - 1)) End If
' Untuk awalan Seribu If (MyNumber < 2000) And (MyNumber > 999) Then temp = KonversiHundreds(Right(MyNumber, 3)) Rupiah = "Seribu " & temp & Rupiah Else Count = 1 Do While MyNumber <> "" ' Konversi 3 digit terakhir MyNumber ke Rupiah. temp = KonversiHundreds(Right(MyNumber, 3)) If temp <> "" Then Rupiah = temp & Posisi(Count) & Rupiah If Len(MyNumber) > 3 Then ' Buang 3 hasil Konversi digit terakhir dari MyNumber. MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop End If ' Bersihkan Rupiah Rupiah. Select Case Rupiah Case "" Rupiah = "" Case "Sent" Rupiah = "Satu" Case Else Rupiah = Rupiah End Select
' Bersihkan Sent. Select Case sent Case "" sent = "" Case "One" sent = " Satu" Case Else sent = " " & sent End Select
NumberToWord = Rupiah & sent End Function
‘======================================================
kemudian simpan atau tekan Ctrl + S untuk menampilkan terbilangnya adalah
kemudian enter dah Masukkan Rumus : =KonvCurrRp(Cell,TRUE) dalam Contoh ini =KonvCurrRp(A4,TRUE)
dah hasil nya sudah bisa ditebak.
Terakhir diubah oleh cotman2005 tanggal Tue Oct 27 2009, 13:44, total 1 kali diubah
|
|
|
|
cotman2005
Posts : 109
Reputation : 4
Join date : 18.10.09
Location : Depan Komputer
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Tue Oct 27 2009, 13:29 |
|
|
Fungsi untuk Menampilkan Kalimat Terbilang nya adalah :
=KonvCurrRp(A4,TRUE)
mana tahu gak kelihatan di gambar..!!
Silakan Mencoba.!
|
|
|
|
cotman2005
Posts : 109
Reputation : 4
Join date : 18.10.09
Location : Depan Komputer
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Tue Oct 27 2009, 13:29 |
|
|
=KonvCurrRp(Cell,TRUE)
|
|
|
|
bambang
Posts : 206
Reputation : 1
Join date : 18.10.09
Location : home
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Wed Oct 28 2009, 01:58 |
|
|
mas cotman....makasih buat trik nya
|
|
|
|
umardi
Posts : 147
Reputation : 0
Join date : 18.10.09
Location : Tiban - Batam - Indonesia - Asia - Dunia
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Wed Oct 28 2009, 09:41 |
|
|
wah... ini baru keliatan manfaat forum nya...
share ilmu dan pengetahuan... betull.. betul.. betul....
|
|
|
|
cotman2005
Posts : 109
Reputation : 4
Join date : 18.10.09
Location : Depan Komputer
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Wed Oct 28 2009, 15:54 |
|
|
ya udah Klo mau ... temui aku di Step A Head aku ada kelas disana. VB Net & C# hehe tapi harus join Class di Step A Head ntar ak ajari cara buat Program...
|
|
|
|
Richie
Posts : 181
Reputation : 1
Join date : 20.10.09
Location : dekat di hati
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Thu Oct 29 2009, 12:13 |
|
|
dipraktekin oi.. dulu gw juga ada sih yang ginian bedanya dulu ga pake makro VB cuma sedikit if else aja di cell nya excell langsung tapi lupa, wahahah, bentar ubrak abrik dulu kalo ketemu gw posting, kalo ga ketemu... ya...
|
|
|
|
bambang
Posts : 206
Reputation : 1
Join date : 18.10.09
Location : home
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Fri Oct 30 2009, 01:56 |
|
|
@richie.......klo g ktmu ya gt deh.......
|
|
|
|
cotman2005
Posts : 109
Reputation : 4
Join date : 18.10.09
Location : Depan Komputer
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Fri Oct 30 2009, 06:20 |
|
|
aku juga ada yang pake Fungsi if dan sebagainya tapi yang itu terkesan ribet dan hanya orang yang paham betul saja yang bisa buat tadinya aku juga mau posting yang itu tapi keynya ribet bgt
akhirnya ak buat fungsi baru dengan macro VBA
nah siapun gampang mengimplementasikannya dimanapun dan kapan saja..!!
Klo ada yang mau yang pake if function boleh.. bisa aku upload..!!
|
|
|
|
umardi
Posts : 147
Reputation : 0
Join date : 18.10.09
Location : Tiban - Batam - Indonesia - Asia - Dunia
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Fri Oct 30 2009, 22:48 |
|
|
saya juga punya fungsi yang pake IF THEN
gini.....>> If diketik nominal nya THEN akan muncul di display ELSE ribet banget...
he....just kidding!!!!!
|
|
|
|
bambang
Posts : 206
Reputation : 1
Join date : 18.10.09
Location : home
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Sat Oct 31 2009, 01:08 |
|
|
cape deh bg umar ngeles trus......
piss
|
|
|
|
umardi
Posts : 147
Reputation : 0
Join date : 18.10.09
Location : Tiban - Batam - Indonesia - Asia - Dunia
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Sat Oct 31 2009, 01:58 |
|
|
hanya itu yang bia qu lakukan kawan...
ada yang bilang , gak perlu pintar, tapi pintar2 aja...
termasuk nyusun kata2.... wkwkwkwk
|
|
|
|
bambang
Posts : 206
Reputation : 1
Join date : 18.10.09
Location : home
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Sat Oct 31 2009, 02:17 |
|
|
wkwkwkwkkwkwkw
bisa aj bg umar ni
|
|
|
|
cotman2005
Posts : 109
Reputation : 4
Join date : 18.10.09
Location : Depan Komputer
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Sat Oct 31 2009, 06:50 |
|
|
haha... boleh lah bang umar ...! ya ada benar nya juga sih kita lihat dimana2 yang pinter itu selalu bekerja dibawah orang yang tidak pintar tanya kenapa ?? biasa nya seperti ini :
Orang Pinter - selalu mencari tempat bekerja yang bonafit / bayaran mahal - kurang berani dan penuh pertimbangan - hanya bekerja dengan gaji stabil - Pesimis (Menelusuri semua nya dulu baru dilakukan) Orang dah lakukan banyak hal dia masih mikir hehe.. - Tipe Pekerja
Orang yang kurang pinter - Selalu mencoba usaha - Tampil PD - Selalu lebih sukses - penghasilan Tidak stabil tapi 1 M, 2 M 3, M paling kecil 500.000.000 - Optimis (lakukan dulu baru lihat hasilnya) ( Sudah kemana-mana dan banyak hasil) -Tipe Pengusaha
Naha Saya di Tipe Orang yang kurang pinter hehe
Mas Umar tipe Orang pinter kali yah ..
|
|
|
|
umardi
Posts : 147
Reputation : 0
Join date : 18.10.09
Location : Tiban - Batam - Indonesia - Asia - Dunia
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Sat Oct 31 2009, 08:13 |
|
|
wkwkwkwkwk...
saya mah.....
bingung mas cotman....
tipe pekerja kagak, tipe pengusaha juga kagak....
diserahin sama yang wahid aja
mudah2an dapet yang bikin hidup lebih hidupa aja lah.......
|
|
|
|
suriyanto
Posts : 200
Reputation : 3
Join date : 18.10.09
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Fri Nov 06 2009, 19:35 |
|
|
kalo buat di VB gimana bro....
coding & formnya jg....
|
|
|
|
cotman2005
Posts : 109
Reputation : 4
Join date : 18.10.09
Location : Depan Komputer
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Sat Nov 07 2009, 09:28 |
|
|
Gampang Bro... buat satu Module Nah Kopikan Kode ini (yang ada diatas) ‘Copy Mastekan Code ini ke Module Baru ‘====================================================== Option Explicit Function KonvCurrRp(ByVal MyNumber, lRupiah As Boolean)
Dim temp Dim Rupiah, sent Dim PosisiDesimal, Count
ReDim Posisi(12) As String Posisi(2) = " Ribu " Posisi(3) = " Juta " Posisi(4) = " Miliar " Posisi(5) = " Triliun "
' Konversi MyNumber ke string, trimming extra spaces. MyNumber = Trim(Str(MyNumber))
' Find Posisi desimal. PosisiDesimal = InStr(MyNumber, ".")
' Jika ketemu Posisi desimal... If PosisiDesimal > 0 Then ' Konversi Sent temp = Left(Mid(MyNumber, PosisiDesimal + 1) & "00", 2) sent = KonversiTens(temp)
' Strip off Sent dari remainder ke Konversi. MyNumber = Trim(Left(MyNumber, PosisiDesimal - 1)) End If
' Untuk awalan Seribu If (MyNumber < 2000) And (MyNumber > 999) Then temp = KonversiHundreds(Right(MyNumber, 3)) Rupiah = "Seribu " & temp & Rupiah Else Count = 1 Do While MyNumber <> "" ' Konversi 3 digit terakhir MyNumber ke Rupiah. temp = KonversiHundreds(Right(MyNumber, 3)) If temp <> "" Then Rupiah = temp & Posisi(Count) & Rupiah If Len(MyNumber) > 3 Then ' Buang 3 hasil Konversi digit terakhir dari MyNumber. MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop End If ' Bersihkan Rupiah Rupiah. Select Case Rupiah Case "" Rupiah = "" Case "Sent" If lRupiah Then Rupiah = "Satu Rupiah" Else Rupiah = "Satu Dollar" End If Case Else If lRupiah Then Rupiah = Rupiah & " Rupiah" Else Rupiah = Rupiah & " Dollar" End If End Select
' Bersihkan Sent. Select Case sent Case "" sent = "" Case "One" sent = " Satu Sen" Case Else sent = " " & sent & " Sen" End Select
KonvCurrRp = Rupiah & sent
End Function
Private Function KonversiDigit(ByVal MyDigit) Select Case Val(MyDigit) Case 1: KonversiDigit = "Satu" Case 2: KonversiDigit = "Dua" Case 3: KonversiDigit = "Tiga" Case 4: KonversiDigit = "Empat" Case 5: KonversiDigit = "Lima" Case 6: KonversiDigit = "Enam" Case 7: KonversiDigit = "Tujuh" Case 8: KonversiDigit = "Delapan" Case 9: KonversiDigit = "Sembilan" Case Else: KonversiDigit = "" End Select End Function
Private Function KonversiHundreds(ByVal MyNumber) Dim Result As String
' Jika tidak ada yang akan dikonversi Konversi. If Val(MyNumber) = 0 Then Exit Function
' Tambahkan nol pada angka. MyNumber = Right("000" & MyNumber, 3)
' Apakah kita punya posisi digit ratusan untuk di Konversi? If Left(MyNumber, 1) <> "0" Then Result = KonversiDigit(Left(MyNumber, 1)) & " Ratus " End If
' Untuk awalan SEratus If Left(MyNumber, 1) = "1" Then Result = " Seratus " End If
' Apakah kita punya Posisi digit Tens untuk di Konversi? If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & KonversiTens(Mid(MyNumber, 2)) Else ' Jika tidak, Konversi the Satu Posisi digit. Result = Result & KonversiDigit(Mid(MyNumber, 3)) End If
KonversiHundreds = Trim(Result)
End Function
Private Function KonversiTens(ByVal MyTens) Dim Result As String
' Apakah nilai antara 10 dan 19? If Val(Left(MyTens, 1)) = 1 Then Select Case Val(MyTens) Case 10: Result = "Sepuluh" Case 11: Result = "Sebelas" Case 12: Result = "Dua Belas" Case 13: Result = "Tiga Belas" Case 14: Result = "Empat Belas" Case 15: Result = "Lima Belas" Case 16: Result = "Enam Belas" Case 17: Result = "Tujuh Belas" Case 18: Result = "Delapan Belas" Case 19: Result = "Sembilan Belas" Case Else End Select Else ' .. selainnya, antara 20 dan 99. Select Case Val(Left(MyTens, 1)) Case 2: Result = "Dua Puluh " Case 3: Result = "Tiga Puluh " Case 4: Result = "Empat Puluh " Case 5: Result = "Lima Puluh " Case 6: Result = "Enam Puluh " Case 7: Result = "Tujuh Puluh " Case 8: Result = "Delapan Puluh " Case 9: Result = "Sembilan Puluh " Case Else End Select
' Konversi Posisi digit Satu. Result = Result & KonversiDigit(Right(MyTens, 1)) End If
KonversiTens = Result
End Function
Function NumberToWord(ByVal MyNumber) ' Function untuk mengkonversi nilai dalam tipe currency ' ke bilangan rupiah. ' Disadur dari fungsi ConvertionCurrencyToDollar(ByVal MyNumber) ' Diperoleh di Internet pada site microsoft.com freedownload.
Dim temp Dim Rupiah, sent Dim PosisiDesimal, Count
ReDim Posisi(9) As String Posisi(2) = " Ribu " Posisi(3) = " Juta " Posisi(4) = " Miliar " Posisi(5) = " Triliun "
' Konversi MyNumber ke string, trimming extra spaces. MyNumber = Trim(Str(MyNumber))
' Find Posisi desimal. PosisiDesimal = InStr(MyNumber, ".")
' Jika ketemu Posisi desimal... If PosisiDesimal > 0 Then ' Konversi Sent temp = Left(Mid(MyNumber, PosisiDesimal + 1) & "00", 2) sent = KonversiTens(temp)
' Strip off Sent dari remainder ke Konversi. MyNumber = Trim(Left(MyNumber, PosisiDesimal - 1)) End If
' Untuk awalan Seribu If (MyNumber < 2000) And (MyNumber > 999) Then temp = KonversiHundreds(Right(MyNumber, 3)) Rupiah = "Seribu " & temp & Rupiah Else Count = 1 Do While MyNumber <> "" ' Konversi 3 digit terakhir MyNumber ke Rupiah. temp = KonversiHundreds(Right(MyNumber, 3)) If temp <> "" Then Rupiah = temp & Posisi(Count) & Rupiah If Len(MyNumber) > 3 Then ' Buang 3 hasil Konversi digit terakhir dari MyNumber. MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop End If ' Bersihkan Rupiah Rupiah. Select Case Rupiah Case "" Rupiah = "" Case "Sent" Rupiah = "Satu" Case Else Rupiah = Rupiah End Select
' Bersihkan Sent. Select Case sent Case "" sent = "" Case "One" sent = " Satu" Case Else sent = " " & sent End Select
NumberToWord = Rupiah & sent
End Function
‘======================================================
Misal Textbox1.text =1000
kita mau masukkan nilai terbilang ke textbox2.text
Nah Caranya sama
di Event Form_Load nya Buah Code ini
TextBox1.Text =1000 TextBox2.Text = KonvCurrRp(ccur(TextBox1.Text),TRUE)
sebenarnya Code yang diatas aku buat di VB dan Aku implementasikan di Ms. Access dan Ms. Excel
Selamat Mencoba Bro...
|
|
|
|
cotman2005
Posts : 109
Reputation : 4
Join date : 18.10.09
Location : Depan Komputer
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Sat Nov 07 2009, 09:41 |
|
|
Sory bro... Lagi sibuk bener nih... klo masih bingung nanti saya post yang lengkapnya beserta Form nya
|
|
|
|
suriyanto
Posts : 200
Reputation : 3
Join date : 18.10.09
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis Mon Nov 09 2009, 17:52 |
|
|
thx..... bro.... sdh sgt membantu...
|
|
|
|
Sponsored content
|
Subyek: Re: Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis |
|
|
|
|
|
|
|
Tampilin tulisan Terbilang di cell Ms. Excel secara Otomatis |
|
|