2009年9月14日星期一

EXCEL VBA - 流水號

Sub 流水號()

Dim i, j
j = InputBox("請輸入終止值")

For i = 1 To j

ActiveCell.Offset(i - 1, 0).Value = i
ActiveCell.Offset(i - 1, 0).NumberFormatLocal = "[紅色][>50]0;[藍色]0"
Next


End Sub

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱