Nhờ viết giúp code vba chuyển đổi ngày tháng sang chữ

[heonuong00]

Tìm trên mạng toàn thấy viết 02/01/2020 ra thành ngày 2 tháng 1 năm 2020.
nhờ các sư phụ viết giúp chuyển đổi 02/01/2020 ra thành ngày 02 tháng 01 năm 2020

 

[CHAOQUAY]

Tìm trên mạng toàn thấy viết 02/01/2020 ra thành ngày 2 tháng 1 năm 2020.
nhờ các sư phụ viết giúp chuyển đổi 02/01/2020 ra thành ngày 02 tháng 01 năm 2020

Làm thử thế này:
Chọn vùng cần xử lý
Nhấn ctrl+1 --> number --> custom. trong mục type nhập như sau: "ngày "dd" tháng "mm" năm "yyyy --> ok

 

[VetMini]

Tìm trên mạng toàn thấy viết 02/01/2020 ra thành ngày 2 tháng 1 năm 2020.
nhờ các sư phụ viết giúp chuyển đổi 02/01/2020 ra thành ngày 02 tháng 01 năm 2020

sư phụ với sư đê cái mốc xì gì.
Vấn đề rất dễ: đưa cái code "tìm trên mạng" ấy xem.

 

[heonuong00]

xin cảm ơn mọi người tìm ra rồi

 

[Hoàng Tuấn 868]

sư phụ với sư đê cái mốc xì gì.
Vấn đề rất dễ: đưa cái code "tìm trên mạng" ấy xem.

Trong "Vấn đề rất dễ" của anh em lại thấy quá khó nếu không muốn nói là nhiệm vụ bất khả thi anh ạ.

 

[VetMini]

Trong "Vấn đề rất dễ" của anh em lại thấy quá khó nếu không muốn nói là nhiệm vụ bất khả thi anh ạ.

Bất khả thi chỗ nào? Tôi nói một câu, thớt tự giải được rồi mà.

 

[Hoàng Tuấn 868]

Bất khả thi chỗ nào? Tôi nói một câu, thớt tự giải được rồi mà.

Bất khả thi thể hiện ở chỗ là không có cái code "tìm trên mạng" cho anh xem nên đành "tìm ra rồi" rất nhanh anh ạ.

 

[HieuCD]

Làm thử thế này:
Chọn vùng cần xử lý
Nhấn ctrl+1 --> number --> custom. trong mục type nhập như sau: "ngày "dd" tháng "mm" năm "yyyy --> ok

Thấy như "ngày 02 tháng 01 năm 2020 " nhưng không phải chuyển đổi "02/01/2020" ra thành "ngày 02 tháng 01 năm 2020 "

 

[CHAOQUAY]

Thấy như "ngày 02 tháng 01 năm 2020 " nhưng không phải chuyển đổi "02/01/2020" ra thành "ngày 02 tháng 01 năm 2020 "

Đề bài này có vẻ bắt đầu khó rồi bác ạ!

 

[heonuong00]

Function ngay(so As Date)
If so = 0 Then
ngay = ", ngày ...... tháng ...... n" & ChrW(259) & "m .........."
Exit Function
ElseIf Val(so) > 0 Then
ngay = Day(so)
If ngay < 10 Then ngay = "0" & ngay Else ngay = ngay
thang = Month(so)
If thang < 3 Then thang = "0" & thang Else thang = thang
nam = Year(so)
End If
ngay = "ngày " & ngay & " th" & ChrW$(225) & "ng " & thang & " n" & ChrW$(259) & "m " & nam
End Function

tìm ra đó

 

[VetMini]

...tìm ra đó

Coide ấy luộm thuộm lắm.

Function ngay(so As Date)
Const DOTS = "......"
ngay = "ngày <ng> tháng <th> n" & ChrW(259) & "m <nm>"
If so = 0 Then
ngay = ", " & Replace(Replace(Replace(ngay, "<ng>", DOTS), "<th>", DOTS), "<nm>", DOTS & DOTS)
ElseIf Val(so) > 0 Then
ngay = Replace(Replace(Replace(ngay, "<ng>", Format(so, "dd")), "<th>", Format(so, IIf(Month(so) <= 2, "mm", "m"))), "<nm>", Format(so, "yyyy"))
Else
ngay = "???"
End If
End Function

 

[truongvu317]

Coide ấy luộm thuộm lắm.

Function ngay(so As Date)
Const DOTS = "......"
ngay = "ngày <ng> tháng <th> n" & ChrW(259) & "m <nm>"
If so = 0 Then
ngay = ", " & Replace(Replace(Replace(ngay, "<ng>", DOTS), "<th>", DOTS), "<nm>", DOTS & DOTS)
ElseIf Val(so) > 0 Then
ngay = Replace(Replace(Replace(ngay, "<ng>", Format(so, "dd")), "<th>", Format(so, IIf(Month(so) <= 2, "mm", "m"))), "<nm>", Format(so, "yyyy"))
Else
ngay = "???"
End If
End Function

Dùng một hàm format được không bác Vet ơi, cháu nghĩ tới việc định dạng trong excel cho bài này nên nghĩ bụng vậy.

 

[VetMini]

Dùng một hàm format được không bác Vet ơi, cháu nghĩ tới việc định dạng trong excel cho bài này nên nghĩ bụng vậy.

Thì cứ thử đi.
Vào immediate window, gõ ? fomrmat(now(), "thử mọi format có thể tưởng tượng ra")
Cỡ vài chục thử sau thì biết chứ gì.

 

[truongvu317]

Thì cứ thử đi.
Vào immediate window, gõ ? fomrmat(now(), "thử mọi format có thể tưởng tượng ra")
Cỡ vài chục thử sau thì biết chứ gì.

Function DinhDang(s)
DinhDang = VBA.Format(Now(), s)
End Function

Không lẽ có những lúc nó sẽ chạy sai bác ơi.

 

[heonuong00]

Mình có 1 ô là thời gian là 07h50 giờ muốn chuyển thành 07 giờ 50 phút
tìm trên mạng có cái code này nhưng nó lại hiện là 7 giờ 50 phút

Function HGio(Dulieu As Range)
Dim Gio As String
Dim Phut As String
If Dulieu > 100 Then
Phut = Right(Dulieu, 2)
Gio = Left(Dulieu, Len(Dulieu) - 2)
HGio = Gio & " gi" & ChrW(7901) & " " & Phut & " phút"
Else
HGio = "..... gi" & ChrW(7901) & "..... phút"
End If
End Function
Bạn nào chỉnh lại giúp

 

[ndu96081631]

Mình có 1 ô là thời gian là 07h50 giờ muốn chuyển thành 07 giờ 50 phút
tìm trên mạng có cái code này nhưng nó lại hiện là 7 giờ 50 phút

Function HGio(Dulieu As Range)
Dim Gio As String
Dim Phut As String
If Dulieu > 100 Then
Phut = Right(Dulieu, 2)
Gio = Left(Dulieu, Len(Dulieu) - 2)
HGio = Gio & " gi" & ChrW(7901) & " " & Phut & " phút"
Else
HGio = "..... gi" & ChrW(7901) & "..... phút"
End If
End Function
Bạn nào chỉnh lại giúp

Dùng hàm TEXT thế này:

=TEXT(A1,"hh"" giờ ""mm ""phút""")

Với cell A1 chưa dữ liệu time. Sao phải viết code đối với những thứ có thể làm được bằng cách thông thường?

 

[VetMini]

Phải nói là code "tìm trên mạng" của bạn dở như hạch.

Trên cách chung của lập trình thì gần như ngôn ngữ nào cũng có hàm sử lý chuỗi.
Đại khái thì muốn trình bày một số (dương) dưới dạng 2 chữ số thì cộng số ấy cho 100, và dùng hàm chuỗi lấy hai ký tự sau cùng.
Như vậy , với VBA:
RIGHT(số + 100, 2)

Riêng với các ngôn ngữ có loại hàm định dạng thì dùng hàm ấy. Hàm định dạng trong VBA là hàm Format.
VBA:
Format(số, "0#") ' định dạng số thành 01, 02, 03,..., 10, 11, ...