Xử lý tự động đánh số theo thứ tự ngày trong tiếng Anh

Chia sẻ bởi:hands

★★★★★

‹ Xuất nhiều sheet thành file excel Các hàm tách họ tên ›

Quảng cáo

Nhờ các cao thủ chỉ giáo làm thế nào có thể đánh số ngày tự động có mẫu st, th, rd trên cùng của ngày đó, mình đang cần lập báo cáo tài chính tự động. Rất mong các cao thủ chỉ giáo mình.
Xin cám ơn.

Nếu dùng vba thì

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s$, i&
    If Target.Count > 1 Or Target.Column <> 3 Or (Not IsNumeric(Target)) Then Exit Sub
    Application.EnableEvents = False
    For i = 1 To 31
        If Target = i Then
            Select Case i
                Case 1, 21, 31
                    s = "st"
                Case 2, 22
                    s = "nd"
                Case 3, 23
                    s = "rd"
                Case Else
                    s = "th"
            End Select
            Target = Target.Text & s
            Target.Characters(Len(Target.Text) - 1, 2).Font.Superscript = True
            Exit For
        End If
    Next
    Application.EnableEvents = True
 End Sub