vba 点击一个按钮,输入文字后,单元格中包含该文字的字符变颜色,其他文字不变。文字字数不固定。
答案:2 悬赏:0
解决时间 2021-03-03 23:30
- 提问者网友:孤笛钟情你
- 2021-03-03 00:47
vba 点击一个按钮,输入文字后,单元格中包含该文字的字符变颜色,其他文字不变。文字字数不固定。
最佳答案
- 二级知识专家网友:有钳、任性
- 2021-03-03 02:12
Sub 按钮1_Click()
Dim strF As String '查找字符
strF = InputBox("请输入更改颜色的所有字符:", "输入")
Sheets(1).Range("A1").Characters.Font.Color = 0 '先把字体全部变成默认黑色
For i = 1 To Len(Sheets(1).Range("A1").Text)
If InStr(strF, Mid(Sheets(1).Range("A1").Text, i, 1)) Then Sheets(1).Range("A1").Characters(Start:=i, Length:=1).Font.Color = -16776961
Next i
End Sub
添加按钮,指定宏,编辑代码。
上面处理Sheet1表中的A1单元格内容,单价按钮后提示输入字符,A1中如果存在输入的字符,那么这些字符变成红色,其他的字符是黑色。
要处理的单元格可以更改。可以更改成ActiveCell,如果处理多个单元格,稍微处理一下代码也可以做到。
Dim strF As String '查找字符
strF = InputBox("请输入更改颜色的所有字符:", "输入")
Sheets(1).Range("A1").Characters.Font.Color = 0 '先把字体全部变成默认黑色
For i = 1 To Len(Sheets(1).Range("A1").Text)
If InStr(strF, Mid(Sheets(1).Range("A1").Text, i, 1)) Then Sheets(1).Range("A1").Characters(Start:=i, Length:=1).Font.Color = -16776961
Next i
End Sub
添加按钮,指定宏,编辑代码。
上面处理Sheet1表中的A1单元格内容,单价按钮后提示输入字符,A1中如果存在输入的字符,那么这些字符变成红色,其他的字符是黑色。
要处理的单元格可以更改。可以更改成ActiveCell,如果处理多个单元格,稍微处理一下代码也可以做到。
全部回答
- 1楼网友:萝莉姐姐鹿小北
- 2021-03-03 03:48
搜一下:vba 点击一个按钮,输入文字后,单元格中包含该文字的字符变颜色,其他文字不变。文字字数不固定。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯