MS Excel的VBA，从子传递variablesforms

我怎样才能使用我的variables从子过程添加特定的项目在用户窗体combobox？

Sub程序（Module code） –

Dim main As Integer Public Sub dataValidation() For i = 3 To 22 If Cells(i, 7).Value = "" Then If Cells(i, 6).Value = "x" Then main = 1 ElseIf Cells(i, 6).Value = "y" Then main = 2 ElseIf Cells(i, 6).Value = "z" Then main = 3 End If form.Show End If Next End Sub 

表单初始化（表单代码） –

 Private Sub UserForm_Initialize() cboSubtype.Value = "Select subtype" if main = 1 then cboSubtype.AddItem "a" cboSubtype.AddItem "s" elseif main = 2 then cboSubtype.AddItem "d" cboSubtype.AddItem "f" elseif main = 3 then cboSubtype.AddItem "g" cboSubtype.AddItem "h" End Sub 

Answer 1

下面的代码使用你想要的方法，将一个variablesmain从模块传递给User_Form init事件。

注意：你可以执行全是1的代码（在user_form init事件中）。

子数据validation码（模块）

 Option Explicit Public main As Integer Public Sub dataValidation() Dim i As Integer For i = 3 To 22 If Cells(i, 7).Value = "" Then Select Case Cells(i, 6).Value Case "s" main = 1 Case "y" main = 2 Case "z" main = 3 End Select form.Show End If Next i End Sub 

Sub User_Form代码（在init事件上）

 Private Sub UserForm_Initialize() With cboSubtype .Value = "Select subtype" Select Case main Case 1 .AddItem "a" .AddItem "s" Case 2 .AddItem "d" .AddItem "f" Case 3 .AddItem "g" .AddItem "h" End Select End With End Sub 

Answer 2

 Private Sub UserForm_Initialize() this = "this": that = "that": thenext = "thenext" With ComboBox1 .AddItem this .AddItem that .AddItem thenext End With End Sub 

这为我编译。