请问下这段代码执行完毕后,如何给字体添加颜色

tv2531507 · 发表于 2024-4-10 11:09

Private Sub TextBox1_Change()
If Len(TextBox1.Value) = 0 Then
Sheet1.AutoFilterMode = False
Else
If Sheet1.AutoFilterMode = True Then
Sheet1.AutoFilterMode = False
End If
Sheet1.Range("B2:E" & Rows.Count).AutoFilter _
field:=1, field:=2, field:=3, Criteria1:="*" & TextBox1.Value & "*"
End If
ActiveWindow.SmallScroll Down:=-120
End Sub

不是单元格显示颜色,是搜出来的结果,字体指定的颜色
例如搜索工程部,工程部这几个字的显示蓝色

半百 · 发表于 2024-4-10 12:53

在筛选出的区域循环一下？

半百 · 发表于 2024-4-10 13:01

如果一个单元格中有多处匹配的话

tv2531507 · 发表于 2024-4-10 17:16

本帖最后由 tv2531507 于 2024-4-10 17:31 编辑

半百发表于 2024-4-10 13:01
如果一个单元格中有多处匹配的话

如果输入关键字找不到,光标老在打圆圈,表格假死....不行呀大佬

例如工程部, 输入为弓程部,查询后老打圆圈,导出表格卡死

		自动登录	找回密码
密码			免费注册

[求助] 请问下这段代码执行完毕后,如何给字体添加颜色

评分