Làm sao active một sheet cụ thể khi open workbook

[Tường_Vi]

Ví dụ muội có rất nhiều sheet với tên W1, W2, W3....W(i)
Ví dụ: hiện tại là tuần 29, muội muốn sheet w29 sẽ active khi mở workbook
Muội làm một code sau

Private sub workbook_open()
Sheets("W"&application.worksheetfunction.weeknum(day)).active
End sub

Không hiểu sao khi chạy code trên bị báo lỗi, mong được các Huynh chỉ giúp

 

[Hai Lúa Miền Tây]

Ví dụ muội có rất nhiều sheet với tên W1, W2, W3....W(i)
Ví dụ: hiện tại là tuần 29, muội muốn sheet w29 sẽ active khi mở workbook
Muội làm một code sau

Private sub workbook_open()
Sheets("W"&application.worksheetfunction.weeknum(day)).active
End sub

Không hiểu sao khi chạy code trên bị báo lỗi, mong được các Huynh chỉ giúp

Thử dùng code sau:

Sheets("W" & Evaluate("WEEKNUM(now())")).Select

Nhớ chọn

 

[ndu96081631]

Ví dụ muội có rất nhiều sheet với tên W1, W2, W3....W(i)
Ví dụ: hiện tại là tuần 29, muội muốn sheet w29 sẽ active khi mở workbook
Muội làm một code sau

Private sub workbook_open()
Sheets("W"&application.worksheetfunction.weeknum(day)).active
End sub

Không hiểu sao khi chạy code trên bị báo lỗi, mong được các Huynh chỉ giúp

Vì trong WorksheetFunction không có hàm WeekNum
Vậy ta có thể làm bằng 2 cách:
- Dùng cách mà Doom vừa nêu ở trên! Có điều phải cài Add-In Analysis ToolPak ---> Có khi không cài được vì máy bắt cho đĩa CD (mà trong tay ta lại không có đĩa)
- Dùng hàm tự tạo: Tự mình tạo ra 1 hàm WeekNum để xài:

Function WeekNumUDF(DateValue As Date, Optional TypeValue As Byte = 1) As Long
  Dim FirstDay As Date
  If TypeValue > 0 And TypeValue < 3 Then
    FirstDay = DateSerial(Year(DateValue), 1, 1)
    WeekNumUDF = Int((DateValue - FirstDay - Weekday(DateValue - (2 - TypeValue) * 6, 2) + 8) / 7) - (Weekday(FirstDay) <> TypeValue)
  End If
End Function

Tiếp theo xài sao đó là việc của bạn nhé, chẳng hạn:
Sheets("W" & WeekNumUDF(Date, 1)).Activate
(Chú ý là Activate chứ không phải Active à nha)

 

[huuthang_bd]

Ví dụ muội có rất nhiều sheet với tên W1, W2, W3....W(i)
Ví dụ: hiện tại là tuần 29, muội muốn sheet w29 sẽ active khi mở workbook
Muội làm một code sau

Private sub workbook_open()
Sheets("W"&application.worksheetfunction.weeknum(day)).active
End sub

Không hiểu sao khi chạy code trên bị báo lỗi, mong được các Huynh chỉ giúp

Bạn có thể dùng hàm WEEKNUM() trong name và lấy kết quả của name đó.
Ví dụ như tạo một name Week như thế này:

Week = WEEKNUM(TODAY())

Và dùng code này:

Private Sub Workbook_Open()
    Sheets("W" & [Week]).Active
End Sub

 

[ndu96081631]

Một chiêu mới

Vừa nghĩ ra 1 cách khác hay hơn rất nhiều: Không dùng UDF cũng chẳng cần đến Analysis ToolPak luôn:

Sheets("W" & DatePart("ww", Date, 1)).Activate

Dùng DatePart xem bộ rất ngon lành
Thí nghiệm xem!
Ẹc... Ẹc...