返回列表 上一主題 發帖

請教VBA 出現 400問題

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
199  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-9-29 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-3-4 19:13 | 只看該作者

請教VBA 出現 400問題

親愛的各位先進

1.若我將原始資料放置EXCEL VBA時，連續執行VBA，TEST OK
2.但若我再次按下VBA時，則會出現"400"的錯誤

請問要怎麼樣才能避免發生錯誤訊息400的出現


收藏 分享
Just do it.

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
199  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-9-29 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
2#
發表於 2017-3-4 20:21 | 只看該作者
我附的這個檔案是，跨工作表執行另一VBA(複製欄位動作)時發生錯誤
但若該VBA是在該工作表執行時，就正常
我哪裡應該要改?





拷貝問題.rar (13.63 KB)
Just do it.

TOP

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
199  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-9-29 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
3#
發表於 2017-3-4 21:13 | 只看該作者
我發現，我是卡在像    Columns 語法
向下列語法若是要跨工作表執行時，該如何寫?

Columns("C:C").Select
    Selection.Copy
    Columns("D").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Just do it.

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2017-3-4 23:24 | 只看該作者
回復 3# jsc0518
不用.Select的
  1. Sub S8()

  3.     Columns("A").Copy
  4.     Columns("B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  5.         :=False, Transpose:=False

  7. End Sub
複製代碼

TOP

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
199  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-9-29 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
5#
發表於 2017-3-5 06:27 | 只看該作者
回復 4# lpk187


感謝您的回覆
測試成功，再次謝謝您!
:)
Just do it.

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題