Cộng thêm Sheet vào workbook

[cbtm]

1. Chào Các Thầy, Cô, BạnEm muốn nhờ giúp đở một vấn đề như sauem muốn Add Sheet vào workbook. Với nhửng tên nằm trong Sheet Toolvà code đi cùng với work sheet.Xem Phần Sheet ToolKính nhờ Thầy, Cô, Bạn Giúp Đở.

 

[thanhphuong]

1. Chào Các Thầy, Cô, BạnEm muốn nhờ giúp đở một vấn đề như sauem muốn Add Sheet vào workbook. Với nhửng tên nằm trong Sheet Toolvà code đi cùng với work sheet.Xem Phần Sheet ToolKính nhờ Thầy, Cô, Bạn Giúp Đở. ​

Nhấn Alt+F11, Add một modul mới và chép đọan code này vào modul đó

Sub AddWorksheet()
    Dim n, i As Integer
    n = Sheets("Tool").[A65000].End(xlUp).Row
    For i = 3 To n
        Ten = Sheets("Tool").Range("A" & i)
        ThisWorkbook.Worksheets.Add.Name = Ten
    Next
End Sub

Giả thiết rằng tên các sheet muốn add thêm nằm từ ô A3 trở xuống trong cột A của Sheet Tool. Bạn điều chỉnh lại cho phù hợp
Thân mến

 

[cbtm]

Cám ơn Bạn Như mình đả thử không work bạn ạ nhờ bạn xem file đính kèm

 

[thanhphuong]

Muốn thử, bấm Alt+F8, chọn macro AddWorksheet rồi nhấn nút Run
Thân

 

[phamduylong]

Một cách viết khác:

Sub AddSheet()
Dim r As Long, ten As String
On Error Resume Next
r = 2
If ThisWorkbook.Name <> "Cong them sheet vao workbook.xls" Then Exit Sub
Do
  ten = Sheets("TOOL").Cells(r, 5)
  Sheets(ten).Select
  If Err.Number > 0 Then
    ThisWorkbook.Worksheets.Add.Name = ten
    Err.Number = 0
  End If
  r = r + 1
Loop While Sheets("TOOL").Cells(r, 5) <> ""
End Sub

Sub AddSheet chỉ làm việc với Workbook "Cong them sheet vao workbook.xls"
Chỉ thêm sheet chưa có, nếu tên sheet đã có thì bỏ qua

 

[cbtm]

Chào Thầy và Các Bạn

Em muốn làm như file đính kèm, Kính xin thầy và các bạn giúp đở..

cám ơn thầy và các bạn

 

[thanhphuong]

Chào Thầy và Các Bạn

Em muốn làm như file đính kèm, Kính xin thầy và các bạn giúp đở..

cám ơn thầy và các bạn

Nêu không rõ câu hỏi thì khó cho việc trả lời.
Thân