Insert Sheet và gắn tên Sheet bằng một địa chỉ của vùng có sẵn. (1 người xem)

[phuyen89]

Chào anh chị diễn đàn.
Mình đang có nhu cầu, Insert Sheet và gắn đặt tên Sheet, mà tên sheet này nó được lấy từ một vùng có sẵn.
Insert bao nhiêu Sheet là bây bây nhiêu mã KH có trong File.

 

[Quang_Hải]

Xem code đơn giản này

 

[ndu96081631]

Chào anh chị diễn đàn.
Mình đang có nhu cầu, Insert Sheet và gắn đặt tên Sheet, mà tên sheet này nó được lấy từ một vùng có sẵn.
Insert bao nhiêu Sheet là bây bây nhiêu mã KH có trong File.

Thử tham khảo bài này:
http://www.giaiphapexcel.com/forum/...hởi-tạo-nhiều-worksheets-từ-1-list-hoặc-table

 

[phuyen89]

Xem code đơn giản này

Cái mình muốn là Bung Sheet từ Sổ chi tiết ra, ( Chính xác hơn là copy sheet rồi đổi tên, cho nó có số liệu) mà bạn xóa mất tiêu Sheet đó, Mình có 3 sheet ví dụ đó, có cái Validation nó đi theo từng sheet luôn kìa.Do yêu cầu của người làm thủ công,nên mình phải làm thế, chứ hổng muốn phải thế đâu.

 

[Quang_Hải]

Bạn thay code này chắc là được đấy

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For r = 4 To [a65536].End(3).Row
Sheets("chi tiet").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Cells(r, 1)
Next
Application.ScreenUpdating = True
End Sub

 

[phuyen89]

Sao thấy nó không động tĩnh già cả nhỉ.Trơ trơ như cục đã,hồi sáng làm thử công 300 sheet ớn liền/

 

[Quang_Hải]

Không chay là phải rồi, tại bạn đưa code vào kì quá mà

 

[phuyen89]

Không chay là phải rồi, tại bạn đưa code vào kì quá mà

sau mấy ngày nghiên cứu, mình thêm khoảng 300 dòng nữa, thì trong Excel 2003 nó báo lỗi dòng này.

Sheets("chi tiet").Copy After:=Sheets(Sheets.Count)

Nhưng trong Excel 2007 thì nó lại chạy vô tư ta.