12
返回列表 上一主題 發帖

依當下執行時間，如何自動將指定工作表名稱修改成此格式"1018-上午"???

p6703

帖子
134 
主題
27 
精華
0 
積分
168 
點名
0  
作業系統
WINXP 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2010-10-6 
最後登錄
2018-5-13 

論壇贊助勳章
6# 跳轉到 »
發表於 2012-10-19 08:36 | 只看該作者
感謝GBKEE 版主，修改的確可如小弟告知的依序將同時段的工作表自動序號增加

但可能有點誤會小弟的意思了，小弟再說明一下
我指定的工作表是以其他的巨集執行產生的，可能就類似一個"新訂單"工作表，希望執行現請教的巨集後，即可將該工作表名稱自動變更成1018-下午形式，但當天可能又會再重新跑一次，又再產生一次新訂單工作表，如再按巨集執行時，名稱即變成1018-下午(1)（現執行巨集時是原工作表仍存在）

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-10-18 16:48 | 只看該作者
回復 4# p6703
試試看
  1. Option Explicit
  2. Sub EX()
  3.     Dim xlName As String, Sh As Worksheet, i As Integer
  4.     xlName = Format(Now(), "mmdd") & "-" & Mid(Format(Time(), "C"), 1, 2)
  5.     On Error GoTo R:
  6.     With Sheets.Add(, Sheets(Sheets.Count))
  7.         ActiveSheet.Name = xlName
  8.     End With
  9. R:
  10.     If Err.Number <> 0 Then
  11.         For Each Sh In Sheets
  12.             If InStr(Sh.Name, xlName) Then i = i + 1
  13.         Next
  14.         xlName = xlName & "(" & i & ")"
  15.         Err.Clear
  16.         Resume
  17.     End If
  18. End Sub
複製代碼

TOP

p6703

帖子
134 
主題
27 
精華
0 
積分
168 
點名
0  
作業系統
WINXP 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2010-10-6 
最後登錄
2018-5-13 

論壇贊助勳章
4#
發表於 2012-10-18 15:30 | 只看該作者
感謝二位版主的指導,小弟執行已可符合需求,但又有一延伸問題請教

因原執行時已產生一個1018-下午的工作表,當再次執行時即秀出錯誤(原工作表已有該名稱)

是否可將再次執行產生的工作表名稱依序增加格式為:1018-下午(2),1018-下午(3)....

再次感謝版主的教導,謝謝...^^

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-10-18 13:57 | 只看該作者
回復 1# p6703
  1. Sub Ex()
  2.     ActiveSheet.Name = Format(Now(), "mmdd") & "-" & Mid(Format(Time(), "C"), 1, 2)
  3. End Sub
複製代碼

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-10-18 13:28 | 只看該作者
回復 1# p6703


工作表是執行後新加上?
第一段是同時加上  "上午","下午" 兩份.
第二段是按當運行時時間加上
  1. Sub ampm()
  2.     Worksheets.Add
  3.     ActiveSheet.Name = Format(Now(), "MM-DD") & "-上午"
  4.     Worksheets.Add
  5.     ActiveSheet.Name = Format(Now(), "MM-DD") & "-下午"
  6. End Sub

  8. Sub bytime()
  9.     Worksheets.Add
  10.     ActiveSheet.Name = Format(Now(), "MM-DD") & "-" & IIf(Hour(Now()) >= 12, "下午", "上午")
  11. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
12
返回列表 上一主題