Xét sự tồn tại của 1 Sheet

[themorzer]

Chào mọi người, mình có đoạn code sau

Dim ws As Worksheet
For Each ws In Worksheets
If Worksheets("A") Is Empty Then
D=B+C "gia tri trong Work Sheet D=B+C"
Else
D=A+B+C "gia tri trong Work Sheet D=A+B+C"
End If
Next ws

mình không biết điều kiện để xác định Sheet đó có tồn tại hay không nên code bị lỗi Subcript out of range
cám ơn

 

[Phuocam]

Sheet đó có tồn tại hay không

Sheet đó có tồn tại hay không thì chưa biết, chỉ biết code không tồn tại vì lưu file với phần mở rộng là .xlsx

 

[ndu96081631]

Chào mọi người, mình có đoạn code sau

Dim ws As Worksheet
For Each ws In Worksheets
If Worksheets("A") Is Empty Then
D=B+C "gia tri trong Work Sheet D=B+C"
Else
D=A+B+C "gia tri trong Work Sheet D=A+B+C"
End If
Next ws

mình không biết điều kiện để xác định Sheet đó có tồn tại hay không nên code bị lỗi Subcript out of range
cám ơn

Công thức tại cell B1 ở sheet D bạn đang dùng là:

=A!A1+B!A1+'C'!A1

Công thức này sẽ bị lỗi nếu sheet A, B hoặc C bị xóa
Vậy tại sao bạn không dùng:

=SUM('A:C'!A1)

Dù bạn xóa hoặc chèn thêm sheet thì công thức vẫn cập nhật đúng
-----------------------
Còn liên quan đến việc xác định sự tồn tại của một sheet, bạn dùng hàm này:

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

 

[themorzer]

Công thức tại cell B1 ở sheet D bạn đang dùng là:

=A!A1+B!A1+'C'!A1

Công thức này sẽ bị lỗi nếu sheet A, B hoặc C bị xóa
Vậy tại sao bạn không dùng:

=SUM('A:C'!A1)

Dù bạn xóa hoặc chèn thêm sheet thì công thức vẫn cập nhật đúng
-----------------------
Còn liên quan đến việc xác định sự tồn tại của một sheet, bạn dùng hàm này:

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

chào thầy, cái file em đính kèm là mẫu nên em dùng công thức trên để cho mọi người hiểu là nếu Sheet A không tồn tại thì Sheet D= B+C ngược lại nếu Sheet A tồn tại thì Sheet D = A+B+C nên em cộng như vậy thôi
Vì chương trình chính của em có rất nhiều Sheet, nên nếu có Sheet tồn tại thì công thức khác so với không tồn tại
Nên em mới sử dụng code của em để lọc Sheet không tồn tại đó mà chưa dc

 

[ndu96081631]

chào thầy, cái file em đính kèm là mẫu nên em dùng công thức trên để cho mọi người hiểu là nếu Sheet A không tồn tại thì Sheet D= B+C ngược lại nếu Sheet A tồn tại thì Sheet D = A+B+C nên em cộng như vậy thôi

Thì tôi gợi ý bạn công thức =SUM('A:C'!A1) rồi đấy. Với công thức này, bạn đâu cần quan tâm đến sheet A có tồn tại hay không. Thâm chí khi gõ lên bảng tính, bạn có thể gõ tắt thế này =SUM('*'!A1) <--- Mặc kệ sheet tên gì

 

[themorzer]

chào thầy, cái file em đính kèm là mẫu nên em dùng công thức trên để cho mọi người hiểu là nếu Sheet A không tồn tại thì Sheet D= B+C ngược lại nếu Sheet A tồn tại thì Sheet D = A+B+C nên em cộng như vậy thôi

Thì tôi gợi ý bạn công thức =SUM('A:C'!A1) rồi đấy. Với công thức này, bạn đâu cần quan tâm đến sheet A có tồn tại hay không. Thâm chí khi gõ lên bảng tính, bạn có thể gõ tắt thế này =SUM('*'!A1) <--- Mặc kệ sheet tên gì

À em xin lỗi thầy, thầy không cần quan tâm đến công thức trong file đính kèm em, em chỉ cần sửa code trên #1 sao cho ở Sheet D nếu Có Sheet A thì D=A+B+C ngước lại nếu delete Sheet A D=B+C

 

[ndu96081631]

À em xin lỗi thầy, thầy không cần quan tâm đến công thức trong file đính kèm em, em chỉ cần sửa code trên #1 sao cho ở Sheet D nếu Có Sheet A thì D=A+B+C ngước lại nếu delete Sheet A D=B+C

Muốn code thì có code:

Sub Test()
  MsgBox Evaluate("SUM('*'!A1)")
End Sub

 

[themorzer]

Muốn code thì có code:

Sub Test()
  MsgBox Evaluate("SUM('*'!A1)")
End Sub

em cám ơn sự giúp đỡ của thầy

Dim ws As Worksheet

If Not Worksheets("A") Is Nothing Then
D=B+C "gia tri trong Work Sheet D=B+C"
Else
D=A+B+C "gia tri trong Work Sheet D=A+B+C"
End If

em muốn xử lý Sheet khi delete 1 Sheet theo hướng của code này

 

[ndu96081631]

em cám ơn sự giúp đỡ của thầy

Dim ws As Worksheet

If Not Worksheets("A") Is Nothing Then
D=B+C "gia tri trong Work Sheet D=B+C"
Else
D=A+B+C "gia tri trong Work Sheet D=A+B+C"
End If

em muốn xử lý Sheet khi delete 1 Sheet theo hướng của code này

Thì tôi cũng đã cho bạn hàm tự tạo ở trên rồi còn gì. Thay vì:

If Not Worksheets("A") Is Nothing Then

Bạn dùng:

If SheetExist("A") Then

Vậy thôi

 

[themorzer]

Thì tôi cũng đã cho bạn hàm tự tạo ở trên rồi còn gì. Thay vì:

If Not Worksheets("A") Is Nothing Then

Bạn dùng:

If SheetExist("A") Then

Vậy thôi

cám ơn thầy, code đã hoạt động, do em thêm
SheetExist("A") = True nên chưa hoạt động

 

[VetMini]

Muốn thử sự tồn tại của 1 sheet (chỉ worksheet, không áp dụng được cho chartsheet) thì dùng code như sau
VBA:
Evaluate("ISREF('" & sheetName & "'!A1)"), hoặc:
Not Evaluate("IsError(" & sheetName & "!1:1)")
Worksheet:
=ISREF(INDIRECT("SheetName!A1"))