如何用VBA做到双击单元格清空指击单元格内容

wbjiqpl

liulang0808 发表于 2018-1-11 12:42
Target.Offset(0, 1).Resize(1, 3).Value = ""
少了个.，不好意思

你太客气了，是我在麻烦你帮忙，太感谢了。我现在有一段代码需与您帮我写的代码合并，您写的是a列触发，而我的这段是A列也被触发了，所以去合在一起，我的这段改为A列不触发。

1. '双击工作表单元格的时候调用查询窗口
   
2. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
3.       Dim c As Byte
   
4.     If ActiveCell.Address(0, 0) = "C3" Then ActiveCell = Date: Exit Sub  '双击录入日期
   
5.     If ActiveCell.Row > 45 Or ActiveCell.Row < 6 Or ActiveCell.Column > 5 Then Exit Sub
   
6.     If Not Range("q4").Value Then Exit Sub     '未开启双击单元格查询功能则退出子程序
   
7.     Cancel = True                   '取消双击的默认操作
   
8.     With Sheet4
   
9.         c = .Range("A1").End(xlToRight).Column
   
10.         If c = 256 Then Exit Sub
    
11.         ArrCaption = .Range("A1:" & Chr(64 + c) & "1")  '再次初始化ArrCaption
    
12.     End With
    
13.     Select Case ActiveCell.Column
    
14.     Case 2, 3, 5
    
15.         c = WorksheetFunction.Match(Cells(5, ActiveCell.Column), ArrCaption, 0) '获取列号
    
16.         With QueryForm
    
17.             .ComboBox1.Text = Cells(5, ActiveCell.Column)   '显示查询的列号
    
18.             Call FillLvw(.ListView1, c, ActiveCell.Value)   '查询
    
19.             .Cmd_OK.Enabled = True                          '使录入按钮可用
    
20.             .Show
    
21.         InPutRow = ActiveCell.Row
    
22.         End With
    
23.     Case Else
    
24.         QueryForm.Show
    
25.     End Select
    
26. End Sub

复制代码

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.     If Application.Intersect([a2:a50], Target) Is Nothing Then Exit Sub
   
4. 
   
5.     Target.Offset(0, 1).Resize(1, 3).Value = ""
   
6.     r = Target.Row
   
7.     Cells(r, "g") = ""
   
8.     Cells(r, "j") = ""
   
9.     Cells(r, "u") = ""
   
10. End Sub

复制代码

wbjiqpl

liulang0808 发表于 2018-1-11 12:42
Target.Offset(0, 1).Resize(1, 3).Value = ""
少了个.，不好意思

老师您好，，我的这两段代码是不是不能合并？？？？？？？

liulang0808

a列跟A列都是指第一列吧？？？

wbjiqpl

liulang0808 发表于 2018-1-14 20:00
a列跟A列都是指第一列吧？？？

是的，长的代码需要取消A列双击会弹有窗口。然后合上您写的代码，双击A1列单元格清空当前行指定的单元格。

liulang0808

wbjiqpl 发表于 2018-1-14 22:51
是的，长的代码需要取消A列双击会弹有窗口。然后合上您写的代码，双击A1列单元格清空当前行指定的单元格 ...

建议楼主上传代码针对的附件，并结合自己的需求具体描述下

wbjiqpl

liulang0808 发表于 2018-1-15 07:15
建议楼主上传代码针对的附件，并结合自己的需求具体描述下

已上传附件在16楼，还麻烦帮我看看怎么改。谢谢！

wbjiqpl

liulang0808 发表于 2018-1-15 07:15
建议楼主上传代码针对的附件，并结合自己的需求具体描述下

老师，能否帮个时间帮我看一下。

liulang0808

wbjiqpl 发表于 2018-1-18 19:17
老师，能否帮个时间帮我看一下。

楼主的需求，看不明白
到底要做什么，请结合附件，举例描述下
另外附件中有相关控件，打不开的

zyhui1961

wbjiqpl 发表于 2018-1-18 19:17
老师，能否帮个时间帮我看一下。

给个双击E6:J8单元格触发事件的代码呗，谢谢！

zyhui1961

liulang0808 发表于 2018-1-19 07:11
楼主的需求，看不明白
到底要做什么，请结合附件，举例描述下
另外附件中有相关控件，打不开的

大师您好！能不能给一个双击Sheet（您好）工作表的K8单元格，触发事件的代码？谢谢！！！