[已解决]向老师们求助

haokaoshan

我制作了一个开票及保存的VBA，怎么保存程序老显示有错误，不知道错在什么地方，请老师们帮忙指正

最佳答案

月排行榜 / 总排行榜

vitrel

2022-4-20 09:01

haokaoshan 发表于 2022-4-20 08:18
老师，问题语句已修改为： .Cells(n + 1, 1) = Date，结果显示如图，这个问题好像还是没能解决呀

我稍帮您优化了一下代码，不知是否符合您的要求。

1. Sub 玥玥开票保存()
   
2.     Dim SSD As Worksheet, SSLS As Worksheet, n&, i%, j%
   
3. 
   
4.     Set SSD = Worksheets("销售单")
   
5.     Set SSLS = Worksheets("销售流水")
   
6. 
   
7.     If Date > #5/25/2022# Then Exit Sub
   
8. 
   
9.     If Not SSLS.Columns(2).Find(SSD.[H2].Value, , , xlWhole) Is Nothing Then
   
10.         MsgBox "已经保存、打印过了！", vbInformation
    
11.         Exit Sub
    
12.     End If
    
13.     If SSD.[C4] = "" Or SSD.[b6] = "" Then
    
14.         MsgBox "您要保存的出库单没有内容，请填写！", vbInformation
    
15.         Exit Sub
    
16.     End If
    
17.     If SSD.[d6] = "" And SSD.[e6] = "" Then
    
18.         MsgBox "h9没有填写购买数量", vbInformation
    
19.         Exit Sub
    
20.     End If
    
21.     If SSD.[G8] = "" Then
    
22.         MsgBox "没填写司机姓名，请填写！", vbInformation
    
23.         Exit Sub
    
24.     End If
    
25. 
    
26.     n = SSLS.Cells(Rows.Count, 2).End(xlUp).Row
    
27. 
    
28.     For i = 1 To 2
    
29.         If SSD.Cells(5 + i, "B") <> "" Then
    
30.             SSLS.Cells(n + i, 1) = Date
    
31.             SSLS.Cells(n + i, 2) = SSD.[H2]
    
32.             SSLS.Cells(n + i, 3) = SSD.[C4]
    
33.             For j = 4 To 8
    
34.                 SSLS.Cells(n + i, j) = SSD.Cells(5 + i, j - 2)
    
35.             Next j
    
36.             SSLS.Cells(n + i, 9) = SSD.[E9]
    
37.             SSLS.Cells(n + i, 10) = SSD.[G8]
    
38.             SSLS.Cells(n + i, 11) = SSD.[G9]
    
39.         End If
    
40.     Next i
    
41. 
    
42.     MsgBox "保存成功，下面放好打印纸，准备开始打印！"
    
43.     '我猜您意思是不想打印某些内容
    
44.     SSD.[B5:J7].Borders.LineStyle = xlNone '打印前取消表格边框
    
45.     SSD.Range("B2:E2,B4,F4,H4,J4,B5:J5,D8,F8,B10,C10").Select
    
46.     Selection.Font.Color = vbWhite '打印前令部分文字变白（不打印）
    
47.     SSD.[B2:J10].PrintOut ActivePrinter:="Hewlett-Packard HP LaserJet Professional M1213nf MFP="
    
48.     Selection.Font.Color = vbBlack
    
49.     SSD.[B5:J7].Borders.LineStyle = xlContinuous
    
50.     MsgBox "打印成功！"
    
51.     [A1].Select
    
52. End Sub

复制代码

跳转到最佳答案楼层

vitrel

楼主，您好！
请问代码的哪个地方出错呢？出错提示是什么？
我运行的结果是：“玥玥开票保存”运行一切正常，无任何错误提示。
当然，由于代码的不合理，该保存的内容没有保存，但没提示出错。

haokaoshan

vitrel 发表于 2022-4-19 16:58
楼主，您好！
请问代码的哪个地方出错呢？出错提示是什么？
我运行的结果是：“玥玥开票保存”运行一切正 ...

老师，出现的问题是：1、  .cell(n + 1, 1).Value = Date 运行显示类型不匹配，2，相关销售单表数据，不能对应复制到销售流水表中

haokaoshan

我刚刚试了一下，问题还是一直存在

haokaoshan

我刚刚试了一下，问题还是一直存在

砂海

haokaoshan 发表于 2022-4-19 19:36
老师，出现的问题是：1、  .cell(n + 1, 1).Value = Date 运行显示类型不匹配，2，相关销售单表数据，不 ...

.Cells(n + 1, 1).Value = Date
其它 还未看

vitrel

砂海 发表于 2022-4-20 00:04
.Cells(n + 1, 1).Value = Date
其它 还未看

您好！
您太细心了，我只运行通过，就没再细找代码里的错误。
您提醒后，我用F8逐语句运行，发现代码运行到“If frng Is Nothing Then”时，
由于条件不成立，整段代码跳过了，所以系统根本没检查这里面的语句，因此也没提示错误。

haokaoshan

老师，问题语句已修改为： .Cells(n + 1, 1) = Date，结果显示如图，这个问题好像还是没能解决呀

vitrel

haokaoshan 发表于 2022-4-19 19:36
老师，出现的问题是：1、  .cell(n + 1, 1).Value = Date 运行显示类型不匹配，2，相关销售单表数据，不 ...

楼主，您好！
我修改了一下，您看是否符合您的要求。

vitrel

haokaoshan 发表于 2022-4-20 08:18
老师，问题语句已修改为： .Cells(n + 1, 1) = Date，结果显示如图，这个问题好像还是没能解决呀

我稍帮您优化了一下代码，不知是否符合您的要求。

1. Sub 玥玥开票保存()
   
2.     Dim SSD As Worksheet, SSLS As Worksheet, n&, i%, j%
   
3. 
   
4.     Set SSD = Worksheets("销售单")
   
5.     Set SSLS = Worksheets("销售流水")
   
6. 
   
7.     If Date > #5/25/2022# Then Exit Sub
   
8. 
   
9.     If Not SSLS.Columns(2).Find(SSD.[H2].Value, , , xlWhole) Is Nothing Then
   
10.         MsgBox "已经保存、打印过了！", vbInformation
    
11.         Exit Sub
    
12.     End If
    
13.     If SSD.[C4] = "" Or SSD.[b6] = "" Then
    
14.         MsgBox "您要保存的出库单没有内容，请填写！", vbInformation
    
15.         Exit Sub
    
16.     End If
    
17.     If SSD.[d6] = "" And SSD.[e6] = "" Then
    
18.         MsgBox "h9没有填写购买数量", vbInformation
    
19.         Exit Sub
    
20.     End If
    
21.     If SSD.[G8] = "" Then
    
22.         MsgBox "没填写司机姓名，请填写！", vbInformation
    
23.         Exit Sub
    
24.     End If
    
25. 
    
26.     n = SSLS.Cells(Rows.Count, 2).End(xlUp).Row
    
27. 
    
28.     For i = 1 To 2
    
29.         If SSD.Cells(5 + i, "B") <> "" Then
    
30.             SSLS.Cells(n + i, 1) = Date
    
31.             SSLS.Cells(n + i, 2) = SSD.[H2]
    
32.             SSLS.Cells(n + i, 3) = SSD.[C4]
    
33.             For j = 4 To 8
    
34.                 SSLS.Cells(n + i, j) = SSD.Cells(5 + i, j - 2)
    
35.             Next j
    
36.             SSLS.Cells(n + i, 9) = SSD.[E9]
    
37.             SSLS.Cells(n + i, 10) = SSD.[G8]
    
38.             SSLS.Cells(n + i, 11) = SSD.[G9]
    
39.         End If
    
40.     Next i
    
41. 
    
42.     MsgBox "保存成功，下面放好打印纸，准备开始打印！"
    
43.     '我猜您意思是不想打印某些内容
    
44.     SSD.[B5:J7].Borders.LineStyle = xlNone '打印前取消表格边框
    
45.     SSD.Range("B2:E2,B4,F4,H4,J4,B5:J5,D8,F8,B10,C10").Select
    
46.     Selection.Font.Color = vbWhite '打印前令部分文字变白（不打印）
    
47.     SSD.[B2:J10].PrintOut ActivePrinter:="Hewlett-Packard HP LaserJet Professional M1213nf MFP="
    
48.     Selection.Font.Color = vbBlack
    
49.     SSD.[B5:J7].Borders.LineStyle = xlContinuous
    
50.     MsgBox "打印成功！"
    
51.     [A1].Select
    
52. End Sub

复制代码