Copy sheet dạng value. (2 người xem)

[hianhdung]

Mình có vài sheet có công thức tính toán. Hiện tại, mình có nhu cầu copy các sheet này thành sheet mới bằng thao tác chuột phải trên tên sheet cần copy và sheet mới chỉ hiển thị dữ liệu không có công thức (như dạng PasteSpecial\Value). Bạn nào giúp đỡ với. Thanks.

 

[Quang_Hải]

Mình có vài sheet có công thức tính toán. Hiện tại, mình có nhu cầu copy các sheet này thành sheet mới bằng thao tác chuột phải trên tên sheet cần copy và sheet mới chỉ hiển thị dữ liệu không có công thức (như dạng PasteSpecial\Value). Bạn nào giúp đỡ với. Thanks.

Copy code này cho vào ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Reset
End Sub

Copy code này cho vào 1 Module. Lưu file. Đóng file, mở file lên lại.
Muốn nhân bản sheet nào thì chỉ cần giữ phím Ctrl và kéo sheet đó đi thì có 1 bản mới rồi
Muốn copy giá trị của những sheet nào thì chọn hết các sheet đó rồi click chuột phải tại sheet tab sẽ thấy lệnh SheetsCopyValue

Sub Auto_Open()
Application.CommandBars("Ply").Reset
With Application.CommandBars("Ply").Controls.Add(1, , , 1)
   .Caption = "SheetsCopyValue"
   .OnAction = "SheetsCopyValue"
End With
End Sub
Sub SheetsCopyValue()
Dim sh As Worksheet
For Each sh In ActiveWindow.SelectedSheets
  sh.UsedRange.Value = sh.UsedRange.Value
Next
End Sub