实在弄不懂了，麻烦大神给看看，感谢！！

Jaofuan

梁思鹏 发表于 2020-12-17 13:41
只给A-I列设置保护，因为J列以后需要交车时手动填写，感谢。

直接设置工作表保护就行

梁思鹏

Jaofuan 发表于 2020-12-17 15:04
直接设置工作表保护就行

设置工作表保护后，J列以后填写需要输入密码，且代码会报错。我想锁定A至I列只运行宏代码从派车单中自动填写，并可正常筛选，如需手动更改A-I列需要提供密码那种，麻烦了

Jaofuan

梁思鹏 发表于 2020-12-17 15:33
设置工作表保护后，J列以后填写需要输入密码，且代码会报错。我想锁定A至I列只运行宏代码从派车单中自动 ...

没接触过这类型的代码，帮不了你，你在重新发帖求助一下，看有没有师傅懂这些

梁思鹏

Jaofuan 发表于 2020-12-14 11:33

我加了弹出打印对话框后，arr(k) = zh这提示下标越界，怎么解决，麻烦了

Sub jaofuan保存()
    Application.Dialogs(xlDialogPrint).Show
    Dim arr(0 To 2)
    If Range("d3") = "" Then MsgBox "车号不能为空": End
    For Each zh In Sheet1.Range("B6,b8,D3,B3,B2,D2,B4,B5,D6,D7,d8")
        k = k + 1
        arr(k) = zh
    Next
    arr(11) = arr(10) - arr(9)
    DROW = Sheet3.Cells(65536, 2).End(xlUp).Row + 1
    Sheet3.Range("A" & DROW).Resize(1, 10) = arr
    jaofuan新增
    MsgBox "保存完毕"
End Sub