[Giúp đỡ] Cách ghi ngày giờ trong excel

kshaivp · Đăng lúc 1/2/2015 20:31

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

các bác có cách nào mà ghi ngày giờ liền trong excel không?
ví dụ 9h30-2/1/2015 =9h30 ngày 02 tháng 01 năm 2015 không?

bqhung2006 · Đăng lúc 1/2/2015 20:59

Dùng cái này xem đúng không nhé bạn:

chuyen doi sang ngay gio VN.xls (13.5 KB, Lượt tải về: 429)

tranhungdao12a3 · Đăng lúc 1/2/2015 21:43

Phải vầy không bạn:
=LEFT(E6,4)&" "&"Ngày "&DAY(RIGHT(E6,8))&" tháng "&MONTH(RIGHT(E6,8))&" năm "&YEAR(RIGHT(E6,8))
Trong đó:
Ô chứa dữ liệu là ô E6

interpol · Đăng lúc 2/2/2015 08:27

tranhungdao12a3 gửi lúc 1/2/2015 21:43
Phải vầy không bạn:
=LEFT(E6,4)&" "&"Ngày "&DAY(RIGHT(E6,8))&" tháng "&MONTH(RIGHT(E6,8))&" n ...

Dùng hàm này không được rồi. trường hợp ngày, tháng 2 số thì sao?
Không hiểu người hỏi dùng chuyển đổi làm gì nữa, hay khoái phức tạp hóa vấn đề lên.

interpol · Đăng lúc 2/2/2015 10:55

interpol gửi lúc 2/2/2015 08:27
Dùng hàm này không được rồi. trường hợp ngày, tháng 2 số thì sao?
Không hiểu ngư ...

nếu vậy thay vì right(E6,8) thì dùng right(E6,len(E6)-find("-",E6)-1).

tochixd · Đăng lúc 2/2/2015 11:14

bạn làm như sau nhé: vào excel chọn ô cần hiển thị ngày nhấn ctrl+1 chọn custom đánh vào phần Type như sau:" địa chỉ, ngày "00" tháng "00" năm "0000. Khi cần đánh ngày ví dụ 23 tháng 1 năm 2015 thì bạn đánh là 23012015 là ok. Mình làm cái này nhiều rùi!

interpol · Đăng lúc 2/2/2015 13:15

tochixd gửi lúc 2/2/2015 11:14
bạn làm như sau nhé: vào excel chọn ô cần hiển thị ngày nhấn ctrl+1 chọn custom đánh ...

Nãy vội quá làm sai, dùng hàm này nè:
=LEFT(E6,4)&" "&"Ngày "&DAY(RIGHT(E6,LEN(E6)-FIND("-",E6)))&" tháng "&MONTH(RIGHT(E6,LEN(E6)-FIND("-",E6)))&" năm "&YEAR(RIGHT(E6,LEN(E6)-FIND("-",E6))).
Trong đó: E6 là dữ liệu "9h30-11/2/2015".

tochixd · Đăng lúc 2/2/2015 16:57

Tại sao bạn không sáng tạo 1 chút cứ dập khuôn vậy nhỉ, mình đưa ra thao tác cơ bản vậy nên bạn chỉnh cho phù hợp thôi mà. Không chỉ ngày, giờ mà bạn cho cái j cũng đều được cả chỉ cần thêm 1 chút thôi. Bạn cần sáng tạo chứ, kiểu như có móng mà không xây tường lại muốn đổ trần luôn.

tranhungdao12a3 · Đăng lúc 2/2/2015 21:26

Xài hàm đi đồng chí:

[Visual Basic] 纯文本查看 复制代码

Function XMonth(ngay As Date) As String
    Rng = Array("", "01", "02", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")
    XMonth = Rng(Month(ngay))
End Function

Function XDay(ngay As Date) As String
    Rng1 = Array("", "01", "02", "03", "04", "05", "06", "07", "08", "09")
    Rng2 = Array("", "10", "20", "30")
    Rng3 = Array("", "1", "2", "3", "4", "5", "6", "7", "8", "9")
    Rng4 = Array("", "1", "2", "3", "4", "5", " 6", " 7", " 8", " 9")
    If Day(ngay) < 10 Then
        XDay = " " & Rng1(Day(ngay))
    Else
        If Day(ngay) Mod 10 = 0 Then XDay = Rng2(Int(Day(ngay) / 10))
        If Day(ngay) < 20 Then
            XDay = Rng2(Int(Day(ngay) / 10)) & Rng4(Day(ngay) Mod 10)
        Else
            XDay = Rng2(Int(Day(ngay) / 10)) & Rng3(Day(ngay) Mod 10)
        End If
    End If
End Function

Function XYear(ngay As Date) As String
    Dim XNam As Long
    Dim SoNam, SoNgan, SoTram, SoMuoi, SoLe
    XNam = Year(ngay)
    Rng1 = Array("", "1", "2", "3", "4", "5", "6", "7", "8", "9")
    Rng2 = Array("", "1", "20", "30", "40", "50", "60", "70", "80", "90")
    Rng3 = Array("", "1", "2", "3", "4", "5", "6", "7", "8", "9")
    Rng4 = Array("", "1", "2", "3", "4", "5", "6", "7", "8", "9")

    For i = 1 To 3
        SoNam = Mid(XNam, i, 1)
        If i = 1 Then SoNgan = Rng1(SoNam)
        If i = 2 Then
            SoMuoi = Right(XNam, 2) * 1
            If SoNam = 0 Then
                If SoMuoi = 0 Then XYear = SoNgan: Exit Function
                SoTram = "0"
            Else
                SoTram = Rng1(SoNam)
            End If
            SoTram = SoTram
        End If
        If i = 3 Then
            SoLe = Right(XNam, 1)
            If SoNam = 0 Then
                If SoLe = 0 Then SoMuoi = "" Else SoMuoi = "0" & Rng1(SoLe)
            Else
                If SoLe = 0 Then
                    SoMuoi = Rng2(SoNam)
                Else
                    If SoMuoi < 12 Then SoMuoi = Rng2(SoNam) & Rng4(SoLe) _
                    Else SoMuoi = Rng2(SoNam) & Rng3(SoLe)
                End If
            End If
        End If
    Next
    XYear = SoNgan & SoTram & SoMuoi
End Function

[Visual Basic] 纯文本查看 复制代码

Function NgayThangNam(ngay As Date, Optional Point As String = "") As String
    NgayThangNam = "Ngày " & XDay(ngay) & " tháng " & XMonth(ngay) & " n" & ChrW(259) & "m" & " " & XYear(ngay)
End Function

Sau đó dùng công thức:
=LEFT(C4,4)&" "&NgayThangNam(RIGHT(C4,LEN(C4)-5))
Trong đó ô C4 chứa dữ liệu.
P/s: Đoạn udf trên sưu tầm và chỉnh sửa từ giaiphapexcel.com

atuanxd · Đăng lúc 4/2/2015 17:16

Hoàn toàn có thể thực hiện tốt trong bảng Excel rất đơn giản, đừng có lạm dụng VBA.cứ theo hình sau nhé:

Đăng nhập/Đăng ký mở rộng

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

[Giúp đỡ] Cách ghi ngày giờ trong excel

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Đánh giá

[Giúp đỡ] Cách ghi ngày giờ trong excel

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Cảm ơn!

Cảm ơn!

Đánh giá

Cảm ơn!

Cảm ơn!

Đánh giá

Cảm ơn!

Đánh giá

Cảm ơn!