Disini kita mempermainkan Fariabel kembali anda bebas menggunakan fariabel lain, tapi ingat saat penggunaanya dicheck box kembali.
contoh penulisan rumus :
Private
Sub Check1_Click()
Dim
AC, FM As Single
Dim
BIAYA As Long
If
Check1.Value = 1 Then
AC
= 50000
Else
AC
= 0
End
If
If
Check2.Value = 1 Then
FM
= 25000
Else
FM
= 0
End
If
BIAYA
= AC + FM
Text7.Text
= BIAYA
End
Sub
Setelah anda selesai mengetikan rumus Copy kan hasil ketikan anda sebanyak Check Box yang ada. Saya mengganjurkan anda mengcopy paste saja takutnya jika salah mengetik dalam salah satu Check Box maka tidak kan terhubung antara check yang salah tadi.
Tidak ada komentar:
Posting Komentar