返回列表 上一主題 發帖

[發問] 類似Ctrl+F的功能

cw3076

帖子
42 
主題
12 
精華
0 
積分
283 
點名
1  
作業系統
WINDOWS XP 
軟體版本
SP2 
閱讀權限
20 
來自
KAOHSIUNG 
註冊時間
2010-5-8 
最後登錄
2024-2-18 
1# 跳轉到 »
發表於 2016-12-14 21:47 | 顯示全部帖子
Worksheets("Sheet1").[D:E].Find([A2]).Activate

TOP

cw3076

帖子
42 
主題
12 
精華
0 
積分
283 
點名
1  
作業系統
WINDOWS XP 
軟體版本
SP2 
閱讀權限
20 
來自
KAOHSIUNG 
註冊時間
2010-5-8 
最後登錄
2024-2-18 
2#
發表於 2017-2-16 21:21 | 顯示全部帖子
你好 michael101772,
如要讓錯誤不要出現可以在上方加入
On Error Resume Next
意思指表示當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式，而繼續執行下去。

TOP

cw3076

帖子
42 
主題
12 
精華
0 
積分
283 
點名
1  
作業系統
WINDOWS XP 
軟體版本
SP2 
閱讀權限
20 
來自
KAOHSIUNG 
註冊時間
2010-5-8 
最後登錄
2024-2-18 
3#
發表於 2017-2-18 23:50 | 顯示全部帖子
Hello jsc0518 你好,
如果在執行搜尋前讓當前位置的儲存格先下移一格再搜尋以避開停留的問題是否可以解決

ActiveCell.Offset(1, 0).Activate

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題