Xin nhờ hỗ trợ tìm số thứ tự theo điều kiện thời gian (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
T

tangoctuan

Thành viên hoạt động
Tham gia
22/4/08
Bài viết
153
Được thích
19
Chào các bạn!
Nhờ các bạn vui lòng giúp có cách nào tìm ra kết quả tại cột D theo như file mẫu gửi kèm (hiện đang phải làm thủ công bằng tay) được không ạ. Mong các bạn hỗ trợ.
Cảm ơn các bạn!
 

File đính kèm

tangoctuan đã viết:
Chào các bạn!
Nhờ các bạn vui lòng giúp có cách nào tìm ra kết quả tại cột D theo như file mẫu gửi kèm (hiện đang phải làm thủ công bằng tay) được không ạ. Mong các bạn hỗ trợ.
Cảm ơn các bạn!
Nhấp chuột vào đây để mở rộng...
Chưa rõ quy tắc tìm số thứ tự, bạn giải thích tại sao E6 = 2?
 
tangoctuan đã viết:
Chào các bạn!
Nhờ các bạn vui lòng giúp có cách nào tìm ra kết quả tại cột D theo như file mẫu gửi kèm (hiện đang phải làm thủ công bằng tay) được không ạ. Mong các bạn hỗ trợ.
Cảm ơn các bạn!
Nhấp chuột vào đây để mở rộng...
Cột C có phải "thời gian" đâu mà sắp xếp.
Nếu đúng kiểu "thời gian" thì công thức ô D2:
PHP: 
=IF(B2="Tự động";COUNTIFS($A$2:$A$11;A2;$B$2:$B$11;"Tự động";$C$2:$C$11;"<="&C2);"")
 
Lần chỉnh sửa cuối:
leonguyenz đã viết:
Chưa rõ quy tắc tìm số thứ tự, bạn giải thích tại sao E6 = 2?
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn. Là như thế này bạn à.
Lọc Serial cột A với mã 1010619. Lọc Kích hoạt cột B là Thủ công. Thì sẽ ra được 2 dòng. Và tương ứng theo thời điểm kích hoạt (cột C) sẽ được như vậy.
Untitled.png

Bài đã được tự động gộp:

Ba Tê đã viết:
Cột C có phải "thời gian" đâu mà sắp xếp.
Nếu đúng kiểu "thời gian" thì công thức ô D2:
PHP: 
=IF(B2="Tự động";COUNTIFS($A$2:$A$11;A2;$B$2:$B$11;"Tự động";$C$2:$C$11;"<="&C2);"")
Nhấp chuột vào đây để mở rộng...
Hic nó là dạng thời gian theo cách xuất dữ liệu logfile của hệ thống ghi chép tự động. Cám ơn bác. Để mình thử công thức này.
Bài đã được tự động gộp:

Ba Tê đã viết:
Cột C có phải "thời gian" đâu mà sắp xếp.
Nếu đúng kiểu "thời gian" thì công thức ô D2:
PHP: 
=IF(B2="Tự động";COUNTIFS($A$2:$A$11;A2;$B$2:$B$11;"Tự động";$C$2:$C$11;"<="&C2);"")
Nhấp chuột vào đây để mở rộng...
Vì không phải dạng thời gian nên công thức này không dùng được. Có cách nào không bác? Mình thử với các hàm month, day, year, hour... thì vẫn trả ra được đúng, nhưng đây nó lại ghép với nhau trong cùng ô.
 
Lần chỉnh sửa cuối:
tangoctuan đã viết:
Cám ơn bạn. Là như thế này bạn à.
Lọc Serial cột A với mã 1010619. Lọc Kích hoạt cột B là Thủ công. Thì sẽ ra được 2 dòng. Và tương ứng theo thời điểm kích hoạt (cột C) sẽ được như vậy.
Untitled.png

Bài đã được tự động gộp:


Hic nó là dạng thời gian theo cách xuất dữ liệu logfile của hệ thống ghi chép tự động. Cám ơn bác. Để mình thử công thức này.
Bài đã được tự động gộp:


Vì không phải dạng thời gian nên công thức này không dùng được. Có cách nào không bác? Mình thử với các hàm month, day, year, hour... thì vẫn trả ra được đúng, nhưng đây nó lại ghép với nhau trong cùng ô.
Nhấp chuột vào đây để mở rộng...
Một là bạn tự chuyển nó về đúng dạng "thời gian", hai là dùng 1 cột phụ, viết công thức để chuyển như trong file
 

File đính kèm

tangoctuan đã viết:
Vì không phải dạng thời gian nên công thức này không dùng được. Có cách nào không bác? Mình thử với các hàm month, day, year, hour... thì vẫn trả ra được đúng, nhưng đây nó lại ghép với nhau trong cùng ô.
Nhấp chuột vào đây để mở rộng...
Bạn thay COUNTIFS bằng SUMPRODUCT.
Mã: 
=IF($B2="Tự động",SUMPRODUCT(($A$2:$A$11=$A2)*($B$2:$B$11="Tự động")*($C$2:$C$11-C2<=0)),"")
Mã: 
=IF($B2="Thủ công",SUMPRODUCT(($A$2:$A$11=$A2)*($B$2:$B$11="Thủ công")*($C$2:$C$11-C2<=0)),"")
 

File đính kèm

Cảm ơn các bạn, công thức đều chạy ra kết quả đúng ý rồi, nhưng khi áp vào cho dữ liệu thực của mình thì không chạy được do dữ liệu nhiều quá, nhờ các bạn hỗ trợ giúp bằng VBA với. Xin cảm ơn!
 
tangoctuan đã viết:
Cảm ơn các bạn, công thức đều chạy ra kết quả đúng ý rồi, nhưng khi áp vào cho dữ liệu thực của mình thì không chạy được do dữ liệu nhiều quá, nhờ các bạn hỗ trợ giúp bằng VBA với. Xin cảm ơn!
Nhấp chuột vào đây để mở rộng...
Tạm thời chỉ giúp được tới đây thôi, VBA cũng làm theo cách thủ công, nếu dữ liệu "khủng" chạy không nổi thì chờ các bạn khác vậy.
---------------------------
Híc! Hình như viết kiểu này cũng không cần Dic.
 

File đính kèm

Lần chỉnh sửa cuối:
tangoctuan đã viết:
Chào các bạn!
Nhờ các bạn vui lòng giúp có cách nào tìm ra kết quả tại cột D theo như file mẫu gửi kèm (hiện đang phải làm thủ công bằng tay) được không ạ. Mong các bạn hỗ trợ.
Cảm ơn các bạn!
Nhấp chuột vào đây để mở rộng...
Chạy code
Mã: 
Sub XYZ()
  Dim sArr(), Res()
  Dim i&, k&, sRow&, iKey$, jC&

  sArr = Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).Value
  sRow = UBound(sArr)
  ReDim Preserve Res(1 To sRow, 1 To 2)
  For i = 1 To sRow
    sArr(i, 3) = DateSerial(Mid(sArr(i, 3), 7, 4), Mid(sArr(i, 3), 4, 2), Left(sArr(i, 3), 2)) _
                + TimeSerial(Mid(sArr(i, 3), 12, 2), Mid(sArr(i, 3), 15, 2), Right(sArr(i, 3), 2))
    sArr(i, 4) = i
  Next i
  Range("AA2").Resize(sRow, 4) = sArr
  Range("AA2").Resize(sRow, 4).Sort Key1:=Range("AA2"), Key2:=Range("AB2"), Key3:=Range("AC2")
  sArr = Range("AA2").Resize(sRow, 4).Value
 
  For i = 1 To sRow
    If iKey <> sArr(i, 1) & sArr(i, 2) Then
      iKey = sArr(i, 1) & sArr(i, 2)
      k = 1
    Else
      k = k + 1
    End If
    If Mid(sArr(i, 2), 1, 2) = "Th" Then jC = 2 Else jC = 1
    Res(sArr(i, 4), jC) = k
  Next i
  Range("D2").Resize(sRow, 2) = Res
  Range("AA2").Resize(sRow, 4).ClearContents
End Sub
 
Chân thành cảm ơn các bạn rất nhiều! Code đã chạy ra kết quả đúng mong muốn, và lại rất nhanh, mất 2-3 phút là đã chạy xong rồi.
 
HieuCD đã viết:
Code mình viết ít khi nào chạy hơn 1 phút, thường chỉ vài giây
Nhấp chuột vào đây để mở rộng...
Chắc tại dữ liệu của mình hơi nhiều hoặc do máy tính cũng yếu nữa (máy i3).
Chứ code của bạn hầu như là chạy cực nhanh, chỉ có duy nhất code này một lần bạn giúp mình thậm chí chỉ với khoảng 150k dòng thôi cũng chạy mất trên 10 phút, nhưng như thế cũng là quá tốt rồi, giải quyết được bao việc, đến giờ vẫn là phương án duy nhất mình đang sử dụng!
Untitled-1.png
 
leonguyenz đã viết:
Dữ liệu bạn ấy hơn 500 ngàn dòng đó anh. Em chưa nghĩ được cách viết, code anh viết "hại não" quá :D
Nhấp chuột vào đây để mở rộng...
Tạo 1.000.000 dòng bạn chạy thử xem thời gian như thế nào, máy mình 25 giây
Mã: 
Sub XYZ()
  Dim sarr(), Res()
  Dim i&, k&, sRow&, iKey$, jC&, t#
 
  'Application.ScreenUpdating = False
  i = Range("A" & Rows.Count).End(xlUp).Row
  If i < 1000001 Then Call TaoDuLieu_1000000dong
 
  t = Timer
  sarr = Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).Value
  sRow = UBound(sarr)
  ReDim Preserve Res(1 To sRow, 1 To 2)
  For i = 1 To sRow
    sarr(i, 3) = DateSerial(Mid(sarr(i, 3), 7, 4), Mid(sarr(i, 3), 4, 2), Left(sarr(i, 3), 2)) _
                + TimeSerial(Mid(sarr(i, 3), 12, 2), Mid(sarr(i, 3), 15, 2), Right(sarr(i, 3), 2))
    sarr(i, 4) = i
  Next i
  Range("AA2").Resize(sRow, 4) = sarr
  Range("AA2").Resize(sRow, 4).Sort Key1:=Range("AA2"), Key2:=Range("AB2"), Key3:=Range("AC2")
  sarr = Range("AA2").Resize(sRow, 4).Value
 
  For i = 1 To sRow
    If iKey <> sarr(i, 1) & sarr(i, 2) Then
      iKey = sarr(i, 1) & sarr(i, 2)
      k = 1
    Else
      k = k + 1
    End If
    If Mid(sarr(i, 2), 1, 2) = "Th" Then jC = 2 Else jC = 1
    Res(sarr(i, 4), jC) = k
  Next i
  Range("D2").Resize(sRow, 2) = Res
  Range("AA2").Resize(sRow, 4).ClearContents
  MsgBox (" Thoi gian: " & Timer - t & "Giay")
  'Application.ScreenUpdating = True
End Sub

Sub TaoDuLieu_1000000dong()
  Dim sarr(), Res() As String, i&, n&, j&, k&
  sarr = Range("A2:D11").Value
  ReDim Res(1 To 1000000, 1 To 3)
  For n = 1 To 100000
    For i = 1 To 10
      k = k + 1
      For j = 1 To 3
        Res(k, j) = sarr(i, j)
      Next j
    Next i
  Next n
  Range("A2").Resize(1000000, 3) = Res
End Sub
 

File đính kèm

HieuCD đã viết:
Tạo 1.000.000 dòng bạn chạy thử xem thời gian như thế nào, máy mình 25 giây
Mã: 
Sub XYZ()
  Dim sarr(), Res()
  Dim i&, k&, sRow&, iKey$, jC&, t#

  'Application.ScreenUpdating = False
  i = Range("A" & Rows.Count).End(xlUp).Row
  If i < 1000001 Then Call TaoDuLieu_1000000dong

  t = Timer
  sarr = Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).Value
  sRow = UBound(sarr)
  ReDim Preserve Res(1 To sRow, 1 To 2)
  For i = 1 To sRow
    sarr(i, 3) = DateSerial(Mid(sarr(i, 3), 7, 4), Mid(sarr(i, 3), 4, 2), Left(sarr(i, 3), 2)) _
                + TimeSerial(Mid(sarr(i, 3), 12, 2), Mid(sarr(i, 3), 15, 2), Right(sarr(i, 3), 2))
    sarr(i, 4) = i
  Next i
  Range("AA2").Resize(sRow, 4) = sarr
  Range("AA2").Resize(sRow, 4).Sort Key1:=Range("AA2"), Key2:=Range("AB2"), Key3:=Range("AC2")
  sarr = Range("AA2").Resize(sRow, 4).Value

  For i = 1 To sRow
    If iKey <> sarr(i, 1) & sarr(i, 2) Then
      iKey = sarr(i, 1) & sarr(i, 2)
      k = 1
    Else
      k = k + 1
    End If
    If Mid(sarr(i, 2), 1, 2) = "Th" Then jC = 2 Else jC = 1
    Res(sarr(i, 4), jC) = k
  Next i
  Range("D2").Resize(sRow, 2) = Res
  Range("AA2").Resize(sRow, 4).ClearContents
  MsgBox (" Thoi gian: " & Timer - t & "Giay")
  'Application.ScreenUpdating = True
End Sub

Sub TaoDuLieu_1000000dong()
  Dim sarr(), Res() As String, i&, n&, j&, k&
  sarr = Range("A2:D11").Value
  ReDim Res(1 To 1000000, 1 To 3)
  For n = 1 To 100000
    For i = 1 To 10
      k = k + 1
      For j = 1 To 3
        Res(k, j) = sarr(i, j)
      Next j
    Next i
  Next n
  Range("A2").Resize(1000000, 3) = Res
End Sub
Nhấp chuột vào đây để mở rộng...
Kinh khủng thật
 
HieuCD đã viết:
Tạo 1.000.000 dòng bạn chạy thử xem thời gian như thế nào, máy mình 25 giây
Mã: 
Sub XYZ()
  Dim sarr(), Res()
  Dim i&, k&, sRow&, iKey$, jC&, t#

  'Application.ScreenUpdating = False
  i = Range("A" & Rows.Count).End(xlUp).Row
  If i < 1000001 Then Call TaoDuLieu_1000000dong

  t = Timer
  sarr = Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).Value
  sRow = UBound(sarr)
  ReDim Preserve Res(1 To sRow, 1 To 2)
  For i = 1 To sRow
    sarr(i, 3) = DateSerial(Mid(sarr(i, 3), 7, 4), Mid(sarr(i, 3), 4, 2), Left(sarr(i, 3), 2)) _
                + TimeSerial(Mid(sarr(i, 3), 12, 2), Mid(sarr(i, 3), 15, 2), Right(sarr(i, 3), 2))
    sarr(i, 4) = i
  Next i
  Range("AA2").Resize(sRow, 4) = sarr
  Range("AA2").Resize(sRow, 4).Sort Key1:=Range("AA2"), Key2:=Range("AB2"), Key3:=Range("AC2")
  sarr = Range("AA2").Resize(sRow, 4).Value

  For i = 1 To sRow
    If iKey <> sarr(i, 1) & sarr(i, 2) Then
      iKey = sarr(i, 1) & sarr(i, 2)
      k = 1
    Else
      k = k + 1
    End If
    If Mid(sarr(i, 2), 1, 2) = "Th" Then jC = 2 Else jC = 1
    Res(sarr(i, 4), jC) = k
  Next i
  Range("D2").Resize(sRow, 2) = Res
  Range("AA2").Resize(sRow, 4).ClearContents
  MsgBox (" Thoi gian: " & Timer - t & "Giay")
  'Application.ScreenUpdating = True
End Sub

Sub TaoDuLieu_1000000dong()
  Dim sarr(), Res() As String, i&, n&, j&, k&
  sarr = Range("A2:D11").Value
  ReDim Res(1 To 1000000, 1 To 3)
  For n = 1 To 100000
    For i = 1 To 10
      k = k + 1
      For j = 1 To 3
        Res(k, j) = sarr(i, j)
      Next j
    Next i
  Next n
  Range("A2").Resize(1000000, 3) = Res
End Sub
Nhấp chuột vào đây để mở rộng...

Máy em chạy đến 32s cơ mà~
1608965570293.png
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
351
Đọc
32K
Tuanba1992
Tuanba1992
Anhhe
Em xin nhờ các cao nhân chỉ giáo em cách tính giờ làm việc của nhân viên với ạ Plz (2 người xem)
Trả lời
0
Đọc
5
Anhhe
Anhhe
S
Chức năng refresh trong Pivot khi thêm bớt dòng
Trả lời
9
Đọc
122
ptm0412
ptm0412
O
XIN ANH CHỊ GIÚP ĐỠ HƯỚNG DẪN CHUYỂN VĂN BẢN THÀNH GIỌNG NÓI TRONG EXCEL Ạ. (1 người xem)
Trả lời
2
Đọc
36
Duy Tùng 9x
Duy Tùng 9x
M
Mọi người giúp e với lỗi này là gì ạ
Trả lời
1
Đọc
42
SA_DQ
SA_DQ
E
Không cho người khác chỉnh sửa cố định dòng và cột trong google sheet
Trả lời
0
Đọc
42
Em khong biet
E
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra (1 người xem)
Trả lời
5
Đọc
318
queluatb
queluatb
Vu_Thi_Xuan
Lỗi tham chiếu khi dùng Vlookup trong VBA (1 người xem)
Trả lời
9
Đọc
352
Vu_Thi_Xuan
Vu_Thi_Xuan
6
  • Question Question
vba tự động lấy dữ liệu từ etabs
Trả lời
2
Đọc
267
VetMini
V
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ (1 người xem)
2
Trả lời
20
Đọc
711
198zxc
1
D
Nhờ anh chị xử lý giúp lỗi thực hiện lọc dữ liệu
Trả lời
2
Đọc
470
Hoàng Tuấn 868
H
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024) (1 người xem)
    • Thích
2 3
Trả lời
50
Đọc
5K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel
Trả lời
4
Đọc
265
bs2
B
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
10
Đọc
471
htrunga2
H
D
Nhờ anh chị trên diễn đàn dùng hàm dò tìm dữ liệu trong bảng gửi kèm giúp ạ!
Trả lời
4
Đọc
147
dangvanphu.it
D
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel
Trả lời
3
Đọc
185
PNQC
P
E
Giúp em tạo gợi ý trong combobox sau khi đã lọc danh sách duy nhất trong combobox đó
Trả lời
11
Đọc
3K
thepkun8x
T
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER
    • Thích
Trả lời
1
Đọc
4K
GPE-Trợ Lý
GPE-Trợ Lý
C
Tính tổng một khách hàng có nhiều mã hàng nhỏ
2
Trả lời
21
Đọc
413
Phuocam
Phuocam
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ?
Trả lời
9
Đọc
269
Duy Tùng 9x
Duy Tùng 9x
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom