Lưu ý format lại ngày tháng cho cột B. Rồi áp công thức
Dữ liệu đang là text, phải chuyển sang ngày mới áp dụng được công thức.
. Chờ cho bạn ấy tự tìm tòi nghiên cứu rồi ta tính tiếp.
Mình cũng thử F2 + Enter mà không ra dạng Date. Chờ cho bạn ấy tự tìm tòi nghiên cứu rồi ta tính tiếp.
Có khi bạn ấy F2+ Enter từng ô trong vùng cho ra dạng Date cũng vui
Function daongay(ngaysai) As Date
Dim a, b as Integer
Dim ngay, thang, nam as String
ngaysai = Trim(Left(ngaysai, 10))
a = InStr(1, ngaysai, "/")
b = InStr(InStr(1, ngaysai, "/") + 1, ngaysai, "/")
ngay = Left(ngaysai, a - 1)
thang = Mid(ngaysai, a + 1, b - a - 1)
nam = Mid(ngaysai, b + 1, 4)
daongay = DateValue(nam & "/" & thang & "/" & ngay)
End Function
Thử:
A4=SUMPRODUCT(N(--$B$4:$B$124<--B4))+COUNTIF($B$4:B4,B4)Máy mình bị #Value
Sub GhiSTT()
Dim fDat As Date, lDat As Date, J As Long, Dm As Integer, SoNgay As Integer, STT As Long
Dim Rng As Range, sRng As Range
Dim MyAdd As String
fDat = [f3].Value: SoNgay = [G3].Value - fDat
For J = 0 To SoNgay
Set Rng = Columns("D:D"): Rng.NumberFormat = "MM/DD/YYYY"
Set sRng = Rng.Find(Format(fDat + J, "MM/dd/yyyy"), , xlValues, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
STT = STT + 1: sRng.Offset(, -1).Value = STT
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Next J
End Sub=SUMPRODUCT(N(MID($B$4:$B$124,7,4)&MID($B$4:$B$124,4,2)&MID($B$4:$B$124,1,2)<MID(B4,7,4)&MID(B4,4,2)&MID(B4,1,2)))+COUNTIF($B$4:B4,B4)
Góp ý chủ thớt: nên chuyển đổi chuỗi sang ngày tháng qua 1 cột phụ (ví dụ cột C) và sử dụng công thức ở bài #2 (sửa cột B thành cột C). Bạn có thể áp dụng các giải pháp nâng cao (hàm mảng, hàm tự tạo) nếu bạn hiểu được cách thức vận hành của nó để có thể hiệu chỉnh phù hợp thực tế.
Dạ em xin cảm ơn anh,
Em cảm ơn anh nhiều, đã ra đúng ý em rồi anh ạ.
Em cảm ơn anh nhiều, nhưng em chuyển sang dạng date, rồi đặt công thức như anh chỉ thì kết quả #VALUE! anh ạ.. Chờ cho bạn ấy tự tìm tòi nghiên cứu rồi ta tính tiếp.
Có khi bạn ấy F2+ Enter từng ô trong vùng cho ra dạng Date cũng vui
Bạn xem file đính kèm, công thức bài #2.
Dạ em cảm ơn anh ạ
BẠn gửi file có kết quả #VALUE lên để xem lỗi nó thế nào???
Anh ơi em gửi anh xem em làm sai chỗ nào nhé, vì mấy cách kia em chưa dùng macro bao giờ ạ. em cũng muốn tìm hơi tò mò về macros.
