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

2^#

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

本帖最後由 hugh0620 於 2011-1-27 10:53 編輯

回復 1# b9208

樓主~ 你的意思是~
1.條件:週次~ 就秀出該週的日期與每個日期是星期幾嘛???
2. 條件:週次與星期帶出日期出來??

可以請你把問題詳細說明~ 那樣版主級大大~ 才會清楚了解~

學習才能提升自己

TOP

b9208

中學生 Rank: 2

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

3^#

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

Dear hugh

週次 (1103) 及星期 (Mon, Tue, .....) 是原有資料，希望能帶出日期。

Ths

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

TOP

b9208

中學生 Rank: 2

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

4^#

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

Dear hugh

週次 (1103) 及星期 (Mon, Tue, .....) 是原有資料，希望能帶出日期。

Thanks

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

TOP

b9208

中學生 Rank: 2

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

5^#

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

抱歉上次回復按了二次

剛才想到使用IF函數也可以完成需求
A2儲存格輸入當週(1103)週一日期 2011/1/10
A4儲存格輸入 "=IF(B4="Mon",$A$2,IF(B4="Tue",$A$2+1,IF(B4="Wed",$A$2+2,IF( .................."

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

TOP

eddy

中學生 Rank: 2

帖子: 7
主題: 1
精華: 0
積分: 112
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-10-16
最後登錄: 2014-1-1

2012龍年全勤獎章 2011兔年全勤獎章

6^#

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

樓主
不知道亂寫的是不是符合你的需求

B1.rar (5.81 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

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

回復 5# b9208

1103
要判讀為2011年第三週
請問1911年第三週怎樣表示?
EXCEL最怕的就是不遵守資料規格

學海無涯_不恥下問

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

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

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