Tạo sheet mới theo List và mẫu chuẫn sẵn ?

[nqdn2010]

Em có vấn đề sau mong mọi người chỉ giúp:
- Cột C và D, là 2 cột nhận thông tin khi nhập, có thể thay đổi.
- Sau khi nhập xong, Click vào nút lệnh "KHỞI TẠO", thì hệ thống tự tạo SHEET MỚI tương ứng với số đơn vi đã nhập ở cột C.
- Những SHEET MỚI vừa tạo này có tên luôn có 2 ký tự đầu là "DS" và ghép lần lượt tên đơn vị vừa nhập và giống hệt "SHEET Mau" cả công thức và định dạng.
- Trong file đính kèm, có VD : Em đã nhập 2 đơn vị là "QUẢN LÝ" và "KINH DOANH". Khi KHỞI TẠO, Em có 2 SHEET MỚI (sheet3 và sheet4) lần lượt như trong file này.

Mong mọi người giúp, Chân thành cám ơn!

 

[nqdn2010]

Mong sự chỉ giúp của mọi người!
Nếu có chủ đề nào tưng tự xin chỉ đường link, cám ơn!

 

[ChanhTQ@]

Cái này bạn có thể nhân bản bằng tay từ trang tính 'Mau' là được mà! Đâu cứ cầu kỳ làm chi!


Góp í nhỏ với bạn 1 điều, rằng thì là mà tên trang tính không nên xài tiếng Việt có dấu; VD chỉ nên là 'QuanLy'

 

[nqdn2010]

Khi copy nhiều khi sơ ý thì không giống nguyên mẫu. Và tôi muốn tạo mang tính tự động.
Tên Sheet phần đuôi không quan trọng, chỉ cần 2 từ đầu tên Sheet là "DS", có thể là: DS1, DS2, ....DS#.
Hay có thể theo hướng này, Tên Sheet cũng bắt đầu bằng "DS" và Ô K2 là thứ tự của sheet.
VD: Nếu tạo mới 2 sheet DS1 và DS2 thì Ô K2 ở sheet DS1 bằng 1, sheet DS2 bằng 2, ... .Tóm lại số thứ tự sau chữ "DS" tên sheet tương ứng ở ô K2 ở mỗi sheet.
Mong mọi người chỉ giúp. Cám ơn!

 

[phucbugis]

Khi copy nhiều khi sơ ý thì không giống nguyên mẫu. Và tôi muốn tạo mang tính tự động.
Tên Sheet phần đuôi không quan trọng, chỉ cần 2 từ đầu tên Sheet là "DS", có thể là: DS1, DS2, ....DS#.
Hay có thể theo hướng này, Tên Sheet cũng bắt đầu bằng "DS" và Ô K2 là thứ tự của sheet.
VD: Nếu tạo mới 2 sheet DS1 và DS2 thì Ô K2 ở sheet DS1 bằng 1, sheet DS2 bằng 2, ... .Tóm lại số thứ tự sau chữ "DS" tên sheet tương ứng ở ô K2 ở mỗi sheet.
Mong mọi người chỉ giúp. Cám ơn!

- bạn tải file đính kèm về xem có đúng ko nhé !
- tên sheet được tạo ra dựa vào cột E (SheetName)
'------
để ý: sheet Mẫu ko nên tạo 1 Name nào cả để khi copy sheet này ---> ko tạo ra các "Name rác"

 

[nqdn2010]

Hoàn hảo! Xin bạn giải quyết một vấn đề nữa nhé, Ở sheet Tao nếu cột C và D xóa nội dung nào thì sheet tương ứng cũng bị xóa. mong bạn giúp.
Cám ơn sự chỉ giúp của bạn!

 

[phucbugis]

Hoàn hảo! Xin bạn giải quyết một vấn đề nữa nhé, Ở sheet Tao nếu cột C và D xóa nội dung nào thì sheet tương ứng cũng bị xóa. mong bạn giúp.
Cám ơn sự chỉ giúp của bạn!

bạn tải file sau về thử tiếp nhé !
mình có thêm code:
- tạo Hyperlink cho Sub Insert_Sheet_Mau()
- thêm sự kiện Worksheet_BeforeDoubleClick

'--------
để xoá sheet --> bạn Double click vào cột B và làm theo hộp thoại ...

 

[nqdn2010]

Rất hay, Bạn giúp mình một nút lệnh xóa hàng loạt sheet trong danh sách nhé bạn.
Cám ơn sự quan tâm chỉ giúp rất hay của bạn!

 

[phucbugis]

Rất hay, Bạn giúp mình một nút lệnh xóa hàng loạt sheet trong danh sách nhé bạn.
Cám ơn sự quan tâm chỉ giúp rất hay của bạn!

hehe, tự động nhiều quá ...
bạn tải tiếp file sau về xem nhé !

 

[nqdn2010]

Quá tuyệt, không biết nói gi hơn nữa. Để mình thực hiện áp dụng sự chỉ giáo, có gì lại làm phiền bạn, mong bạn thông cảm!
Bạn có thể cải thiện tốc độ khởi tạo được không bạn, khi nó tạo mình hơi "sót ruột và hồi hợp".
Cám ơn, cám ơn thật thật nhiều! ! !
Chúc bạn và gia đình buổi tối cuối tuần vui vẽ!

 

[phucbugis]

Quá tuyệt, không biết nói gi hơn nữa. Để mình thực hiện áp dụng sự chỉ giáo, có gì lại làm phiền bạn, mong bạn thông cảm!
Bạn có thể cải thiện tốc độ khởi tạo được không bạn, khi nó tạo mình hơi "sót ruột và hồi hợp".
Cám ơn, cám ơn thật thật nhiều! ! !
Chúc bạn và gia đình buổi tối cuối tuần vui vẽ!

chào bạn,
cho mình hỏi thông thường bạn tạo 1 lần bao nhiều sheet ?

 

[nqdn2010]

bạn tải tiếp file sau về xem nhé !

Sau khi đã khởi tạo Sheet mới rồi, Muốn thực hiện khởi tạo tiếp thì không thực hiện được (Bị lỗi)
Bạn khắc phục hạn chế này hộ Tôi nhé!
Cám ơn bạn trước.

 

[nqdn2010]

Kỳ quá gởi câu hỏi rồi mới thấy tin này, mong bạn thông cảm.

chào bạn,
cho mình hỏi thông thường bạn tạo 1 lần bao nhiều sheet ?

Tối đa 20 Sheet, nhung thường là 10 sheet đổ lại.
Có gì mong bạn chỉ giáo, #12.
Cám ơn sự quan tâm của bạn!

 

[phucbugis]

Kỳ quá gởi câu hỏi rồi mới thấy tin này, mong bạn thông cảm.

Tối đa 20 Sheet, nhung thường là 10 sheet đổ lại.
Có gì mong bạn chỉ giáo, #12.
Cám ơn sự quan tâm của bạn!

- đúng rồi, hôm trước mình post sau cùng nhưng vào xem bài thì ko thấy.
- hic mình tưởng là vài chục sheet --> 100 sheet chứ , mỗi sheet tạo ra chưa đầy 1s. Muốn nhanh hơn cũng được: là tạo sẵn 1 file mẫu chứa nhiều sheet mẫu ---> khi add vào file này sẽ nhanh hơn nhưng code "nhìn ko được chuẩn"
- mình làm thao tác như bạn miêu tả nhưng vẫn ko thấy lỗi ---> nếu có thể bạn hãy quay video lại các thao tác dẫn đến lỗi đó rồi Up liên diễn đàn luôn nhé?

 

[nqdn2010]

Do mình không nghe lời khuyên của bạn, Đặt tên sheet có dấu, giờ đã khắc phục được rồi. Nhưng sao khởi tạo vẫn thấy chậm.
Hay là do Office mình có vấn đề.

 

[phucbugis]

Do mình không nghe lời khuyên của bạn, Đặt tên sheet có dấu, giờ đã khắc phục được rồi. Nhưng sao khởi tạo vẫn thấy chậm.
Hay là do Office mình có vấn đề.

- chắc do máy của mình "khá mạnh" (Core i5) + office 2013 ---> mỗi sheet tạo ra ko tới 1s,
- mình đã thử cài thêm các "code tăng tốc" mà chẳng thấm vào đâu cả , chỉ có thể chèn sheet trực tiếp từ file mẫu (chứa nhiều sheet mẫu) khác vào thì tốc độ khá nhanh (mà việc này bạn làm hàng ngày hay lâu lâu mới làm mà phải cần tốc độ nhanh đến thế )

'----------
bạn tải folder về + giải nén ---> test thử 2 nút sẽ thấy sự khác biệt rõ rệt (code chưa hoàn chỉnh, 2 file đó code mặc định phải đi kèm với nhau)
'----------
khi Run Macro bạn nhìn thanh Status sẽ thấy: 1 bên là COPYING sheet và bên kia là MOVING sheet.

 

[nqdn2010]

- chắc do máy của mình "khá mạnh" (Core i5) + office 2013 ---> mỗi sheet tạo ra ko tới 1s,

Thì ra là vậy.

- mình đã thử cài thêm các "code tăng tốc" mà chẳng thấm vào đâu cả , chỉ có thể chèn sheet trực tiếp từ file mẫu (chứa nhiều sheet mẫu) khác vào thì tốc độ khá nhanh (mà việc này bạn làm hàng ngày hay lâu lâu mới làm mà phải cần tốc độ nhanh đến thế )

Một tháng làm một lần, Tại tính nóng vội nên làm khó bạn.
Xin bạn chỉ giúp, Code nút lệnh trang vừa qua. (VD: Đang thực hiện ở Sheet1, qua sheet5 khi Click nút lệnh thì nó tự động quay về sheet1. Khi làm việc ở Sheet3 qua sheet4 khi Click nút lệnh thì tự động nó quay về Sheet3, . . .) tựa như Undo.

 

[nqdn2010]

Up bài xong mới thấy.

-

'----------
bạn tải folder về + giải nén ---> test thử 2 nút sẽ thấy sự khác biệt rõ rệt (code chưa hoàn chỉnh, 2 file đó code mặc định phải đi kèm với nhau)
'----------
khi Run Macro bạn nhìn thanh Status sẽ thấy: 1 bên là COPYING sheet và bên kia là MOVING sheet.

Cám ơn sự quan tâm của bạn.
Mình sẽ text thử, có gì lại làm phiền bạn , , , ,

 

[nqdn2010]

- COPYING sheet chậm hơn nhưng thỏa mãn điều kiện.
Chắc do máy mình cùi bắp quá.
- Bạn chỉ giúp mình #17 nhé.
- Nhìn file bạn gởi thấy bạn bỏ nhiều công quá.
- Cám ơn bạn nhiều!

 

[phucbugis]

- COPYING sheet chậm hơn nhưng thỏa mãn điều kiện.
Chắc do máy mình cùi bắp quá.
- Bạn chỉ giúp mình #10 nhé.
- Nhìn file bạn gởi thấy bạn bỏ nhiều công quá.
- Cám ơn bạn nhiều!

hehe, thử tiếp file sau để cho "trọn 1 ngày" luôn
'-------
nhóm 1: đặt tại module This Workbook

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    LateWsName = Sh.Name
End Sub

nhóm 2: Standard module

[FONT=Verdana]Public LateWsName As String[/FONT]

[FONT=Verdana]Sub Switch2Sheets()[/FONT]
[FONT=Verdana]    If LateWsName <> "" Then[/FONT]
[FONT=Verdana]        Sheets(LateWsName).Select[/FONT]
[FONT=Verdana]    End If[/FONT]
[FONT=Verdana]End Sub[/FONT]