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:
- 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
- Cách Kiểm Tra Pin iPhone Bị Chai Chính xác chỉ CHUYÊN GIA MỚI BIẾT
- Cách nộp tiền vào thẻ ATM | áp dụng cho tất cả các loại thẻ ngân hàng #
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