出库统计表求大神帮做好程序

zxf372188

公司要求统计表，对于新手我很是头痛，求大神帮写好程序代码，谢谢了

3190496160

论坛是做义务的，一次性求助这么多的问题，不怕把人吓跑吗

许夜

可以可以，哈哈

zxf372188

许夜 发表于 2022-7-14 10:06
可以可以，哈哈

谢谢大神关照

zxf372188

3190496160 发表于 2022-7-14 09:37
论坛是做义务的，一次性求助这么多的问题，不怕把人吓跑吗

没办法，不懂就只能厚着脸皮要了

3190496160

Sub 打印单据()
With Sheets("出库单")
    r = .Cells(Rows.Count, 7).End(xlUp).Row
    If r < 9 Then MsgBox "出库单为空，请先录入数据！": End
    If Trim(.[i3]) = "" Then
        .[i3] = Format(Date, "yyyymm") & Format(1, "000")
    Else
        yf = Val(Month(Date))
        yf_1 = Val(Mid(Trim(.[i3]), 5, 2))
        If yf <> yf_1 Then
            .[i3] = Format(Date, "yyyymm") & Format(1, "000")
        Else
            .[i3] = Format(Date, "yyyymm") & Format(Val(Right(Trim(.[i3]), 3)) + 1, "000")
        End If
    End If
    .PrintOut
End With
MsgBox "ok!"
End Sub
Sub baocun()
Dim arr()
Dim ar As Variant
With Sheets("出库单")
    r = .Cells(Rows.Count, 7).End(xlUp).Row
    If r < 9 Then MsgBox "出库单为空，请先录入数据！": End
    ar = .Range("a3:i20")
    ReDim arr(1 To UBound(ar), 1 To 14)
    For i = 7 To UBound(ar)
        If Trim(ar(i, 2)) <> "" Then
            n = n + 1
            arr(n, 1) = ar(1, 9)
            arr(n, 2) = ar(2, 3)
            arr(n, 3) = ar(3, 3)
            arr(n, 4) = ar(4, 3)
            For j = 2 To 9
                arr(n, j + 3) = ar(i, j)
            Next j
            arr(n, 13) = .Cells(23, 3)
            arr(n, 14) = .Cells(23, 5)
        End If
    Next i
End With
With Sheets("出库统计表")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(rs, 1).Resize(n, UBound(arr, 2)) = arr
    .Cells(rs, 1).Resize(n, UBound(arr, 2)).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160

只做了出库单打印保存，单号递增的代码，供参考，其他的再说吧
出库统计表.rar (31.39 KB, 下载次数: 28)

2022-7-14 10:48 上传

点击文件名下载附件

zxf372188

3190496160 发表于 2022-7-14 10:47
Sub 打印单据()
With Sheets("出库单")
    r = .Cells(Rows.Count, 7).End(xlUp).Row

高手高手，谢谢大神，我去试试先，感谢

zxf372188

3190496160 发表于 2022-7-14 10:48
只做了出库单打印保存，单号递增的代码，供参考，其他的再说吧

感谢感谢，，太好了

zxf372188

3190496160 发表于 2022-7-14 10:48
只做了出库单打印保存，单号递增的代码，供参考，其他的再说吧

已经解决我很多的问题了，谢谢您