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://dwaynewadejersey.net/
Xem thêm bài viết khác: https://dwaynewadejersey.net/tong-hop/
Xem thêm Bài Viết:
- Những trường hợp nào được giảm thuế nhà đất Vũng Tàu?
- Vinhomes Ocean Park Đa Tốn Gia Lâm Hà Nội: giá thế nào, nên mua không?
- Vẽ tranh An toàn giao thông với Ngã tư đường phố | How to draw Traffic Safety | Concung Channel
- Hướng dẫn cách sử dụng Macbook cho các bạn mới dùng Mac
- SỬA LỖI MÀN HÌNH XANH KHI KHỞI ĐỘNG WINDOWS 10
ANH ƠI EM KO THẤY CODE
nhưng nếu có hai tên giống nhau thì phải viet code thế nào ah ad, thanks
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