各位老师！帮忙修改下！

一丨丿丶乙 · 发表于 2021-3-8 09:07

If Not Application.Intersect(Target,Range("d4:d5000")) Is Nothing Then '在选定区域内双击

ActiveCell.Offset(0, 2).Range("A1") = "√" 在右面第二列打勾

Target.Offset(0, 3) = Cells(1, "G").Value '在右面第三列填入日期，日期为第一行G列

Target.Offset(0, 6) = Cells(1, "J").Value '右面第六列填入收款人，引用为第一行J列

End If

假如再次双击，将原先的填入的数据消除，该如何写啊？

谢谢！

hongshan2019 · 发表于 2021-3-8 11:08

设定个N，N为奇数填入，为偶数清除？

zjzyj · 发表于 2021-3-8 11:17

增加个判断，判断第二列是不是"√" ，如果是，就执行你上面的代码进行打"√"和写数据，如果不是的就增加清除代码将数据清除。

lhm0926 · 发表于 2021-3-8 11:46

判断打勾的单元格内是否为空，如果为空，则打勾，如果不为空，则清除

一丨丿丶乙 · 发表于 2021-3-8 17:41

zjzyj 发表于 2021-3-8 11:17
增加个判断，判断第二列是不是"√" ，如果是，就执行你上面的代码进行打"√"和写数据，如果不是的就增加清 ...

谢谢提示！但我是小白，那些都是抄来的实在不会写！能否帮忙写一段代码?

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

[求助] 各位老师！帮忙修改下！