excel -vba 自訂函數 (計算體重)

Public Function 標準(身高)
標準 = 身高 * 身高 * 22 / 10000
End Function


Public Function 評語(您的體重, 標準體重)

If 您的體重 > 標準體重 Then

評語 = "太重"
Else

If 您的體重 < 標準體重 Then

評語 = "太輕"
Else
評語 = "標準"

End If
End If


End Function