b9208

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

[發問] 輸出日期

各位先進！
問題請教：
已知週次及星期，輸出日期？

B1.rar (2.05 KB)

非常感謝指導:)

樓主熱帖

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

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

14^#

發表於 2011-1-28 17:32 | 只看該作者

回復 12# Hsieh

大大這個函數的寫法~ 對我工作上蠻有用處的~
真的很厲害~

學習才能提升自己

TOP

b9208

中學生 Rank: 2

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

13^#

發表於 2011-1-28 17:02 | 只看該作者

Hsieh 版主
非常感謝您
函數方式及VBA程式碼都可以執行
謝謝

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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

複製代碼

學海無涯_不恥下問

TOP

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2011-1-27 22:09 | 只看該作者

Sub XX()
Set d = CreateObject("Scripting.Dictionary")
a = [FLOOR(MID($A$2,3,2)*7+DATE(2000+LEFT($A$2,2),1,1),7)-12]
For i = 0 To 6
d(Format(a + i, "ddd")) = Format(a + i, "yyyy/m/d")
Next
For Each c In Range([b4], [b65536].End(3))
c(1, 0) = d(Application.Proper(c.Value))
Next
End Sub

複製代碼

B1.rar (7.6 KB)

TOP

b9208

中學生 Rank: 2

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

9^#

發表於 2011-1-27 20:34 | 只看該作者

Dear Eddy,
請問〞8-WeekToNum〞是什麼意義？為什麼用8減？
WeekToNum是什麼意義？

Dear Hsieh & hugh
非常感謝指導，確實沒有定義凖則。
週次定義從星期一開始
2011/1/1 定義為第一週（不管1/1是星期幾）
201101代表2011年第一週
以上設定是否符合資料規格

謝謝

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

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

8^#

發表於 2011-1-27 16:14 | 只看該作者

Hsieh 大大~ 說的是真理~

因為一年52.142.....週~
每個人使用計算的第一週的方式會不一樣~ (每個人判讀第一週的方式不一樣)
如 1/1是在星期一就簡單多了~ 就是當年的第一週
若 1/1是在星期六 ,則有些會從1/3星期一當成當年的第一週~

這種細節就需要定義清楚~ 會比較好楚理~

之前幫教授輔導公司時~ 跟同學也有遇到這個問題~
就請公司定義清楚計算第一週的準則~ 就會很好處理~ (那時同學用DELPHI撰寫)

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2011-1-27 15:10 | 只看該作者