麻辣家族討論版版 » Excel程式區 » 偵錯 , 不懂它錯的定義要如何修改 ?

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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

樓主熱帖

收藏

中學生 Rank: 2

帖子: 42
主題: 4
精華: 0
積分: 56
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2014-1-10
最後登錄: 2019-5-9

2^#

發表於 2015-3-26 11:34 | 只看該作者

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

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2015-3-26 14:21 | 只看該作者

回復 2# k123456770

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

中學生 Rank: 2

帖子: 42
主題: 4
精華: 0
積分: 56
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2014-1-10
最後登錄: 2019-5-9

4^#

發表於 2015-3-26 17:15 | 只看該作者

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

中學生 Rank: 2

帖子: 29
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: WinXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-3-2
最後登錄: 2015-6-1

5^#

發表於 2015-3-28 23:18 | 只看該作者

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

中學生 Rank: 2

帖子: 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去 , 所以不知問題如何解決 ,
已刪除不用這個例子了 ...

中學生 Rank: 2

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

7^#

發表於 2015-3-31 12:06 | 只看該作者

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

靜思自在 : 有時當思無時苦，好天要積雨來糧。

返回列表下一主題上一主題