Save file dạng giá trị

[Thien]

Dear All
Mình muốn khi save bình thường thì không có gì để nói. Nhưng khi save as thì toàn bộ công thức cũng như link đều được chuyển thành giá trị.Dùng macro ghi lại thì được như sau:

Sub Macro1()
    Sheets(Array("gift 3C", "gift CH", "NHAP LIEU", "BRA 01", "CHI", "NKC", "THONG_KE", _
        "CD SPS ", "CD KTOAN", "SO", "CDKT", "KQKD (2)", "KQKD", "Nhatky", "TEMP")).Select
    Sheets("Nhatky").Activate
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

1/ có thể thay đoạn code sau bằng code nào.

Sheets(Array("gift 3C", "gift CH", "NHAP LIEU", "BRA 01", "CHI", "NKC", "THONG_KE", _
        "CD SPS ", "CD KTOAN", "SO", "CDKT", "KQKD (2)", "KQKD", "Nhatky", "TEMP")).Select

2/ Khi save as thì toàn bộ công thức sẽ thành giá trị.

Mình nhớ hình như Anh Phong có chỉ rồi nhưng tìm không ra, mong thông cảm & hướng dẫn lại.

Cảm ơn nhiều.

TC.

 

[Thien]

Đã mấy ngày trôi qua mà tình ta vẫn là ta thì buồn quá nhỉ.
Chẳng lẻ đành bó tay sao?.
Chắc mình hỏi dễ quá đến chẳng ai màn trả lời.

Thôi thì đành bỏ GPE vậy.

C.

 

[ThuNghi]

Cái Sheets(Array()) là bạn group các sheet thôi. Hình như trong file tôi làm cho bạn có những phần này. Thay vì group để move thì ta duyệt qua tên sh theo range() nếu OK thì move.
Sheets("Nhatky").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Falsebạn muốn copy sh nhatky và paste làm thử 1 macro copy paste sẽ thấy ngay. Đúng như bạn Hiếu nói, bạn lười quá.

 

[Thien]

Trời ơi bạn hiểu sai ý mình rùi.
Mình muốn tất cả các sheet trong file khi dùng lệnh save as thì khi sang file mới toàn bộ công thức cũng như link trong file mới sẽ chỉ còn giá trị thôi.
(Mình đang còn chưa biết dùng lệnh nào để chọn tất cả các sheet thay cho Sheets(Array())).

Mình lười nhưng cũng có chừng thôi mà. chứ đâu phải nằm chờ sung rụng đâu.
Thông cảm nha.

TC.

 

[ThuNghi]

Set SourceWb = ThisWorkbook
wPath = ThisWorkbook.Path
Workbooks.Add
Set TgtWb = ActiveWorkbook
NumSht = Sheets.Count
SourceWb.Activate
For i = 1 To S99.Range("dmtk").Rows.Count
SourceWb.Activate
shName = S99.Range("dmtk").Cells(i, 1).Value
Sheets(shName).Move After:=TgtWb.Sheets(TgtWb.Sheets.Count)
Next i

Trong code taoWB, file insocai có đọan trên, nhiệm vụ là move sang.
Lưu ý nếu paste có công thức thì đụng đến name, nó sẽ không hiểu. Vậy công thức ở giới hạn nào.

 

[Thien]

Hiện tại vẫn chưa giải quyết được vấn đề.
Có ai hảo tâm thì giúp dùm.

TC.

 

[TranThanhPhong]

Save loại bỏ công thức

Chào bạn Thiện,

Bạn download file đính kèm nhấn alt+f11 chạy thủ tục thì file sẽ được Save As và loại bỏ tất cả công thức.

TP.

 

[Thien]

Rất cảm ơn Anh Phong đã giải đáp.
Anh làm đúng 1 phần ý mình rùi, chỉ có điều nhờ giúp hộ:
1/ Của anh là mình phải chạy macro SaveThanhFileKhacBoCongThuc thì sẽ được file khác lưu dưới dạng giá trị. Nhưng mình cần là khi người dùng sử dụng chức năng save as thì sẽ gọi macro SaveThanhFileKhacBoCongThuc này của Anh. Em sẽ nghiên cứu làm điều này được.
2/ Anh cho em xin đoạn code sao cho trong file lưu dưới dạng giá trị không còn module nào cả, ngay cả các đoạn code trong ThisWorkbook cũng bị xóa hết.

Chân thành cảm ơn.
Thân chào (TC.)

 

[TranThanhPhong]

Add-Ins SaveAs Formulas To Value

Chào Thiện,

Cái Add-Ins này khi được Add-Ins nó sẽ xóa lệnh Save As của Excel và thay vào đó nút lệnh Save As của Add-Ins để mỗi khi User chọn Save As tử thực đơn File nó sẽ thực hiện sao lưu Workbook hiện hành thành 1 bản khác không có công thức.

Khi không xài thì bỏ Add-Ins đi nhe nó sẽ khôi phục nút Save As trên thực đơn File lại.

TP.

 

[Thien]

Dear Anh Phong
Cực công giúp đỡ nhưng không hiểu sao nó báo lỗi khi thêm add-in vào ngay đoạn DeleteFromShortcut trong Sub AddSaveAsToFileMenu().

TC.

 

[TranThanhPhong]

Thiện xóa dòng lệnh đó đi, bị dư quên xóa!

 

[giayrach]

File bị lỗi

Xin chào các anh chị!

Tôi là thành viên mới đang mầy mò học abc về exel. Tôi lục tìm được chủ đề này đúng cái tôi cần. Tôi đã tải về và đã xóa đi dòng lệnh thừa như anh Thien nói nhưng khi chạy add-in thì bị báo lỗi ở dòng Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=748, Recursive:=True).Delete

Mong các anh chị giúp đỡ. Xin cảm ơn.

 

[del0nq]

Hi Anh!
Em đã add-Ins đó vô được office 2010 rồi, nhưng save làm sao để chỉ lấy giá chị (mỗi lần gởi bc đi là khổ sở để bỏ công thức)
Mong anh chị em giúp đỡ. Xin được cảm ơn/

 

[htktdm2020]

Add-Ins SaveAs Formulas To Value

Chào Thiện,

Cái Add-Ins này khi được Add-Ins nó sẽ xóa lệnh Save As của Excel và thay vào đó nút lệnh Save As của Add-Ins để mỗi khi User chọn Save As tử thực đơn File nó sẽ thực hiện sao lưu Workbook hiện hành thành 1 bản khác không có công thức.

Khi không xài thì bỏ Add-Ins đi nhe nó sẽ khôi phục nút Save As trên thực đơn File lại.

TP.

Add-Ins SaveAs Formulas To Value

Chào Thiện,

Cái Add-Ins này khi được Add-Ins nó sẽ xóa lệnh Save As của Excel và thay vào đó nút lệnh Save As của Add-Ins để mỗi khi User chọn Save As tử thực đơn File nó sẽ thực hiện sao lưu Workbook hiện hành thành 1 bản khác không có công thức.

Khi không xài thì bỏ Add-Ins đi nhe nó sẽ khôi phục nút Save As trên thực đơn File lại.

TP.

Em làm thử mà k được . E nhờ A hướng dẫn lại ạ
Em có 1 file muốn lưu khi gửi báo cáo chỉ lấy giá trị