|
这几天忙,没时间上。前面加一句 if Target.column<=7 then exit sub。见代码。- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim T As Range, T1 As Range
- Dim R, C, Str, Colr, xLong
- Set T = Target: R = T.Row: C = T.Column
- If C <= 7 Then Exit Sub
- Set T1 = Cells(4, C)
- Str = IIf(T = "√", "×", "√")
- Colr = IIf(T = "√", 46, 6)
- If (R >= 5 And R <= 13 And R Mod 2 = 1) And T.Count = 1 Then
- If T1 = "编辑" And T.Offset(0, -1) = "×" Then MsgBox "设置工作表不能打开情况下,默认不能编辑!": Exit Sub
- xLong = IIf(T1 = "打开" And T.Value = "√", 2, 1)
- T.Resize(1, xLong) = Str
- T.Resize(1, xLong).Interior.ColorIndex = Colr
- T1.Select
- End If
- End Sub
复制代码 |
评分
-
查看全部评分
|