Function語法想修改用在Excel2007版 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Function語法想修改用在Excel2007版

返回列表下一主題上一主題發帖

[發問] Function語法想修改用在Excel2007版

超級版主 Rank: 8 Rank: 8

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

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

1^# 跳轉到 »

發表於 2012-4-10 18:02 | 顯示全部帖子

回復 1# luke

看不懂你這個函數的作用
若要計算檔案類型的數量，試試

Public Function FilesPathFind(FindPath$, FindFileName$)
Dim fs$
fs = Dir(FindPath & FindFileName)
Do Until fs = ""
FilesPathFind = FilesPathFind + 1
fs = Dir
Loop
End Function

複製代碼

學海無涯_不恥下問

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-4-12 22:42 | 顯示全部帖子

回復 3# luke

你的函數功能實在無法從程式碼中理解
整體程式運作不可能從片段且無法執行的程式去猜測你要的功能
以你的函數來看
FilesPathFind最後要傳回的是甚麼東西?
Data是引數，但你卻要在函數執行中變更，不知有何意義?
以你的函數程式碼解釋如下
在FindPath資料夾內搜尋名為FindFileName的文件夾檔案
如果找到就將Data改成1否則改成0
這樣的邏輯似乎是錯誤的
所以只能告訴你這是錯誤，並無法為你解決問題

學海無涯_不恥下問

靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。

返回列表下一主題上一主題