Không tự động cập nhât ngày giờ nữa

[khanhhaifpt]

Em có tạo ra 1 bảng tính bán hàng...trong đó có phần ngày giờ em dùng NOW(), nhưng khi em điền số lượng hàng của khách vào và thanh toán thì em dùng chức năng SAVE AS sang một bảng khác để lưu lại. Em muốn hôm sau mở bản lưu ấy nó vẫn giữ nguyên ngày tháng cũ, kô cập nhật ngày giờ hiện tại. Còn bản gốc thì vẫn cập nhật để dùng tiếp. Bản gốc đây ạ: ( ai có ý kiến gì đóng góp gì cho bản này hoàn hảo hơn thì giúp em luôn, em mới tập dùng exll)

 

[Po_Pikachu]

Bạn muốn lưu thì dùng code này thử xem.

[COLOR=#000000][FONT=Courier New][COLOR=navy]Sub Save[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]()[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb][COLOR=navy]Dim Dir[/COLOR] [/COLOR][COLOR=#007700]As [/COLOR][/FONT][FONT=Courier New][COLOR=navy]String[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb][COLOR=navy]MyFileName[/COLOR] [/COLOR][COLOR=#007700]= [/COLOR][COLOR=navy]Right(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - InStrRev(ActiveWorkbook.FullName, [/COLOR][/FONT][FONT=Courier New][COLOR=navy][COLOR=navy]"\", ,[/COLOR] vbTextCompare))[/COLOR][/FONT]
[COLOR=#dd0000][FONT=Courier New][COLOR=blue][COLOR=navy]Dir[/COLOR] [/COLOR][COLOR=navy]=[/COLOR] "[/FONT][/COLOR][FONT=Courier New][COLOR=#0000bb]D[/COLOR][COLOR=#007700]:\[/COLOR][/FONT][COLOR=#dd0000][FONT=Courier New]"          [COLOR=blue]   [COLOR=darkgreen]'Bạn muốn chỉnh sữa vị trí lưu thì chỉnh ở đây[/COLOR][/COLOR][/FONT][COLOR=blue]
[FONT=Courier New][COLOR=navy]ThisWorkbook.Save[/COLOR][/FONT]
[FONT=Courier New][COLOR=navy]Sheet2.[E5] = Sheet2.[E5].Value[/COLOR][/FONT]
[FONT=Courier New][COLOR=navy]ThisWorkbook.SaveAs Filename:=Dir & MyFileName[/COLOR][/FONT]
[FONT=Courier New][COLOR=navy]End Sub[/COLOR] [/FONT][/COLOR][/COLOR][/COLOR]

Thân.

 

[ndu96081631]

Em có tạo ra 1 bảng tính bán hàng...trong đó có phần ngày giờ em dùng NOW(), nhưng khi em điền số lượng hàng của khách vào và thanh toán thì em dùng chức năng SAVE AS sang một bảng khác để lưu lại. Em muốn hôm sau mở bản lưu ấy nó vẫn giữ nguyên ngày tháng cũ, kô cập nhật ngày giờ hiện tại. Còn bản gốc thì vẫn cập nhật để dùng tiếp. Bản gốc đây ạ: ( ai có ý kiến gì đóng góp gì cho bản này hoàn hảo hơn thì giúp em luôn, em mới tập dùng exll)

Tưởng add nhiều cell từ dùng VBA đễ giãi quyết ---> Ở đây có 1 cell duy nhất, bấm Ctrl + ; cho rồi bạn ơi!

 

[khanhhaifpt]

Tưởng add nhiều cell từ dùng VBA đễ giãi quyết ---> Ở đây có 1 cell duy nhất, bấm Ctrl + ; cho rồi bạn ơi!

Nhưng đấy là chỉ tạo ten file, còn em muốn giữ lại cả ngày trên bảng tính nữa... Nói chung vô hiệu hóa hàm NOW() nhưng phải thao tác dễ như vạy là được. Em kém khoản này lắm, hơn nữa em tự học mà>

 

[khanhhaifpt]

Bạn muốn lưu thì dùng code này thử xem.

[COLOR=#000000][FONT=Courier New][COLOR=navy]Sub Save[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]()[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb][COLOR=navy]Dim Dir[/COLOR] [/COLOR][COLOR=#007700]As [/COLOR][/FONT][FONT=Courier New][COLOR=navy]String[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb][COLOR=navy]MyFileName[/COLOR] [/COLOR][COLOR=#007700]= [/COLOR][COLOR=navy]Right(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - InStrRev(ActiveWorkbook.FullName, [/COLOR][/FONT][FONT=Courier New][COLOR=navy][COLOR=navy]"\", ,[/COLOR] vbTextCompare))[/COLOR][/FONT]
[COLOR=#dd0000][FONT=Courier New][COLOR=blue][COLOR=navy]Dir[/COLOR] [/COLOR][COLOR=navy]=[/COLOR] "[/FONT][/COLOR][FONT=Courier New][COLOR=#0000bb]D[/COLOR][COLOR=#007700]:\[/COLOR][/FONT][COLOR=#dd0000][FONT=Courier New]"          [COLOR=blue]   [COLOR=darkgreen]'Bạn muốn chỉnh sữa vị trí lưu thì chỉnh ở đây[/COLOR][/COLOR][/FONT]
[COLOR=blue][FONT=Courier New][COLOR=navy]ThisWorkbook.Save[/COLOR][/FONT]
[FONT=Courier New][COLOR=navy]Sheet2.[E5] = Sheet2.[E5].Value[/COLOR][/FONT]
[FONT=Courier New][COLOR=navy]ThisWorkbook.SaveAs Filename:=Dir & MyFileName[/COLOR][/FONT]
[FONT=Courier New][COLOR=navy]End Sub[/COLOR] [/FONT][/COLOR][/COLOR][/COLOR]

Thân.

Sorry còn khoản code...em không hiểu được

 

[VuongTrungDuong]

Nhưng đấy là chỉ tạo ten file, còn em muốn giữ lại cả ngày trên bảng tính nữa... Nói chung vô hiệu hóa hàm NOW() nhưng phải thao tác dễ như vạy là được. Em kém khoản này lắm, hơn nữa em tự học mà>

Các hạ nói gì mà tại hạ chẳng hiểu được gì cả! Rút cục là các hạ muốn cái gì vậy?

 

[khanhhaifpt]

Các hạ nói gì mà tại hạ chẳng hiểu được gì cả! Rút cục là các hạ muốn cái gì vậy?

Sorry em lam được rồi. Tại em kém mà, Em đã nói từ đầu. Thank