将条件设置为UserForm中的combobox列表内容

目前,我正在创build一个简单的用户表单,用于将新项目添加到表单中。 然而,我现在面临的一个问题是,我有三个不同的行范围,包括三个不同大小的项目和细节。 例如,第1行到第100行包含大项目细节,而第150行到第250行是中等项目,第300行到第400行是小项目细节。 因此,通过使用组合下拉列表,用户将select“大项目”或“中等项目”或“小项目”。

之后,新的项目详细信息将被插入到工作表中的新行中,这取决于他们已经select的项目大小,在combobox下拉列表中。

我有下面的代码让我开始,但不知道如何进行:

Private Sub UserForm_Initialize() With ComboBoxProjSizes .AddItem "Big Project" .AddItem "Medium Project" .AddItem "Small Project" End With End Sub 

如果您select了一个combobox的项目,您可以确定发生了什么,例如:

 Private Sub ComboBoxProjSizes_Change() Dim projectsheet As Worksheet Set projectsheet = Sheets("Table1") 'change as needed If ComboBoxProjSizes = "Big Project" Then Dim BigRange As Range Set BigRange = projectsheet.Range("A1:A100") 'define your range for "Big Project" BigRange.End(xlDown).Offset(1, 0).Select 'select first emoty cell in the range 'here you can copy your cell with Big Project Else 'check the other inputs End If End Sub