返回列表 上一主題 發帖

[發問] 如何避開按Enter後自動移動的設定

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-15 09:52 | 顯示全部帖子

[發問] 如何避開按Enter後自動移動的設定

巨集想在指定TargetRng範圍輸入資料後會自動右移兩格,
但如何避開按Enter 鍵後, 儲存格可能會自動向上下左右方向移動的設定, 因各電腦可能有不同設定
請問巨集應如何修改呢?
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Target_Row As Integer
  3. If Not Application.Intersect(Target, Range("TargetRng")) Is Nothing Then
  4. ActiveCell.Offset(0, 2).Select
  5. End If
  6. End Sub
複製代碼
收藏 分享

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
2#
發表於 2015-9-15 10:16 | 顯示全部帖子
是的, 謝謝你

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題