Copy bỏ qua cell ẩn, Khi paste thì chuyển dọc thành ngang hay ngược lại! (1 người xem)

[AnhThu-1976]

Do công việc thường xuyên, em copy & paste như sau:
Ví dụ các cell A1, B1, C1 có các giá trị lần lượt là: 1, 2, 3
Bây giờ em ẩn cột B. Sau đó chọn khối cell A1:C1 và copy khối cell này
Sau đó em chọn 1 cell bất kỳ, ví dụ cell F5 và bấm paste
Kết quả sau khi paste thì cell F5, F6 sẽ có giá trị là 1, 3
Nhờ anh/chị viết code để có thể làm adds-in. Em cảm ơn!

 

[Nhất Chi Lan]

Do công việc thường xuyên, em copy & paste như sau:
Ví dụ các cell A1, B1, C1 có các giá trị lần lượt là: 1, 2, 3
Bây giờ em ẩn cột B. Sau đó chọn khối cell A1:C1 và copy khối cell này
Sau đó em chọn 1 cell bất kỳ, ví dụ cell F5 và bấm paste
Kết quả sau khi paste thì cell F5, F6 sẽ có giá trị là 1, 3
Nhờ anh/chị viết code để có thể làm adds-in. Em cảm ơn!

Bạn xem thử

 

[AnhThu-1976]

Bạn xem thử

Sao File của bạn đính kèm không có code vậy!?

 

[Nhất Chi Lan]

Sao File của bạn đính kèm không có code vậy!?

Ô có đầy trong đó đấy ạ. Dư cả cái Modul2 rồi

 

[AnhThu-1976]

Ô có đầy trong đó đấy ạ. Dư cả cái Modul2 rồi

Khi mở File lên thì phía trên bảng excel bị báo lỗi như hình
Bấm Alt + F11 thì trong file không có code bạn ạ! không biết nó bị lỗi gì?
Cảm ơn bạn

 

[Nhất Chi Lan]

Khi mở File lên thì phía trên bảng excel bị báo lỗi như hình
Bấm Alt + F11 thì trong file không có code bạn ạ! không biết nó bị lỗi gì?
Cảm ơn bạn

Code trong ThisWorkbook

Private Sub Workbook_Open()
    Dim A As CommandBarButton
    Dim B As CommandBarButton
On Error Resume Next
Application.CommandBars("Cell").Controls("Copy to hide").Delete
Application.CommandBars("Cell").Controls("Paste hidden").Delete
On Error GoTo 0
Set A = Application.CommandBars("Cell").Controls.Add _
        (Type:=msoControlButton, Temporary:=True)
Set B = Application.CommandBars("Cell").Controls.Add _
        (Type:=msoControlButton, Temporary:=True)
With A
    .Caption = "Copy to hide"
    .OnAction = "CopySpecialCell12"
End With
With B
    .Caption = "Paste hidden"
    .OnAction = "PasteSpecialCell12"
End With
End Sub

Code trong Module

Sub CopySpecialCell12()
Selection.SpecialCells(12).Copy
End Sub
Sub PasteSpecialCell12()
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
End Sub

 

[AnhThu-1976]

Cảm ơn bạn nhiều!
Nhưng không biết mở file ở các bài trên thì bị lỗi gì?

 

[Nhất Chi Lan]

Cảm ơn bạn nhiều!
Nhưng không biết mở file ở các bài trên thì bị lỗi gì?

Thôi nhà Họ chịu khó tạo file mới copy mớ code trên vào xem có lỗi gì nữa không.

 

[AnhThu-1976]

Thôi nhà Họ chịu khó tạo file mới copy mớ code trên vào xem có lỗi gì nữa không.

Copy thì OK rồi, nhưng mình muốn biết tại sao bị lỗi thôi!