依當下執行時間，如何自動將指定工作表名稱修改成此格式"1018-上午"???
- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
回復 1# p6703
工作表是執行後新加上?
第一段是同時加上 "上午","下午" 兩份.
第二段是按當運行時時間加上- Sub ampm()
- Worksheets.Add
- ActiveSheet.Name = Format(Now(), "MM-DD") & "-上午"
- Worksheets.Add
- ActiveSheet.Name = Format(Now(), "MM-DD") & "-下午"
- End Sub
- Sub bytime()
- Worksheets.Add
- ActiveSheet.Name = Format(Now(), "MM-DD") & "-" & IIf(Hour(Now()) >= 12, "下午", "上午")
- End Sub
|
|
|
|
|
|
|
|
發表於 2012-10-18 13:28
| 