f3202

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-4-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-6-12 12:19 | 只看該作者

關於傳回日期的問題

有請各位高手大大們幫忙
在A1插入一列並以A2開始
傳回對應於B2的日期是一年中的第幾週
謝謝

Book1.rar (15.04 KB)

victorl

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

2^#

發表於 2010-6-12 13:43 | 只看該作者

回復 1# f3202

直接在Row 3 呈現
Sub wk()
For Each dd In Range([B1], [B1].End(xlToRight))
Cells(3, dd.Column) = Format(dd, "ww", vbMonday, vbFirstFullWeek)
Next
End Sub

語法說明: Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
firstdayofweek - 定義星期幾是一周的開始
firstweekofyear - 定義第一周的條件
這兩參數之設定會影響結果喔，請參考 "Excel Help"說明

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2010-6-12 15:59 | 只看該作者

回復 1# f3202

Sub nn()
If [A2] <> "" Then Rows(2).Insert
For Each a In Range([B1], [B1].End(xlToRight))
a.Offset(1, 0) = DatePart("ww", a)
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-4-27

4^#

發表於 2010-6-12 17:01 | 只看該作者

謝謝 victorl 大大
有小小出入
能否先在A1插入一列
然後在A2開始顯示週數
還是感謝您

TOP

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-4-27

5^#

發表於 2010-6-12 17:13 | 只看該作者

回復 f3202
Hsieh 發表於 2010-6-12 15:59

謝謝 Hsieh 版主
執行時在 " a.Offset(1, 0) = DatePart("ww", a)"
出現
執行階段錯誤'5':
程式呼叫或引數不正確
煩請版主了謝謝

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2010-6-12 17:19 | 只看該作者

照你的檔案我執行沒問題
你應該是在第一列的值是非日期產生錯誤

學海無涯_不恥下問

TOP

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-4-27

7^#

發表於 2010-6-12 19:41 | 只看該作者

謝謝 Hsieh 版主

第一列的值應是日期格式
如A2 變更格式成為5月21日
執行 SUB NN
我的程式在第二列插入一列
然後就出現同樣問題
有勞版主了謝謝

TOP

b9208

中學生 Rank: 2

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

8^#

發表於 2010-6-13 10:57 | 只看該作者

Dear Hsieh,
執行後插入的第二列格式為日期格式，如下：
代碼\日期 2010/5/21 2010/5/20 2010/5/19
1900/1/21 1900/1/21 1900/1/21
1101 25.95 26.75 27.1

手動將第二列格式設定成通用，則OK，如下：
代碼\日期 2010/5/21 2010/5/20 2010/5/19
21 21 21
1101 25.95 26.75 27.1

感謝版主分享

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2010-6-13 20:39 | 只看該作者

回復 8# b9208

Sub nn()
If [A2] <> "" Then Rows(2).Insert
Rows(2).NumberFormat = "0"
For Each a In Range([B1], [B1].End(xlToRight))
a.Offset(1, 0) = DatePart("ww", a)
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2010-6-13 20:45 | 只看該作者

本帖最後由 Hsieh 於 2010-6-13 20:47 編輯

回復 7# f3202

這跟A2格式沒關係吧!
第2列插入後會延續第一列格式
最主要是你第一列的資料要確定是日期資料才行
執行後是下列所示
代碼\日期 5月21日 5月20日 5月19日 5月18日 5月17日 5月14日
21 21 21 21 21 20
1101 25.95 26.75 27.1 26.45 26.3 26.9

學海無涯_不恥下問

TOP

關於傳回日期的問題

關於傳回日期的問題

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]