Giúp mình hàm/code tự động đặt tên cho sheet (1 người xem)

[concuarangme]

Các bạn hướng dẫn giúp mình Hàm/Code tự động đặt tên (tên sheet = ngày hiện tại hoặc = tên của 1 ô quy định trước) cho sheet khi mình bấm tạo sheet mới nhé. Xin cảm ơn các bạn.

[/URL][/IMG]

 

[nmhung49]

Các bạn hướng dẫn giúp mình Hàm/Code tự động đặt tên (tên sheet = ngày hiện tại hoặc = tên của 1 ô quy định trước) cho sheet khi mình bấm tạo sheet mới nhé. Xin cảm ơn các bạn.

[/URL][/IMG]

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Name = VBA.Replace(Date, "/", "")
End Sub

Bạn Chép code này vào Thisworkbook

 

[concuarangme]

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Name = VBA.Replace(Date, "/", "")
End Sub

Bạn Chép code này vào Thisworkbook

cảm ơn bạn đã giúp mình. bạn giúp mình thêm trường hợp này nữa nhé, vì trong 1 ngày mà mình bấm hơn 1 lần tạo sheet mới thì báo lỗi code, có cách nào khắc phục được không bạn.

Ví dụ:

- Tạo sheet mới lần đầu tiên trong ngày -> Name sheet = 24.09.2012
- Tạo sheet mới lần thứ 2...thứ n trong ngày -> Name sheet = 24.09.2012 (2) ....24.09.2012 (n) hoặc là 1 name gì đó để không báo lỗi code.

cảm ơn bạn nhiều.

 

[ndu96081631]

cảm ơn bạn đã giúp mình. bạn giúp mình thêm trường hợp này nữa nhé, vì trong 1 ngày mà mình bấm hơn 1 lần tạo sheet mới thì báo lỗi code, có cách nào khắc phục được không bạn.

Ví dụ:

- Tạo sheet mới lần đầu tiên trong ngày -> Name sheet = 24.09.2012
- Tạo sheet mới lần thứ 2...thứ n trong ngày -> Name sheet = 24.09.2012 (2) ....24.09.2012 (n) hoặc là 1 name gì đó để không báo lỗi code.

cảm ơn bạn nhiều.

Cho code dưới đây vào 1 Module

Function SheetExist(ByVal wksName As String) As Boolean
  On Error Resume Next
  SheetExist = Not ThisWorkbook.Sheets(wksName) Is Nothing
End Function

Sửa sự kiện Workbook_NewSheet thành:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
  Dim wksName As String, n As Long
  On Error Resume Next
  wksName = Format(Date, "dd.mm.yyyy")
  Do While SheetExist(wksName)
    n = n + 1
    wksName = Format(Date, "dd.mm.yyyy") & "(" & n & ")"
  Loop
  Sh.Name = wksName
End Sub