12
返回列表 上一主題 發帖

關於傳回日期的問題

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6# 跳轉到 »
發表於 2010-6-12 17:19 | 只看該作者
照你的檔案我執行沒問題
你應該是在第一列的值是非日期產生錯誤
學海無涯_不恥下問

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-9-28 
5#
發表於 2010-6-12 17:13 | 只看該作者
回復  f3202
Hsieh 發表於 2010-6-12 15:59


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

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-9-28 
4#
發表於 2010-6-12 17:01 | 只看該作者
謝謝 victorl 大大
有小小出入
能否先在A1插入一列
然後在A2開始顯示週數
還是感謝您

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2010-6-12 15:59 | 只看該作者
回復 1# f3202
  1. Sub nn()
  2. If [A2] <> "" Then Rows(2).Insert
  3. For Each a In Range([B1], [B1].End(xlToRight))
  4.    a.Offset(1, 0) = DatePart("ww", a)
  5. Next
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

victorl

帖子
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

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
12
返回列表 上一主題