- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 82
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-4-6
               
|
回復 9# b9208
若用201103表示2011年第三周這樣可行
函數方式請參考
A4=DATE(LEFT($A$2,4),1,1)-WEEKDAY(DATE(LEFT($A$2,4),1,1),2)+(RIGHT($A$2,2)-1)*7+MATCH(LOWER(B4),{"mon","tue","wed","thu","fri","sat","sun"},0)
向下複製
VBA請參考- Sub nn()
- Set d = CreateObject("Scripting.Dictionary")
- k = DateSerial(Left([A2], 4), 1, 1) - Weekday(DateSerial(Left([A2], 4), 1, 1), 2) + (Right([A2], 2) - 1) * 7
- For i = 1 To 7
- x = UCase(Format(k + i, "ddd"))
- d(x) = k + i
- Next
- For Each c In Range([B4], [B4].End(xlDown))
- c.Offset(, -1) = d(UCase(c))
- Next
- End Sub
|
|
發表於 2011-1-27 15:10
| 