Tips Membuat Add In Terbilang Untuk Microsoft Excel 2007 (edisi basi)
Bagaimana membuat membuat Add In terbilang (menterjemahkan angka menjadi kata-kata ) pada Microsoft Excel
2007. Bagi anda yang sering membuat tanda terima pembayaran tentunya sering kali anda harus menterjemahkan angka-angka menjadi kata-kata, misal Rp. 1000,- diterjemahkan menjadi "Seribu Rupiah", tentu akan sangat melelahkan jika hal ini harus dikerjakan secara manual, dimana anda harus mengeja setiap angka pada transaksi anda untuk kemudian anda ketik. Tujuan Add In ini saya berharap akan bisa membantu mempermudah pekerjaan dalam membuat tanda terima dan mempersingkat proses.
Langkah-langkahnya sebagai berikut :
1. Copy paste kode dibawah ini pada notepad ("Terbilang dengan akhiran rupiah" atau "Terbilangan tanpa akhiran rupiah")
2. Lalu Save As dengan akhiran "terbilang.xlam" dan taruh terserah anda, contoh c:/My Documents
3. Kemuadian buka excel 2007
4. Excel Option
Langkah-langkahnya sebagai berikut :
1. Copy paste kode dibawah ini pada notepad ("Terbilang dengan akhiran rupiah" atau "Terbilangan tanpa akhiran rupiah")
2. Lalu Save As dengan akhiran "terbilang.xlam" dan taruh terserah anda, contoh c:/My Documents
3. Kemuadian buka excel 2007
4. Excel Option
Sekarang kita check apakah fungsi tersebut berfungsi. Untuk memakainya anda perlu mengetahui formulanya. Misal angka yang hendak anda buatkan terbilangnya ada di cell "A1", maka formulanya adalah sebagai berikut :
=terbilang(A1,4,"Rupiah.")
Attribute VB_Name = "Module1"
Option Explicit
Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg
ReDim Place(9) As String
Place(2) = "RIBU "
Place(3) = "JUTA "
Place(4) = "MILYAR "
Place(5) = "TRILYUN "
'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))
'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If
'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupiah
Case ""
Rupiah = "NOL RUPIAH"
Case Else
Rupiah = Rupiah & "RUPIAH"
End Select
Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " DAN " & Sen & "SEN"
End Select
If IsNeg = True Then
Terbilang = "MINUS " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If
End Function
' Mengubah angka 100-999 menjadi teks *
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "SE"
Exit Function
End If
'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "SERATUS "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "RATUS "
End If
End If
'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If
Ratusan = Result
End Function
'*******************
' Mengubah puluhan *
Function Puluhan(TeksPuluhan)
Dim Result As String
Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "SEPULUH "
Case 11: Result = "SEBELAS "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "BELAS "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "PULUH "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function
'********************************
' Mengubah satuan menjadi teks. *
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "SATU "
Case 2: Satuan = "DUA "
Case 3: Satuan = "TIGA "
Case 4: Satuan = "EMPAT "
Case 5: Satuan = "LIMA "
Case 6: Satuan = "ENAM "
Case 7: Satuan = "TUJUH "
Case 8: Satuan = "DELAPAN "
Case 9: Satuan = "SEMBILAN "
Case Else: Satuan = ""
End Select
End Function
Option Explicit
Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg
ReDim Place(9) As String
Place(2) = "RIBU "
Place(3) = "JUTA "
Place(4) = "MILYAR "
Place(5) = "TRILYUN "
'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))
'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If
'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupiah
Case ""
Rupiah = "NOL RUPIAH"
Case Else
Rupiah = Rupiah & "RUPIAH"
End Select
Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " DAN " & Sen & "SEN"
End Select
If IsNeg = True Then
Terbilang = "MINUS " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If
End Function
' Mengubah angka 100-999 menjadi teks *
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "SE"
Exit Function
End If
'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "SERATUS "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "RATUS "
End If
End If
'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If
Ratusan = Result
End Function
'*******************
' Mengubah puluhan *
Function Puluhan(TeksPuluhan)
Dim Result As String
Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "SEPULUH "
Case 11: Result = "SEBELAS "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "BELAS "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "PULUH "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function
'********************************
' Mengubah satuan menjadi teks. *
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "SATU "
Case 2: Satuan = "DUA "
Case 3: Satuan = "TIGA "
Case 4: Satuan = "EMPAT "
Case 5: Satuan = "LIMA "
Case 6: Satuan = "ENAM "
Case 7: Satuan = "TUJUH "
Case 8: Satuan = "DELAPAN "
Case 9: Satuan = "SEMBILAN "
Case Else: Satuan = ""
End Select
End Function
Kode terbilang tanpa akhiran rupiah :
Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg
ReDim Place(9) As String
Place(2) = "ribu "
Place(3) = "juta "
Place(4) = "milyar "
Place(5) = "trilyun "
'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))
'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If
'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupiah
Case ""
Rupiah = "nol rupiah"
Case Else
Rupiah = Rupiah & "rupiah"
End Select
Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen & "sen"
End Select
If IsNeg = True Then
Terbilang = "minus " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If
End Function
'**************************************
' Mengubah angka 100-999 menjadi teks *
'**************************************
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "se"
Exit Function
End If
'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "seratus "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "ratus "
End If
End If
'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If
Ratusan = Result
End Function
'*******************
' Mengubah puluhan *
'*******************
Function Puluhan(TeksPuluhan)
Dim Result As String
Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "sepuluh "
Case 11: Result = "sebelas "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "belas "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "puluh "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function
'********************************
' Mengubah satuan menjadi teks. *
'********************************
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "satu "
Case 2: Satuan = "dua "
Case 3: Satuan = "tiga "
Case 4: Satuan = "empat "
Case 5: Satuan = "lima "
Case 6: Satuan = "enam "
Case 7: Satuan = "tujuh "
Case 8: Satuan = "delapan "
Case 9: Satuan = "sembilan "
Case Else: Satuan = ""
End Select
End Function
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg
ReDim Place(9) As String
Place(2) = "ribu "
Place(3) = "juta "
Place(4) = "milyar "
Place(5) = "trilyun "
'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))
'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If
'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupiah
Case ""
Rupiah = "nol rupiah"
Case Else
Rupiah = Rupiah & "rupiah"
End Select
Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen & "sen"
End Select
If IsNeg = True Then
Terbilang = "minus " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If
End Function
'**************************************
' Mengubah angka 100-999 menjadi teks *
'**************************************
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "se"
Exit Function
End If
'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "seratus "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "ratus "
End If
End If
'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If
Ratusan = Result
End Function
'*******************
' Mengubah puluhan *
'*******************
Function Puluhan(TeksPuluhan)
Dim Result As String
Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "sepuluh "
Case 11: Result = "sebelas "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "belas "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "puluh "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function
'********************************
' Mengubah satuan menjadi teks. *
'********************************
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "satu "
Case 2: Satuan = "dua "
Case 3: Satuan = "tiga "
Case 4: Satuan = "empat "
Case 5: Satuan = "lima "
Case 6: Satuan = "enam "
Case 7: Satuan = "tujuh "
Case 8: Satuan = "delapan "
Case 9: Satuan = "sembilan "
Case Else: Satuan = ""
End Select
End Function
Source : http://dhuwuh.blogspot.com/2012/08/tips-membuat-add-in-terbilang-untuk.html
![[Valid RSS]](http://i416.photobucket.com/albums/pp244/dhuwuh/valid-rss.png "Validate my RSS feed")
1734 comments:
mantap gan..........
luar biasa sekali .. ane ucapkan terimakasih niyh infonya
akhirnya ketemu juga caranya, thanks mas broo..
makasih buat infonya...
makasih tipsnya...
thanks yah ats infonya
nyimak aja gan soalnya gak ngerti sama sekali he..hee
nyimak aja gan trimakasih
thanks gan informasinya
thanks gan informasinya
wah bagus banget nih infonya
menarik juga untuk di simak
makasih buat informasinya
langsung mencobanya aja
nice post.
nambah ilmu gan
ininya sama dengan tips membuat Add in terbilang d ms.word y gan??
ini maksimal sampe brp angka??
satu milyar or 1 trilyun bisa??
thanks buat tipsnya
salam kenal gan ditunggu kunujungan baliknya yaa
dasyat bro artikelnya
makasih tutorialnya om
info nya mantapp ,,,
menarik gan , jangan lupa mampir gan ..
Ini mah bukan tips lagi, tapi artikel yang berbobot, dan sangat berkualitas. Thanks informasinya, benar-benar saya butuhkan saat ini. Semoga Tuhan membalas kebaikan Anda :)
thanks gan ilmunya
makasi tas infonya bro.
makasih untuk tips kali ini sangat sederhana sekli tapi sangat membantu saya,,, trims
Sangat detail banget Tutorialnya,penguasaan MS Officenya benar-benar matang
Terima kasih untuk tipsnya gan...:)
Ternyata untuk Ms. Excel ada juga untuk membuat add in terbilang...:)
Numpang promosi web gan, mohon kunjungannya:)
Management Consultant
terima kasih infonya,,,
info yang sangat baguss
tapi kenapa judulnya edisi basi tuh -_-"
makasih ya tips and triknya..
siippp sipp,, Nice Post
thank you tipsnyo
okayyy,, terimakasih tipsnya
senang bisa berlama2 di blogmu bro. banyak pengetahuan yg bs didapatkan.
thanks gan informasinya
mantap surantap we lah :D
thanks buat informasi yg telah and berikan kepada saya, sangat bermanfaat sekali tuh gan :D
sudah dikembangkan teknologi hybrid hydro yang tidak lagi menggunakan aliran sungai. teknologi ini di kembangkan oleh PT. Geo Daya Energi untuk websitenya bisa di lihat di http://www.geo-de.com
makasih bnyak ilmunya gan..
kebetulan bnget niihh saya lagi nyari tutornya..
waahh kebetulang banget niihh..langsung nyoba dulu aahh..hhehee
boleh juga niihh tutornya dicoba..
mksih banyak infonya
thnx sob
informasi yang sangat bermanfaat, terimakasih dan salam kenal
sipzzzz....
keren dah infonya....
thnks gan udah mau sharing ilmunya
semoga bermanfaat dan berguna
thanks yah..
akhirnya ketemu juga caranya, thanks mas broo..
That good post. Thanks so much
terima kasih info nya :)
boleh minta rahasia tentang formula statistik di ms. excel ga gan?
thanks gan informasinya
thanks gan informasinya
Izin bljr om, laporan nyusul..
wah nice info sob, thanks banget yh !!
mantap gan, huhuy dapet ilmu baru nih..
makasih untuk tipsnya,,, keren banget boss!!
tipsnya mantab gan. thanks :)
keep fight blogging my bro :)
info yang bagus, semoga bermanfaat.
makasih infonya
jangan lupa mampir balik ya
semoga sukses selalu..
infonya bermanfaat sekali,
makasih.
thank's gan buat infonya
sukses selalu ya
ditunggu updatean terbarunya
makasih buat info-infonya
makasih infonya
nice post
banyak banget ilmu office nya di sini,,makasih,,
makasih udh mau share, smoga bermanfaat yaa
ke sob,ane coba infonya dulu...goodluck
Makasih Atas Postingannya sangat berguna banget bagi saya..
moga" blognya bisa makin berkmbang dan postingannya makin banyak...
makasih cing infonya, manfaat banget nih, salam kenal yah, ku tunggu nih kunjungan baliknya
so nice this content
nuwun gan infonya
thanks gan udh berbagi ilmunya
semoga bisa berguna
Ilmunya bermanfaat banget,,belum pernah belajar disekolahan,,^^
Baru tahu caranya seperti ini,,info yang bermanfaaat mas Bro...
Info yang bermanfaat Bro...
artikel yang sangat membatu...
salam blogger indonesia
download dan streaming bokep indonesia
Terimakasih tipsnya, saya juga mempunyai tips membuat add-in terbilang excel yang bagus, klik aja pada nama saya diatas
Dijamin tipss terbilang excel saya tidak basi
Terimakasih sudah berbagi tips terbilang excel
tutorialnya bagus sekali
sukses terus buat blognya yah..
Info yang menarik saya juga pengen nyoba ah
sukses selalu gan untuk kedepannya
thanks gan artikelnya sangat bermanfaat, ditunggu postingan berikutnya..izin bookmark dl ya..^_^
xbox
christmas
clothing
sukses terus buat blognya..
sukses terus buat blognya..
thanks gan udh mau sharing ilmunya semoga bermanfaat
makasi tipsnya
ikut gabung disini iyah gan
Makasih sobat ane test dulu ya
ohayou gozaimasu
salam kenal ajach ya
thanks for information
makasih ya atas informasinya
good luck ya
arigatou gozaimasu
Klo di office 2010 gmn bos caranya?
Informasi menarik :-)
Thanks sudah berbagi.
Salam,
Bagus tips membuat add in terbilang
Sekedar membaca tips membuat add-in terbilang
Menambah ilmu seputar aplikasi excel
Terimakasih atas informasinya gan semoga sukses selalu & selamat pagi.
thanks for sharing yah sob..
makasi buat infonya
Info menarik :-)
Thanks sudah berbagi.
Salam,
terima kasih buat ilmu & infonya?
semoga bermanfaat bnget!
lam knal & sukses sob ?
memang artikel artikel pada blog ini menakjubkan. semoga semua isi yang ada di blog ini dapat bermanfaat bagi visitor dan khususnya untuk para blogger di indonesia. Nice post
trimakasih infonya bermanfaat banget gan.....
makasi tipsnya
info yang bagus dan sangat bermanfaat
thanks informasinya sob
mantap...... makasih buat tutorialnya mas.... ditunggu tips-tips selanjutnya ya..
koq judul artikel nya ada kata-kata basi nya segala sih? Tapi nggak ppa lah,, nice post dan sangat membantu bagi saya.
Wah infonya mantap banget bgan terimakasih dan ini akan saya pelajari
Isi artikel yang sangat berguna sekali, sehingga artikel ini menjadi terpopuler. Tampilan blog yang sangat dinamis dan loading yang ringan membuat pengunjung blog betah berlama lama disini. Sehingga blog ini ramai pengunjung.
jangan lupa visit my blog.
#SalamBlogger
makasih banyak atas semua unfo nya gan ,,,,,,,
info yang sangat bagus...
Terima kasih bos atas info-nya, sudah beberapa hari ini saya mencari informasi ini, ini sungguh sangat membantu saya untuk memecahkan masalah yang sedang saya hadapi. mulai sekarang saya akan bookmark blog ini agar saya bisa kembali dan melihat informasi yang terbaru.
mungkin si bos juga membutuh kan infomasi dari saya, trick ini akan dengan mudah membuat sebuah blog menjadi lebih maksimal dari yang sebelumnya belajar blog
Terima kasih banyak atas infonya..
Nice info, Terima kasih gan....
Terimakasih banyak gan atas inonya saya dari dulu mencari info seperti ini.
saya langsung coba saja deh.
sharing yang sangat berkualitas gan.. sangat bermanfaat,,
makasih infonya
semoga sukses selalu
jangan lupa mampir balik ya gan
okeh gan kalo gitu saya akan langsung terapkan aja nih ilmunya
informasi yang bisajak untuk disimak mengenai tips atau cara add ini untuk microscoft exelnya gan terimakasih
hai,selamat siang
hai,apa kabar? salam kenal ajach ya
sukses selalu ya
makasih banyak ya gan, jangan lupa mampir balik
makasih buat infonya
nice info gan
Ternyata tips pun memiliki edisi basi
terimakasih atas sharing informasinya..
terus berkarya
salam kenal ajach buat baca
saya ikut numpang buat nambah backlink di sini ya
artikel yang menarik banget, semoga bermanfaat ya
mantap gan, thanks ya udah berbagi pengetahuan
Nice info gan :)
Info yang bermanfaat .,terimakasihh sudah berbagi
nice post..
ga sia sia deh mampir di blog eni ,,, jadi nambah pengetahuan
tanks bgt deh ud share
kalo boleh tau ini blog, nama tema nya ap sob,,
kern deh
ini artikel bermanfaat ni, pasti pengunjung nya banyak bgt ni
saya juga jadi nambah pengetahuan ni sob
tank gan ud share info ini
alhmdllh jadi nambah pengetahuan ni gan,,terimakasih bgt informasinya
ow ,,bgitu ya
coba ke tkp ah sob
tanks ya ud share
ini artikel yang aku cari ni,,,maksih ya
asiiiiiiiiiiiik langsung nyoba ke tkp ah
mkasih ya gan
sip ok gan
di tunggu info lainnya
makasih banyak nih gan udah sharing ilmunya,, semoga ajach sukses...
terima kasih sudah sharing ilmu yah.. :D
sukses terus buat blgonya sob..
Ribet juga ya ternyata caranya... makasih tipsnya.
Patut dijadikan pedoman ni mas... lumayan tambah ilmu lagi. makasih yaaa... :D
Informasinya sangat bermanfaat, tp aku belum tertarik coz masih pakai ms.office 2003, males mau latihan hehe.
Wah infonya sangat menarik sekali gan terimakasih semoga saja sukses selalu.
hallo,sobat
informasinya memang bermanfaat
saya ikut nyimak artikelnya... sangat bermanfaat banget
tutorial yang bagus sangat berguna untuk aplikasi saya.
Nice post kang ,,
wahh dapat ilmu lagi nih,,
absenn malam dulu di sini ... aahaayyy :D
tips ini bisa di coba... moga aja bisa... amin ya alloh
tips ini semoga aja bermanfaat gan
makasih gan atas informasinya mengenai add ini terbilah untuk miscroscof exwlnya...untuk itu sanga senang sekali membaca artikelnya
Ikut menyimak artikelnya gan :-)
Salam,
makasih udah banyak sharing ilmunya
makasih banyak ya gan jadi nambah ilmu ne
mudah-mudahan artikelnya semakin maju dan sukses selalu
http://obatradisional.biz/obat-tradisional-kelenjar-getah-bening/
ketemunya juga caranya gan
makasih banyak gan
sukses terus buat blognya kawan..
hallo
mantraps sob...yang beginian yang ane cari dari kemarin, thanks ya sob share infonya
smoga bermanfaat artikel ini.. thanks
kalau blogspot/blog yg gratisan max PR cuma 2 yah...ada ga siy yg bisa sampai PR 4?
tips yang sangat mantab gan.,.,., terimakasih salam kenal??????
info yang bagus nih gan
luar biasa sekali informasi yang disajikan ini. sungguh sangat bermanfaat sekali. dan saya berharap blog ini dapat terus menerus trafiknya naik. dan jumlah visitor semakin banyak.
Izin nyimak aku mas bro ....
soalnya ga begitu ngerti , hehehe
sukses terusa buat blognya yah..
Thanks banyak atas infonya
Sukses terus buat blognya
visit blog gan
makasih infonya
semoga sukses selalu
Salam kenal dan sukses selalu
Post a Comment
"Using DOFOLLOW System. Pease don`t SPAM!!!"
Thanks To Comment My Articles. God Bless You People.