如何根据编号查询相应数据

fengju521

求大神

3190496160

Sub 查询()
With Sheets("数据库")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "数据库为空！": End
    ar = .Range("a1:i" & r)
End With
zd = [b2]
For i = 2 To UBound(ar)
    If ar(i, 1) = zd Then
        m = m + 1
        [b3] = ar(i, 2)
        [g3] = ar(i, 5)
        [b4] = ar(i, 4)
        [g4] = ar(i, 3)
        Exit For
    End If
Next i
If m = "" Then MsgBox "没有符合条件的数据！": End
MsgBox "ok!"
End Sub

3190496160

打印水票工作表 惠普(1).rar (20.9 KB, 下载次数: 10)

2024-8-2 08:35 上传

点击文件名下载附件

fengju521

3190496160 发表于 2024-8-2 08:35

感谢大神我再用按钮写个打印代码就可以使用了感谢

fengju521

3190496160 发表于 2024-8-2 08:35

大神我更新了数据库再查询代码就不好使了，一直是查询不到

fengju521

3190496160 发表于 2024-8-2 08:35

公司数据不方便公开，数据库原格式不变只是增加了多条数据就查询不到了

3190496160

fengju521 发表于 2024-8-2 08:57
公司数据不方便公开，数据库原格式不变只是增加了多条数据就查询不到了

最关键是编号所在单元格的格式问题

feilanga

你这种使用窗体更合适。鼠标双击B3或者B4

tanglf188

fengju521

feilanga 发表于 2024-8-2 09:17
你这种使用窗体更合适。鼠标双击B3或者B4

您这个我试过了直接粘贴过来的数据库可以使用，大神能在第一个表里加个打印和打印预览的按钮吗，谢谢