Có đoạn code nào biến mọi thao tác dán thành Paste Values không?

[nghiaphuc]

Mình có làm một chương trình quản lý điểm cho trường và mình gặp một vấn đề như sau:
Trong bảng tính, mình đã định dạng nhất quán khung, nền, font chữ, cỡ chữ, CF,... rồi, nhưng khi giáo viên copy điểm từ file điểm cá nhân của họ vào chương trình (vì đây là chương trình dùng chung cho tất cả các môn, các lớp) thì những định dạng ban đầu của mình thường bị biến đổi. Mặc dù nó chẳng làm thay đổi gì chức năng của chương trình (trừ những thứ liên quan đến Validation) nhưng về mặt thẩm mỹ thì rất khó chịu.
Thực tế thì mình đã hướng dẫn rất nhiều lần về thao tác Paste Values, thậm chí mình còn kéo nút Paste Values lên thanh Menu và đặt phím tắt cho nó, nhưng có lẽ do thói quen khó bỏ nên thường thì giáo viên cứ nhấn nút Paste hoặc nhấn Ctrl+V để dán.
Vậy, xin hỏi: Liệu có đoạn code nào có thể biến mọi thao tác dán thành Paste Values không? Ít nhất là biến 2 thao tác: nhấn nút Paste và nhấn Ctrl+V thành Paste Values.
Rất mong nhận được câu trả lời của các anh, chị, em.
Xin chân thành cảm ơn!

 

[ndu96081631]

Em xin lỗi vì đã đào mộ vì em không biết làm thế nào để có thể làm được trên file exel của em. Em đã thử copy toàn bộ code qua file của mình, save dưới định dạng .xlsm và nhận được lỗi:
View attachment 170547

Kính nhờ các anh / chị giúp đỡ hướng dẫn em với ạ.

Sao bạn không đưa file lên cho mọi người kiểm tra? Chỉ nhìn cái hình lại vừa mờ thì làm sao biết được

 

[congaco]

Chào mọi người. Chúc cả nhà ngày mới tốt lành ạ.
Cảm ơn thầyndu96081631 đã quan tâm ạ. Em Bookmark topic này mà không để ý rằng post của em là cuối của trang nên tưởng không ai quan tâm luôn
Trong post trước em post hình lớn nhưng showroom tự resize hình. Em post lại lỗi và đính kèm file trong post này, nhờ thầy giúp em ạ. Em xin cảm ơn.

 

[ndu96081631]

Chào mọi người. Chúc cả nhà ngày mới tốt lành ạ.
Cảm ơn thầyndu96081631 đã quan tâm ạ. Em Bookmark topic này mà không để ý rằng post của em là cuối của trang nên tưởng không ai quan tâm luôn
Trong post trước em post hình lớn nhưng showroom tự resize hình. Em post lại lỗi và đính kèm file trong post này, nhờ thầy giúp em ạ. Em xin cảm ơn.
View attachment 170644

Báo lỗi là vì bạn quên đổi tên Class1 thành clsExcelEvents





















nên vừa khởi động file, lập tức báo lỗi ngay dòng đầu tiên liền (bởi nó không tìm thấy thằng nào tên là clsExcelEvents cả

 

[congaco]

Vâng em cảm ơn thầy ạ

 

[thanhtratt]

1> Code trong Module

Sub PutDataToClipboard()
  Dim Text As String
  On Error Resume Next
  With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .GetFromClipboard
    Text = .GetText
    .Clear
    .SetText Text
    .PutInClipboard
  End With
End Sub

2> Code trong Thisworkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  On Error Resume Next
  If Application.CutCopyMode Then PutDataToClipboard
End Sub

Vậy thôi

Cái này có sử dụng được trên Excel 2019 không? Sao mình làm rồi mà khi Pase không có tác dụng?

 

[ndu96081631]

Cái này có sử dụng được trên Excel 2019 không? Sao mình làm rồi mà khi Pase không có tác dụng?

Chắc chắn dùng được trên Excel 2019 nha bạn

 

[hungtin1997]

Sao không dùng Quick Access để gán nút dán Value lên Ribbon. Gán vào phím Alt+1 rồi dán thôi.

 

[ndu96081631]

Sao không dùng Quick Access để gán nút dán Value lên Ribbon. Gán vào phím Alt+1 rồi dán thôi.
View attachment 249420

Nếu nguồn copy nằm ở chỗ khác (trên 1 trang web chẳng hạn) thì liệu có dùng cách của bạn được không?

 

[hungtin1997]

Nếu nguồn copy nằm ở chỗ khác (trên 1 trang web chẳng hạn) thì liệu có dùng cách của bạn được không?

Dạ em tưởng làm việc chỉ trong Excel thưa thầy, với lại nếu dán từng ô thì F2 rồi dán vẫn ổn mà thầy.

 

[ndu96081631]

Dạ em tưởng làm việc chỉ trong Excel thưa thầy, với lại nếu dán từng ô thì F2 rồi dán vẫn ổn mà thầy.

Ngoài ra thì tác giả bài viết có nói rằng:

Thực tế thì mình đã hướng dẫn rất nhiều lần về thao tác Paste Values, thậm chí mình còn kéo nút Paste Values lên thanh Menu và đặt phím tắt cho nó, nhưng có lẽ do thói quen khó bỏ nên thường thì giáo viên cứ nhấn nút Paste hoặc nhấn Ctrl+V để dán.
Vậy, xin hỏi: Liệu có đoạn code nào có thể biến mọi thao tác dán thành Paste Values không? Ít nhất là biến 2 thao tác: nhấn nút Paste và nhấn Ctrl+V thành Paste Values.
Rất mong nhận được câu trả lời của các anh, chị, em.
Xin chân thành cảm ơn!

Bạn thấy nhu cầu của người ta có hợp lý không?

 

[hungtin1997]

Ngoài ra thì tác giả bài viết có nói rằng:

Bạn thấy nhu cầu của người ta có hợp lý không?

Dạ nếu vấn đề ở thói quen sao không xử lí thói quen đó nhỉ. Em xin lỗi, nếu như thói quen đó của các thầy cô không sửa được thì em sẽ tạo 1 sheet phụ để họ dán Ctr+V vào và link qua sheet form bên kia. Em chỉ khai thác hết các công cụ của Excel trước khi nhờ mọi người code.

 

[ndu96081631]

Dạ nếu vấn đề ở thói quen sao không xử lí thói quen đó nhỉ. Em xin lỗi, nếu như thói quen đó của các thầy cô không sửa được thì em sẽ tạo 1 sheet phụ để họ dán Ctr+V vào và link qua sheet form bên kia. Em chỉ khai thác hết các công cụ của Excel trước khi nhờ mọi người code.

Mình dân kỹ thuật chỉ biết viết code thôi, chuyện cá nhân của họ mình không quan tâm

 

[kan1231]

Thế sao bạn không dùng code của những bài viết mới nhất?
Xem file này nhé
Cách dùng:
- Khởi động file, bạn sẽ thấy trên thanh menu có xuất 1 menu mới (nếu dùng Excel 2003) hoặc sẽ thấy 1 tab mới tên là Add-Ins với 1 cái nút (nếu dùng Excel 2007 hoặc Excel 2010)
- Bấm vào nút để kích hoạt sự kiện Paste Values
- Tiến hành thí nghiệm copy gì đó rồi paste sang nơi khác xem có thật sự là nó đang Paste Values không
- Nếu muốn mọi thứ trở về mặc định, bấm nút lần nữa (để reset sự kiện Paste Values)

thay ndu ơi, sao e mở file lên test thử lúc paste lại k hiện ra value thế ạ

 

[ndu96081631]

thay ndu ơi, sao e mở file lên test thử lúc paste lại k hiện ra value thế ạView attachment 249455

Trước đó bạn copy cái gì?

 

[kan1231]

Trước đó bạn copy cái gì?

e copy kết quả của công thức thôi ạ, kể cả copy giá trị khác lúc paste cũng bị lỗi ạ, e dùng bàn 365 business ạ