用事件程序控件,如果选择区域不在指定区域,就强制选取可编辑区域的某个单元格
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("c8:f14")) Is Nothing Then
Range("c8").Select
End If
End Sub
用事件程序控件,如果选择区域不在指定区域,就强制选取可编辑区域的某个单元格
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("c8:f14")) Is Nothing Then
Range("c8").Select
End If
End Sub