返回列表 上一主題 發帖

偵錯 , 不懂它錯的定義要如何修改 ?

oliwa

帖子
40 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win8 
軟體版本
Office2013 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-9 
最後登錄
2021-7-2 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-26 11:01 | 只看該作者

偵錯 , 不懂它錯的定義要如何修改 ?

' 建立查詢連結
Sub 建立查詢連結()

With Sheets("List")
.Activate
LastRow = .Cells(1, "A").End(xlDown).Row - 1

For r = 2 To LastRow
.Cells(r, "K").Select
IdSheet = .Cells(r, "A")
Sheets("IdSheet").Select.Activate

Next r

End With

End Sub
收藏 分享

k123456770

帖子
42 
主題
4 
精華
0 
積分
56 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2014-1-10 
最後登錄
2019-5-9 
2#
發表於 2015-3-26 11:34 | 只看該作者
可以試試看 把
.Activate
砍掉 只留
.Select

TOP

oliwa

帖子
40 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win8 
軟體版本
Office2013 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-9 
最後登錄
2021-7-2 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2015-3-26 14:21 | 只看該作者
回復 2# k123456770


    謝謝回覆 ,
    還是砍掉重頭來過了 .........

TOP

k123456770

帖子
42 
主題
4 
精華
0 
積分
56 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2014-1-10 
最後登錄
2019-5-9 
4#
發表於 2015-3-26 17:15 | 只看該作者
重頭寫過
是否就是少了
.Activate
才正常?

TOP

sghsgh1111

帖子
29 
主題
8 
精華
0 
積分
58 
點名
0  
作業系統
WinXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-6-1 
5#
發表於 2015-3-28 23:18 | 只看該作者
工作表 sheets 的可以用 activate 嗎?
應該是要用 select 吧

TOP

oliwa

帖子
40 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win8 
軟體版本
Office2013 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-9 
最後登錄
2021-7-2 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2015-3-29 19:28 | 只看該作者
回復 5# sghsgh1111

謝謝 , 我COPY來COPY去 , 所以不知問題如何解決 ,
已刪除不用這個例子了 ...

TOP

minture3

帖子
50 
主題
8 
精華
0 
積分
54 
點名
0  
作業系統
windows7 
軟體版本
EXCEL 2007 
閱讀權限
20 
性別
男 
註冊時間
2015-3-24 
最後登錄
2015-7-13 
7#
發表於 2015-3-31 12:06 | 只看該作者
我也是時常COPY來COPY去的
最後也是找不到問題所在

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題