Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
Bạn sửa chỗ chữ màu đỏ (số 3) thành số tùy ý
Mã:
If Target.Count > 1 Or Target.Column <> [COLOR=#ff0000][B]3 [/B][/COLOR]Or (Not IsNumeric(Target)) Then Exit Sub
Xử lý tự động đánh số theo thứ tự ngày trong tiếng Anh
- Thread starter satthuvae
- Ngày gửi
Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
Nếu muốn như ví dụ của bạn, thì
Mã:
="Ha Noi, ngày "&C11&" tháng 10 "&" Năm 2014"Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
Cái này tôi kg rỏ
ở File tôi gởi lên, bạn thay số 1 ở cell C1 thành số 2 hay 3. Bạn sẽ thấy kết quả cell E1 thay đổi như thế nào !
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,070
- Được thích
- 7,994
- Nghề nghiệp
- Làm đủ thứ
Không bao giờ có ai định dạng ngày tháng tiếng Việt có cái "th" kỳ cục như vậy cả. Thậm chí cả tiếng Anh người ta cũng không cần.
Không bạn ah, bên mình làm báo cáo bằng tiếng anh, nhiều lúc Sếp bắt đổi th, st, rd lên đầu bạn ah
Ví dụ "Ha Noi 12th May 2014" Cái khó nhất chứ "th" không để số mũ được. Mình rất khó khăn khi lập báo cáo. Nhiều khi toàn phải sửa thủ công. Nhờ các bạn có marco nào mà xử lý được giúp mình.
Xin cám ơn.
Ví dụ "Ha Noi 12th May 2014" Cái khó nhất chứ "th" không để số mũ được. Mình rất khó khăn khi lập báo cáo. Nhiều khi toàn phải sửa thủ công. Nhờ các bạn có marco nào mà xử lý được giúp mình.
Xin cám ơn.
Bạn có thể đánh 12th bình thường sau đó dùng hàm Instr để dò tìm chuỗi 12th trong ô rồi dùng object characters để chuyển th thành superscript.
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,070
- Được thích
- 7,994
- Nghề nghiệp
- Làm đủ thứ
Code có tác dụng trong cột D. Thử xem có xài được không
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [D:D]) Is Nothing Then
Application.EnableEvents = False
If IsDate(Target) Then
Dim tem As String
Select Case Day(Target)
Case 1, 21, 31: tem = Day(Target) & "st"
Case 2, 22: tem = Day(Target) & "nd"
Case 3, 23: tem = Day(Target) & "rd"
Case Else: tem = Day(Target) & "th"
End Select
Target = "Ha Noi, " & tem & Space(1) & MonthName(Month(Target), 1) & Space(1) & Year(Target)
Target.Characters(Len(Target) - 10, 2).Font.Superscript = True
End If
Application.EnableEvents = True
End If
End SubCám ơn bạn Quang Hai nhiều lắm, bạn chỉ bảo nhiệt tình, mình thực tế không hiểu nhiều, mình có file đình kèm, mình chèn code của bạn vào rùi. Và dữ liệu có sẵnm bạn giúp mình xử lý vấn đề này với, mình thấy khó quá. Vẫn là vấn đề đánh số ký tự lên đầu ngày tháng
Cám ơn bạn nhiều.
Cám ơn bạn nhiều.
Code này sẽ chuyển ngày tháng nhập vào cột B thành chuỗi "Ha Noi ...." ở cột D. Bạn sửa thủ tục này ở sheet1.
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, s$, s1$
Application.EnableEvents = False
If Not Intersect(Target, Columns(2)) Is Nothing Then
For Each cel In Intersect(Target, Columns(2))
If IsDate(cel) Then
Select Case Day(cel)
Case 1, 21, 31
s = "st"
Case 2, 22
s = "nd"
Case 3, 23
s = "rd"
Case Else
s = "th"
End Select
s1 = "Ha Noi " & Format(cel.Text, "dd mmmm yyyy")
s1 = Left(s1, 9) & s & Right(s1, Len(s1) - 9)
cel.Offset(, 2) = s1
cel.Offset(, 2).Characters(10, 2).Font.Superscript = True
End If
Next
End If
Application.EnableEvents = True
End Sub
Lần chỉnh sửa cuối:
Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
1/ Bạn thực hiện như bải #36
2/ Tại sheet 1, bất kỳ cell nào của cột D bạn nhập thử 24/12/2014 rồi Enter-> xem kết quả
Bài viết mới nhất
- Question
- Question
- Đã giải quyết
- Question
- Đã giải quyết
- Question
