[已解决]双击不能进入编辑状态问题

yjwdjfqb · 发表于 2014-4-9 08:41

双击不能进入编辑状态问题

在测试工作表中，双击不能进入编辑状态问题
也就是不能像图这样：

hwc2ycy · 发表于 2014-4-9 08:58

里面有事件过程。

hwc2ycy · 发表于 2014-4-9 08:59

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'****************************************************************************************************************************
'指定区域单元格双击事件，双击单元格选择输入内容
With Target
If (Not Intersect(Target, Range("B2:B20")) Is Nothing) And Target.Count = 1 Then
Select Case .Value
Case ""
.Value = "文本"
Case "文本"
.Value = "图片"
Case "图片"
.Value = "条码"
Case "条码"
.Value = "文本"
End Select
End If
End With
Cancel = True
'****************************************************************************************************************************
End Sub

复制代码

在VBE中删除或注释掉这些代码就成了。

hwc2ycy · 发表于 2014-4-9 09:00

阳光生活 · 发表于 2014-4-9 09:02

11111111111111111111

yjwdjfqb · 发表于 2014-4-9 09:20

hwc2ycy 发表于 2014-4-9 08:59
在VBE中删除或注释掉这些代码就成了。

不好意思，版主，我没有表述清楚
这个单元格双击事件，是在指定的区域双击输入指定内容

解决的问题是，其它单元格不能双击进入编辑状态的问题

hwc2ycy · 发表于 2014-4-9 09:45

本帖最后由 hwc2ycy 于 2014-4-9 09:47 编辑

yjwdjfqb 发表于 2014-4-9 09:20
不好意思，版主，我没有表述清楚
这个单元格双击事件，是在指定的区域双击输入指定内容

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'****************************************************************************************************************************
'指定区域单元格双击事件，双击单元格选择输入内容
With Target
If (Not Intersect(Target, Range("B2:B20")) Is Nothing) And Target.Count = 1 Then
Select Case .Value
Case ""
.Value = "文本"
Case "文本"
.Value = "图片"
Case "图片"
.Value = "条码"
Case "条码"
.Value = "文本"
End Select
Cancel = True
End If
End With
End Sub

复制代码

hwc2ycy · 发表于 2014-4-9 09:47

yjwdjfqb · 发表于 2014-4-9 13:42

hwc2ycy 发表于 2014-4-9 09:47

感谢版主的帮助，本来应该点这个最佳的，点错了，这个才是最佳的！

hwc2ycy · 发表于 2014-4-9 13:47

yjwdjfqb 发表于 2014-4-9 13:42
感谢版主的帮助，本来应该点这个最佳的，点错了，这个才是最佳的！

没事。

		自动登录	找回密码
密码			注册