谢谢mcy318的详细指点!希望小弟自己思考以求进步的教导,良苦用心,小弟感铭! 恕小弟愚钝,Excel VBA还几乎不懂,琢磨了两个小时了,还是无法对mcy318的方案进行编改实现单击单元格即可出现“√”效果。 目前的所得是将mcy318兄2楼编码中的“√”改为“×”,实现了鼠标双击单元格即出现“×”与红色底纹的效果。 至于单击事件该如何编码,小弟搜索到了网上如下内容 Private Sub WorksheetSelectionChange(ByVal Target As Range) If Target.EntireRow.Interior.ColorIndex10 Then Target.EntireRow.Interior.ColorIndex = 10Else Target.EntireRow.Interior.ColorIndex = 0 End If End Sub 需要查看某行记录,只需单击该行中的任一单元格,此时该行将会自动填充绿色并高亮显示(若需改为其它颜色只需改变代码中相应的数值即可),再次单击该行中任一单元格将取消背景色的填充。另外可同时使多行记录填充背景,以方便查看或对比表格中的数据。
只可怜小弟还无法加以变通——实在要请mcy318兄恕罪了! 另外小弟在搜索到这段文字及测试mcy318兄的编码后,想到了如下的方案,还请大家帮忙: ①鼠标单击单元格,出现“√”;假如误点了这个单元格,需要清空,则再一次单击此单元格即可完成。 ②鼠标双击单元格即出现“×”与红色底纹(已由mcy318兄的编码实现),但若是误点了这个单元格,取消的方法亦是再一次单击此单元格。 ③假若只要出现红色底纹,在实现了以上两种要求的前提下,是否以手工清除第二种要求下产生的“×”为最佳方案? 谢谢大家的帮助!
[此贴子已经被作者于2006-5-22 17:40:37编辑过] |