|
- Public Sub 保存()
- Dim i As Integer, a(), n
- Dim c As Range
- With Sheet1
- If .Range("K15").Value = 0 Then Exit Sub
- For i = 6 To 14
- If .Range("J" & i).Value <> 0 Then
- n = n + 1: ReDim Preserve a(1 To 9, 1 To n)
- a(1, n) = .Range("C4").Value '客户
- a(2, n) = .Range("J4").Value '时间
- a(3, n) = .Range("B" & i).Value '名称
- a(4, n) = .Range("C" & i).Value '款号
- a(5, n) = .Range("D" & i).Value '尺码
- a(6, n) = .Range("H" & i).Value '颜色
- a(7, n) = .Range("I" & i).Value '克重
- a(8, n) = .Range("J" & i).Value '总数量
- a(9, n) = .Range("K" & i).Value '净重(kg)
- End If
- Next
- End With
- Sheet2.Range("A" & Rows.Count).End(3).Offset(1, 0).Resize(n, 9) = _
- WorksheetFunction.Transpose(a)
- Sheet1.Range("A1:O18").PrintPreview
- If MsgBox("是否清除当前记录?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
- Sheet1.Range("B6:L14,N6:O14").Value = ""
- End Sub
复制代码 |
|