Tạo hàng loạt sheet mơi từ một sheet ban đầu, với tên sheet là một danh sách cho tước (1 người xem)

[ExcelQN]

Tôi có file excẹl, gồm hai sheet(danhsach và ngay), tôi muốn tạo 30 sheet có tên theo danh sách trong cột B của sheet danhsach. Mong các bạn giúp đỡ. Cảm ơn.

 

[ndu96081631]

Tôi có file excẹl, gồm hai sheet(danhsach và ngay), tôi muốn tạo 30 sheet có tên theo danh sách trong cột B của sheet danhsach. Mong các bạn giúp đỡ. Cảm ơn.

Copy hết "đống" code này vào 1 module

Private Function SheetExists(ByVal SheetName As String) As Boolean
  On Error Resume Next
  SheetExists = Not Sheets(SheetName) Is Nothing
End Function
Private Function isValidSheetName(ByVal SheetName As String) As Boolean
  If (Len(SheetName) > 31) Or (Len(SheetName) = 0) Then Exit Function
  With CreateObject("VBScript.RegExp")
    .Pattern = "[\\:\][/?*]"
    isValidSheetName = Not .Test(SheetName)
  End With
End Function
Private Sub CreateSheet(ByVal arrSheets As Variant)
  Dim tmpArr, Item
  On Error GoTo ErrHandler
  tmpArr = arrSheets
  If Not IsArray(tmpArr) Then tmpArr = Array(tmpArr)
  For Each Item In tmpArr
    If isValidSheetName(CStr(Item)) Then
      If Not (SheetExists(CStr(Item))) Then
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(Item)
      End If
    End If
  Next
  Exit Sub
ErrHandler: MsgBox Err.Description
End Sub
Sub Main()
  CreateSheet [COLOR=#ff0000]Sheets("danhsach").Range("B2:B31")[/COLOR]
End Sub

Ra ngoài bảng tính, bấm Alt + F8, gọi Sub Main để chạy
Chỗ màu đỏ chính là danh sách tên sheet, có thể thay đổi tùy ý

 

[ExcelQN]

OK rồi Anh ndu. Nhưng tôi muốn các sheet trong danh sách đó giống hệt sheet "ngay" thì làm sao. Cảm ơn.

 

[nghiaphuc]

OK rồi Anh ndu. Nhưng tôi muốn các sheet trong danh sách đó giống hệt sheet "ngay" thì làm sao. Cảm ơn.

Bạn thay câu lệnh

Sheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(Item)

bởi 2 câu lệnh này nhé:

Sheets("ngay").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = CStr(Item)

 

[ExcelQN]

Bạn thay câu lệnh

Sheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(Item)

bởi 2 câu lệnh này nhé:

Sheets("ngay").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = CStr(Item)

Khi chạy nó bị lỗi này nghiaphuc à, mong các bạn giúp.

 

[ndu96081631]

Khi chạy nó bị lỗi này nghiaphuc à, mong các bạn giúp.

Vậy thì bạn phải đưa nguyên "bị lỗi" ấy lên đây nhé

 

[nghiaphuc]

Khi chạy nó bị lỗi này nghiaphuc à, mong các bạn giúp.

Tôi chạy code thấy bình thường, chẳng vấn đề gì cả. Có lẽ bạn phải đưa cái file ấy lên đây rồi!

 

[ExcelQN]

Dà. File đây ạ. Nhờ các anh giúp

 

[be_09]

Dà. File đây ạ. Nhờ các anh giúp

Thử 1 cách khác xem có đúng ý bạn không.

Vùng dữ liệu của sheet danhsach được lấy từ A2:M779, muốn hơn thì phải sửa Name và sửa Code.

 

[ndu96081631]

Dà. File đây ạ. Nhờ các anh giúp

Tôi chạy code trong file của bạn nhưng chẳng thấy lỗi gì cả
(đã test trên Excel 2003 và 2010... còn Excel 2007 tôi không có nên không biết)

 

[ExcelQN]

Tôi chạy trên Excel 2003, cũng chưa phát hiện vì sao có lỗi này. Đem qua máy khác cũng y vậy. Dù sao cũng cảm ơn ác anh giúp đỡ rất nhiều.