註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excelㄧ般區
» 一個星期天的問題
1
2
3
下一頁
返回列表
下一主題
上一主題
發帖
一個星期天的問題
317
發短消息
加為好友
317
當前離線
UID
1023
帖子
248
主題
55
精華
0
積分
334
金錢
334
點名
0
作業系統
xp
軟體版本
2003
閱讀權限
20
在線時間
540 小時
註冊時間
2010-7-24
最後登錄
2023-2-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
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
150
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4144 小時
註冊時間
2010-4-30
最後登錄
2025-6-22
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
150
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-6-22
12
#
發表於 2011-6-19 17:07
|
只看該作者
回復
11#
317
公式中的x是使用cell函數得到的filename
你在其它空白處寫入公式=x就知道x內容是什麼
看中括號內代表的是參照中的什麼位置就知道find的作用了
學海無涯_不恥下問
TOP
317
發短消息
加為好友
317
當前離線
UID
1023
帖子
248
主題
55
精華
0
積分
334
金錢
334
點名
0
作業系統
xp
軟體版本
2003
閱讀權限
20
在線時間
540 小時
註冊時間
2010-7-24
最後登錄
2023-2-2
中學生
帖子
248
主題
55
精華
0
積分
334
點名
0
作業系統
xp
軟體版本
2003
閱讀權限
20
註冊時間
2010-7-24
最後登錄
2023-2-2
13
#
發表於 2011-6-19 17:37
|
只看該作者
謝謝前輩解答, 我會用心去鑽研, 再三謝過, 祝健康,快樂!!
TOP
周大偉
發短消息
加為好友
周大偉
當前離線
UID
1583
帖子
250
主題
59
精華
0
積分
313
金錢
313
點名
0
作業系統
XP
軟體版本
2003
閱讀權限
20
性別
男
來自
澳門
在線時間
238 小時
註冊時間
2010-9-11
最後登錄
2020-1-6
中學生
帖子
250
主題
59
精華
0
積分
313
點名
0
作業系統
XP
軟體版本
2003
閱讀權限
20
性別
男
來自
澳門
註冊時間
2010-9-11
最後登錄
2020-1-6
14
#
發表於 2011-6-21 20:14
|
只看該作者
Hsieh版主大大好,
先謝過大大給予解決一星期天的問題, 而大大給予的函數的確很勁, 但小弟發現一問題, 假若我復製函數貼到其它檔案, 便會彈出提示訊息,附圖, 如何可把這麼好的函數復製到其它檔案運用, 請大大教導..感恩..謝謝!!
下載
(79.97 KB)
2011-6-21 20:13
TOP
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
150
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4144 小時
註冊時間
2010-4-30
最後登錄
2025-6-22
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
150
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-6-22
15
#
發表於 2011-6-21 23:02
|
只看該作者
回復
14#
周大偉
巨集公式?
我的方法沒有用到巨集阿
應該是定義名稱的問題
你要把定義名稱在新活頁簿中建立
並且該檔案已經儲存
至於該訊息我就沒遇過不知是為何產生的
學海無涯_不恥下問
TOP
317
發短消息
加為好友
317
當前離線
UID
1023
帖子
248
主題
55
精華
0
積分
334
金錢
334
點名
0
作業系統
xp
軟體版本
2003
閱讀權限
20
在線時間
540 小時
註冊時間
2010-7-24
最後登錄
2023-2-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
317
發短消息
加為好友
317
當前離線
UID
1023
帖子
248
主題
55
精華
0
積分
334
金錢
334
點名
0
作業系統
xp
軟體版本
2003
閱讀權限
20
在線時間
540 小時
註冊時間
2010-7-24
最後登錄
2023-2-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)
下載次數: 10
2011-6-29 19:06
TOP
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
150
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4144 小時
註冊時間
2010-4-30
最後登錄
2025-6-22
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
150
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-6-22
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
發短消息
加為好友
317
當前離線
UID
1023
帖子
248
主題
55
精華
0
積分
334
金錢
334
點名
0
作業系統
xp
軟體版本
2003
閱讀權限
20
在線時間
540 小時
註冊時間
2010-7-24
最後登錄
2023-2-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
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
150
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4144 小時
註冊時間
2010-4-30
最後登錄
2025-6-22
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
150
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-6-22
20
#
發表於 2011-6-29 23:05
|
只看該作者
回復
19#
317
Ar(s) = Array(d, Replace(Format(mydate, "aaa"), "週", ""))
學海無涯_不恥下問
TOP
靜思自在 :
有時當思無時苦,好天要積雨來糧。
1
2
3
下一頁
返回列表
下一主題
上一主題
Excel程式區
管理公告
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲