- 帖子
- 552
- 主題
- 6
- 精華
- 0
- 積分
- 576
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2026-9-10
  
|
回復 1# msmplay
看起來好像複雜化了,若只有點選反白只要如下代碼即可- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Column <= 15 And Target.Column >= 9 And Target.Row >= 7 And Target.Row <= 18 Then '選擇I7:O18才執行
- Range(Cells(Target.Row, "i"), Cells(Target.Row, "o")).Select'把選擇的範圍Row再擴大為 I 到 O 選擇
- End If
- End Sub
複製代碼 |
|