vba 弹窗搜索显示

Vincycc · 发表于 2023-5-31 15:42

本帖最后由 Vincycc 于 2023-6-1 11:52 编辑

之前的可能写的不太明确，补充一下下（附件已重新上传）。在弹窗输入产品编码,对应搜索产品编码表sheet8,如果弹窗效果框中所选选项和产品编码这份表格的H列相同，则弹窗中的单重TextBox9对应显示其在产品编码表F列的数值.比如输入Z07,选择白锌,则弹窗中单重那一栏显示1843;输入Z08,选择白锌,则弹窗中单重那一栏显示1134;再比如输入Z08,选择蓝锌和黑镍,弹窗中单重那一栏都是显示1200

tanglf188 · 发表于 2023-5-31 15:57

楼主是想实现输入还是查询？或者两者都有

3190496160 · 发表于 2023-5-31 16:06

Private Sub OptionButton23_Click()
Dim rn As Range
rr = Array(23, 24, 25, 27, 30)
For i = 0 To UBound(rr)
mc = rr(i)
If Me.Controls("OptionButton" & mc) = True Then
      zd = Me.Controls("OptionButton" & mc).Caption
      With Sheets("产品编码")
         r = Cells(Rows.Count, 8).End(xlUp).Row
         Set rn = .Range("H1:h" & r).Find(zd, , , , , , 1)
         If Not rn Is Nothing Then
            TextBox9.Text = .Cells(rn.Row, 6)
         Else
            TextBox9.Text = ""
         End If
      End With
End If
Next i
End Sub

3190496160 · 发表于 2023-5-31 16:07

模板.rar (676.21 KB, 下载次数: 39)

Vincycc · 发表于 2023-5-31 16:31

tanglf188 发表于 2023-5-31 15:57
楼主是想实现输入还是查询？或者两者都有

比如我输入Z07，有一部分数据已经是可以显示出来的了，现在还有单重需要根据选择的效果显示出来不会弄

Vincycc · 发表于 2023-5-31 16:32

3190496160 发表于 2023-5-31 16:07

谢谢大神相助

Vincycc · 发表于 2023-5-31 16:36

3190496160 发表于 2023-5-31 16:07

不过需要每个按钮一个代码吗？那如果我增加按钮，按钮多的情况下不就很多代码？

tanglf188 · 发表于 2023-5-31 16:39

Vincycc 发表于 2023-5-31 16:31
比如我输入Z07，有一部分数据已经是可以显示出来的了，现在还有单重需要根据选择的效果显示出来不会弄

直接把产品信息用ListView控件显示就可以啊，何必这么麻烦。

Vincycc · 发表于 2023-5-31 16:43

tanglf188 发表于 2023-5-31 16:39
直接把产品信息用ListView控件显示就可以啊，何必这么麻烦。

小白不会呀

tanglf188 · 发表于 2023-5-31 16:46

Vincycc 发表于 2023-5-31 16:43
小白不会呀

你的这个窗体应该是根据产品编码录入相关信息的吧

		自动登录	找回密码
密码			免费注册

[求助] vba 弹窗搜索显示

评分