[發問] 檔案過大~函數有沒有辦法轉成VBA

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

17^#

發表於 2014-2-17 14:28 | 只看該作者

回復 15# GBKEE

感謝大大
小弟發現了另一個方式了
就是把我原有的函數全部套用您給小弟的代碼
With Sheets("XX").[X?:X?]
.Cells = " 原有函數(只是原有的"X"要變成" "X" ") "
.Cells = .Value '公式轉成值
End With
這樣的方式還是能把檔案縮小^^

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

16^#

發表於 2014-2-17 14:20 | 只看該作者

回復 15# GBKEE

是的小弟是2003版的
您的也是嗎
可是小弟這邊看
怎麼原本的資料是20XX/03/01
驗證那邊加上月數的日期變成 03/01/20XX
然後結果那邊就全部無效了

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

發表於 2014-2-17 13:56 | 只看該作者

回復 14# gn00487767
你也是2003版嗎? 沒你說的問題,也沒有 2014/03/01 變成了3/1/2014

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

14^#

發表於 2014-2-17 13:38 | 只看該作者

回復 13# GBKEE

小弟測試結果
如果把公式轉成值都拿掉
就恢復正常
都加上公式轉成值就會變成全都無效
但如果公式不拿掉檔案還是那麼大

函數換成vba方法(無效).rar (10.21 KB)

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2014-2-17 12:45 | 只看該作者

回復 12# gn00487767

2014/03/01 變成了3/1/2014 所以導致驗證全部變成無效

但還是日期格式,不會導致驗證全部變成無效.
附上檔案看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

12^#

發表於 2014-2-17 12:12 | 只看該作者

本帖最後由 gn00487767 於 2014-2-17 12:16 編輯

回復 11# GBKEE

這程式執行後的日期正確嗎?
執行後的日期是正確的沒錯
但是原本應該是 2014/03/01 變成了3/1/2014 所以導致驗證全部變成無效
但是第一位大大給小弟的代碼是可行的
只是第一次的代碼小弟真的無法理解再作修改
第二次的代碼(即此次發生錯誤的代碼)因為是分開的而且您有附加說明
所以小弟能自行修改所以才想套用您給小弟的代碼
或是大大能把第一位大大給的代碼分段和附加說明嗎
勞煩大大了

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2014-2-17 06:16 | 只看該作者

回復 10# gn00487767
這程式執行後的日期正確嗎?
程式沒有修改日期格式,無關乎你驗證工作表的日期格式,

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

10^#

發表於 2014-2-17 01:16 | 只看該作者

回復 3# GBKEE

GBKEE大大抱歉小弟看錯了
應該是下面才對
      With Sheets("驗證").[B2:B20]
      .Cells = "=EDATE(名單!F2,驗證!E2)"
      '=EDATE(名單!F2,E2)
      .Cells = .Value '公式轉成值
End With
這邊驗證後的日期格式是顛倒的

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

9^#

發表於 2014-2-17 00:43 | 只看該作者

回復 3# GBKEE

再次請教GBKEE大大
其中
08.Sub Ex1()  '算出"名單"上E欄的數值
09. With Sheets("驗證").[E2:E20]
10.       .Cells = "=CHOOSE(MATCH(CLEAN(名單!RC5),{""第一類"",""第二類"",""第三類"",""第四類"",""第五類""},0),5,3,1,0,8) " '=EDATE(名單!F2,E2)
11.                '=CHOOSE(MATCH(CLEAN(名單!$E2),{"第一類","第二類","第三類","第四類","第五類"},0),5,3,1,0,8)
12.       .Cells = .Value '公式轉成值
13. End With
它顯示出來的日期跟我的日期格式是顛倒的
所以驗證結果都是錯誤的
小弟應該如何做修改
煩請大大費心