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

枫丹白露

试了代码搞定了，
这样赋值就可以了
r = .Range("f" & Range("F:F").Find("合计").Row).End(xlUp).Row + 1

feilanga

.............................

feilanga

我的修改就是不再判断最大列，鼠标所在行直接输入

枫丹白露

feilanga 发表于 2022-12-5 16:19
我的修改就是不再判断最大列，鼠标所在行直接输入

谢谢,你的是双击C列就录入的

枫丹白露

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

老师，录入很效果很好，但是当我的数据源有1500行之多时，选项录入就比较慢了，每行录入大约需要6秒

有什么方法可以使代码简化，提高录入速度吗，谢谢

枫丹白露

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

老师，请移步此贴，帮我看一下这段代码要怎么摆放，才能使 点是的时候，录入数据，点否的时候，不录入数据，谢谢


Private Sub ListBox1_Click()
    Dim r, j
    With ListBox1
     MsgBox .List(0, 2) & "：" & .List(.ListIndex, 2) & vbCrLf _
            & .List(0, 3) & "：" & .List(.ListIndex, 3) & vbCrLf _
            & .List(0, 4) & "：" & .List(.ListIndex, 4) & vbCrLf _
            & .List(0, 5) & "：" & Format(.List(.ListIndex, 5), "#,###0.00") & vbCrLf _
            & .List(0, 6) & "：" & .List(.ListIndex, 6) & vbCrLf _
            & .List(0, 7) & "：" & .List(.ListIndex, 7) & vbCrLf _
            & vbCrLf _
            & vbCrLf _
            & "是否录入该工时?", vbExclamation + vbYesNo, "工时要素"
            
    End With

    If response = vbYes Then   这个位置不对，还是代码不对？点是，也不录入
            
    With ActiveSheet
        r = .Range("f" & Range("F:F").Find("合计").Row).End(xlUp).Row + 1
         
        For j = 1 To 4
            .Cells(r, j) = ListBox1.List(ListBox1.ListIndex, j - 1)
        Next
        For j = 6 To 7
            .Cells(r, j) = ListBox1.List(ListBox1.ListIndex, j - 2)
        Next
    End With
    Else
    response = vbNo  这个代码也是不对，但不知道要怎么放
    End If

End Sub

ggmmlol

拼音首字母模糊匹配：
xc ——斜槽
工时查询.zip (58.75 KB, 下载次数: 6)

2022-12-8 19:45 上传

点击文件名下载附件

鄂龙蒙

工时查询-消息框.rar (102.51 KB, 下载次数: 9)

2022-12-7 09:09 上传

点击文件名下载附件

枫丹白露 发表于 2022-12-6 22:22
老师，请移步此贴，帮我看一下这段代码要怎么摆放，才能使 点是的时候，录入数据，点否的时候，不录入数 ...

枫丹白露

鄂龙蒙 发表于 2022-12-7 09:06

谢谢老师，非常谢谢