[已解决]谁给详细解释一下这段代码

学习E

• Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
• If Target.Row > 1 And Target.Column = 2 Then
•     If Len(Cells(Target.Row, 1)) Then
•         Cancel = True
•         If Target = "不显示" Or Target = "" Then
•             Target = "显示"
•         Else
•             Target = "不显示"
•         End If
•     End If
• End If
• End Sub
  

谢谢了。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-29 11:03

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 And Target.Column = 2 Then '限制双击单元格 大于1行，等于2列（B列）
    If Len(Cells(Target.Row, 1)) Then '双击单元的 左边单元格 必须不为空！（字符数大于0）
        Cancel = True '单元格不进入编辑状态
        If Target = "不显示" Or Target = "" Then '如果 单元格 原值是（不显示或为空）时
            Target = "显示" '单元格 值改为 “显示”
        Else                  '否则
            Target = "不显示" '单元格 值改为 “不显示”
        End If
    End If
End If
End Sub

跳转到最佳答案楼层

mxg825

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 And Target.Column = 2 Then '限制双击单元格 大于1行，等于2列（B列）
    If Len(Cells(Target.Row, 1)) Then '双击单元的 左边单元格 必须不为空！（字符数大于0）
        Cancel = True '单元格不进入编辑状态
        If Target = "不显示" Or Target = "" Then '如果 单元格 原值是（不显示或为空）时
            Target = "显示" '单元格 值改为 “显示”
        Else                  '否则
            Target = "不显示" '单元格 值改为 “不显示”
        End If
    End If
End If
End Sub