当前位置: 代码迷 >> VB >> 求指点,程序效率提高
  详细解决方案

求指点,程序效率提高

热度:163   发布时间:2016-05-19 04:22:35.0
求指导,程序效率提高
本帖最后由 u010526292 于 2014-07-09 16:40:34 编辑
以下这段代码如何修改
可以使效率大幅提升,忘指导
运用这段代码生成订单700行速度大约在20秒左右
求指导,如何修改可以使运行更快

Private Sub 生成订单()
    Dim 排序号 As Integer
    Dim 地域 As String
    Dim 负责人 As String
    Dim 酒店 As String
    Dim 订单编号 As String
    Frame3.Visible = True
    Call 更新排序号

    Set excel1 = New Excel.Application
    excel1.Visible = False
    excel1.Workbooks.Add
    With excel1.Sheets("sheet1")
        .Cells.Font.Size = 10
        Adodc1.Recordset.MoveFirst
        .Cells(1, 3) = Trim(Adodc1.Recordset.Fields("日期"))
        .Cells(1, 3).Font.Size = 16
        .Cells(1, 3).Font.Name = "黑体"
        .Cells(1, 3).NumberFormatLocal = "[$-F800]dddd, mmmm dd, yyyy"
        .Range(excel1.Sheets("sheet1").Cells(1, 3), excel1.Sheets("sheet1").Cells(1, 6)).HorizontalAlignment = xlCenter
        .Range(excel1.Sheets("sheet1").Cells(1, 3), excel1.Sheets("sheet1").Cells(1, 6)).VerticalAlignment = xlCenter
        .Range(excel1.Sheets("sheet1").Cells(1, 3), excel1.Sheets("sheet1").Cells(1, 6)).Merge
        .Columns("a:a").ColumnWidth = 37.5
        .Columns("b:b").ColumnWidth = 5.5
        .Columns("c:c").ColumnWidth = 4.5
        .Columns("d:d").ColumnWidth = 37.5
        .Columns("e:e").ColumnWidth = 5.5
        .Columns("f:f").ColumnWidth = 4.5
        With .Columns("A:F")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
            .Borders(xlEdgeLeft).Weight = xlHairline
            .Borders(xlEdgeTop).Weight = xlHairline
            .Borders(xlEdgeBottom).Weight = xlHairline
            .Borders(xlEdgeRight).Weight = xlHairline
            .Borders(xlInsideVertical).Weight = xlHairline
            .Borders(xlInsideHorizontal).Weight = xlHairline
        End With
        .Cells(1, 1) = "**公司客户订单"
        .Rows(1).RowHeight = 20
        With .Range(.Cells(1, 1), .Cells(1, 2))
            .HorizontalAlignment = xlRight
            .Font.Name = "黑体"
            .Font.Size = 16
            .Merge
        End With
        With .PageSetup
            .LeftMargin = Application.InchesToPoints(0.236220472440945)
            .RightMargin = Application.InchesToPoints(0.236220472440945)
            .TopMargin = Application.InchesToPoints(0.393700787401575)
            .BottomMargin = Application.InchesToPoints(0.393700787401575)
            .HeaderMargin = Application.InchesToPoints(0.31496062992126)
            .FooterMargin = Application.InchesToPoints(0.31496062992126)
            .PrintTitleRows = "$1:$2"
        End With

        .Cells(2, 1) = "货物名称"
        .Cells(2, 2) = "订货量"
        .Cells(2, 3) = "出库量"
        .Cells(2, 4) = "货物名称"
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Thu Mar 30 20:57:54 CST 2017
  • 最近登录:Thu Mar 30 20:57:54 CST 2017
  • 最近登录:Thu Mar 30 20:57:54 CST 2017
  • 最近登录:Thu Mar 30 20:57:54 CST 2017
  • 最近登录:Thu Mar 30 20:57:54 CST 2017