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

梁思鹏

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

梁思鹏

哪位大神帮帮忙，麻烦把剩下的也帮我完善一下，我这整不明白了，查了好几天了，万分感谢

loirol

没有变量arr 变量b的定义

Jaofuan

1. Sub jaofuan保存()
   
2.     Dim arr(1 To 12)
   
3.     For Each zh In Sheet1.Range("B6,B8,D3,B3,B2,D2,B4,B5,D6,D7")
   
4.         k = k + 1
   
5.         arr(k) = zh
   
6.     Next
   
7.     arr(11) = arr(10) - arr(9)
   
8.     DROW = Sheet3.Cells(65536, 2).End(xlUp).Row + 1
   
9.     Sheet3.Range("A" & DROW).Resize(1, 12) = arr
   
10.     MsgBox "保存完毕"
    
11. End Sub
    
12. 
    
13. 
    

复制代码

1.   Sub jaofuan新增()
   
2.   Sheet1.Range("B6,B8,D3,B3,B2,D2,B4,B5,D6,D7") = ""
   
3.   Sheet1.Range("b8") = Date
   
4.   End Sub

复制代码

梁思鹏

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

我按照你给的代码替换了一下，但是保存还是不管用，新增管用了，麻烦你给直接改一下，万分感谢。

loirol

梁思鹏 发表于 2020-12-14 14:07
我按照你给的代码替换了一下，但是保存还是不管用，新增管用了，麻烦你给直接改一下，万分感谢。

猜
Sub jaofuan保存()
    Dim arr(1 To 12)
    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, 12) = arr
    MsgBox "保存完毕"
Exit Sub

With ThisWorkbook.Sheets("派车流水")
    k = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("a" & k + 1).Resize(UBound(brr, 2), 9) = Application.Transpose(brr)
End With

MsgBox "派车流水 保存成功"

End Sub

Jaofuan

梁思鹏 发表于 2020-12-14 14:07
我按照你给的代码替换了一下，但是保存还是不管用，新增管用了，麻烦你给直接改一下，万分感谢。

查看附件            

梁思鹏

Jaofuan 发表于 2020-12-14 14:41
查看附件

感谢，非常感谢。

梁思鹏

Jaofuan 发表于 2020-12-14 14:41
查看附件

你好，我想通过宏编辑给其中一个工作表设置编辑密码，宏插件可正常运行，此表可以查询筛选打印，但手动编辑时需提供密码，麻烦大神给写个代码，顺便告诉我代码应该粘贴在第几行，非常感谢，感谢！

梁思鹏

Jaofuan 发表于 2020-12-14 14:41
查看附件

只给A-I列设置保护，因为J列以后需要交车时手动填写，感谢。