查找数据库并自动输入对应的内容

7993708 · 发表于 2024-3-31 23:42

求助：

只要输入编号，其他内容自动带入单元格。谢谢 WPS

ykcbf1100 · 发表于 2024-4-1 07:10

WPS？好吧，让其他老师来吧。

3190496160 · 发表于 2024-4-1 08:51

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column = 2 Then
If T.Count > 1 Then End
If T.Value = "" Then End
With Sheets("数据源")
      r = .Cells(Rows.Count, 1).End(xlUp).Row
      ar = .Range("a1:e" & r)
End With
zd = T.Value
rs = T.Row
For i = UBound(ar) To 2 Step -1
      If ar(i, 1) = zd Then
         For j = 2 To 4
            Cells(rs, j + 1) = ar(i, j)
         Next j
         Cells(rs, 7) = ar(i, 5)
         Exit For
      End If
Next i
End If
End Sub

3190496160 · 发表于 2024-4-1 08:52

自动查找并输入.rar (15.11 KB, 下载次数: 22)

yynrzwh · 发表于 2024-4-1 09:04

自动查找并输入.zip (18.26 KB, 下载次数: 14)

7993708 · 发表于 2024-4-1 10:26

yynrzwh 发表于 2024-4-1 09:04

老师您好，可以用。但是就是英文字母能不能不区分大小写谢谢您

7993708 · 发表于 2024-4-1 10:26

3190496160 发表于 2024-4-1 08:52

老师您好，可以用。但是就是英文字母能不能不区分大小写谢谢您

grf1973 · 发表于 2024-4-1 10:30

不知道JSA的工作表事件如何写，只能写个按钮触发了。。。。

3190496160 · 发表于 2024-4-1 11:20

7993708 · 发表于 2024-4-1 16:56

3190496160 发表于 2024-4-1 11:20

谢谢。。。

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

[求助] 查找数据库并自动输入对应的内容

评分

评分

评分

评分