|
|
本帖最后由 huanghyy 于 2017-4-15 12:47 编辑
通达2013如何执行里边的宏
在电脑打开excel可以正常执行宏命令，但是上传到OA的公共文件柜里边，在线编辑的话，就无法正常执行宏命令，在线编辑的时候打开excel已经点击开启宏功能了。最后1步的保存无法实现。
宏命令如下：
Sub 更新()
'复制分表至总表
On Error Resume Next
Sheet1.Rows("4:" & Rows.Count).ClearContents
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
With wks
If .Name <> Sheet1.Name Then
If .AutoFilterMode = True Then .AutoFilterMode = False
Intersect(.Cells(Rows.Count, 1).End(xlUp).CurrentRegion, .Rows("4:" & Rows.Count)).Copy _
Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.Rows("3:3").Select
.AutoFilterMode = True
End If
End With
Next wks
'冻结标题
Range("i4").Select
ActiveWindow.FreezePanes = True
'排序
Sheet1.Rows("4:3000").Select
Sheet1.Sort.SortFields.Clear
Sheet1.Sort.SortFields.Add(Range("H4:H3000"), _
xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
192, 0)
Sheet1.Sort.SortFields.Add Key:=Range("H4:H3000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("生产委托").Sort
.SetRange Range("A4:AZ3000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'删除未委托项
Sheet1.Select
r = [e3000].End(xlUp).Row
For i = r To 4 Step -1
If Sheet1.Cells(i, 9) = 0 Then Sheet1.Rows(i).Delete
Next
'保存
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="\\ser01\公用盘\生产情况跟踪\备份\" & Format(Date$, "yyyy-mm-dd") & ".xls"
ActiveWorkbook.SaveAs Filename:="\\ser01\公用盘\生产情况跟踪\生产情况跟踪表.xls"
End Sub
|
|
[复制链接]
发表于 2017-4-15 12:44:42
楼主