텍스트 영역의 글꼴 색 변경

Question

Excel에서 텍스트 영역을 셀에 연결했습니다. 글꼴 값은 셀 값을 기반으로 변경됩니다. 불행히도 연결된 셀이 변경되면 텍스트 영역의 글꼴 색이 변경되지 않습니다. 텍스트 영역을 열고 Enter 키를 누르면 색상이 변경됩니다.

모든 단일 텍스트 영역을 누르고 Enter 키를 누르는 것이 너무 많은 작업이기 때문에 자동화 할 수있는 방법이 있습니까?

Answer 1

동일한 시트의 ActiveX 텍스트 상자에 A1 셀을 연결했다고 가정 해보십시오.

셀 A1 = 1이면 텍스트 상자의 forecolor를 빨강으로, 그 밖의 경우에는 blue로 지정합니다. 텍스트 상자의 코드에서

:

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