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

wbjiqpl

如双击A2后清空当前行的b2:d2,g2,j2,u2这些单元格的内容，双击A3就真空第三行指定的这些单元格的内容，工作表需要循环到a50。

heng2131

请测试附件。知识有限，如有错误，短时间内时无能为力了。
双击后清除.rar (7.34 KB, 下载次数: 26)

2018-1-10 23:32 上传

点击文件名下载附件

wbjiqpl

heng2131 发表于 2018-1-10 23:33
请测试附件。知识有限，如有错误，短时间内时无能为力了。

里面没代码。。。。。。。。

liulang0808

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.Resize(1, 4).Value = ""
   
6.     r = Target.Row
   
7.     Cells(r, "g") = ""
   
8.     Cells(r, "j") = ""
   
9.     Cells(r, "u") = ""
   
10. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

wbjiqpl

liulang0808 发表于 2018-1-11 08:48

非常感谢，你的代码正是我需要的。麻烦你再帮我改一下，我A列不想被清空

liulang0808

Target.Resize(1, 4).Value = ""
修改下Target.offset(0,1)Resize(1, 3).Value = ""

wbjiqpl

liulang0808 发表于 2018-1-11 12:24
Target.Resize(1, 4).Value = ""
修改下Target.offset(0,1)Resize(1, 3).Value = ""

提示错误。。。。。。。。。

liulang0808

Target.Offset(0, 1).Resize(1, 3).Value = ""
少了个.，不好意思

wbjiqpl

您太客气了，是我求你帮忙，非常感谢。我还有一段代码，有时间帮我合一下，下面的一段他是双击A1也被触发了，而您帮我写的是只需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

复制代码