- 帖子
- 40
- 主題
- 11
- 精華
- 0
- 積分
- 100
- 點名
- 0
- 作業系統
- Win8
- 軟體版本
- Office2013
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2014-12-9
- 最後登錄
- 2021-7-2
 
|
偵錯 , 不懂它錯的定義要如何修改 ?
' 建立查詢連結
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 |
|
發表於 2015-3-26 11:01
| 
