Question

如果用户从下拉列表（组合框）中选择特定值，我试图阻止文本框。我试图根据特定组合框中的值更改文本框背景颜色。我已经创建了下面的代码并且能够使它工作，但它只有在我手动运行vba中的宏时才有效。你可以帮我解决这个问题。感谢

http_post()

致电净值

End Sub

Answer 1

您需要将换色部分输出到combobox1_Change() Sub

双击ComboBox，然后将其粘贴到出现的Private Sub ComboBox1_Change()子目录中。

 Private Sub ComboBox1_Change()

      If ComboBox1.Value = "NON-CONFORMANCE" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "BOM CHANGE" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "WOC" Then
          Me.discqty.Value = ""
          Me.discqty.BackColor = lngBlack
      ElseIf ComboBox1.Value = "LOST PART" Then
          Me.discqty.BackColor = lngWhite
      ElseIf ComboBox1.Value = "DAMAGE/DESTROYED" Then
          Me.discqty.BackColor = lngWhite
      ElseIf ComboBox1.Value = "QA/QC ISSUE" Then
          Me.discqty.BackColor = lngWhite
      End If

 End Sub

如何使用if语句更改文本框背景色？

1 个答案: