Thêm một sheet tổng hợp ngày nghỉ dùng VBA (1 người xem)

[hoahongden1429]

chào mấy thầy. Em có một file DB trong đó có sheet CD3F dùng để cập nhật chế độ 3 lá phép đầu tiên của một giáo viên trong một năm học (nếu như ở các họ DB mình có gán cho nó chữ cd3p ở cột I) => mục đích: nó sẽ nhắc cho mình biết người này đã được 1 hay 2 hay 3 trong chế độ 3 lá phép mà mình mặc định.
Bây giờ em muốn tạo thêm 1 sheet CD3U như vậy nhưng: nó dùng để cập nhật 3 ngày nghỉ được gọi là"được nghỉ 3 ngày phép ưu tiên". Cách làm em copy sheet ra nhưng không được. Vậy nhờ các thầy giúp cho. Nếu mình tạo thêm một lựa chọn cd3ut để gán cho cột I thì sao?
- Nếu mình gán cd3p thì sheet CD3F nó sẽ thống kê.
- Nếu mình gán chữ cd3ut thì sheet CD3U sẽ thống kê.
xin cảm ơn rất nhiều

 

[ChanhTQ@]

Làm trên trang sẵn có cũng được nữa, không cứ cần trang mới!
Nhưng giờ thì chưa thể thử cho bạn được do cột của các trang họ 'DB' chỉ có thể 1 lựa chọn duy nhất thì làm sao có mẫu để thử trang báo cáo đây?

Bạn cần chỉnh lại file dùm cái đi!

 

[hoahongden1429]

Xin lỗi. Em quên. GIờ em thêm rồi ạ,

 

[SA_DQ]

Bạn xem trong file;

Một vài góp ý với mã nhân viên của bạn:

(1) Bạn không nên xài chữ cái 'Đ' vì Font chữ Việt đang rất lộn xộn

(2) Độ dài mã nên là như nhau; Như mình thì sẽ là 5 mà thôi, như:
NVH00: Nguyễn Việt Hồng
NVH01: Nguyễn Thị Viết Hà
NJH00: Nguyễn Hải
NJF00: Ngô Đại
CNM00: Công Tằng Tôn Nữ Nguyệt Minh

 

[hoahongden142917]

Nếu vậy thì giả sử cơ quan đó có khoảng 150 người thì việc tạo mã cho họ làm thủ công là sỉu luôn. Còn của em tuy nó k theo như của anh nhưng nó là tự động khi chỉ cần nhập ds tên rồi bấm vào nút tạo mã là nó tự động tạo mã rồi.

 

[ChanhTQ@]

Nếu vậy thì giả sử cơ quan đó có khoảng 150 người thì việc tạo mã cho họ làm thủ công là sỉu luôn.
Còn của em tuy nó k theo như của anh nhưng nó là tự động khi chỉ cần nhập ds tên rồi bấm vào nút tạo mã là nó tự động tạo mã rồi.

150 chứ 1500 cũng OK tuốt, bằng 1 macro luôn!

Còn trong file bài trên có 2 nút cho bạn rồi mà! Bạn thử lần lượt từng nút xem sao?.

 

[hoahongden1429]

150 chứ 1500 cũng OK tuốt, bằng 1 macro luôn!

Còn trong file bài trên có 2 nút cho bạn rồi mà! Bạn thử lần lượt từng nút xem sao?.

ý em nói là tạo mã kìa. còn trong sheet cd3f thì đúng là đã có 2 nút macro (CD3P VÀ CD3U)
Trước tiên xin cảm ơn các anh nhiều. nhưng nhờ các anh làm ơn tiếp tục giúp em:
1/ Em muốn tách ra làm 2 sheet: cd3f và cd3u vì: file cũ của em ở cd3f nó có ưu điểm là khi em gán cd3u bằng data viliation ở cột I thì cd3f nó sẽ cập nhật đồng thời cho mình biết người đó đã có mấy ngày cd3f rồi. từ đó mình sẽ kiểm soát được là người này còn được quyền gán cho cd3p ở cột I hay không.
2/ em muốn tạo 1 sheet cd3u giống như vậy. với điều kiện là mình tạo data viliation cho cột I có 2 lựa chọn 1 là cd3u, 2 là cd3p. Như vậy giả sử gán cho người A này cd3u -> bấm vào nút macro cập nhật CD3U thì sheet cd3u sẽ hoạt động và báo cho mìn biết họ đã có mấy ngày cd3u rồi.
Được vậy thì xin cảm ơn các huynh rất nhiều. Chúc các huynh dồi dào sức khỏe. Kính chào!

 

[SA_DQ]

Cũng khá lâu rồi, nên cũng tốn thời gian khi sửa lại!

 

[hoahongden1429]

Cũng khá lâu rồi, nên cũng tốn thời gian khi sửa lại!

Đầu tiên em xin chân thành cảm ơn anh.
Em thấy rất ổn nhưng nhờ anh làm cho nó báo với mình là người đó đã được mấy ngày CD3UT rồi hay không. Giống như tác dụng thông báo của sheet cd3f ấy. Xin cảm ơn anh rất nhiều.

 

[SA_DQ]

Bạn thử thực hiện theo qui trình sau:

B1: Chép nội dung macro này đè lên macro cũ cùng tên:

 Sub BaoLoi(Ma As String, Targ As Range)
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim J As Byte
 If UCase$(Targ.Value) = "CD3P" Then                '<=|1'
    Set Sh = ThisWorkbook.Worksheets("CD3F")
 ElseIf UCase$(Targ.Value) = "CD3UT" Then
    Set Sh = ThisWorkbook.Worksheets("CDUT")
 End If                                             '<=|2'
 Set Rng = Sh.Range(Sh.[c2], Sh.[c2].End(xlDown))
 Set sRng = Rng.Find(Ma, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    For Each Cls In Range(sRng.Offset(, 1), sRng.Offset(, 5))
        J = J + 1
        If Cls.Value = "" Then Exit For
    Next Cls
 End If
 MsgBox J, , Targ.Value     '<=|3'
 Targ.Interior.ColorIndex = 34 + J
End Sub

B2: Đến các trang tính có họ 'DB', ta vô các macro sự kiện & sửa lại 1 dòng lệnh trong đó, để tất thẩy chúng có dạng như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("I7:I700")) Is Nothing Then
    If Target.Value = Sheets("TD").Range("F1").Value Or UCase$(Target.Value) = "CD3UT" Then    '<=|'
        BaoLoi Cells(Target.Row, "B").Value, Target
    End If
 End If
End Sub

Chúc bạn thành công trong ngày nghỉ cuối tuần!

 

[hoahongden1429]

Bạn thử thực hiện theo qui trình sau:

B1: Chép nội dung macro này đè lên macro cũ cùng tên:

 Sub BaoLoi(Ma As String, Targ As Range)
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim J As Byte
 If UCase$(Targ.Value) = "CD3P" Then                '<=|1'
    Set Sh = ThisWorkbook.Worksheets("CD3F")
 ElseIf UCase$(Targ.Value) = "CD3UT" Then
    Set Sh = ThisWorkbook.Worksheets("CDUT")
 End If                                             '<=|2'
 Set Rng = Sh.Range(Sh.[c2], Sh.[c2].End(xlDown))
 Set sRng = Rng.Find(Ma, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    For Each Cls In Range(sRng.Offset(, 1), sRng.Offset(, 5))
        J = J + 1
        If Cls.Value = "" Then Exit For
    Next Cls
 End If
 MsgBox J, , Targ.Value     '<=|3'
 Targ.Interior.ColorIndex = 34 + J
End Sub

B2: Đến các trang tính có họ 'DB', ta vô các macro sự kiện & sửa lại 1 dòng lệnh trong đó, để tất thẩy chúng có dạng như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("I7:I700")) Is Nothing Then
    If Target.Value = Sheets("TD").Range("F1").Value Or UCase$(Target.Value) = "CD3UT" Then    '<=|'
        BaoLoi Cells(Target.Row, "B").Value, Target
    End If
 End If
End Sub

Chúc bạn thành công trong ngày nghỉ cuối tuần!

quả thật em phải nói anh là bậc thầy rồi. Xin cảm ơn anh. Nhưng có 1 vđ nhỏ xíu này:
File cũ của em có các nút button liên kết tới cd3f để giúp mình: khi đang thao tác ở họ DB bất kì thì ta chỉ cần nhắp vào button đó thì nó lập tức chạy macro cho cd3f. Nhưng giờ đây nó đã vô t/d. Và em đã thử bằng cách: copy button của anh tạo trong CD3U qua các họ DB nhưng vẫn vậy. Hoặc em dùng chức năng sử dụng phím tắt cập nhật macro cho cd3f và CD3U những vẫn không được. Xin anh giúp. Chúc anh sức khỏe.

 

[ChanhTQ@]

(/ấn đề nhỏ xíu là đối với bạn thôi; Thực ra mình mới thử vài đường thì gây xung đột dữ lắm giữa các macro;

Chắc là fải lên lại fương án tổng thể & viết lại từ đầu rồi bạn à!

 

[hoahongden1429]

(/ấn đề nhỏ xíu là đối với bạn thôi; Thực ra mình mới thử vài đường thì gây xung đột dữ lắm giữa các macro;

Chắc là fải lên lại fương án tổng thể & viết lại từ đầu rồi bạn à!

vậy nhờ các huynh giúp được chứ ạ

vậy nhờ các huynh giúp được chứ ạ

xin nhờ các huynh giúp đỡ cho. xin cảm ơn

 

[SA_DQ]

Cũng chưa cần fải viết lại toàn bộ

Ở các trang họ "DB", để chạy & cập nhật trang "CD3F" ta cần nhấn tổ hợp CTRL+SHIFT+F
& để cập nhật trang 'CDUT' ta cần CTRL+SHIFT+U

 

[hoahongden1429]

Ở các trang họ "DB", để chạy & cập nhật trang "CD3F" ta cần nhấn tổ hợp CTRL+SHIFT+F
& để cập nhật trang 'CDUT' ta cần CTRL+SHIFT+U

cảm ơn anh nhiều lắm. Xin chân thành cảm ơn. Xin chúc anh và gđ luôn mạnh khỏe, thành công trong mọi công việc. Xin chào anh. Một lần nữa xin cảm ơn.

cảm ơn anh nhiều lắm. Xin chân thành cảm ơn. Xin chúc anh và gđ luôn mạnh khỏe, thành công trong mọi công việc. Xin chào anh. Một lần nữa xin cảm ơn.

Xin được phép nhờ anh cái nữa ạ:
Trang nhập liệu của em nó dài là múc đích của em là không cần insert hàng để thêm mỗi khi thiếu. Nhưng xảy ra một vđề là: nếu dữ liệu ít hoặc vừa vừa thì nó còn dư các hàng trống. Vậy khi in ra A4 thì phần còn dư nó vẫn cứ nằm trơ trên giấy. Vì thế mình không thể chèn cuối giấy những nội dung:
............ngày.........tháng............năm..........
Duyệt Người viết




Ý của em là: Nếu dữ liệu kết thúc ở hàng nào thì ngay phía dưới hàng đó có thêm

............ngày.........tháng............năm..........
Duyệt Người viết

 

[ChanhTQ@]

Xin được phép nhờ anh cái nữa ạ:
Trang nhập liệu của em nó dài là múc đích của em là không cần insert hàng để thêm mỗi khi thiếu. Nhưng xảy ra một vđề là: nếu dữ liệu ít hoặc vừa vừa thì nó còn dư các hàng trống. Vậy khi in ra A4 thì phần còn dư nó vẫn cứ nằm trơ trên giấy.

Ý của em là: Nếu dữ liệu kết thúc ở hàng nào thì ngay phía dưới hàng đó có thêm

............ngày.........tháng............năm..........
Duyệt Người viết

Bạn đang nói đến trang tính nào vậy?
Các trang tính đều có tên mà; Réo dùm tên cúng cơm của nó/chúng nó đi cái!
Chúc vui khỏe!

 

[hoahongden1429]

các họ DB ấy. Có nghĩa là mỗi khi nhập dữ liệu xong thì em phải in ra các trang họ DB nhưng phải làm thủ công bằng cách lấy ô text book để che các dòng kẻ khung còn trống rồi thêm vào các nội dung như em nói ở trên ạ

 

[ChanhTQ@]

Bạn xem theo file

CTRL+SHIFT+A
CTRL+SHIFT+H

 

[hoahongden1429]

Ý em là ví dụ ta xét DB01 đi:
Khi vào trang in thì nó có 34 page. Mà cái ngày tháng năm đó nó lại nằm ở trang 34 cơ. Mà trong khi đó nội dung dữ liệu của mình nhập chỉ có ở trang 1. Có nghĩa là dữ liệu mình kết thúc ở đâu thì ngay liền sau nó sẽ tự động có mục ngày tháng năm....duyệt....người viết. ấy mà. Chứ không lẽ như DB01 mình phải in trang 1, xong in tiếp trang 34 (mà trang này toàn là khung chứ k có dữ liệu) để có được ...ngày tháng năm....duyệt...
Xin nhờ anh

à em quên mất. Chưa nhấn tổ hợp phím mà anh chỉ. Được rồi. Xin cảm ơn rất nhiều. Chúc anh và gđ "hạnh phúc". Hẹn gặp lại. Xin cảm ơn

Em xin phép lại được nhờ anh giống cái ở trên nhưng cho file có tên SK nhé. Em làm hoài mà k được. Tới 1 h 35 luôn nè. Buồn ngủ quá trời mà vẫn k thể nào làm được. ĐÚng là tệ quá. Vậy nhờ anh giúp cho chót nhé.
FIle này gọi là sơ kết. Nó sơ kết điểm dựa trên file DB. Nhờ anh cuộn ngày..tháng...năm... giống như file DB vậy. Rất hay

Em xin phép lại được nhờ anh giống cái ở trên nhưng cho file có tên SK nhé. Em làm hoài mà k được. Tới 1 h 35 luôn nè. Buồn ngủ quá trời mà vẫn k thể nào làm được. ĐÚng là tệ quá. Vậy nhờ anh giúp cho chót nhé.
FIle này gọi là sơ kết. Nó sơ kết điểm dựa trên file DB. Nhờ anh cuộn ngày..tháng...năm... giống như file DB vậy. Rất hay

Hay là đối với file SK này thì cuộn tới tên người cuối cùng trong danh sách họ và tên. VD có 40 người thì nó sẽ ẩn dòng tới ngay dưới dòng có tên người số 40. Xin hết

 

[SA_DQ]

Mình cũng fải tạo mới file mới làm được;

File của bạn có "Ma"

 

[hoahongden142917]

đầu tiên xin cảm ơn anh.
Nhưng ý em là với định dạng fiel SK như em gởi lên thì mình dùng code dấu đi những dòng mà cột tên bị trống (vì cột này có sử dụng hàm). Vậy phải làm sao. File của ah Hyen có chỗ bất ổn: cấu trúc của file cũ khônđ dc. Ý em muốn làm file SK cuốn ngày....tháng........năm............gióong hệt như file DB vậy

 

[hoahongden142917]

không được rồi anh ơi. sáng nay 4h sáng em lại thử lần nữa nhưng k đc. em copy code của anh dán vào moduel của file SK của em nhưng nó chỉ cuốn được hàng 168-165 thôi. trong file của em những hàng nào cũng đều có công thức. chỉ có cột số thứ tự là không có hàm. cột họ tên cũng là hàm lấy danh sách từ file DB.

 

[hoahongden142917]

em chơi bằng cách: vào VBA sửa lại Const Dòng As Integer = 45 vậy nó sẽ cuốn tới người có số thứ tự 39 (ứng với dòng 44). Nhưng nó cuốn luôn mất tiêu hàng ngày ..tháng...năm...
Nếu làm như vậy không lẽ mỗi lần muốn cuốn tới hàng nào lại phải vào VBA để thay số 45 thành số khác hay sao.

 

[SA_DQ]

Bạn thử thay & vận hành macro này:

Sub AnDongTrong()
 Dim DDau As Long
 
 DDau = InputBox("Dòng Bát Dàu", "Hay Chon & Nhap", "45")
 If Left([B1].Parent.Name, 2) = "SK" Then
    Rows(DDau & ":" & Dòng).Hidden = True
 End If
End Sub

(Các fần còn lại nên giữ nguyên; Dòng cuối thay đổi bằng cách thay Const lúc cần)

 

[hoahongden1429]

Bạn thử thay & vận hành macro này:

Sub AnDongTrong()
 Dim DDau As Long
 
 DDau = InputBox("Dòng Bát Dàu", "Hay Chon & Nhap", "45")
 If Left([B1].Parent.Name, 2) = "SK" Then
    Rows(DDau & ":" & Dòng).Hidden = True
 End If
End Sub

(Các fần còn lại nên giữ nguyên; Dòng cuối thay đổi bằng cách thay Const lúc cần)

em làm được rồi. xin cảm ơn anh rất nhiều. Xin cảm ơn. xin cảm ơn. chúc các anh mạnh khoẻ, hạnh phúc

 

[hoahongden142917]

nhờ mấy anh thêm dùm em một nút button có chức năng giống như button có tên "TRỞ LẠI GO BACK" ở sheet CD3F. Xin chân thành cảm ơn.

 

[SA_DQ]

Nút này hình như bạn đã làm được ngay file ở bài đầu mà!

Tự lực tiếp đi bạn & chúc mừng xuân mới!

 

[hoahongden142917]

CÁCH EM LÀM LÀ: vào thisworkbook rồi thêm vào ELSEIF
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "CD3F" Then
ShName = ActiveSheet.Name
ELSEIF ActiveSheet.Name <> "CDUT" Then
ShName = ActiveSheet.Name
End If
End Sub
Nhưng nó không chạy được ạ. Anh làm ơn giúp em. Chúc anh sức khoẻ

 

[hoahongden142917]

Chào anh. Trước tiên xin chúc anh sức khỏe. và cảm ơn anh những gì anh đã giúp cho em. Nhưng xin anh giúp cho chót giùm em:
1/ vấn đề em hỏi trong trang này, em đã làm suốt thời gian qua mà vẫn k được. Thật là gà quá phải k ạ.
http://www.giaiphapexcel.com/forum/...m-một-sheet-tổng-hợp-ngày-nghỉ-dùng-VBA/page3
2/ Vấn đề thứ 2: trong file DB đó bây giờ em muốn dùng một sheet (có thể nằm riêng ở ngoài DB cũng được) để lọc ra số lượng những người nào mà có xuất hiện chữ vắng p hoặc vắng k ở cột J (Mục).
Mục đích của em:Cuối năm học em cần lọc ra được những người đã nghỉ (vắng) và nghỉ bao nhiêu lần trong năm.
Xin nhờ anh giúp dùm
Xin cảm ơn anh. Một lần nữa em tha thiết nhờ anh.

 

[phihndhsp]

Tôi cũng đã từng làm và có kinh nghiệm về bảng chấm công. Nếu bạn bỏ ra khoản 1 tháng cùng với kế toán trao đổi về luật pháp, sau đó ngồi thiết kế tỷ mỹ bảng chấm công, nếu phần này làm tốt thì tất cả những công đoạn sau cực kỳ dễ dàng. bạn có thể thống kê nghỉ phép , nghỉ tiếng hay nghỉ cái gì cũng đơn giản vô cùng, thậm chí bạn cũng thống kê được người ta đi làm bao nhiêu tiếng trong 1 tháng ,vvv.. Tôi nói như vậy để bạn hiểu là, cái khó của việc chấm công và tính lương là làm sao tạo được bảng chấm công đúng chuẩn database

 

[hoahongden142917]

Cam on anh. Nhung truoc tien e pai hoan thanh cai nay da anh a

 

[SA_DQ]

2/ Vấn đề thứ 2: trong file DB đó bây giờ em muốn dùng một sheet (có thể nằm riêng ở ngoài DB cũng được) để lọc ra số lượng những người nào mà có xuất hiện chữ vắng p hoặc vắng k ở cột J (Mục).
Mục đích của em:Cuối năm học em cần lọc ra được những người đã nghỉ (vắng) và nghỉ bao nhiêu lần trong năm.

Chưa rõ bạn nói theo file bài nào? Đã là lâu rồi còn gì!?!

 

[hoahongden142917]

File DB o trang 3 do anh. File cuoi cung ma e goi do anh.mong cac anh jup. E dag can gap lam. Chieu mai la pai bao cao r.

 

[SA_DQ]

hên xui, đúng í thì may
Chưa đúng thì fản hồi ngay nha

 

[hoahongden142917]

dung roi anh oi. cai nay sort theo chu cai A, B, C duoc chu a. Có anh huong gi k ạ. Cam on anh rat nhieu

 

[ChanhTQ@]

1. Sửa lại bài viết đi, mới nhận được câu trả lời.

dung roi anh oi. cai nay sort theo chu cai A, B, C duoc chu a. Có anh huong gi k ạ. Cam on anh rat nhieu

2. Xếp theo trường nào? Vì rất nhiều trường dạng chuỗi.

 

[hoahongden142917]

Em muốn làm một nút lọc ra tên của một người ở cột họ và tên
Mục đích: là để liệt kê ra xem người A đó đã nghỉ những ngày nào.
Giống như hình em gởi

 

[hoahongden142917]

em làm được rồi. Em đã chọn hết vùng dữ liệu trên sheet Vang rồi chọn chức năng data filter
Xin cảm ơn tất cả các anh. Chúc các anh sức khỏe và thành đạt.

 

[hoahongden142917]

Gặp rắc rối với TK vắng rồi anh ơi. Vì khi cho chạy sheet vang thì một số ngày tháng năm bị biến thành số không à. Em đã vào format cell chỉnh lại date rồi nhưng không được mỗi khi chạy sheet vang thì nó lại biến thành số không à.
Xin cứu gấp.

 

[ChanhTQ@]

Gặp rắc rối với TK vắng rồi anh ơi. Vì khi cho chạy sheet "Vang" thì một số ngày tháng năm bị biến thành số không à. Em đã vào format cell chỉnh lại date rồi nhưng không được mỗi khi chạy sheet vang thì nó lại biến thành số không à.
Xin cứu gấp.

Vì ở các trang "DBx" của bạn dữ liệu chưa chuẩn; Cụ thể có lúc Excel hiểu là số liệu kiệu ngày (khi ngày <13) & những ngày còn lại nó hiểu là dữ liệu kiểu chuỗi

Bạn có thể xài hàm =MONTH(C13) ở "DBx" để kiểm tra.

 

[hoahongden142917]

em thấy ở trang DB02 người có mã BTÁV đã bị lỗi cột ngày ở sheet vang. là vì cột ngày ở DB02 nó định dạng ngày theo kiểu 09-08-2014. Còn những ngày nào mà định dạng theo kiểu ../../.. thì k bị lỗi.
Em đã vào Control Panel chỉnh lại định dạng ngày tháng năm theo ../.../.. nhưng k dc

 

[hoahongden142917]

Em đã reset định dạng ngày tháng năm trong control panel rồi. Tất cả các họ DB đều định dạng theo kiểu ../../.. hết rồi. Nhưng sheet vang vẫn bị như vậy.

 

[hoahongden142917]

Khi tắt file rồi mở lên thì nó không bị. Nhưng mỗi lần bấm chạy sheet vang thi no lai bi. Anh hỗ trợ với

 

[SA_DQ]

Mình chỉ nói sự việc đang diễn ra ở máy mình thôi với file của bạn:
Mở trang tính "DB02" lên;
Nhập vố [K7] công thức rất bình dân =MONTH(C7); nó cho kết quả là 8
(Điều này có đúng ở máy bạn không? & nếu đúng thì bạn rút ra kết luận gì?)
Dùng fương thức FillDown xuống dưới thì sẽ gặp 3 ô lỗi, sau đó kế tiếp là số 3 tròn trịa.

Bạn tự tiếp đi. . . . . .

 

[hoahongden142917]

Giờ em đã định dạng lại hết rồi. dùng hàm month để kt thì đúng hết rồi. Nhưng sheet vang vẫn nhả về dãy số chứ k phải date. Em đã format cell theo date rồi. Nhưng khi chạy sheet vang thi lại bị nhả về số. Phải tác động vào đâu ạ anh

 

[SA_DQ]

Máy mình thì file của bạn ở 'Vang' vẫn hiện lên số liệu tại cột [C] biểu thị đúng 'MM/DD/yyyy'