copy paste trong VBA chỉ lấy giá trị và gộp ô mà không lấy công thức (1 người xem)

[hic1802]

Xin chào mọi người trên GPE,
Em có đoạn code VBA lấy trên diễn đàn về việc lưu file dạng copy paste
Tuy nhiên em muốn chỉ paste giá trị và định dạng gộp ô và kẻ dòng, ko muốn paste cả công thức
Nhờ mọi người giúp đỡ
mã

Public Sub Luu()
Dim Pth As String, fso As Object, Ws As Worksheet
Set Ws = ThisWorkbook.Sheets("DATA")
Pth = ThisWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Not fso.FolderExists(Pth & "\DuLieuSau") Then fso.CreateFolder (Pth & "\DuLieuSau")
    Ws.Copy
    ActiveWorkbook.SaveAs Pth & "\DuLieuSau\BC_" & Format(Ws.Range("A4"), "dd_mm_yyyy")
    ActiveWorkbook.Close
MsgBox "Luu xong!"
Set fso = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[giaiphap]

Xin chào mọi người trên GPE,
Em có đoạn code VBA lấy trên diễn đàn về việc lưu file dạng copy paste
Tuy nhiên em muốn chỉ paste giá trị và định dạng gộp ô và kẻ dòng, ko muốn paste cả công thức
Nhờ mọi người giúp đỡ
mã

 Lưu phụ công cộng ()
Dim Pth Như String, fso As Object, Ws As Worksheet
Đặt Ws = ThisWorkbook.Sheets ("DATA")
Pth = ThisWorkbook.Path
Đặt fso = CreateObject ("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Nếu không fso.FolderExists (Pth & "\ DuLieuSau") thì fso.CreateFolder (Pth & "\ DuLieuSau")
    Ws.Copy
    ActiveWorkbook.SaveAs Pth & "\ DuLieuSau \ BC_" & Định dạng (Ws.Range ("A4"), "dd_mm_yyyy")
    ActiveWorkbook.Close
MsgBox "Lưu xong!"
Đặt fso = Không có gì
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub [/ CODE]

Code của bạn sao vậy nhỉ! Nhìn chả hiểu luôn.

 

[♫ђöล♥ßล†♥†µ♫]

Xin chào mọi người trên GPE,
Em có đoạn code VBA lấy trên diễn đàn về việc lưu file dạng copy paste
Tuy nhiên em muốn chỉ paste giá trị và định dạng gộp ô và kẻ dòng, ko muốn paste cả công thức
Nhờ mọi người giúp đỡ
mã

 Lưu phụ công cộng ()
Dim Pth Như String, fso As Object, Ws As Worksheet
Đặt Ws = ThisWorkbook.Sheets ("DATA")
Pth = ThisWorkbook.Path
Đặt fso = CreateObject ("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Nếu không fso.FolderExists (Pth & "\ DuLieuSau") thì fso.CreateFolder (Pth & "\ DuLieuSau")
    Ws.Copy
    ActiveWorkbook.SaveAs Pth & "\ DuLieuSau \ BC_" & Định dạng (Ws.Range ("A4"), "dd_mm_yyyy")
    ActiveWorkbook.Close
MsgBox "Lưu xong!"
Đặt fso = Không có gì
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub [/ CODE]

Cái Code này hay quá. Có cả tiếng Việt nè. Anh đính kèm file nữa dễ làm hơn anh ạ

 

[HieuCD]

Xin chào mọi người trên GPE,
Em có đoạn code VBA lấy trên diễn đàn về việc lưu file dạng copy paste
Tuy nhiên em muốn chỉ paste giá trị và định dạng gộp ô và kẻ dòng, ko muốn paste cả công thức
Nhờ mọi người giúp đỡ
mã

 Lưu phụ công cộng ()
Dim Pth Như String, fso As Object, Ws As Worksheet
Đặt Ws = ThisWorkbook.Sheets ("DATA")
Pth = ThisWorkbook.Path
Đặt fso = CreateObject ("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Nếu không fso.FolderExists (Pth & "\ DuLieuSau") thì fso.CreateFolder (Pth & "\ DuLieuSau")
    Ws.Copy
    ActiveWorkbook.SaveAs Pth & "\ DuLieuSau \ BC_" & Định dạng (Ws.Range ("A4"), "dd_mm_yyyy")
    ActiveWorkbook.Close
MsgBox "Lưu xong!"
Đặt fso = Không có gì
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub [/ CODE]

Thêm lệnh trước dòng lệnh: ActiveWorkbook.Close
Tất cả ô.Ô đặc biệt(xl ô dạng công thức) = Tất cả ô.Ô đặc biệt(xl ô dạng công thức)

 

[hic1802]

Thêm lệnh trước dòng lệnh: ActiveWorkbook.Close
Tất cả ô.Ô đặc biệt(xl ô dạng công thức) = Tất cả ô.Ô đặc biệt(xl ô dạng công thức)

e đã sửa lại nhờ mọi người giúp. Không hiểu sao nó tự động dịch sang tiếng việt :v :v :v

 

[♫ђöล♥ßล†♥†µ♫]

e đã sửa lại nhờ mọi người giúp. Không hiểu sao nó tự động dịch sang tiếng việt :v :v :v

Public Sub Luu()
Dim Pth As String, fso As Object, Ws As Worksheet, Rng As Range
Set Ws = ThisWorkbook.Sheets("DATA")
Pth = ThisWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Not fso.FolderExists(Pth & "\DuLieuSau") Then fso.CreateFolder (Pth & "\DuLieuSau")
    Ws.Copy
    ActiveWorkbook.SaveAs Pth & "\DuLieuSau\BC_" & Format(Ws.Range("A4"), "dd_mm_yyyy")
    Range("A1").CurrentRegion.Copy
    Range("A1").PasteSpecial xlPasteValues
    ActiveWorkbook.Close
MsgBox "Luu xong!"
Set fso = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[hic1802]

Public Sub Luu()
Dim Pth As String, fso As Object, Ws As Worksheet, Rng As Range
Set Ws = ThisWorkbook.Sheets("DATA")
Pth = ThisWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Not fso.FolderExists(Pth & "\DuLieuSau") Then fso.CreateFolder (Pth & "\DuLieuSau")
    Ws.Copy
    ActiveWorkbook.SaveAs Pth & "\DuLieuSau\BC_" & Format(Ws.Range("A4"), "dd_mm_yyyy")
    Range("A1").CurrentRegion.Copy
    Range("A1").PasteSpecial xlPasteValues
    ActiveWorkbook.Close
MsgBox "Luu xong!"
Set fso = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Public Sub Luu()
Dim Pth As String, fso As Object, Ws As Worksheet, Rng As Range
Set Ws = ThisWorkbook.Sheets("DATA")
Pth = ThisWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Not fso.FolderExists(Pth & "\DuLieuSau") Then fso.CreateFolder (Pth & "\DuLieuSau")
    Ws.Copy
    ActiveWorkbook.SaveAs Pth & "\DuLieuSau\BC_" & Format(Ws.Range("A4"), "dd_mm_yyyy")
    Range("A1").CurrentRegion.Copy
    Range("A1").PasteSpecial xlPasteValues
    ActiveWorkbook.Close
MsgBox "Luu xong!"
Set fso = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Không được bác ơi, vẫn còn công thức trong các ô chứa công thức
Bác xem lại