tạo ra nhiều sheet từ vba

[A HOANG 620]

nhờ anh chị giúp mình muốn tạo ra nhiều sheet mới từ sheet ThongKe có tính năng như sheet ThongKe để mình tiện theo dõi cùng lúc.

 

[HUONGHCKT]

nhờ anh chị giúp mình muốn tạo ra nhiều sheet mới từ sheet ThongKe có tính năng như sheet ThongKe để mình tiện theo dõi cùng lúc.

Tham khảo đoạn code này:

Sub ThemSheet()
    Sheets("ThongKe").Copy Before:=Sheets(Sheets.Count)
End Sub

Lưu ý : các Shape sẽ không được thêm.

 

[A HOANG 620]

Tham khảo đoạn code này:

Sub ThemSheet()
    Sheets("ThongKe").Copy Before:=Sheets(Sheets.Count)
End Sub

Lưu ý : các Shape sẽ không được thêm.

ý là mình copy nhưng code vẫn hoạt động được, đúng như sheet ThongKe

 

[cantl]

Phức tạp lắm, tốt nhất nên tách nhiều file. Cài office tab thì nó cũng y hệt nhiều sheet ấy. Trước tớ hay cài nhưng giờ tớ chán rồi.

Mà:
Không hiểu loại thép 22 có 3 kích thước thì tính chiều dài thế nào nhỉ?

 

[HUONGHCKT]

ý là mình copy nhưng code vẫn hoạt động được, đúng như sheet ThongKe

Thế thì phải sửa cả code trong sheet ThongKe (gốc), và thêm cả đoạn code copy 2 cái Shape trên sheet ThongKe (gốc) thì mới được.
Tham khảo code này:

Option Explicit
Sub AddSheet()
Dim Ws As Worksheet, Sh As Worksheet
Dim Shp As Shape, t&

    Set Ws = Sheets("ThongKe")
    Ws.Copy Before:=Sheets(Sheets.Count)
    Set Sh = ActiveSheet
    Ws.Activate
    For Each Shp In Ws.Shapes
        t = t + 1
        Shp.Copy
        Sh.Activate
        Sh.Cells(t * 2 - 1, 2).Select
        ActiveSheet.Paste
    Next
End Sub