窗体中下拉选择，对应相应内容，类似VLOOKUP一样？如何做

糖↗小冷

第一步：调用窗体后， 如何使【检测项目】出现数据库“红色字体:如公路土工”参数

列表；

第二步：产生下拉框选项后，如何使下面对应的四个小框，【检测参数】【检测规程】

【检测方法】【评定依据】给出相对应的内容，类似 VLOOUP 这种查找一样？

请老师帮忙解决

数据库如有空白列 空着就行，本来就没有对应的选项

洋务德雷

你的数据源设置不标准，不是标准的一维表，所以编辑 vba代码量比较大，所以，建议把数据先设置成标准的一维表再来编写vba代码。

3190496160

Private Sub ComboBox1_Change()
Dim rn As Range
mc = ComboBox1.Text
If mc = "" Then Exit Sub
With Sheets("数据库")
    Set rn = .Rows(1).Find(mc, , , , , , 1)
    If rn Is Nothing Then MsgBox "找不到" & mc & "字段": Exit Sub
    y = rn.Column
    For j = y To y + 3
        k = k + 1
        r = .Cells(Rows.Count, j).End(xlUp).Row
        If r > 2 Then
            ar = .Range(.Cells(2, j), .Cells(r, j))
            Me.Controls("listbox" & k).List = ar
        End If
    Next j
End With
End Sub
Private Sub UserForm_Initialize()
With Sheets("数据库")
    y = .Cells(1, Columns.Count).End(xlToLeft).Column
    ReDim rr(1 To y)
    For j = 1 To y
        If Trim(.Cells(1, j)) <> "" Then
            m = m + 1
            rr(m) = .Cells(1, j)
        End If
    Next j
End With
Me.ComboBox1.List = rr
End Sub

3190496160

数据库.rar (57.66 KB, 下载次数: 18)

2023-1-8 09:55 上传

点击文件名下载附件

糖↗小冷

3190496160 发表于 2023-1-8 09:55

感谢老师的辛勤付出，一时研究兴奋了，忘记逐一回复，帮我解决了问题，然后我通过你的代码，逐一研究一番，已经能够举一反三，学习到了