|
本帖最后由 gdw831001 于 2014-7-22 23:59 编辑
- <div class="blockcode"><blockquote>Sub 按钮2_单击()
- Sheets("出库单").Select
- 'If IsEmpty(Range("a9")) Then
- ' Exit Sub
- 'End If
- x = 2
- Do While Not (IsEmpty(Sheets("出库记录").Cells(x, 1).Value))
- x = x + 1
- Loop
- 'y = x
- 'If y = 2 Then
- ' If Range("K3") <> 1 Then
- ' MsgBox "出库单ID错误"
- ' Exit Sub
- ' End If
- 'Else
- ' If Range("K3") <> Sheets("出库记录").Cells(y - 1, 1) + 1 Then
- ' MsgBox "出库单ID重复或错误"
- ' Exit Sub
- ' End If
- 'End If
- Z = 9
- Do While Not IsEmpty(Cells(Z, 2).Value)
- Z = Z + 1
- Loop
- For times = 1 To Z - 9
- Sheets("出库记录").Cells(x - 1 + times, 1) = Range("K3")
- Sheets("出库记录").Cells(x - 1 + times, 2) = Range("F2")
- Sheets("出库记录").Cells(x - 1 + times, 3) = Range("J2")
- Sheets("出库记录").Cells(x - 1 + times, 4) = Range("B" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 5) = Range("C" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 6) = Range("D" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 7) = Range("E" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 8) = Range("F" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 9) = Range("G" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 10) = Range("H" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 11) = Range("I" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 12) = Range("J" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 13) = Range("K" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 15) = Range("L" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 17) = Range("M" & times + 8)
- Sheets("出库记录").Cells(x - 1 + times, 18) = Range("N" & times + 8)
- For tm = 17 To 20
- Sheets("出库记录").Cells(x - 1 + times, tm) = Cells(8 + times, tm - 11)
- Next tm
- Next times
- Range("B2,B3,J2,B9:C13,E9:E13,J9:J13,M9:N13").Select
- Selection.ClearContents
- v = Range("K3") + 1
- Range("K3") = v
- Range("B2").Select
- End Sub
复制代码 改了中间哪几句,其他判断的,被我注释掉的如果有问题自己改了 |
|