怎么改变文本框里个别字颜色？

marmot777

加载时间，然后输出到文本框里。

Sub 显示时间()

Dim t As Date

Dim txtBox As Shape

    t = Time ' 获取时间   

    Set txtBox = ActiveSheet.Shapes.AddTextbox(_

        msoTextOrientationHorizontal, _

        Left:=1, Top:=1, Width:=370, Height:=70)  ' 添加文本框

        txtBox.TextFrame2.TextRange.Font.Size =48 ' 设置文本框文字大小

   txtBox.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(16, 16, 240)   ' 设置文本框字体颜色   

   txtBox.Fill.ForeColor.RGB = RGB(255, 255,160)

   txtBox.Fill.Visible = msoTrue   ' 设置文本框背景颜色  

   txtBox.TextFrame2.TextRange.Font.Bold =msoTrue' 设置文本框字体加粗

txtBox.TextFrame2.TextRange.Text = t ' 设置文本框内容

End Sub

如果显示数值里面有“8”，那么单独设置8为黄色，如果显示数值里面有“9”，那么单独设置9为绿色，这段代码怎么写？

小凡、、、

循环每个字符判断，用Characters . Font 修改单个字体颜色

饮冰e士

1. Option Explicit
   
2. 
   
3. Sub 显示时间()
   
4. Dim t As Date, s$
   
5. Dim txtBox As Shape
   
6.     t = Time ' 获取时间
   
7.     s = "第8个和第9个。"
   
8.     Set txtBox = ActiveSheet.Shapes.AddTextbox( _
   
9.         msoTextOrientationHorizontal, _
   
10.         Left:=1, Top:=1, Width:=370, Height:=70)
    
11.         txtBox.TextFrame2.TextRange.Font.Size = 48 ' 添加文本框
    
12.    txtBox.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(16, 16, 240)   ' 设置文本框字体颜色
    
13.    txtBox.Fill.ForeColor.RGB = RGB(255, 255, 160)
    
14.    txtBox.Fill.Visible = msoTrue   ' 设置文本框背景颜色
    
15.    txtBox.TextFrame2.TextRange.Font.Bold = msoTrue ' 设置文本框字体加粗
    
16.    txtBox.TextFrame2.TextRange.Text = s
    
17.    txtBox.TextFrame2.TextRange.Characters(InStr(s, "8"), 1).Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
    
18.    txtBox.TextFrame2.TextRange.Characters(InStr(s, "9"), 1).Font.Fill.ForeColor.RGB = RGB(0, 176, 80)
    
19. End Sub

复制代码

quqiyuan

参与一下，不知道是否你的要求，供参考、、、

jsh123

假如想让某个单元格不等于30时，让单元格填充红色并闪烁，怎么实现

songshihai

饮冰e士 发表于 2024-7-25 22:11

窗体里的文本框,列表框可以做到这效果不?

marmot777

quqiyuan 发表于 2024-7-25 22:42
参与一下，不知道是否你的要求，供参考、、、

这段代码运行正常。
但是我把数字改成文字就不好使了。

Sub 显示文字()
a = "开平成交"
       Set txtBox = ActiveSheet.Shapes.AddTextbox( _
        msoTextOrientationHorizontal, _
        Left:=1, Top:=1, Width:=370, Height:=70)
' 添加文本框
   txtBox.TextFrame2.TextRange.Font.Size = 48 ' 设置文本框文字大小
   txtBox.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(16, 16, 240)   ' 设置文本框字体颜色
   txtBox.Fill.ForeColor.RGB = RGB(255, 255, 160)
   txtBox.Fill.Visible = msoTrue   ' 设置文本框背景颜色
   txtBox.TextFrame2.TextRange.Font.Bold = msoTrue ' 设置文本框字体加粗
   txtBox.TextFrame2.TextRange.Text = a   '设置文本框内容
   For i = 1 To Len(a)
   If Mid(a, i, 1) = 成 Then txtBox.TextFrame.Characters(i, 1).Font.Color = vbGreen
   If Mid(a, i, 1) = 交 Then txtBox.TextFrame.Characters(i, 1).Font.Color = vbGreen
   Next
   End Sub
这是什么原因呢？

shenjianrong163

marmot777 发表于 2024-7-26 14:07
这段代码运行正常。
但是我把数字改成文字就不好使了。

   If Mid(a, i, 1) = "成" Then txtBox.TextFrame.Characters(i, 1).Font.Color = vbGreen
   If Mid(a, i, 1) = "交" Then txtBox.TextFrame.Characters(i, 1).Font.Color = vbGreen

quqiyuan

marmot777 发表于 2024-7-26 14:07
这段代码运行正常。
但是我把数字改成文字就不好使了。

marmot777

quqiyuan 发表于 2024-7-26 16:03

看到了。谢谢。