Question

麻烦高手帮我看看这段VB代码有什么问题

Private Sub CommandButton1_Click()
Dim i, j
j = i - 1
For i = 8 To 999
For j = 9 To 1000
If Sheet1.Range("C" & Trim(Str(i))).Value = Sheet1.Range("C" & Trim(Str(j))).Value Then
Sheet1.Rows(i).Font.Color = RGB(255, 0, 0)
Sheet1.Rows(j).Font.Color = RGB(255, 0, 0)
End If
Next
Next
End Sub
程序运行后所有的都变红了，好像循环除了问题。麻烦高手帮忙看看，谢谢
这段代码的功能是要实现检查C列中如果有重名则这两列就字体变红。
在线等，成功立马采纳为答案！

Answer 1

'c列的数据与其他的全部不同的不变色！

Private Sub CommandButton1_Click()
Dim i, j
For i = 8 To 999
For j = i+1 To 1000 '‘、i +1
If Sheet1.Range("C" & Trim(Str(i))).Value = Sheet1.Range("C" & Trim(Str(j))).Value Then
Sheet1.Rows(i).Font.Color = RGB(255, 0, 0)
Sheet1.Rows(j).Font.Color = RGB(255, 0, 0)
End If
Next
Next
End Sub

Answer 2

朋友，建议你给个分数奖励，这样才有人回答您的问题哦

Answer 3

在窗体添加一个imagelist控件，在其属性的图像栏下插入图片，再输入图片的关键字作为其引用名称，这样救对imagelist进行了初始化、……

Answer 4

首先，保证ImageList1里面插入了图标
另外，在你的代码中加入
Me.TreeView1.ImageList
=
Me.ImageList1
我调试了你的代码，如下：
Private
Sub
Form_Load()
Dim
nd
As
Node
Me.TreeView1.ImageList
=
Me.ImageList1
Set
nd
=
TreeView1.Nodes.Add(,
,
"root",
"1",
1)
nd.Expanded
=
True
Set
nd
=
TreeView1.Nodes.Add("root",
tvwChild,
,
"2",
2)
nd.Expanded
=
True
Set
nd
=
TreeView1.Nodes.Add(,
0,
"allgoods",
"3",
2)
nd.Expanded
=
True
………………
Set
nd
=
TreeView1.Nodes.Add("aa",
tvwChild,
,
"8",
2)
nd.Expanded
=
True
End
Sub
————————————————————————————
已经通过测试，祝你好运！！