|
a组学委:qushui- rivate Sub CommandButton1_Click()
- Dim i%, a%, b%, c%, rg1 As Range, rg2 As Range, rg As Range
- For i = [a65536].End(3).Row To 3 Step -1
- If Month(Cells(i, 1)) <> Month(Cells(i - 1, 1)) Then Rows(i).Insert
- Next i
- Set rg1 = Range([a2], [a65536].End(3)).SpecialCells(xlCellTypeBlanks)
- Set rg2 = Union(rg1, [a65536].End(3).Offset(1, 0))
- rg2.Value = "小计"
- For Each rg In rg2
- b = rg.Row
- If a = 0 Then
- a = 1
- Cells(b, 3) = Application.Sum(Range(Cells(2, 3), Cells(b - 1, 3)).Value)
- Cells(b, 4) = Application.Sum(Range(Cells(2, 4), Cells(b - 1, 4)).Value)
- Else
- Cells(b, 3) = Application.Sum(Range(Cells(c + 1, 3), Cells(b - 1, 3)).Value)
- Cells(b, 4) = Application.Sum(Range(Cells(c + 1, 4), Cells(b - 1, 4)).Value)
- End If
- c = rg.Row
- Next rg
- End Sub
- Private Sub CommandButton2_Click()
- Range([c1], [a65536].End(3).Offset(0, 2)).SpecialCells(xlCellTypeBlanks).Offset(0, 2) = 1
- End Sub
- Private Sub CommandButton3_Click()
- Range([a2], [a65536].End(xlUp)).Offset(0, 4) = ""
- Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
- End Sub
复制代码 |
评分
-
查看全部评分
|