关于窗体复合框下拉列表中内容设置的问题，求教各位老师帮忙！

longcr

求教老师：
       窗体中有4个复合框（ComboBox），我想在给他们填入内容的时候可以通过手动输入和选择固定内容进行填写或者赋值，填写的内容与工作表不关联。选择固定内容必须通过代码做成类似于“内置选项”的功能。
      备注：当复合框选择下来列表中的选项或者手动填写的内容与工作表不关联，复合框下拉列表中的选项通过代码进行指定。
      还请老师给予帮助。谢谢！

效果图1

效果图2

目的：如效果图中将“姓名”、“年龄”等内置在复合框下拉列表中，当复合框进行内容填写的时候可以直接从下拉列表中获取。

山菊花

供参考。
在添加ComboBox控件到窗体时，不要使用ControlSource 属性将控件与工作表绑定，用代码设置数据源的方法见附件。

grf1973

把窗体设计中各下拉框的RowSource去掉。窗体中输入以下代码：

1. Private Sub UserForm_Initialize()
   
2.     Dim xstr(1 To 4) As String    '保存每列的数据
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     For i = 1 To UBound(arr)
   
5.         For k = 1 To 4
   
6.             If InStr(xstr(k), arr(i, k)) = 0 Then xstr(k) = xstr(k) & "," & arr(i, k)   'k列去重后存入字符串xstr(k)
   
7.         Next
   
8.     Next
   
9. 
   
10.     For k = 1 To 4
    
11.         Me.Controls("ComboBox" & k).List = Split(Mid(xstr(k), 2), ",")      '把字符串xstr(k)去头后作为ComboBox的List
    
12.     Next
    
13. End Sub
    
14. Private Sub ComboBox1_Change()   '姓名下拉框改动后，如果表中能找到对应姓名，则下面几个下拉框自动填充
    
15.     Set x = Sheet1.Range("a:a").Find(Me.ComboBox1, lookat:=xlWhole)
    
16.     If Not x Is Nothing Then
    
17.         Me.ComboBox2 = x.Offset(0, 1)
    
18.         Me.ComboBox3 = x.Offset(0, 2)
    
19.         Me.ComboBox4 = x.Offset(0, 3)
    
20.     End If
    
21. End Sub
    

复制代码

grf1973

请看附件。

longcr

grf1973 发表于 2014-1-20 10:30
请看附件。

grf1973 老师：首先谢谢您的指导，可能你没明白我的意思，我的意思是把名字和年龄、职业、学历等信息内置到代码中，其信息载体就是代码，不能是工作表或者复选框之类的，必须内置到代码中去。希望你能继续帮我一下，谢谢！

grf1973

什么叫“内置到代码中”？。我的代码就是读取了你表中名字、年龄、职业、学历等信息，然后作为下拉框的选项体现出来。这不就是“内置到代码中”？有什么不对吗？你可以改改表中信息（或增加删除）试试，下拉框选项和表中内容是去重对应的。

longcr

grf1973 发表于 2014-1-20 11:09
什么叫“内置到代码中”？。我的代码就是读取了你表中名字、年龄、职业、学历等信息，然后作为下拉框的选项 ...

grf1973 老师：我说的“内置到代码中”的意思是把确定好的信息直接写到代码中去，在运行的时候直接从代码中的信息读取，不是从工作表中或者复选框中读取。也就是说在写代码的时候直接把要读取的值（信息）写到代码中。谢谢！！     另外，要复合框下拉列表中的信息即：要直接写入代码中的信息，固定的。我的工作表中只是说明。

grf1973

那这样最简单了。

1. Private Sub UserForm_Initialize()
   
2.     Me.ComboBox1.List = Split("张三,李四,王二麻子,赵小宝", ",")
   
3.     Me.ComboBox2.List = Array(23, 24, 25, 26, 27, 28, 36, 45)
   
4.     Me.ComboBox3.List = Split("教授,工程师,助工", ",")
   
5.     Me.ComboBox4.List = Split("专科,本科,硕士,博士", ",")
   
6. End Sub

复制代码

grf1973

请看附件。

longcr

非常感谢grf1973老师的耐心帮助，不剩感激！！这个论坛不知道怎么设置成为最佳答案！非常感谢！