- Thêm công thức diễn giải tên kỳ chọn của sheet ToKhai:
+ A3 =$K$1&IF(LEFT($J$1,1)="N","","/"&YEAR($K$2))
- Tại Sub dinhdang() Bỏ dòng '.Range("F" & dc + 3).Value = ngayTD(Sheet1.Range("B9").Value, NgayCT(thang, Sheet1.Range("B8").Value, True)) Thay bằng:
...
Dim ngayLap As Date
Dim...