Sửa Code Paste Value Chỉ áp dụng File đang có Code

[Hết Xăng rồi]

Chào Tất cá Mọi người !. Em có tham khảo code chỉ Paste Value khi Ctrl + V ( Của diễn đàn ), Code chạy rất Ok, Nhưng Khi em mở 1 file Excel khác lên ( Tức là File không có Code này ) Em vẫn muốn Là Ctrl V như Bình thường ( Tức là lấy luôn định dạng màu sắc ). Vậy phải sửa lại code như thế nào để code chỉ áp dụng File đang có code, Các file khác khi mở lên không bị ảnh hưởng. em xin cảm ơn

Sub Auto_Open()
    With Application
        .OnKey "^v", "PasteValue"
        .CommandBars.FindControl(ID:=6002).Enabled = False
        .CommandBars("Cell").Controls("Paste").OnAction = "PasteValue"
        .CommandBars("Edit").Controls("Paste").OnAction = "PasteValue"
    End With
End Sub
Sub PasteValue()
    Selection.PasteSpecial 3
End Sub
Sub Auto_Close()
    With Application
        .OnKey "^v"
        .CommandBars("Standard").Reset
        .CommandBars("Cell").Reset
        .CommandBars("Edit").Reset
    End With
End Sub

 

[Nhattanktnn]

Chào Tất cá Mọi người !. Em có tham khảo code chỉ Paste Value khi Ctrl + V ( Của diễn đàn ), Code chạy rất Ok, Nhưng Khi em mở 1 file Excel khác lên ( Tức là File không có Code này ) Em vẫn muốn Là Ctrl V như Bình thường ( Tức là lấy luôn định dạng màu sắc ). Vậy phải sửa lại code như thế nào để code chỉ áp dụng File đang có code, Các file khác khi mở lên không bị ảnh hưởng. em xin cảm ơn

Sub Auto_Open()
    With Application
        .OnKey "^v", "PasteValue"
        .CommandBars.FindControl(ID:=6002).Enabled = False
        .CommandBars("Cell").Controls("Paste").OnAction = "PasteValue"
        .CommandBars("Edit").Controls("Paste").OnAction = "PasteValue"
    End With
End Sub
Sub PasteValue()
    Selection.PasteSpecial 3
End Sub
Sub Auto_Close()
    With Application
        .OnKey "^v"
        .CommandBars("Standard").Reset
        .CommandBars("Cell").Reset
        .CommandBars("Edit").Reset
    End With
End Sub

Không bàn về file này, nhưng mình hướng cho bạn viết một addins paste value và gán cho nó phím tắt Ctrl+Shift+V. Dán giá trị thì sử dụng nó, còn khi không có nhu cầu thì Ctrl+V bình thường

 

[ptm0412]

Thử sửa Sub Auto_ open() thành Sub Workbook_Open()

 

[cantl]

Chào Tất cá Mọi người !. Em có tham khảo code chỉ Paste Value khi Ctrl + V ( Của diễn đàn ), Code chạy rất Ok, Nhưng Khi em mở 1 file Excel khác lên ( Tức là File không có Code này ) Em vẫn muốn Là Ctrl V như Bình thường ( Tức là lấy luôn định dạng màu sắc ). Vậy phải sửa lại code như thế nào để code chỉ áp dụng File đang có code, Các file khác khi mở lên không bị ảnh hưởng. em xin cảm ơn

Mình mà muốn paste value, cứ right click - S - V. Còn muốn Ctrl V bình thường, thì sau khi copy, enter là xong (có điều không paste được nhiều lần).

 

[Hết Xăng rồi]

Không bàn về file này, nhưng mình hướng cho bạn viết một addins paste value và gán cho nó phím tắt Ctrl+Shift+V. Dán giá trị thì sử dụng nó, còn khi không có nhu cầu thì Ctrl+V bình thường

Cảm ơn bạn. Vấn đề là mình dùng không nói gì. Nhưng mình gửi File này cho nhân viên sử dụng họ cứ hay quen thói quen là Ctrl V, nên mính muốn Chỉ file có Code mới áp dụng, các file khác không áp dụng

Bài đã được tự động gộp: 13/11/22

Thử sửa Sub Auto_ open() thành Sub Workbook_Open()

cảm ơn anh. Em đã sửa lại Sub Workbook_Open() Nhưng code vẫn không paste Value khi Ctrl V Được ạ

Bài đã được tự động gộp: 13/11/22

Mình mà muốn paste value, cứ right click - S - V. Còn muốn Ctrl V bình thường, thì sau khi copy, enter là xong (có điều không paste được nhiều lần).

Cảm ơn anh. Nếu em dùng thì không nói gì. Còn file này em đưa cho bên giáo viên họ dùng họ hay quen thói quen Ctrl V thôi

 

[Hoàng Tuấn 868]

Nhưng mình gửi File này cho nhân viên sử dụng

Nếu là lãnh đạo thì đầu tư thuê viết ứng dụng cho nhân viên dùng thôi.

 

[VetMini]

Nếu là lãnh đạo thì đầu tư thuê viết ứng dụng cho nhân viên dùng thôi.

Đầu tư chi? Vào GPE ra lịnh cũng xong.

 

[Hết Xăng rồi]

Nếu là lãnh đạo thì đầu tư thuê viết ứng dụng cho nhân viên dùng thôi.

File mình là file báo giá thôi bạn. chỉ có 4 5 cột SL Đơn Giá Thành Tiền để in gửi báo giá cho khách, Mình là chủ cửa hàng thôi bạn. Chỉ việc không cho Paste trực tiếp vào Bảng tính mà cũng thuê viết à bạn. Vậy diễn đàn này để làm gì bạn trả lời giúp mình

Bài đã được tự động gộp: 14/11/22

Đầu tư chi? Vào GPE ra lịnh cũng xong.

Bạn này nói chuyện mất lịch sự vô cùng. Mình lên diễn đàn hỏi đàng hoàng chưa ra lệnh ai. Ủa vậy diễn đàn này không cho hỏi vậy diễn đàn này để làm gì ?

 

[VetMini]

....Bạn này nói chuyện mất lịch sự vô cùng. Mình lên diễn đàn hỏi đàng hoàng chưa ra lệnh ai. Ủa vậy diễn đàn này không cho hỏi vậy diễn đàn này để làm gì ?

Lại gặp dân mê lý sự.
Nói nhiều lần rồi. Để giành đầu óc lý luận ấy mà giải quyết công việc cho nó hiệu quả. Lo đi tranh hơi với người khác chỉ tổ phân tâm.
Cú thử thách đầu tiên đã không vượt qua nổi. Tương lai học hỏi sẽ nhiều chông gai.

 

[cantl]

Chào Tất cá Mọi người !. Em có tham khảo code chỉ Paste Value khi Ctrl + V ( Của diễn đàn ), Code chạy rất Ok, Nhưng Khi em mở 1 file Excel khác lên ( Tức là File không có Code này ) Em vẫn muốn Là Ctrl V như Bình thường ( Tức là lấy luôn định dạng màu sắc ). Vậy phải sửa lại code như thế nào để code chỉ áp dụng File đang có code, Các file khác khi mở lên không bị ảnh hưởng. em xin cảm ơn

Sub Auto_Open()
    With Application
        .OnKey "^v", "PasteValue"
        .CommandBars.FindControl(ID:=6002).Enabled = False
        .CommandBars("Cell").Controls("Paste").OnAction = "PasteValue"
        .CommandBars("Edit").Controls("Paste").OnAction = "PasteValue"
    End With
End Sub
Sub PasteValue()
    Selection.PasteSpecial 3
End Sub
Sub Auto_Close()
    With Application
        .OnKey "^v"
        .CommandBars("Standard").Reset
        .CommandBars("Cell").Reset
        .CommandBars("Edit").Reset
    End With
End Sub

Theo mình hiểu thì code Open sẽ tác động vào mọi file excel khi mở Excel nên không tác động được trên chỉ 1 file. Sao bạn không vào đúng chỗ nó tồn tại và hỏi bác ndu?
Có 1 thủ thuật là file thứ 2 muốn mở phải thật tốc độ như siêu nhân.
Xóa - không cần thiết.
Xóa - không cần thiết.
PS: Diễn đàn là nơi mà mỗi người phải luôn chuẩn bị tâm lý yêu cầu của mình có thể sẽ không giải quyết được.

 

[Hết Xăng rồi]

Theo mình hiểu thì code Open sẽ tác động vào mọi file excel khi mở Excel nên không tác động được trên chỉ 1 file. Sao bạn không vào đúng chỗ nó tồn tại và hỏi bác ndu?
Có 1 thủ thuật là file thứ 2 muốn mở phải thật tốc độ như siêu nhân.
Trình tự: double click hoặc right click/ Open, và ngay lập tức trong vòng 0.000000001s giữ ALT, chọn Yes (ảnh).
Mục đích là tạo ra vũ trụ song song cho 2 file excel không biết đến sự tồn tại của nhau.
PS: Diễn đàn là nơi mà mỗi người phải luôn chuẩn bị tâm lý yêu cầu của mình có thể sẽ không giải quyết được.
View attachment 283296

Bạn giỏi thế nào mình không quan tâm. Nhưng cách nói chuyện của bạn vô cùng mất lịch sự. Mình chưa ra lệnh ai cả. mình chỉ hỏi ai giúp thì mình cảm ơn. Bạn quá vô duyên nên câu Trả lời của bạn mình chả thèm đọc nữa.

 

[befaint]

mình chả thèm đọc nữa.

Úi. Đọc nữa chứ bạn.



Siu nhiên lun nè.

Mới được bổ túc cách gõ từ khóa tìm kiếm:

"excel /x"

 

[cantl]

Bạn giỏi thế nào mình không quan tâm. Nhưng cách nói chuyện của bạn vô cùng mất lịch sự. Mình chưa ra lệnh ai cả. mình chỉ hỏi ai giúp thì mình cảm ơn. Bạn quá vô duyên nên câu Trả lời của bạn mình chả thèm đọc nữa.

Mình tự thấy mình giỏi rồi, mình đã là thứ 2 thì không ai dám là thứ 1 vì thứ hạng của mình là to nhất. Khi nào thấy không cần phản hồi nữa mình sẽ dừng.

 

[VetMini]

Úi. Đọc nữa chứ bạn.
...

Đọc chi vậy?
Hiện tại chuyện phân tích giải thuật không quan trọng bằng phân tích nét "lịch sự".
Người ta quên mất mục đích ban đầu là cái gì rồi.

 

[befaint]

Đọc chi vậy?

Đang có vụ siu nhưn nên em nhanh tay lót dép hóng hớt anh ạ

 

[Hoàng Tuấn 868]

Vậy diễn đàn này để làm gì bạn trả lời giúp mình

Diễn đàn này để làm gì thì bạn nên hỏi Ban quản trị diễn đàn sẽ có câu trả lời phù hợp nhất.

 

[VetMini]

Đang có vụ siu nhưn nên em nhanh tay lót dép hóng hớt anh ạ

Bạn ngòi cánh gà nên lót dép. Tôi may mắn được cái vé hạng nhất, bi giờ ngồi xem oánh lộn. Chứ tuồng thì đào kép lo cãi nên quên cha nó rồi.
Thầy tuồng, thợ nhắc tuồng bơ mỏ hết.

Tin giờ chót: hình như sân khấu dọn nơi khác rồi thì phải.

 

[cantl]

Em thì đang rất tò mò về cái …_Open này, vì đây là chuyên mục thứ 2 bị bí kỹ thuật Open. Thế nên em đang chờ kết quả.

Ngoài lề một chút: Tại sao có việc tí tẹo mà cũng phải cãi nhau nhỉ? Em thì không biết các thành viên trong diễn đàn như nào chứ việc cãi nhau trên diễn đàn đối với em lại có một chút gì đấy thích thú. Bởi vì trong quá trình cãi vã em tìm được sự bình yên, bình yên như được yên tâm bởi đã có siêu nhân Clắc Ken tung hoành giang hồ cứu độ chúng sinh, bình yên suy nghĩ xem nên phản hồi hay nên im lặng, và bình yên suy nghĩ nếu sẽ viết thì viết cái gì. Nhờ đó mà em gia nhập được hội anh hùng bàn phím. Anh hùng bàn phím giống siêu nhân ở chỗ đều là anh hùng, và hơn nữa còn là một anh hùng núp chân chính, không ai biết đến mình. Bây giờ em chỉ có 1 mong muốn tột độ là được đổi nick thành Anh hùng bàn phím hay là Chí Phèo 4.0 thì mãn nguyện rồi. Hiện giờ thì thời gian không còn nhiều nữa, sắp đến đêm rồi, e xin phép sang chủ đề khác tìm sự bình yên trong cãi vã, xuất hiện chủ đề trực tiếp đi sâu đi sát vào quần chúng.

 

[VetMini]

...

Ngoài lề một chút: Tại sao có việc tí tẹo mà cũng phải cãi nhau nhỉ? Em thì không biết các thành viên trong diễn đàn như nào chứ việc cãi nhau trên diễn đàn đối với em lại có một chút gì đấy thích thú. Bởi vì trong quá trình cãi vã em tìm được sự bình yên, bình yên như được yên tâm bởi đã có siêu nhân Clắc Ken tung hoành giang hồ cứu độ chúng sinh, bình yên suy nghĩ xem nên phản hồi hay nên im lặng, và bình yên suy nghĩ nếu sẽ viết thì viết cái gì. Nhờ đó mà em gia nhập được hội anh hùng bàn phím. Anh hùng bàn phím giống siêu nhân ở chỗ đều là anh hùng, và hơn nữa còn là một anh hùng núp chân chính, không ai biết đến mình. Bây giờ em chỉ có 1 mong muốn tột độ là được đổi nick thành Anh hùng bàn phím hay là Chí Phèo 4.0 thì mãn nguyện rồi. Hiện giờ thì thời gian không còn nhiều nữa, sắp đến đêm rồi, e xin phép sang chủ đề khác tìm sự bình yên trong cãi vã, xuất hiện chủ đề trực tiếp đi sâu đi sát vào quần chúng.

Bạn quá chú tâm về "yên hùng", "siêu nhơn" cho nên quên mất trên chiến trường có dạng người chả hùng cũng chả siêu.

Tôi muốn nói đến hạng "chiến lược gia". Hạng này chỉ chú tâm vào kết quả. Hành động, phong cách là thứ yếu.
Thớt cứ khăng khăng hỏi "mục đích của diễn đàn?". Nếu nghĩ mục đích của diễn đàn là giúp nhau về công nghệ, mục đích của mình là nhờ giúp về công nghệ thì cứ lo bắt cầu cho hai cái mục đích ấy gặp nhau. Mắc chi lo vớ vẩn cãi nhau khiến cuối cùng mục đích trật tét lét tè le.

Giải pháp chưa có là do người ta chưa hiểu vấn đề của mình. Người ta chưa hiểu là do kỹ năng diễn tả cái mình đang có, các điều kiện khách quan, và mục đích/kết quả cuối cần đạt của mình còn kém. Lo mà trau dòi nó, ở đấy mà nuôi cái cục tự ái tổ bố. Học hỏi cái mốc xì.

 

[ptm0412]

Em thì đang rất tò mò về cái …_Open này, vì đây là chuyên mục thứ 2 bị bí kỹ thuật Open. Thế nên em đang chờ kết quả.

Cái _open không có tội. Cái bên trong mới có tội: Đánh tới tận cùng application thì đẻ đứa nào dính chấu cái nấy thôi.