如何在 if 语句中使用组合框

Question

我正在开发这个程序，你可以填写你需要多少表面和你想要的颜色，然后你会得到颜色的配方。但是我在组合框选择颜色时遇到了一个小问题，我似乎无法修复它，有人可以帮助我吗？这是我编写的代码（我对 vba 很陌生）

Dim X As Integer
Dim A As Integer
Dim B As Integer

Private Sub UserForm_Initialize()

    With ComboBox1
        .AddItem "Colour1"
        .AddItem "Colour2"
        .AddItem "Colour3"
    End With

End Sub

Private Sub CommandButton1_Click()

    X = TextBox1.Text
    Range("B2") = X

    Range("B9").Value = A
    Range("B10").Value = B

End Sub

Private Sub ComboBox_Change()

    If ComboBox1.Text = "Colour1" Then
        A = 3 And B = 5

    ElseIf ComboBox1.Text = "Colour2" Then
        A = 7 And B = 6

    ElseIf ComboBox1.Text = "Colour3" Then
        A = 4 And B = 8

    End If

End Sub

由于某种原因，我所做的部分是 if 语句不起作用。

Answer 1

我看到的一些东西。

您的ComboBox_Change 必须是ComboBox1_Change，因此您没有引用正确的ComboBox。

您将string 分配给Integer 变量。你应该更喜欢Dim X as String。

如果您希望 A 和 B 变量在该模块的所有 Subs 中可用，那么您需要使用 Public A and Integer。否则A 和B 中将没有值。

您还需要引用Sheet，其中Range("B9") 和Range("B10")。因此，如果它在 sheet1 中，那么 ThisWorkBook.Sheets("sheet1").Range("B9").

见下面的修改代码：

Option Explicit

Public X As String
Public A As Long
Public B As Long

Private Sub UserForm_Initialize()

    With ComboBox1
        .AddItem "Colour1"
        .AddItem "Colour2"
        .AddItem "Colour3"
    End With

End Sub

Private Sub CommandButton1_Click()

    X = TextBox1.Text
    Range("B2") = X

    Sheet1.Range("B9").Value = A
    Sheet1.Range("B10").Value = B

End Sub
' added the 1 to make it ComboBox1 which is the correct reference
Private Sub ComboBox1_Change()

    If ComboBox1.Text = "Colour1" Then 
        'You can use And when assigning Variables values
        'You need to do it seperately.
        A = 3
        B = 5

    ElseIf ComboBox1.Text = "Colour2" Then
        A = 7
        B = 6

    ElseIf ComboBox1.Text = "Colour3" Then
        A = 4
        B = 8

    End If

End Sub