KIểm tra tên sheet có tồn tại không (3 người xem)

[tkhieu]

Xin chào mọi người.
Nhờ mọi người giúp mình code VBA kiểm tra tên sheet có tồn tại hay không.
Ví dụ mình muốn kiểm tra sheet có tên "a". Nếu sheet a đã tồn tại thì kích hoạt sheet a, nếu sheet a chưa tồn tại thì chạy 1 macro (macro này mình đã có sẵn rồi).
Mình có đính kèm File bên dưới.
Cám ơn mọi người.

 

[Nhattanktnn]

Xin chào mọi người.
Nhờ mọi người giúp mình code VBA kiểm tra tên sheet có tồn tại hay không.
Ví dụ mình muốn kiểm tra sheet có tên "a". Nếu sheet a đã tồn tại thì kích hoạt sheet a, nếu sheet a chưa tồn tại thì chạy 1 macro (macro này mình đã có sẵn rồi).
Mình có đính kèm File bên dưới.
Cám ơn mọi người.

Thử code sau :

Option Explicit

Private Function WorksheetExists(sName As String) As Boolean
    WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function
Sub Main()
If WorksheetExists("a") Then 'Neu ton tai
    Sheets("a").Activate
Else                                        'Neu khong ton  tai
    'Chay code cua ban
End If
End Sub

 

[tkhieu]

Thử code sau :

Option Explicit

Private Function WorksheetExists(sName As String) As Boolean
    WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function
Sub Main()
If WorksheetExists("a") Then 'Neu ton tai
    Sheets("a").Activate
Else                                        'Neu khong ton  tai
    'Chay code cua ban
End If
End Sub

Cám ơn bạn nhiều, mình áp dụng vào File và đã hoạt động.