- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
Sub 年齡()
zz = Application.InputBox("輸入年齡", "請輸入分析年齡", 20, Type:=1)
If zz = 0 Or zz = "" Then End
' Range("C3:C1445") = ""
Range("C3") = zz
r = 3
Do
r = r + 12
Cells(r, 3) = zz + 1
zz = zz + 1
Loop Until Cells(r, 1) = ""
End Sub |
|
發表於 2011-5-7 11:20
| 