[問題] VBA求解(已解決)

作者: h02158 (阿益)   2023-12-29 16:55:33
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:2016
當我執行少數文件時不會跳出問題,但我執行較多文件時會跳出問題,請問如兩張下圖這
個錯
誤要如何解呢?…謝謝!
https://i.imgur.com/y8U8QKH.jpg
https://i.imgur.com/dNE5fCK.jpg
完整程式碼如下
https://drive.google.com/file/d/1J7B-Bl2bTv-kfYAag9ua3SgU_aZqxbxw/view?usp=sha
ring
作者: chunchanhung (毛毛狂)   2023-12-29 19:43:00
第一個狀況,需要指定WB不然再切換WB會發生這狀況
作者: salqv (~.~)   2023-12-30 06:45:00
1.前面是不是有切換檔案之類的動作?select之前要先切回檔案和工作表。2.新版本不確定,舊版本最後一列是65536。
作者: waiter337 (給開司一罐蘇格登)   2022-01-01 02:04:00
cells(rows.count,2)1的問題 可能n爆了 或者n是0 變成a0
作者: chunchanhung (毛毛狂)   2023-12-31 22:23:00
第二點可以用cells(rows.count,1) 來避免新舊版本欄位最大值 不同問題
作者: h02158 (阿益)   2022-01-02 11:20:00
ch大,因為VBA是之前離職的員工寫的,我對VBA了解尚淺,只能做小修改,能告訴我第二狀況要把cells(rows.count,1)這個加在哪或是在哪個地方修改嗎?sa大,都是在同一個檔案做動作,只是會在不同工作表切來切去wa大,cells(rows.count,2)這個要加在哪或在哪裡修改呢?
作者: newacc (XD)   2022-01-02 13:34:00
把Range("B1048576")改成Cells(Rows.Count, 2)
作者: h02158 (阿益)   2022-01-02 13:55:00
謝謝n大,但我改完還是溢位 https://i.imgur.com/si6Ii9S.jpghttps://i.imgur.com/JAPLRDk.jpg
作者: newacc (XD)   2022-01-03 11:40:00
Dim k5 As Long 不要用integer

Links booklink

Contact Us: admin [ a t ] ucptt.com