Code copy và paste

[hongtruong101186]

Trong menu tự tạo của mình, mình muốn có thêm lệnh copy và paste như menu của Excel mà chưa biết viết macro như nào cho nó hợp lí.

Mong mọi người chỉ giúp. Thanks.

 

[ndu96081631]

Trong menu tự tạo của mình, mình muốn có thêm lệnh copy và paste như menu của Excel mà chưa biết viết macro như nào cho nó hợp lí.

Mong mọi người chỉ giúp. Thanks.

Giả sử bạn đã có sẳn 1 Toolbar tên là My Bar
Để add thêm lệnh Copy, Paste vào, ta dùng code như sau:

Sub Test()
  With CommandBars("Standard")
    .Controls(11).Copy CommandBars("My Bar")
    .Controls(12).Copy CommandBars("My Bar")
  End With
End Sub

Đơn giản thế thôi
Xem file ví dụ nhé

 

[hongtruong101186]

Cảm ơn anh, nhưng e lại tạo menu bar thì câu lệnh như nào anh nhỉ?
Tối em về thử nghiên cứu thêm thế nào. Nhưng cũng mong anh chỉ giáo thêm.

 

[ndu96081631]

Cảm ơn anh, nhưng e lại tạo menu bar thì câu lệnh như nào anh nhỉ?
Tối em về thử nghiên cứu thêm thế nào. Nhưng cũng mong anh chỉ giáo thêm.

Thì cũng tương tự thôi mà!
- Giả sử bạn đã có 1 menu Tên là "My Menu"
- Vậy viết thêm code này vào:

Sub CreateSubMenu()
  On Error Resume Next
  With Application.CommandBars(1).Controls("My Menu")
    If .Controls("Copy") Is Nothing Then .Controls.Add 1, ID:=19
    If .Controls("Paste") Is Nothing Then .Controls.Add 1, ID:=22
  End With
End Sub

Xong!
Xem file ví dụ

 

[hongtruong101186]

Hiện tại trong menu của em có 5 command, trong các command lại có các item nữa.
Trong Menu gồm có hệ thống, dữ liệu, tính toán, thống kê, công cụ. Bây giờ em muốn thêm cái lệnh copy và cut vào command công cụ. E không thể thêm được.
Em không thể call cho nó được, bác xem giúp e tí.

 

[ndu96081631]

Hiện tại trong menu của em có 5 command, trong các command lại có các item nữa.
Trong Menu gồm có hệ thống, dữ liệu, tính toán, thống kê, công cụ. Bây giờ em muốn thêm cái lệnh copy và cut vào command công cụ. E không thể thêm được.
Em không thể call cho nó được, bác xem giúp e tí.

Ôi! Bạn nói thế thì tôi chịu, vì nó còn liên quan đến code có sẳn của bạn nữa cơ mà!

 

[hongtruong101186]

Vâng! Đúng vậy ạ. Thế mình có thể viết lệnh copy riêng được kô ạ. Sau đó gọi chứ không sử dụng lệnh có sẵn của Excel như trên nữa.