Hướng dẫn tạo nhiều sheet với nội dung (cấu trúc) giống nhau bằng VBA.

3
2



Hướng dẫn tạo nhiều sheet với nội dung giống nhau bằng VBA.

Cách thủ công:
Bước 1: Copy
Bước 2: Rename

với 1 số ít sheet thì không vấn đề nhưng với số lượng nhiều /vài trăm/ thì cũng khá mệt mỏi.
Để tạo được 1 file với nhiều sheet giống nhau và đặt tên theo danh sách ta làm như sau:

Chuẩn bị:

– 1 Sheet với tên là MAU /Với mẫu mặc định đã thiết kế để sao sang cho các sheet #

– 1 Sheet TONGHOP ghi tên các sheet muốn tạo

Bắt đầu nhé.
Bước 1: Bấm Alt+F11
Bước 2: Nhập mã code sau: / đính kèm ở video/

link nhac video:

Bước 3: Vào thẻ Developer – Insert – chọn 1 button bất kỳ

1 bảng thông báo /Assign Macro/ hiện lên và sẽ gán macro Addsheet vào cho button /click button thì code sẽ chạy/

Bạn hãy thử và xem kết quả nhé! BẤM VÀO BUTTON

Chúc các bạn thành công.

Thực hiện bởi: doansinhak44@gmal.com

#hướngdẫntạocácsheettrongfileexceltheo1sheetmẫubằngVBA
#HướngdẫnCopynhiềusheetvớinộidunggiốngnhautừfilemẫubằngVBA.

Nguồn: https://buffaloqtl.org/

Xem thêm bài viết khác: https://buffaloqtl.org/tong-hop/

3 COMMENTS

  1. Code cho các bạn:
    Sub Addsheet()

    Dim i As Long

    Dim b As Long

    Dim sh As Worksheet

    Set sh = Sheets("TONGHOP")

    'Dongcuoi

    b = sh.Range("A" & sh.Columns(1).Rows.Count).End(xlUp).Row

    If Sheets.Count < b + 1 Then

    For i = 1 To b

    Sheets("MAU").Copy sh

    ActiveSheet.Name = sh.Cells(i, 1).Value

    Next i

    End If

    End Sub

LEAVE A REPLY

Please enter your comment!
Please enter your name here