用戶表單根據單元格值更改文本框顏色

Question

我試圖根據文本框中的值與 C10 中的單元格值相比更改用戶窗體中文本框的顏色，即如果文本框值為 9，單元格值為 10，則顏色為綠色

無論輸入的值如何，以下代碼都使文本框具有相同的顏色

Private Sub TextBox16_Change()
If ActiveSheet.Range("C10").Value > TextBox16.Value Then
    Me.TextBox16.ForeColor = &H8000000D
    Me.TextBox16.BackColor = &HFF&
Else
    Me.TextBox16.ForeColor = &HFF&
    Me.TextBox16.BackColor = &H8000000D
End If

End Sub

謝謝，

Answer 1

試試這個If ActiveSheet.Range("C10").Value > CLng(TextBox16.Value) Then
但是您需要添加一些錯誤處理，因為當文本框變空時，或者數字以外的其他值時，您最終會出現“type mismath”錯誤。