[已解决]请教加底纹颜色的问题。

silenthunter

以下代码，是在循环里判断，有了就改变底纹颜色。但如果数据多，就想放进数组里循环来找快点，可在数组里找到了，又怎么对应地给单元格加底纹呢？毕竟到了数组里的内存已经脱离单元格了，无法再简单地用Rows(i)解决。


Private Sub find_Click()
Dim Exist As Boolean: Exist = False
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
CompanyName = InputBox("请输入要查询的公司名称：", "查询")
For i = 1 To LastRow
   If Cells(i, 1) = CompanyName Then
      Exist = True
      Rows(i).Interior.ColorIndex = 27
      Exit For
   End If
Next i
If Exist = False Then
   MsgBox "没有找到“" & CompanyName & "”，请确认内容是否正确。", vbCritical, "没有找到指定内容。"
End If
End Sub
End Sub

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-1 15:13

变量exist 是VBA的关键字，应该改一下才行。再加一句，如果用户没有输入就直接退出：
If companyname = "" Then Exit Sub


Private Sub find_Click()

Dim Existtt As Boolean: Existtt = False
Dim lastrow&, arr, companyname$, i&
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a1:a" & lastrow)
companyname = InputBox("请输入要查询的公司名称：", "查询")
If companyname = "" Then Exit Sub
For i = 1 To lastrow
   If arr(i, 1) = companyname Then
      Existtt = True
      Rows(i).Interior.ColorIndex = 27
      Exit For
   End If
Next i
If Existtt = False Then
   MsgBox "没有找到“" & companyname & "”，请确认内容是否正确。", vbCritical, "没有找到指定内容。"
End If
End Sub

跳转到最佳答案楼层

yyyydddd8888

Private Sub find_Click()
Dim Existtt As Boolean: Existtt = False
Dim lastrow&, arr, companyname$, i&
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a1:a" & lastrow)
companyname = InputBox("请输入要查询的公司名称：", "查询")
if companyname="" then exit sub
For i = 1 To lastrow
   If arr(i, 1) = companyname Then
      Existtt = True
      Rows(i).Interior.ColorIndex = 27
      Exit For
   End If
Next i
If Existtt = False Then
   MsgBox "没有找到“" & companyname & "”，请确认内容是否正确。", vbCritical, "没有找到指定内容。"
End If
End Sub

silenthunter

yyyydddd8888 发表于 2013-12-1 15:09
Private Sub find_Click()
Dim Exist As Boolean: Exist = False
Dim lastrow&, arr

哦，我还是比较笨的。原来就这么简单地改一下就行了。

yyyydddd8888

变量exist 是VBA的关键字，应该改一下才行。再加一句，如果用户没有输入就直接退出：
If companyname = "" Then Exit Sub


Private Sub find_Click()

Dim Existtt As Boolean: Existtt = False
Dim lastrow&, arr, companyname$, i&
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a1:a" & lastrow)
companyname = InputBox("请输入要查询的公司名称：", "查询")
If companyname = "" Then Exit Sub
For i = 1 To lastrow
   If arr(i, 1) = companyname Then
      Existtt = True
      Rows(i).Interior.ColorIndex = 27
      Exit For
   End If
Next i
If Existtt = False Then
   MsgBox "没有找到“" & companyname & "”，请确认内容是否正确。", vbCritical, "没有找到指定内容。"
End If
End Sub

yyyydddd8888

如果有问题请及时联系，如果可以用请帮忙评个最佳，谢谢！