★利用单元颜色动态判断记录方式★

asat

下了, 学习.....

lbl016

为什么有合并单元格就出错呢？

LangQueS

1楼附件包含合并单元……

LangQueS

也可以采用以下方法：

★利用数据有效性信息动态判断记录方式★        http://club.excelhome.net/thread-560725-1-1.html

lbl016

Sub 保存1()
    ActiveSheet.PageSetup.PrintArea = "$A$1:$k$17"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    With Sheets("订单汇总")
        r = .[A65536].End(xlUp).Row + 2
        .Cells(r, 1).Value = Range("j4").Value
        .Cells(r, 2).Value = Range("j3").Value
        .Cells(r, 3).Value = Range("c3").Value
        .Cells(r, 4).Value = Range("b7").Value
        .Cells(r, 5).Value = Range("e7").Value
        .Cells(r, 6).Value = Range("f7").Value
        .Cells(r, 7).Value = Range("g7").Value
        .Cells(r, 8).Value = Range("h7").Value
        .Cells(r, 9).Value = Range("c7").Value
        .Cells(r, 10).Value = Range("c13").Value
        .Cells(r, 11).Value = Range("k7").Value
        .Cells(r, 11).Value = Range("f3").Value
     n = Right(.Cells(.[A65536].End(xlUp).Row, 2), 3) + 1
    End With
    Range("j3").Value = Year(Date) & Format(322, "0000") & Format(n, "000")
End Sub
Sub 保存2()
Dim Sht1 As Worksheet, Sht As Worksheet
Dim Myr1%, Myr%, n%, m%, x%
Application.ScreenUpdating = False
Set Sht1 = Sheets("订单汇总")
Sht1.Activate
i = Application.CountA(Sheets(1).Range("a:a"))
For Each Sht In Sheets
    If Sht.Name <> Sht1.Name Then
        Myr1 = Sht1.[A65536].End(xlUp).Row + 2
        Myr = Sht.[c65536].End(xlUp).Row - 2
        n = Myr - 7
        Cells(Myr1, 1).Resize(n, 1) = Sht.[j4]
        Cells(Myr1, 2).Resize(n, 1) = Sht.[j3]
        Cells(Myr1, 3).Resize(n, 1) = Sht.[c3]
        Sht.Range("a7:k" & n + 6).Copy
        Cells(Myr1, 4).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Cells(Myr1, 15).Resize(n, 1) = Sht.[f3]
        Cells(Myr1, 16).Resize(n, 1) = Sht.[c14]
       m = Sht.[A65536].End(xlUp).Row - 16
    Sht.[j3] = Year(Date) & Format(322, "0000") & Format(m, "000")
End If
Next Sht
Range("a" & i).Select
Application.ScreenUpdating = True
End Sub
保存1代码能实现单号自动加1位，但就是订单只有第一行能够保存到汇总表，下面的5行都不能存到汇总表，保存2代码能实现订单第1-5能够保存到汇总表，但不能实现单号自动加1位，请版主帮我修改红色部分代码，这部分代码是用于打印一次单号自动加1位，现在的代码不能单号自动加1位。也可以直接修改成你的代码，但是必须要能实现单号自动加1位

[ 本帖最后由 lbl016 于 2010-4-18 09:19 编辑 ]

lbl016

请版主帮我修改代码

LangQueS

原帖由 lbl016 于 2010-4-18 14:14 发表
请版主帮我修改代码

建议上传问题附件

lbl016

原帖由 LangQueS 于 2010-5-13 20:18 发表


建议上传问题附件

附件在16楼

LangQueS

订单.rar (55.05 KB, 下载次数: 206)

2010-5-14 19:28 上传

点击文件名下载附件

lbl016

原帖由 LangQueS 于 2010-5-14 19:28 发表
717397

你的方法是可以保存数据，但不能实现单号自动加1