模糊查找后点击即可自动录入

枫丹白露

求代码，万分感谢



1、求一段代码，使选定列表框的值，能将相应的值自动录入ABCFG列内单元格，实现模糊查找并快速录入

2、帮忙更正我的代码，列表框内应当还要出现一列《批次》在MSGBOX中有，但没有出现在列表框，不知哪里出错了，如下图

3190496160

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
     r = Cells(Rows.Count, 1).End(xlUp).Row + 1
     For j = 0 To 3
        Cells(r, j + 1) = .List(.ListIndex, j)
    Next j
     For j = 4 To 5
        Cells(r, j + 2) = .List(.ListIndex, j)
    Next j
End With
End Sub

3190496160

双击录入
工时查询.rar (105.44 KB, 下载次数: 24)

2022-12-5 10:00 上传

点击文件名下载附件

鄂龙蒙

工时查询.rar (108.2 KB, 下载次数: 18)

2022-12-5 10:19 上传

点击文件名下载附件

枫丹白露

鄂龙蒙 发表于 2022-12-5 10:19

万分感谢，是我想要的方式。

但是，能不能再加个代码，每次点击选定后，列表框不要关闭，这样可以连续选择

直到我手动关闭列表框，并且，需在要50个员工产量表里实现这种录入方式，能否修改代码后，实现共用这个列表框？

谢谢

feilanga

feilanga

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '鼠标双击
   
2.     'Private Sub Worksheet_SelectionChange(ByVal Target As Range) '单击单元格
   
3.     Application.EnableEvents = False  '事件关闭
   
4.     If Target.Address Like "*:*" Then Exit Sub  '多选退出
   
5.     If Target.Row > 5 Then
   
6.         If Target.Column >= 1 And Target.Column <= 4 Then
   
7.             工时查询.Show
   
8.         End If
   
9.     End If
   
10.     Application.EnableEvents = True  '事件开启
    
11. End Sub

复制代码

需要调用窗体的工作表都复制上述代码即可

feilanga

举例如上。。。。。。。。。。

枫丹白露

feilanga 发表于 2022-12-5 10:36

是的，我也试着改好了，可以了。

现在想要修改，当F列空白单元格时就接着录入，不管其它列有没有值，只判定F列，可以？

枫丹白露

feilanga 发表于 2022-12-5 10:49
举例如上。。。。。。。。。。

再求修改下代码，使录入的值的都一直F列的空白行，而不管ABCD列是否有值，谢谢


我用find返回"合计"所在的行号，但出错了