VBA窗体查询系统

Question

具体如下，我想知道的是怎么在输入项目编号并且点击查询按钮后，能将对应信息输入到各个文字框内，如需文件请留联系方式

Answer 1

显示出来不难，看你这个设计样式，应该是先查询出来，然后修改保存进去吧。
我简单的说一下 项目编号文本框命名为 T1 项目名称命名T2…… 等等
双击查询按钮，输入以下代码(sub 和 END sub 中间输入)
dim i
For i = 1 to Range("A" & Cells.Rows.Count).End(3).Row 'A列1 循环到A列最后使用行数
if t1.text =cells(i,1) then
t2.text=cells(i,2)‘后续面cells(i,3) 等等，需要根据你的文本框命名来操作
't3.text=cells(i,3)……………
end if
Next i本回答被提问者采纳