[求助]如何做到鼠标单击单元格勾选、双击则打叉？

blzyj

单击右键 gHuG2bmi.rar (6.22 KB, 下载次数: 138)

2006-5-23 20:42 上传

点击文件名下载附件
[求助]如何做到鼠标单击单元格勾选、双击则打叉？

雨雪霏霏

这是blzyj兄的编码： Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target = "√" With Target.Interior .ColorIndex = 3 End With End Sub Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Target = "×" With Target.Interior .ColorIndex = xlNone End With End Sub

　　　谢谢blzyj兄给了我如此细心的设计，真是感激不尽！ 　　　只是小弟在使用时还觉得有些不方便——单击右键确实就输入“×”号了，可右键菜单也随之出现，挡住了视线，颇影响了操作速度。 　　　小弟还想再请大家帮帮忙，能否有进一步的解决方法？先谢下了！

雨雪霏霏

　　Excel版块的帖沉得好快——看来，EH也真可以与Excel 2007官方帮助文件同名了。

　　小弟细看了帮助文件很久了，就是找不到单击事件的编码，当初提出的问题还没有得到完全解决，仍请大家帮忙！谢谢！

michaelking

大家好，这个列子我也有用，可能不能做到只在固定的列或行才可以使用呢？ 先谢谢了。

雨雪霏霏

刚才正在大量录入“√”。顶起，求助！谢谢！

雨雪霏霏

帖子沉得太快，顶起几次了，问题仍然困扰着小弟。

不敢再三麻烦大家，最后一次顶起，请求各位帮忙。小弟深谢！

兰色幻想

Dim MM '声明公共变量 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '使用双击事件 If Target.Row < 10 And Target.Column < 10 Then 可填充区域 Target.Value = "×" '单元格中填充× End If End Sub Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) '使用右键单击事件 If Target.Row < 10 And Target.Column < 10 Then 可填充区域 Application.CommandBars("cell").Enabled = False 屏蔽右键菜单 Target.Interior.ColorIndex = 3 填充颜色 Else Application.CommandBars("cell").Enabled = True 恢复右键菜单 End If Target = MM 还原单元格内容,因为在单右键单击事件的同时也会激发单击事件而填入对号. End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 选取事件 MM = Target 取得单元格原值 If Target.Row < 10 And Target.Column < 10 Then 可填充区域 Target.Value = "√" 填充"√" End If End Sub Py83kBJ7.rar (7.08 KB, 下载次数: 534)

2006-5-25 08:34 上传

点击文件名下载附件
[求助]如何做到鼠标单击单元格勾选、双击则打叉？

[此贴子已经被作者于2006-5-25 8:41:05编辑过]

shengshizi

验证了，果然不错，佩服！

雨雪霏霏

　　感谢版主的出手！问题圆满解决！

　　百务缠身的版主一大早就为小弟的问题忙开了，还即时发了短消息给小弟，回到Excel版块一看回复，真让小弟又感动又过意不去！

　　很感谢Excel版块众兄弟对小弟的照拂！最后一次顶起后，已打算好遵照费心帮了小弟大忙的二楼mcy318兄弟的嘱咐，自己好好去想（估计得好好学习VBA两个月之后才能想清楚，不过那时很可能已经用“数据有效性”的方法完成了“大量录入”工作），可没想到这问题竟能得到版主的用心，替小弟及14楼兄弟解决得异常爽朗悦目，此法大可以让小弟把异常枯燥的原来三个小时才能完成的工作用一个小时全部完成——而且是带着感激、好奇之心来完成的，感谢兄弟们的帮忙，感谢兰色幻想版主的完美解答！

　　小弟正在好好琢磨版主的编码（非常感谢版主细致地加了注释——看得出兰色幻想版主助人到底的苦心），心里也真感叹：以我现在的水平，要真弄出这些，还真不知道什么时候呢！再一次谢谢兄弟们、兰色幻想版主！

　　小弟日后一定来向大家好好学习！因为在这里，我又再次感受到了“家”的温暖——第一次是在Word版块，困扰了几年的日记模板问题，在EH发出平生第一帖，Konggs兄（那时还不是版主）即费了几天功夫帮小弟彻底解决——今天一大早在这里又得到兰色幻想版主的用心相助，异常感动！

　　唠叨许多，只因“家”里有“好兄弟”！呵呵，举杯遥敬！

hhzjxss

谢谢版主，知道了，学习了，用了一下，好用！