用代码为控件做下拉菜单

深秋红叶2019

试着做了一个数据录入窗体，可是下拉菜单不会做，根据图片上的要求就可以，希望老师帮一下忙，谢谢

microyip

其实就查一下Combox的基础知识就知道怎么做，每一个问题，不先学习一下基础知识就发出来，然后等现成结果，（当然可能后面你还学着改改）。来来往往，反反复复的，你还不如直接出钱请别人给你做个完整的系统

深秋红叶2019

microyip 发表于 2020-1-31 15:40
其实就查一下Combox的基础知识就知道怎么做，每一个问题，不先学习一下基础知识就发出来，然后等现成结果， ...

已经差不多做好了，我比较喜欢折腾，自己参与的更有意思一些

microyip

深秋红叶2019 发表于 2020-1-31 15:44
已经差不多做好了，我比较喜欢折腾，自己参与的更有意思一些

既然你喜欢参与，那你可以先查一下、学习一下基础知识，在处理过程中有问题再提问啊。而不是写个帖子，这个ComboBox怎么写进去，那个日期往后一年怎么计算？所有的这些都是很基础的知识，随便百度一下或者论坛里找找基础知识就能学到的东西

网海遨游

在窗体初始化代码中，
1.假如用ComboBok1表示男女
ComboBok1.List=array("男","女")
2.区域或卡类型如果数据源有重复的，要先去重。用字典十数组(或Application.countif())都能去重。

凌空一羽

Private Sub UserForm_Initialize()
     性别.RowSource = "数据有效性!e2:e3"
     区域.RowSource = "数据有效性!c2:c19"
     卡类型.RowSource = "数据有效性!d2:d5"
End Sub

深秋红叶2019

网海遨游 发表于 2020-1-31 16:36
在窗体初始化代码中，
1.假如用ComboBok1表示男女
ComboBok1.List=array("男","女")

我现在就是用这个方法，如果表格要增加数据的话，代码又要加了，所以感觉有点麻烦，不知道有没有别的办法

深秋红叶2019

凌空一羽 发表于 2020-1-31 16:49
Private Sub UserForm_Initialize()
     性别.RowSource = "数据有效性!e2:e3"
     区域.RowSource = " ...

谢谢，如果数据有效性增加数据，那代码就要改区域了，有没有更好的方法呢

凌空一羽

深秋红叶2019 发表于 2020-1-31 16:56
谢谢，如果数据有效性增加数据，那代码就要改区域了，有没有更好的方法呢

Private Sub UserForm_Initialize()
    Dim ar(2) As String, myr As Integer, j As Byte
    ar(0) = "区域"
    ar(1) = "卡类型"
    ar(2) = "性别"
    For j = 0 To 2
        With Sheet2
            myr = .Cells(1000, j + 3).End(3).Row   '获取最后不为空的行
            Me.Controls(ar(j)).RowSource = "数据有效性!" & .Range(.Cells(2, j + 3), .Cells(myr, j + 3)).Address(0, 0)
        End With
    Next
End Sub

深秋的黎明

用以下代码，适合一边输入，一边加载新的项目，主要是筛选出唯一性的条目

Private Sub UserForm_Initialize() '加载列表框数据
'---------------  加载（       ）下拉框  --------------------
ComboBox1.Clear
For S = 3 To 150
If WorksheetFunction.CountIf(Sheet1.Range("C3:A150"), Sheet1.Range("C" & S)) = 1 Then
ComboBox1.AddItem Sheet1.Range("C" & S)
End If
Next S
'---------------  加载（       ）下拉框  -------------------
ComboBox2.Clear
For E = 3 To 150
If WorksheetFunction.CountIf(Sheet1.Range("L3:L150"), Sheet1.Range("L" & E)) = 1 Then
ComboBox2.AddItem Sheet1.Range("L" & E)
End If
Next E
.............................关于花名册类的录入，可以参考我做的：
http://club.excelhome.net/thread-1517881-1-1.html
(出处: ExcelHome技术论坛)