VBA 中華工程

Sub 流水號()

X = ActiveCell.Value
y = InputBox("請輸入結束值")


If X = Empty Then
ActiveCell.Value = 1


Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=y, Trend:=False

Else
If X <= Int(y) Then

Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=y + X, Trend:=False

Else


End If

End If


End Sub

Public Function 小計(折扣, 單價, 優惠, 數量)
If 數量 > 5 And 優惠 = "Y" And 單價 > 400 Then
小計 = 單價 * 數量 * (1 - 折扣)
Else

小計 = 單價 * 數量

End If


End Function


Public Function 評語(身高, 體重, 性別)

標準 = 身高 * 身高 * 22 / 10000

If 性別 = 1 Then
標準 = 標準 * 1.1
Else
標準 = 標準 * 0.9
End If

上限 = 標準 * 1.1
下限 = 標準 * (1 - 0.1)


If 體重 > 上限 Then

評語 = "太重"

Else

If 體重 < 下限 Then

評語 = "太輕"

Else

評語 = "太正常"
End If
End If



End Function