Đánh số TT không loại bỏ sheet theo ý muôn (1 người xem)

[Excel365]

[GPECODE=vb]Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim Ws As Worksheet, WsName As String
Dim SrcRng As Range, Arr, i As Long, n As Long
On Error Resume Next
If Ws.Name <> "TH" Or Ws.Name <> "DonGia" Or Ws.Name <> "TH2" Then
Set SrcRng = Range([B5], [B65536].End(xlUp))
Arr = SrcRng.Value
For i = 1 To UBound(Arr, 1)
If Arr(i, 1) <> "" Then
n = n + 1
Arr(i, 1) = n
End If
Next
SrcRng.Offset(, -1).Value = Arr
End If
End Sub[/GPECODE]
Cho em hỏi em có đoạn code như trên, đặt trong workbook. đánh số TT tất cả các sheet, nhưng sẽ không đánh STT cho sheet TH, DonGia, ...
Nhưng không được nhờ các anh chị giúp em
Trân trọng

 

[dhn46]

Bạn đưa File không theo ý muốn lên đi.

 

[ndu96081631]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)    
   Dim Ws As Worksheet, WsName As String
   Dim SrcRng As Range, Arr, i As Long, n As Long
  On Error Resume Next
    If [COLOR=#0000cd]Ws[/COLOR].Name <> "TH" [COLOR=#ff0000]Or[/COLOR] Ws.Name <> "DonGia" [COLOR=#ff0000]Or[/COLOR] Ws.Name <> "TH2" Then
        Set SrcRng = Range([B5], [B65536].End(xlUp))
        Arr = SrcRng.Value
        For i = 1 To UBound(Arr, 1)
            If Arr(i, 1) <> "" Then
                n = n + 1
                Arr(i, 1) = n
            End If
        Next
        SrcRng.Offset(, -1).Value = Arr
    End If
End Sub

Cho em hỏi em có đoạn code như trên, đặt trong workbook. đánh số TT tất cả các sheet, nhưng sẽ không đánh STT cho sheet TH, DonGia, ...
Nhưng không được nhờ các anh chị giúp em
Trân trọng

Dùng OR là thấy trật lất rồi! Tự suy luận xem!
Ngoài ra thì: Biến Ws ở đâu ra vậy? Phải là Sh chứ

 

[Excel365]

Dùng OR là thấy trật lất rồi! Tự suy luận xem!
Ngoài ra thì: Biến Ws ở đâu ra vậy? Phải là Sh chứ

Em đã điều chỉnh lại được rồi, cám ơn anh