更改textarea字体颜色

时间:2017-12-22 09:38:27

标签: excel excel-vba vba

在excel中,我将textarea链接到一个单元格。字体颜色根据单元格值而变化。不幸的是,当链接的单元格被更改时,textarea字体颜色不会改变。当我打开textarea并按Enter键时,颜色正在改变。

有没有办法让我自动完成这项工作,因为按下每一个文本区并输入就太多了。

1 个答案:

答案 0 :(得分:0)

假设我已将单元格A1链接到同一工作表上的ActiveX文本框。

如果单元格A1 = 1,我希望文本框forecolor为红色,否则为蓝色。

在文本框代码中:

Private Sub TextBox1_Change()
    If Range("A1") = 1 Then
        Me.TextBox1.ForeColor = vbRed
    Else
        Me.TextBox1.ForeColor = vbBlue
    End If
End Sub