Hỏi cách áp dụng cùng một code cho nhiều worksheet (1 người xem)

[furin.235]

Chào mọi người,

Việc của mình cần đổi tên nhiều sheet theo một danh sách có sẵn hoặc trùng với tên trong cell của sheet đó. Mình tìm trên diễn đàn làm theo code này thì ok. Nhưng mình muốn copy code này vào nhiều sheet một lúc thì có được không?
Trong một workbooknhiều sheet, mình chỉ muốn lưu 1 sheet thành template mà vào lại thấy lưu cả workbook đó thành template???

Private Sub Worksheet_Deactivate()
On Error GoTo ext
Me.Name = [B5]
ext:
End Sub

Bạn nào biết giúp mình nhé! Mình cảm ơn !

 

[khuongvietphong]

Tại cell A1 của mỗi Sheet bạn gõ tên mà bạn muốn đặt cho Sheet vào đó ( lưu ý các tên ở các Sheet phải khác nhau)
Sau đó bạn dán Sub này vào ThisWorkbook rồi cho chạy thử nha:

Option Explicit
Sub doi_ten()
Dim i As Long
For i = 1 To Worksheets.Count
   Sheets(i).Name = Sheets(i).Range("A1").Value
Next i
End Sub

 

[Kiều Mạnh]

Chào mọi người,

Việc của mình cần đổi tên nhiều sheet theo một danh sách có sẵn hoặc trùng với tên trong cell của sheet đó. Mình tìm trên diễn đàn làm theo code này thì ok. Nhưng mình muốn copy code này vào nhiều sheet một lúc thì có được không?
Trong một workbooknhiều sheet, mình chỉ muốn lưu 1 sheet thành template mà vào lại thấy lưu cả workbook đó thành template???

Private Sub Worksheet_Deactivate()
On Error GoTo ext
Me.Name = [B5]
ext:
End Sub

Bạn nào biết giúp mình nhé! Mình cảm ơn !

Thử chép code sau vào Thisworkbook...tên sheet sẽ thay đổi theo A1 khi chuyển sheet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo Hat
If ActiveSheet.Range("A1").Value <> Empty Then
    ActiveSheet.Name = ActiveSheet.Range("A1").Value
Else
    ActiveSheet.Name = Worksheets.Count
End If
Hat:
End Sub

 

[furin.235]

Tại cell A1 của mỗi Sheet bạn gõ tên mà bạn muốn đặt cho Sheet vào đó ( lưu ý các tên ở các Sheet phải khác nhau)
Sau đó bạn dán Sub này vào ThisWorkbook rồi cho chạy thử nha:

Option Explicit
Sub doi_ten()
Dim i As Long
For i = 1 To Worksheets.Count
   Sheets(i).Name = Sheets(i).Range("A1").Value
Next i
End Sub

không biết lỗi j nhưng mình thử không đổi , tên sheet của mình nằm cell B5

 

[furin.235]

Thử chép code sau vào Thisworkbook...tên sheet sẽ thay đổi theo A1 khi chuyển sheet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo Hat
If ActiveSheet.Range("A1").Value <> Empty Then
    ActiveSheet.Name = ActiveSheet.Range("A1").Value
Else
    ActiveSheet.Name = Worksheets.Count
End If
Hat:
End Sub

Thank bạn nhé , mình đổi được rồi, à ban đầu mình chỉ nhấn sang sheet khác là sheet trước đó đổi tên luôn, nhưng code của bạn phải back lại sheet đó mới đổi được?

 

[Kiều Mạnh]

Thank bạn nhé , mình đổi được rồi, à ban đầu mình chỉ nhấn sang sheet khác là sheet trước đó đổi tên luôn, nhưng code của bạn phải back lại sheet đó mới đổi được?

thay dòng trên cùng thành dòng sau..........nó qua lại có mấy kiểu đó nếu ko thích đổi kiểu chơi vậy nha

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

 

[furin.235]

thay dòng trên cùng thành dòng sau..........nó qua lại có mấy kiểu đó nếu ko thích đổi kiểu chơi vậy nha

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

uhm, phải back lại sheet đó mới đổi được, làm nhiều vs gấp thì thi thoảng quên ko nhấn lại )