分配变量？

Question

我找了一段时间才找到答案，我看到了一些类似的代码并尝试调整我的代码以使其工作。基本上，我需要 userform 上的所有文本框根据其中一个文本框中从另一作品 sheet 收到的文本变成红色和白色字体。我知道我很接近，但我不明白措辞的位置！

Sub ChangeClr() 
Dim tbMyTextBox As TextBox 
Dim ufMyUserForm As UserForm 
For Each tbMyTextBox In ufMyUserForm 
    If tbAction1 = "Tank In Spec" Then 
        tbMyTextBox.BackColor = vbGreen 
        tbMyTextBox.ForeColor = vbBlack 
    Else 
        tbTextBox.BackColor = vbGreen 
        tbMyTextBox.ForeColor = vbBlack 
    End If 
Next tbMyTextBox 
End Sub

Answer 1

现在我知道您在 Excel 中使用 VBScript，此代码将循环遍历并根据操作文本框中的措辞更改所有文本框（包括操作一）。您可以调整到您的确切规格。

Dim varControl As Control


For Each varControl In ufMyUserForm.Controls

 If TypeOf varControl Is MSForms.TextBox Then
         If tbAction1 = "Tank In Spec" Then
            varControl.BackColor = vbRed
            varControl.ForeColor = vbWhite
         Else
            varControl.BackColor = vbGreen
            varControl.ForeColor = vbBlack
        End If
    End If
Next