返回列表 上一主題 發帖

[發問] range 方法 worksheet 物件失敗

准提部林

帖子
2805 
主題
10 
精華
0 
積分
2861 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-4 
1# 跳轉到 »
發表於 2020-8-1 12:22 | 顯示全部帖子
第一行加這看看~~
If ActiveSheet.Name <> "即時行情" Then Exit Sub

TOP

准提部林

帖子
2805 
主題
10 
精華
0 
積分
2861 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-4 
2#
發表於 2020-8-6 10:46 | 顯示全部帖子
回復 5# t8899

程式碼不完整, 猜不出~~
程式第一行用 ON ERROR RESUME NEXT 吧!

TOP

准提部林

帖子
2805 
主題
10 
精華
0 
積分
2861 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-4 
3#
發表於 2020-8-6 13:22 | 顯示全部帖子
On Error GoTo 999
If Sheets("即時行情2").Range("az5") = 1 And _
   Sheets("即時行情").Range("a2000").End(xlUp).Offset(1).Row = _
   ActiveWindow.VisibleRange.Row + ActiveWindow.VisibleRange.Rows.Count - 3 Then
   Sheets("即時行情").Range("az5") = 2
   Dim Aer
   Set Aer = Range("a2000").End(xlUp).Offset(-5)
   ActiveWindow.ScrollRow = Aer.Row
   Set Aer = Nothing
   Sheets("即時行情").Range("az5") = 1
End If
999: On Error GoTo 0

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題