-
Swift Code Bank BNI
March 12, 2010
Sebenarnya ada 236 Swift Code untuk Bank BNI menurut situs swift.com, tapi …
-
Kenapa Ga Dipasangi Adsense?
March 11, 2010
Kenapa blog ini enggak dipasangi Adsense, kan lumayan tuh biarpun dikit2?
Ehm… Kenapa ya? Mungkin …
-
Next destination: The Netherlands
February 20, 2010
Alhamdulillah kemarin dapat email dari Neso Indonesia, ngasih tau klo aku dapet beasiswa …
-
Install Flash Player di Google Chrome Portable
February 18, 2010
Dulu aku pernah nulis tentang portable Google Chrome 2 dari stadt-bremerhaven.de, dan cara …
-
Dah Lama Enggak Ada Yang Copas :P
February 18, 2010
Iya nih, dah lama enggak ada yang copas artikel blog ini tanpa ngasih sumbernya. …
-
The Rose
February 16, 2010
The first day of school our professor introduced himself and challenged us …
-
Swift Code Bank Mandiri 2010
February 12, 2010
Sejak Juli 2009, swift code Bank Mandiri berubah dari BEIIIDJA menjadi BMRIIDJA. …
-
Mimpi Punya Rumah
February 11, 2010
Minggu kemaren seperti biasa aku pulang ke Malang, nengok istri tercinta
Tapi kali … -
Buka Proteksi Footer Themes Blog
February 2, 2010
Sebenarnya isi postingan ini kemaren udah aku tulis di komentar postingan yg …
-
Setelah Hampir 2 Tahun di Asian Brain
January 25, 2010
Beberapa waktu lalu ada teman kuliah yang tanya di YM: Wan, maaf ya sebelumnya, …
Column# to String
Jan 1st, 2004 | | visual basic
Sudah lama sebenarnya aku punya niat buat posting yg ada hubungannya dg programming, khususnya buat pemula, soalnya aku sendiri kan cuma programmer wannabe 
Postingan pertama ini tentang fungsi sederhana di Excel untuk mengubah nomor kolum menjadi nama kolum, biasanya fungsi ini kita butuhkan sewaktu bikin makro yg lebih rumit dan membutuhkan nama dari sebuah kolum di Excel.
'Nama: Angka2Huruf 'Tujuan: Mengubah Kolum ke-n di Excel menjadi ' Nama dari Kolum ke-n tsb 'Input Parameter: No dari Kolum 'Output: String Function Angka2Huruf(ByVal angka) Dim IntDiv As Double, intMod As Integer If angka < 1 Then Exit Function IntDiv = angka While IntDiv > 26 intMod = IntDiv Mod 26 If intMod = 0 Then intMod = 26 IntDiv = IntDiv - 1 End If Angka2Huruf = Chr(64 + intMod) & Angka2Huruf IntDiv = IntDiv \ 26 Wend Angka2Huruf = Chr(64 + IntDiv) & Angka2Huruf End Function
Semoga berguna 
Related Entries:
Random Entries:
No comments yet.
feel free to leave a comment
Comment Guidelines: Basic XHTML is allowed (a href, strong, em, code). All line breaks and paragraphs are automatically generated. Off-topic or inappropriate comments will be edited or deleted. Email addresses will never be published. Keep it PG-13 people!
All fields marked with " * " are required.
