Tạo code thay cho Move or Copy

Chia sẻ bởi:hands

★★★★★

‹ Cần giúp đặt công thức tính tổng... Dùng hàm Match với trị dò là... ›

Quảng cáo

Em chào mọi người.
Em có File excel có nhiều các sheet, trong đó có sheet "CDPS" em sử dụng nhiều nhất, thường hay phải chuyển sheet File này cho nhiều người sử dụng. Và em thường làm thủ công là ấn chuột phải chọn Move or Copy và chọn new book và tiếp chọn Creat a copy và ấn Ok thì sẽ ra một file mới giống hết File này.
Cho em hỏi không biết marco có làm được khi chỉ cần ấn nút ra luôn cái file này được không.
Em gửi File đính kèm, mọi người xem giúp em. Em xin cám ơn ah.

Add sub này vào cái CmB bạn vẽ xem. rồi click cái CmB (Command Button.)

Sub MoveCopy()
    With ActiveSheet
        Sheets("CDPS").Select
        Sheets("CDPS").Copy
    End With
End Sub

Bạn có thể viết 1 cái marco để dùng phím tắt sử dụng cho tất cả các sheet bất kỳ ko bạn?

Thì cái trên là Macro chứ gì nữa mà viết.
Nếu dùng cho tất cả các sheet (sao lại tất cả các sheet được.). Mà phải là sheet nào đang được Active ấy. có nghĩa là sheet nào bạn đang làm việc và muốn Copy sheet đó sang 1 file mới.
Thử như vậy xem, tôi mới mò VBA nên chỉ viết được vậy.
Bạn thử add sub này vào module của 1 file excel bất kỳ. Và tạo phím tắt cho nó là Ctrl+shift+C. Sau đó nhấn thử phát có hiệu quả không?

Sub CopyMove()
    With ActiveSheets
        Sheets(ActiveSheet.Name).Select
        Sheets(ActiveSheet.Name).Copy
    End With
End Sub

Code này thấy kỳ kỳ sao ấy!
With… End With để làm gì?
Sheets(ActiveSheet.Name).Select có tương đương với ActiveSheet.Select không?
ActiveSheet là sheet ta đang ở, vậy còn Select làm giống gì cho dư?

Kaka. Mới vọc vba mà a. Có biết mô tê răng rứa chi đâu….
Chưa hiểu hết các đối tượng, phương thức nên vậy đó anh….
Hóa ra chỉ đơn giản 1 câu lệnh như vậy là đủ đối với sheet mình đang đứng, thế mà em cứ tưởng phải khai báo, chỉ định cho nó có With (rồi Active )mới được.