- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 244
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-10
              
|
2#
發表於 2011-11-30 15:46
| 只看該作者
回復 1# if208808
這種效果值只需用工作表保護就能達成
若非要使用VBA
最簡單的做法就是用Worksheet_SelectionChange事件來控制
當選擇此範圍時，就自動跳脫該範圍- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Not Intersect(Target, Range("C5:C7")) Is Nothing Then [A1].Select
- End Sub
|
|
發表於 2011-11-30 14:35
| 
