销项发票明细表

舟心ty

已于 2022-10-27 22:09:37 修改

阅读量167

点赞数

分类专栏： VBA 文章标签：开发语言

于 2022-10-27 14:16:26 首次发布

本文链接：https://blog.csdn.net/sx01117/article/details/127551518

版权

VBA 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Sub 销项发票明细表()
Dim h%, r%, arr, brr, crr
Cells.UnMerge
Cells.ColumnWidth = 10
h = Range("a:a").Find("份数").Row
Range(Rows(h), Rows(h + 30)).Delete
r = ActiveSheet.UsedRange.Rows.Count
'MsgBox r

'ReDim arr(1 To r, 1 To 7)
arr = Range("a7:g" & r)
For i = 7 To r
    For j = 1 To 7
        If Cells(i, j) = "" Then
            Cells(i, j) = Cells(i - 1, j)
        End If
    Next
Next


For i = 7 To UBound(arr)
    If arr(i, 1) = "" Then
        For j = 1 To UBound(arr, 2)
            arr(i, j) = arr(i - 1, j)
        Next j
    End If
Next i

brr = Range("m7:q" & r)
For j = 1 To UBound(brr)
    brr(j, 1) = brr(j, 1)
    brr(j, 2) = brr(j, 2)
    brr(j, 3) = brr(j, 3)
    brr(j, 4) = brr(j, 4)
    brr(j, 5) = brr(j, 5)
Next j
Range("m7").Resize(UBound(brr), UBound(brr, 2)) = brr

crr = Range("g7:g" & r)
For k = 1 To UBound(crr)
    crr(k, 1) = crr(k, 1)
Next k
Range("g7").Resize(UBound(crr), UBound(crr, 2)) = crr

Range("s6") = "含税金额"
Range("s7") = "=O7+Q7"
Range("s7").AutoFill Range("s7:s" & r), 4

For m = 7 To r
    If Range("j" & m) = "小计" Then
        Rows(m).Delete
    End If
Next m


Cells(1, 1).Select
Cells(7, 1).Select
ActiveWindow.FreezePanes = True
Range("a6:z" & r).AutoFilter
Range("o:o").NumberFormat = "#,#.00"
Range("q:q").NumberFormat = "#,#.00"
Range("s:s").NumberFormat = "#,#.00"
Range("s:s").Font.Size = 9

End Sub