一個星期天的問題

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

19^# 跳轉到 »

發表於 2011-6-29 21:01 | 只看該作者

回復 18# Hsieh

謝謝大大回應,
已試過, 而且無須用上名稱, 快捷很多, 再謝謝,
大大, 在顯示星期天中, 傳回是星期一, 星期二, 可否把星期這两字刪除, 如星期一, 顯示一, 如星期二, 顯示二, 感恩..

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

18^#

發表於 2011-6-29 19:35 | 只看該作者

回復 17# 317

Sub Ex()
Dim Ar()
y = [AL1]
m = Val(ActiveSheet.Name)
If m < 1 Or m > 12 Then MsgBox "工作表名稱需要符合1~12月": Exit Sub
d = 1
mydate = DateSerial(y, m, d)
Do Until Month(mydate) <> m
ReDim Preserve Ar(s)
k = Format(mydate, "aaa")
Ar(s) = Array(d, Format(mydate, "aaa"))
s = s + 1
d = d + 1
mydate = DateSerial(y, m, d)
Loop
[G2:AK3] = ""
[G2].Resize(2, s) = Application.Transpose(Ar)
End Sub

複製代碼

學海無涯_不恥下問

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

17^#

發表於 2011-6-29 19:07 | 只看該作者

Hsieh好
上次的提問, 應是表達不清色, 故重新整理問題發問, 附檔有明細說明, 先行謝過...

aa.rar (19.46 KB)

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

16^#

發表於 2011-6-26 17:53 | 只看該作者

Hsieh前輩, 好
大大的星期天函數, 我研究两天, 若沒有留意到定義名稱, 真的是沒法完成, 我亦親自動手寫入一個新的檔案, 先行設定3個定義名稱, 再從資料編輯列寫入公式, 成功了, 在這條函數學了及變通了, 謝過大大,
大大, ,若把這函數轉成vba程式, 放在模組中, 用家設一按鈕運動就是否可以..謝謝...

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

15^#

發表於 2011-6-21 23:02 | 只看該作者

回復 14# 周大偉

巨集公式?
我的方法沒有用到巨集阿
應該是定義名稱的問題
你要把定義名稱在新活頁簿中建立
並且該檔案已經儲存
至於該訊息我就沒遇過不知是為何產生的

學海無涯_不恥下問

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

14^#

發表於 2011-6-21 20:14 | 只看該作者

Hsieh版主大大好,
先謝過大大給予解決一星期天的問題, 而大大給予的函數的確很勁, 但小弟發現一問題, 假若我復製函數貼到其它檔案, 便會彈出提示訊息,附圖, 如何可把這麼好的函數復製到其它檔案運用, 請大大教導..感恩..謝謝!!

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

13^#

發表於 2011-6-19 17:37 | 只看該作者

謝謝前輩解答, 我會用心去鑽研, 再三謝過, 祝健康,快樂!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

12^#

發表於 2011-6-19 17:07 | 只看該作者

回復 11# 317

公式中的x是使用cell函數得到的filename
你在其它空白處寫入公式=x就知道x內容是什麼
看中括號內代表的是參照中的什麼位置就知道find的作用了

學海無涯_不恥下問

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

11^#

發表於 2011-6-19 15:47 | 只看該作者

回復 8# Hsieh

前輩, 安好
就G3=IF(G2="","",CHOOSE(WEEKDAY(--($AL$1&"/"&SUBSTITUTE(MID(x,FIND("]",x)+1,3),"月","")&"/1")+G2-1,2),"一","二","三","四","五","六","日"))這條函數, 前輩可否簡描述制作流程,
因我正在鑽研中, 一些地方實有不明, 如("]",x), 就代表什麼, 小妹實想從中吸收多少, 謝過前輩..

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

10^#

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

回復 9# Hsieh

謝謝, 這正是小弟所需要, 其實整理的檔案, 是把公司多年來每月一些記錄重新整理, 而檔案第二列第第三列是日期及星期天,
假若日期及星期天能自行變更為對應, 便節省了很多時間, 故請教大大們, 得版主大大協助, 衷心感謝.....

TOP

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

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