Cách thêm .Old vào hàng loạt tên sheet trong 1 file

[AnhThu-1976]

Em chào các Anh chị!
Ví dụ em có 1 file, trong file có sheet mang tên: Mua, Ban, Nhap
Bây giờ em muốn tên sheet của tất cả các sheet trong file, cụ thể được thêm .Old vào sau mỗi tên sheet như: Mua.Old, Ban.Old, Nhap.Old
Em cảm ơn!

 

[Phuocam]

được thêm .Old vào sau mỗi tên sheet như: Mua.Old, Ban.Old, Nhap.Old

Thử:

Public Sub ThemOld()
Dim ws As Worksheet
For Each ws In Worksheets
    If Right(ws.Name, 4) <> ".Old" Then ws.Name = ws.Name & ".Old"
Next
End Sub

 

[VetMini]

#Const DOITUOT = False
#If Not DOITUOT Then
Option Compare Text
#End If
Sub DoiTen()
For Each sh In Worksheets
#If DOITUOT Then
sh.Name = sh.Name & ".Old"
#Else
If Right(sh.Name, 4) <> ".old" Then sh.Name = sh.Name & ".Old"
#End If
Next sh
End Sub

Sheet nào đã có sẵn ".Old" rồi thì không đổi. Nếu muốn đổi tuốt thì thay chỗ đỏ đỏ lại thành True.

 

[huuthang_bd]

#Const DOITUOT = False
#If Not DOITUOT Then
Option Compare Text
#End If
Sub DoiTen()
For Each sh In Worksheets
#If DOITUOT Then
sh.Name = sh.Name & ".Old"
#Else
If Right(sh.Name, 4) <> ".old" Then sh.Name = sh.Name & ".Old"
#End If
Next sh
End Sub

Sheet nào đã có sẵn ".Old" rồi thì không đổi. Nếu muốn đổi tuốt thì thay chỗ đỏ đỏ lại thành True.

Nếu đổi tuốt e rằng code này chưa ổn.

 

[VetMini]

Nếu đổi tuốt e rằng code này chưa ổn.

Lỗi chạm tên thì đổi tuốt hay không đều có vấn đề hết.
Đây chỉ là đồ chữa cháy. Muốn hoàn hảo thì còn nhiều.