[原创]★将公式保存在宏中★

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位。

[ 本帖最后由 lbl016 于 2010-4-17 10:40 编辑 ]

LangQueS

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

LangQueS

★利用单元颜色动态判断记录方式★        http://club.excelhome.net/viewth ... e%3D1&frombbs=1

风和日月

老师你好数据的导入你也解决但金额分列和数据的排列怎么解决,请教

lbl016

原帖由 LangQueS 于 2010-4-17 11:30 发表
★利用单元颜色动态判断记录方式★        http://club.excelhome.net/viewth ... e%3D1&frombbs=1

我设置颜色不能正确记录数据，为什么有合并单元格就出错呢？请版主将我的附件按要求设置颜色，并实现单号自动加1位或者修改74楼代码

[ 本帖最后由 lbl016 于 2010-4-17 12:20 编辑 ]

lbl016

我设置颜色不能正确记录数据，为什么有合并单元格就出错呢？请版主将我的附件按要求设置颜色，并实现单号自动加1位或者修改74楼代码

lbl016

请版主将我的附件按要求设置颜色，并实现单号自动加1位或者修改74楼代码

lbl016

原帖由 LangQueS 于 2010-4-17 11:29 发表
★利用数据有效性信息动态判断记录方式★        http://club.excelhome.net/thread-560725-1-1.html

请LangQueS版主将我的附件按要求设置颜色，并实现单号自动加1位或者修改74楼代码

lbl016

请LangQueS版主将我的这个公式录制在宏里，M3M3=IF(LEFT(P3)="补",LOOKUP(L3*1%,{1,3,4,5},{30,35,40,45}),IF(YEAR(K3)<2008,,IF(OR(P3="文书",P3="主任",P3="书记"),VLOOKUP(P3,{"文书",500;"主任",600;"书记",700},2,0),IF(YEAR(K3)<=2009,L3*3%,IF(LEFT(P3)="残",LOOKUP(L3*1%,{0,2,3,4},{130,135,140,145}),IF(OR(L3*1%={1,2,3,4,5,10,15,20}),LOOKUP(L3*1%,{1,3,4,5},{30,35,40,45}),"错"))))))我录制在宏里时提示不能记录，必要时也可简化公式。

[ 本帖最后由 lbl016 于 2010-4-23 07:29 编辑 ]

lbl016

请LangQueS版主将我的这个公式M3=IF(LEFT(P3)="补",LOOKUP(L3*1%,{1,3,4,5},{30,35,40,45}),IF(YEAR(K3)<2008,,IF(OR(P3="文书",P3="主任",P3="书记"),VLOOKUP(P3,{"文书",500;"主任",600;"书记",700},2,0),IF(YEAR(K3)<=2009,L3*3%,IF(LEFT(P3)="残",LOOKUP(L3*1%,{0,2,3,4},{130,135,140,145}),IF(OR(L3*1%={1,2,3,4,5,10,15,20}),LOOKUP(L3*1%,{1,3,4,5},{30,35,40,45}),"错"))))))录制在宏里

[ 本帖最后由 lbl016 于 2010-4-23 07:29 编辑 ]