標題: 偵錯 , 不懂它錯的定義要如何修改 ? [打印本頁]

---

作者: oliwa    時間: 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    時間: 2015-3-26 11:34

可以試試看 把
.Activate
砍掉 只留
.Select

---

作者: oliwa    時間: 2015-3-26 14:21

回復 2# k123456770


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

---

作者: k123456770    時間: 2015-3-26 17:15

重頭寫過
是否就是少了
.Activate
才正常?

---

作者: sghsgh1111    時間: 2015-3-28 23:18

工作表 sheets 的可以用 activate 嗎?
應該是要用 select 吧

---

作者: oliwa    時間: 2015-3-29 19:28

回復 5# sghsgh1111

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

---

作者: minture3    時間: 2015-3-31 12:06

我也是時常COPY來COPY去的
最後也是找不到問題所在

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)