12
返回列表 上一主題 發帖

找不到巨集

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
11# 跳轉到 »
發表於 2011-9-29 12:48 | 只看該作者
已將完整程式附件上傳
內部資料我有刪除

資料彙整2.zip (832.85 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2011-9-29 12:57 | 只看該作者
本帖最後由 GBKEE 於 2011-9-29 13:00 編輯

回復 11# lone_tiger0303
有錯誤時 按F8逐行查看找出錯誤點看看
資料彙整-2.xls-> 改另存檔名:  資料彙整2.xls  ,程式中也要一併更改呀    你沒改正
這是你剛傳上檔案中的程式碼
Workbooks("資料彙整-2.xls").Worksheets("技師保母").Range("d4:k30000").Value = ""
Workbooks("資料彙整-2.xls").Worksheets("技師保母").Range("n4:t30000").Value = ""
Workbooks("資料彙整-2.xls").Worksheets("技師保母").Range("be4:bo30000").Value = ""

TOP

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
13#
發表於 2011-9-29 16:46 | 只看該作者
抱歉~~傳錯份了
剛剛有用GBKEE老師的方式 按F8 果然發現問題了
另外如有檔名有"-"也會無法執行
又學到一招了
感謝二位老師的熱心協助~~
另外GBKEE老師你的MAIL我傳不過去~~你可以MAIL一封信給我試看看嗎
謝謝

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
12
返回列表 上一主題