輸出日期 - Excel程式區 - 麻辣家族討論版版

返回列表下一主題上一主題發帖

[發問] 輸出日期

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

11^# 跳轉到 »

發表於 2011-1-27 23:13 | 只看該作者

非常感謝先進們的指導
VBA程式可以使用
接下來研究學習程式的內容
再一次感謝

100 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2011-1-27 23:37 | 只看該作者

回復 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