Beberapa bug tersebut adalah :

• Ketika menggunakan file excel bertipe macro enabled (.xlsm), sering tiba-tiba excel menjadi crash dan harus dipaksa exit, dan saat itu terjadi tidak bisa melakukan save, sehingga segala perubahan bisa hilang. Meskipun bug ini masih dapat diakali dengan melakukan save sesering mungkin, tetapi tetap saja sangat mengganggu kenyamanan dan jika lupa save bisa berbahaya.
• Ketika memanggil fungsi GoalSeek dari VBA untuk melakukan fungsi reverse IRR (membalik fungsi IRR-Internal Rate of Return). Tiba-tiba saja muncul error pada IRR dengan keterangan divided by zero, padahal ketika dicek semua perhitungan, tidak ada yang dapat menjadi penyebab hal itu (setidaknya dari pengamatan saya). Semua input yang digunakan, selain IRR, juga menggunakan bilangan-bilangan yang masuk akal. Benar-benar sampai pusing, kok bisa begini [SOLVED-ternyata masalah terletak pada kesalahan persepsi kami. Kami kira bukan nol, tetapi excel menganggapnya nol, tetapi excel tidak konsisten dalam hal ini, kadang-kadang dianggap nol kadang-kadang tidak, nah itulah yang kemudian bisa disebut bug..hehe]
• Yang ini lebih aneh lagi. Suatu ketika, aplikasi yang saya buat saya (belum ada error nomor 2 diatas), saya backup. Kemudian saya lanjutkan pengembangan aplikasi tersebut dengan menambah sedikit fitur (hanya sedikit), dan menemui error pada nomor 2 diatas, padahal saya sama sekali tidak menyentuh modul tentang GoalSeek diatas. Kemudian saya mundur selangkah untuk menggunakan aplikasi yang saya backup tadi, dan hasilnya……..muncul error yang sama!!!!! Padahal saat saya backup, tidak ada error tersebut, mungkinkah error tersebut mempengaruhi excel itu sendiri?? Saya belum menemukan jawabannya.

Saya coba meyakinkan diri sendiri bahwa diatas bukan bug dari microsoft excel, tapi cuma karena saya yang kurang paham saja. Berprasangka baik ……..dan sekarang masih berusaha mencari solusi untuk setidaknya mengakali hal-hal diatas bersama seorang partner di ibukota.

Semoga ini memang hanya kesalahan saya yang memang baru belajar  :)

VBA memiliki satu metode yang bernama ExecuteExcel4Macro. Metode ini digunakan untuk menjalankan excel macro function dan mengembalikan nilai sesuai fungsi yang dimasukkan tersebut. Sintaxnya adalah :

return = ExecuteExcel4Macro(string)

string = suatu string yang berisi tentang fungsi macro yang dikehendaki, misalnya adalah MID(“”sometext”",1,4)

return = nilai yang dikembalikan oleh fungsi

Dalam konteks saya, metode diatas saya terapkan dalam sebuah fungsi untuk mengambil nilai dari suatu cell. Fungsi yang saya gunakan adalah di bawah ini :

Public Function GetValue(path, file, sheet, cell)
Dim arg As String
arg = “‘” & path & “[" & file & "]” & sheet & “‘!” & Range(cell).Range(“A1″).Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

• path = lokasi direktori dari file yang akan diambil nilainya, misal(formatnya harus sama)  C:/data/vba/
• file = nama filenya, misal belajar.xls
• sheet = lokasi sheet dari cell yang akan diambil, misal Sheet1
• cell = cell yang dikehendaki, misal C4
• arg = string yang berisi alamat dari file serta argumen2 yang digunakan

Fungsi GetValue diatas akan mengembalikan string berupa nilai dari cell yang dikehendaki.

Referensi :

http://spreadsheetpage.com

http://msdn.microsoft.com

Dalam aplikasi yang saya buat, semua nilai bilangan yang ditampilkan harus dipisah per ribuan dengan titik. Misal 34.500 bukan 34500. Setelah dipikir-pikir sejenak, saya rasa yang paling tepat adalah menggunakan fungsi rekursi (yaitu fungsi yang memanggil dirinya sendiri, mudahnya). Fungsi rekursi yang saya buat hanya menggunakan sebuah inputan yaitu teks bilangan yang hendak ditambahkan tanda titik didalamnya.

Source codenya :

Function giveDot(ByVal strTxt As String) As String

Dim depan, belakang As String

Dim temp As String

depan = Mid(strTxt, 1, getPanjang(strTxt) – 3)

belakang = Mid(strTxt, getPanjang(strTxt) – 2, 3)

If getPanjang(depan) <= 3 Then

giveDot = depan & “.” & belakang

Else

temp = giveDot(depan)

belakang = Mid(temp, getPanjang(temp) – 2, 3) & “.” & belakang

depan = Mid(temp, 1, getPanjang(temp) – 4)

giveDot = depan & “.” & belakang

End If

End Function

Pada fungsi diatas, variabel depan digunakan untuk menyimpan nilai angka di sebelah kiri tanda titik, sedangkan belakang digunakan untuk menyimpan sebelah kanan tanda titik. Fungsi ini akan berhenti setelah diketahui bahwa panjang dari string depan <=3, dengan kata lain sudah tidak membutuhkan tambahan titik pemisah lagi. Variabel temp akan menyimpan nilai rekursi dari fungsi ini untuk kemudian ditambahkan pada variabel belakang. Jadi pada setiap pemanggilan fungsi, isi dari variabel belakang akan terus bertambah panjang sedangkan isi variabel depan akan terus menjadi sedikit. Dan pada akhir eksekusi dari fungsi ini, panjang variabel depan tidak akan lebih dari 3 dan variabel belakang akan berisi kelompok bilangan-bilangan yang telah terpisah dengan titik. Misal : depan = 32 dan belakang = 423.423. Kemudian fungsi akan mengembalikan nilai dari variabel depan ditambah variabel belakang.

Fungsi getPanjang() diatas digunakan untuk mencari panjang dari teks yang dimasukkan sebagai parameter. Kenapa tidak saya sertakan sebagai parameter pada fungsi rekursinya? Karena hal itu akan sangat merepotkan. Input string dari fungsi rekursi berasal dari suatu cell dalam excel yang diambil lewat macro, jadi mencari panjang stringnya tidak bisa dicari secara langsung. Dibawah ini sourcecode dari fungsi getPanjang().

Function getPanjang(ByVal strTxt As String) As Integer

Dim temp As String

Dim i As Integer

i = 1

Do

temp = Mid(strTxt, i, 1)

i = i + 1

Loop Until temp = “”

getPanjang = i – 2

End Function

Referensi : Pengalaman Penulis