Page 4 -

leri Excel Ders-5

3-) Örnek kod ve çıktısı

Sub Ders5()
BOY = Worksheets("Sayfa1").Range("d2").Value
kilo = Worksheets("Sayfa1").Range("d3").Value
' BMI:Beden kütle endeksi kilonun boyun karesine bölümü

If BOY <> "" And kilo <> "" Then
BMI = kilo / ((BOY / 100) * (BOY / 100))
If BMI < 18 Then
Worksheets("Sayfa1").Range("d4").Value = "ZAYIFSINIZ"
ElseIf BMI < 25 Then
Worksheets("Sayfa1").Range("d4").Value = "NORMALSİNİZ"
Else
Worksheets("Sayfa1").Range("d4").Value = "ŞİŞMANSINIZ"

End If
End If
End Sub