tanya tentang macro programming VBE di excel..ada yg bs bantu?

[Antony]

gue lagi ada project neh guys, gue diminta bikin calculator BMI di excel pake macro programming, ada yang ngerti macro programming gak?

brief singkat ttg nih project kaya gini
Body Mass Index
The Body Mass Index (BMI) is a figure that estimates how well a adult person's weight matches norms. It is a simple calculation using mass (m) in kilograms and height (h) in metres:

BMI = m / h2

dan kriterianya
he BMI value determines the person's weight classification. Although there are a few variations on this, use the following rules:

Criterion Classification
BMI less than 18.5 Underweight
BMI at least 18.5 but less than 25 Normal
BMI at least 25 but less than 30 Overweight
BMI at least 30 Obese

ini template workbooknya
RapidShare: 1-Click Webhosting

thanks banget yang udah bisa bantuin gue masih baru bro di dunia programming, dan merasa stuck untuk program ini, ada yang bisa bantu? sekali lagi thanks guys yang udah bantuin....

[ZeAL]

duww.. pindahin ke gudangupload.com aja donk.. ribet nih kalo pake rapishare..

[white_tiger]

hmm klo isinya di A1 ama A2..... trus keluar hasilnya di A3, gw masih bisa bikinnya
tapi klo itu........

btw, u kul dimane sekarang ?

[Antony]

sorry bro macan putih...dah lama gak kontak2....skarang kul di unsw.....declarationnya ribet neh, ama untuk konvert satuannya dari kg ke lbs & dari centi ke feet and inch aja g gak bs...kalo yang asli vb seh masih mendingan bwt gue... btw bro zeal ini dah g pindahin ke gudang upload
Download File
highly appreciated

[ZeAL]

Mudah2an ini yang lo mau..

    Dim berat As Variant
    Dim tinggi As Variant
    Dim BMI As Variant
            
    If ActiveSheet.Cells(2, 3).Value = "kg" Then
     berat = ActiveSheet.Cells(2, 2).Value
    Else
     berat = ActiveSheet.Cells(2, 2).Value * 2.20462262
    End If
    
    
    If ActiveSheet.Cells(2, 7).Value = "cm" Then
     tinggi = ActiveSheet.Cells(2, 5).Value + (ActiveSheet.Cells(2, 6).Value * 0.1)
    Else
     tinggi = (ActiveSheet.Cells(2, 5).Value + (ActiveSheet.Cells(2, 6).Value * 0.1)) * 3.2808399
    End If
    
    
    BMI = (berat / (tinggi * 2)) * 100
    ActiveSheet.Cells(2, 9).Value = BMI
    
    If BMI < 18.5 Then ActiveSheet.Cells(2, 10).Value = "Underwight"
    If BMI >= 18.5 And BMI < 25 Then ActiveSheet.Cells(2, 10).Value = "Normal"
    If BMI >= 25 And BMI < 30 Then ActiveSheet.Cells(2, 10).Value = "Overwight"
    If BMI >= 30 Then ActiveSheet.Cells(2, 10).Value = "Obese"

Oia, rumusnya kurang dikali 100 yah? soalnya kalo gak dikali 100, hasilnya 0,xxx.. (nol koma sekian-sekian..)


download attachment filenya...

[Antony]

thanks bro btw, masih rada bingung neh kenapa declarenya as variant ngebedain ama string gmana? terus rumus yang bro tulis
BMI = (berat / (tinggi * 2)) * 100
emang harus di kali 2 ya bukan di pangkat 2 (^2)
bingung neh bro....terus kalo kita pengen misalnya kalo kita ganti berat dari pounds ke kg langsung konvert otomatis, begitu juga dengan tinggi dari cm ke feet pengen otomatis commandnya gmana? thanks anyway bro Zeal
oh ya bro Zeal, mau nanya juga neh kalo gw run dry test, ada debug misstype match neh ane attach screenshot

[ZeAL]

Gue set variant soalnya gue lupa tipe data untuk desimal di VB.. hehe.. dah bertahun2 gak megang VB lagi soalnya.. Jadi pake variant biar dia otomatis menyesuaikan sendiri..

Owalah.. dipangkat 2 yah.. gue pikir di kali 2..
ya udah.. tinggal ganti aja jadi BMI = (berat / (tinggi * tinggi))
Dan kalo gitu gak usah dikali 100 lagi..

Kalo untuk biar otomatis berubah misal dari feet ke cm, errr... mungkin bisa cari di event combobox nya.. tapi sayang gue gak tau.. blon pernah coba..
Coding ini juga gue kira2 doank.. Sebelumnya gak pernah nyoba di VBA..

Soal yang error.. err.. gak tau dah.. itu kan bukan kode gue.. kode gue cuma yang di button click doank..

Biasanya error type missmatch muncul kalo lo mau melakukan perhitungan matematis antara angka dengan string..

Eh, gimana kalo diskusi ini pindah ke devsquare.org.. jadi bisa sekalian ngeramein disana..

[Antony]

ok my pleasure..moved to devsquare