返回列表 上一主題 發帖

以中華民國方式輸入日期

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-3-7 12:30 | 顯示全部帖子
回復 8# myleoyes
  1. Sub 日期()
  2. ZZ = InputBox("輸入日期", "請輸入日期", "101/12/30")
  3. If ZZ = 0 Or ZZ = "" Then End
  4. a = Split(ZZ, "/")
  5. a(0) = a(0) + 1911
  6. [B3] = Join(a, "/")
  7. [B3].NumberFormat = "e/m/d"
  8. Range("B3:B" & [A152].End(3)).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1
  9. [B:B].EntireColumn.AutoFit
  10. End Sub
複製代碼

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題