含宏工作薄另存为一个新的（不含宏）工作簿，[所有工作表只复制数值、格式，不复制公

first-hdy

新手求教怎样实现：含宏工作薄另存为一个新的（不含宏）工作簿，[所有工作表只复制数值、格式，不复制公式]
练习1.rar (46.72 KB, 下载次数: 2)

2015-4-8 15:19 上传

点击文件名下载附件

first-hdy

能解决吗？

光之马

您不上传附件，其他人也很难帮助你的

first-hdy

光之马 发表于 2015-4-8 14:06
您不上传附件，其他人也很难帮助你的

多谢提醒，现已加附件。

目的：含宏工作薄另存为一个新的（不含宏）工作簿，[所有工作表只复制数值、格式，不复制公式]

first-hdy

first-hdy 发表于 2015-4-8 15:27
多谢提醒，现已加附件。

目的：含宏工作薄另存为一个新的（不含宏）工作簿，[所有工作表只复制数值、格 ...

求：含宏工作薄另存为一个新的（不含宏）工作簿，[所有工作表只复制数值、格式，不复制公式]

jpj123

另存为.XLSX文件就没宏代码了。

jpj123

1. Sub 按钮1_Click()
   
2. Dim sht As Worksheet
   
3. Application.EnableEvents = False
   
4. Application.DisplayAlerts = False
   
5. For Each sht In Sheets
   
6. sht.UsedRange = sht.UsedRange.Value
   
7. Next
   
8. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\文件-另存.xlsx", FileFormat:= _
   
9.         xlOpenXMLWorkbook, CreateBackup:=False
   
10. ActiveWorkbook.Close True
    
11. Application.DisplayAlerts = True
    
12. Application.EnableEvents = True
    
13. End Sub
    

复制代码

jpj123

详见附件      

first-hdy

jpj123 发表于 2015-4-8 17:35
详见附件

非常感谢！试过应该是这个效果。另还是这个表，想请大师帮忙看下这段代码，可否优化一下，希望“汇总”表能自动加上边框线，再次感谢！！！
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "填单" And Target.Address = "$B$1" And Target.Value <> "" Then
Dim brr(1 To 1, 1 To 3)
Application.EnableEvents = False
Worksheets("填单").Copy after:=Worksheets("填单")
    With ActiveSheet
        .Name = [b1].Value
        brr(1, 1) = .[b1]: brr(1, 2) = .[j1]: brr(1, 3) = .[j2]
    End With
    With Worksheets("汇总")
        .Activate
        x = .Cells(Rows.Count, "c").End(3).Row
        .Rows(x).Clear
        With .Cells(x, "c")
             .Resize(, 3) = brr
             .Offset(1) = "汇总"
             .Offset(1, 1) = Application.Sum(Range("d3:d" & x))
             .Offset(1, 2) = Application.Sum(Range("e3:e" & x))
        End With
    End With
End If
Application.EnableEvents = True
End Sub

jpj123

first-hdy 发表于 2015-4-8 18:12
非常感谢！试过应该是这个效果。另还是这个表，想请大师帮忙看下这段代码，可否优化一下，希望“汇总”表 ...

给你段为选中区域加边框的代码参考：

1. Public Sub AA()
   
2. With Selection.Borders
   
3.     .LineStyle = xlNone
   
4.     .ColorIndex = 0
   
5.     .TintAndShade = 0
   
6.     .Weight = xlThin
   
7. End With
   
8. End Sub

复制代码

再不行的的话，建议上传附件。