本文主要是介绍html捉虫游戏,[讨论]大家一起来捉虫!!，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
下面是老朽写的一段代码，在测试中发现有BUG，请你也来找一找，BUG都出现在哪？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 14 Or Target = "" Then Exit Sub '如果选区超过1 个单元格 或者不在N列 或者 目标单元格为空 则退出!
Dim Rng$, My_Cell As Range, C As Range
With Range("C4:L" & UsedRange.Rows.Count)
.Interior.ColorIndex = 0 ' 对表体内容的单元格取消底色
.Font.Bold = False ' 对表体内容的单元格字体取消加粗
Set C = .Find(Target, , , xlWhole)
If Not C Is Nothing Then
FirstAddress = C.Address
Do
Rng = IIf(Rng = "", C.Address, Rng & "," & C.Address)
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstAddress
With Range(Rng)
.Interior.ColorIndex = 44 ' 对表体内容的单元格设置为指定的底色
.Font.Bold = True '对应的单元格字体加粗
End With
End If
End With
End Sub
这是附件：
H9sYrCeP.rar
(10.8 KB, 下载次数: 10)
2008-10-14 18:48 上传
点击文件名下载附件
[讨论]大家一起来捉虫!!
代码的目的：通过点击N列的名单，将C：L列与之相同的名单，用加粗+加底色来标示出来!
代码运行结果：正确
代码缺点：等你来找!
PS：看你发现的是否与老朽发现的一样多!？
[此贴子已经被作者于2008-10-14 21:09:40编辑过]
这篇关于html捉虫游戏,[讨论]大家一起来捉虫!!的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
