EXCEL VBA 函數

Public Function 標準體重(身高)
標準體重 = Round((身高 * 身高) / 10000 * 22, 1)

End Function
Public Function 上限(來源, 百分比)
上限 = Round(來源 * (1 + 百分比), 2)
End Function

Public Function 下限(來源, 百分比)
下限 = Round(來源 * (1 - 百分比), 1)
End Function

Public Function 評語(身高, 體重, 百分比)

x = Round((身高 * 身高) / 10000 * 22, 1)
x1 = x * (1 + 百分比)
x2 = x * (1 - 百分比)

If 體重 = x Then

評語 = "非常好"

Else
If 體重 > x1 Then

評語 = "太重"
Else

If 體重 < x2 Then

評語 = "太輕"
Else

評語 = "江江好"
End If

End If


End If


End Function