Excel 从组合框中插入变量

我设计了UserForm1。我有组合框。我想在一个模块中打开UserForm1，从ComboBox中选择一些内容，在UserForm1中单击OK之后，ComboBox应该分配给模块中的变量，代码应该进一步运行

我定义了公共用户表单：

Public Sub UserForm_Initialize()

Dim TCol As Long, CCol As Long
Dim wsRoadmap As Worksheet

Set wsRoadmap = Sheets("Roadmap")

TCol = wsRoadmap.Cells(4, Columns.Count).End(xlToLeft).Column

Me.ComboBox1.Clear

'loop from column C to the last used column of 5th row
For CCol = 3 To TCol
    
    If VBA.Trim(wsRoadmap.Cells(4, CCol).Value) <> "" Then
        Me.ComboBox1.AddItem wsRoadmap.Cells(4, CCol).Value
    End If
    
Next CCol

End Sub

我在模块中定义了公共变量

Public CB1 As String

---

当我在模块中调用userform时，它会弹出，但代码正在进一步运行，而不是等待我在userform中的选择…

解决方案由Christofer Weber提供：“在userform属性中，您是否将“showmodel”设置为True？如果没有，请尝试”。谢谢你，克里斯。

在用户表单属性中，是否将“ShowModal”设置为

True

？如果没有，试试看。用你显示用户表单的代码更新你的帖子。

Public CB1 As String