Dear Debora,
karena Anda sudah biasa dengan langsung menuliskan script ke VB, maka saya
bantu solusinya sbb:
1. deklarasikan beberapa variabel sbb di dalam sebuah prosedur di dalam
sebuah modul
a. NomerIndukNasabah tipenya String (untuk jaga-jaga jika nanti ada
kombinasi huruf & angka di dalam NomerInduk, atau ada nol di depan
NomerInduk)
b. sebuah variabel yang akan digunakan untuk pencarian NoInduk tipenya
range
c. TotalBunga, TotalDenda, TotalPokok bertipe Double untuk menyimpan
nilai dari sheet Kalkulator
2. Masukkan masing-masing nilai ke dalam variabel tersebut, nilainya
diambil dari masing-masing nilai sesuai hasil perhitungan di sheet
Kalkulator
3. Lakukan pencarian di sheet Nasabah kolom B berdasarkan NomerInduk nasabah
contoh pencarian:
Set VariabelNomer1B =
sheets("nasabah").range("b:b").cells.find(NomerIndukNasabah)
4. Lakukan pengecekan apakah ditemukan datanya menggunakan:
If VariabelNomer1B is nothing then
jika tidak ditemukan maka beritahu user dengan messange box bahwa
data tidak ditemukan
keluar dari prosedur
End if
5. Jika ditemukan maka lakukan proses seperti ini
ambil nilai denda, gunakan OffSet untuk menunjuk cellnya berdasarkan
rujukan hasil pencarian di atas, lalu nilainya ditambah dengan TotalDenda
yang tadi sudah disimpan dalam sebuah variabel.
lakukan juga untuk nilai bunga dan pokoknya
6. Buat sebuah shape lalu assign macro yang sudah ditulis ke dalam shape
tersebut, jika tidak terbiasa dengan shape bisa menggunakan tombol (command
button) lalu panggil prosedur tersebut.
Selamat mencoba, semoga berhasil dan tetap semangat :D
Best Regard,
-Ms. Jan Raisin-
Pada 1 Desember 2012 21:57, Debora Christy
<[email protected]>menulis:
> **
>
>
> Miss sy sedikit bingung dgn proses rekam makro, krn sy sendiri msh awam
> soal rekam makro...
> Dlm penggunaan makro biasanya sy lgsg msk ke vb utk memasukkan formula
> makro... Td sdh sy coba dgn langkah2 tsb ttpi utk makronya sendiri tdk
> terekam...
> Apakah formula tsb dpt lgsg dimskkan melalui vb ato hrs melalui proses
> rekam makro? Trima kasih sebelumnya...
>
>
>
