SẮP XẾP LẠI DỮ LIỆU (3 người xem)

  • Thread starter Thread starter LOIKS
  • Ngày gửi Ngày gửi
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)
L

LOIKS

Thành viên chính thức
Tham gia
10/8/18
Bài viết
97
Được thích
7
chào mọi người, mình có vấn đề sau nhở mọi người giúp,mọi người có thể xem file đính kèm
mình có dữ liệu tai sheet" PHAN TICH"bây giờ là sắp xếp lại dữ liệu ứng với từng cấu kiện tại cột "B", dữ liệu đuoc sắp xếp thành 2 phần " bên trên" và" bên dưới|"
cột bên trên và bên dưới sắp xếp dựa vào dữ liệu tại cột "C" nếu 3 kí tự cuối cùng tại cột "C"= "MAX" thì dữ liệu sắp xếp vào phần bên dưới,
nếu 3 kí tự cuối cùng tại cột "C"= "Min" thì dữ liệu sắp xếp vào phần bên trên,
vấn đề là cột "B" số cấu kiện sẽ xuất hiện có 3 trường hợp
th1 :là 6 cấu kiện,
th2: là 5 cấu kiện,
th3:i là 4 cấu kiện
kết quả mọi người có thể xem tại sheet" SAU KHI SĂP XÉP"
cảm ơn mọi người nhiều
 

File đính kèm

LOIKS đã viết:
chào mọi người, mình có vấn đề sau nhở mọi người giúp,mọi người có thể xem file đính kèm
mình có dữ liệu tai sheet" PHAN TICH"bây giờ là sắp xếp lại dữ liệu ứng với từng cấu kiện tại cột "B", dữ liệu đuoc sắp xếp thành 2 phần " bên trên" và" bên dưới|"
cột bên trên và bên dưới sắp xếp dựa vào dữ liệu tại cột "C" nếu 3 kí tự cuối cùng tại cột "C"= "MAX" thì dữ liệu sắp xếp vào phần bên dưới,
nếu 3 kí tự cuối cùng tại cột "C"= "Min" thì dữ liệu sắp xếp vào phần bên trên,
vấn đề là cột "B" số cấu kiện sẽ xuất hiện có 3 trường hợp
th1 :là 6 cấu kiện,
th2: là 5 cấu kiện,
th3:i là 4 cấu kiện
kết quả mọi người có thể xem tại sheet" SAU KHI SĂP XÉP"
cảm ơn mọi người nhiều
Nhấp chuột vào đây để mở rộng...
Tham khảo giải pháp bằng công thức:
Mã: 
G3=IFERROR(OFFSET(D$2,AGGREGATE(15,6,ROW($1:$100)/($B$3:$B$100=$B3)/(RIGHT($C$3:$C$100,3)="max"),COUNTIF($B$3:$B3,$B3)),),"")
Enter, fill qua phải rồi fill cả hàng xuống. Copy G3, dán qua R3, cũng fill qua phải rồi fill cả hàng xuống.

Thân.
 

File đính kèm

Phan Thế Hiệp đã viết:
Tham khảo giải pháp bằng công thức:
Mã: 
G3=IFERROR(OFFSET(D$2,AGGREGATE(15,6,ROW($1:$100)/($B$3:$B$100=$B3)/(RIGHT($C$3:$C$100,3)="max"),COUNTIF($B$3:$B3,$B3)),),"")
Enter, fill qua phải rồi fill cả hàng xuống. Copy G3, dán qua R3, cũng fill qua phải rồi fill cả hàng xuống.

Thân.
Nhấp chuột vào đây để mở rộng...
Hình như giá trị "Station" ở cột D giống nhau phải nằm cùng hàng :p
Chúc bạn 1 ngày vui :):):)
 
HieuCD đã viết:
Hình như giá trị "Station" ở cột D giống nhau phải nằm cùng hàng :p
Chúc bạn 1 ngày vui :):):)
Nhấp chuột vào đây để mở rộng...
UHM. ĐÚNG RỒI BẠN, TRƯỜNG HỢP Ở CỘT B SỐ CẤU KIỆN XUẤT HIỆN 6 LẦN HAY 4 LẦN THÌ CỦNG OK
Chỉ có trường hợp xuất hiện 5 lần là hơi khó thôi
Bài đã được tự động gộp:

Phan Thế Hiệp đã viết:
Tham khảo giải pháp bằng công thức:
Mã: 
G3=IFERROR(OFFSET(D$2,AGGREGATE(15,6,ROW($1:$100)/($B$3:$B$100=$B3)/(RIGHT($C$3:$C$100,3)="max"),COUNTIF($B$3:$B3,$B3)),),"")
Enter, fill qua phải rồi fill cả hàng xuống. Copy G3, dán qua R3, cũng fill qua phải rồi fill cả hàng xuống.

Thân.
Nhấp chuột vào đây để mở rộng...
CẢM ƠN BẠN NHÉ, CHO MÌNH HỎI CHÚT
NẾU ĐƯA MẤY CÔNG THỨC TRÊN VÀO "VBA" thì có ổn khôgn bạn
 
LOIKS đã viết:
chào mọi người, mình có vấn đề sau nhở mọi người giúp,mọi người có thể xem file đính kèm
mình có dữ liệu tai sheet" PHAN TICH"bây giờ là sắp xếp lại dữ liệu ứng với từng cấu kiện tại cột "B", dữ liệu đuoc sắp xếp thành 2 phần " bên trên" và" bên dưới|"
cột bên trên và bên dưới sắp xếp dựa vào dữ liệu tại cột "C" nếu 3 kí tự cuối cùng tại cột "C"= "MAX" thì dữ liệu sắp xếp vào phần bên dưới,
nếu 3 kí tự cuối cùng tại cột "C"= "Min" thì dữ liệu sắp xếp vào phần bên trên,
vấn đề là cột "B" số cấu kiện sẽ xuất hiện có 3 trường hợp
th1 :là 6 cấu kiện,
th2: là 5 cấu kiện,
th3:i là 4 cấu kiện
kết quả mọi người có thể xem tại sheet" SAU KHI SĂP XÉP"
cảm ơn mọi người nhiều
Nhấp chuột vào đây để mở rộng...
Chạy thử đoạn code này xem sao.
Kt quả điền vào sheet "PHANTICH"
Mã: 
Sub a_sort_noiluc()
Dim SArr As Variant
Dim Res1 As Variant
Dim Res2 As Variant
Dim i As Long, j As Long, x, z
SArr = Sheet8.Range("a2:f23")
ReDim Res1(1 To UBound(SArr), 1 To 3)
ReDim Res2(1 To UBound(SArr), 1 To 3)
z = 2
Do While z < UBound(SArr)
    For i = z + 1 To UBound(SArr)
        If SArr(i, 2) <> SArr(z, 2) Then Exit For
    Next i
    x = i - z
    If x = 6 Then
        For i = z To z + 2
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
                Res2(i - 1, j) = SArr(i + 3, j + 3)
            Next j
        Next i
    End If
    If x = 5 Then
        For i = z To z + 2
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
            Next j
        Next i
        i = z
        For j = 1 To 3
            Res2(i, j) = SArr(i + 3, j + 3)
        Next j
        i = z + 2
        For j = 1 To 3
            Res2(i, j) = SArr(i + 2, j + 3)
        Next j
    End If
    If x = 4 Then
        For i = z To z + 1
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
                Res2(i - 1, j) = SArr(i + 2, j + 3)
            Next j
        Next i
    End If
    z = x + z
Loop
With Sheet8
.Range("g3").Resize(UBound(Res1), UBound(Res1, 2)).ClearContents
.Range("g3").Resize(UBound(Res1), UBound(Res1, 2)) = Res1
.Range("r3").Resize(UBound(Res2), UBound(Res2, 2)).ClearContents
.Range("r3").Resize(UBound(Res2), UBound(Res2, 2)) = Res2
End With
End Sub
 
LOIKS đã viết:
chào mọi người, mình có vấn đề sau nhở mọi người giúp,mọi người có thể xem file đính kèm
mình có dữ liệu tai sheet" PHAN TICH"bây giờ là sắp xếp lại dữ liệu ứng với từng cấu kiện tại cột "B", dữ liệu đuoc sắp xếp thành 2 phần " bên trên" và" bên dưới|"
cột bên trên và bên dưới sắp xếp dựa vào dữ liệu tại cột "C" nếu 3 kí tự cuối cùng tại cột "C"= "MAX" thì dữ liệu sắp xếp vào phần bên dưới,
nếu 3 kí tự cuối cùng tại cột "C"= "Min" thì dữ liệu sắp xếp vào phần bên trên,
vấn đề là cột "B" số cấu kiện sẽ xuất hiện có 3 trường hợp
th1 :là 6 cấu kiện,
th2: là 5 cấu kiện,
th3:i là 4 cấu kiện
kết quả mọi người có thể xem tại sheet" SAU KHI SĂP XÉP"
cảm ơn mọi người nhiều
Nhấp chuột vào đây để mở rộng...
Qui ước:
_ Dữ liệu xếp max trước Min sau
_ Chặn trên và dưới của 2 kết quả cùng dòng
Mã: 
Sub XepDuLieu()
  Dim sArr(), Res1(), Res2()
  Dim fRow As Long, kMax As Long, kMin As Long, nMax As Long, nMin As Long
  Dim i As Long, id As Long, eRow As Long, sRow As Long
 
  With Sheets("PHAN TICH")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    If eRow < 3 Then MsgBox ("Khong co du lieu"): Exit Sub
    sArr = .Range("B2:F" & eRow + 1).Value
  End With
  sRow = UBound(sArr)
  ReDim Res1(1 To sRow - 2, 1 To 3)
  ReDim Res2(1 To sRow - 2, 1 To 3)
  For i = 2 To sRow - 1
    If sArr(i, 1) <> sArr(i - 1, 1) Then fRow = i
    If sArr(i, 2) Like "*Max" Then nMax = nMax + 1 Else nMin = nMin + 1
    If sArr(i, 1) <> sArr(i + 1, 1) Then
      kMax = fRow - 1
      For id = fRow To fRow + nMax - 1
        If id = fRow + nMax - 1 Then
          If nMax < nMin Then kMax = kMax + nMin - nMax
        End If
        Res1(kMax, 1) = sArr(id, 3)
        Res1(kMax, 2) = sArr(id, 4)
        Res1(kMax, 3) = sArr(id, 5)
        kMax = kMax + 1
      Next id
      
      kMin = fRow - 1
      For id = fRow + nMax To i
        If id = i Then
          If nMin < nMax Then kMin = kMin + nMax - nMin
        End If
        Res2(kMin, 1) = sArr(id, 3)
        Res2(kMin, 2) = sArr(id, 4)
        Res2(kMin, 3) = sArr(id, 5)
        kMin = kMin + 1
      Next id
      nMax = 0: nMin = 0
    End If
  Next i
  With Sheets("PHAN TICH")
    Range("G3:I" & eRow) = Res1
    Range("R3:T" & eRow) = Res2
  End With
End Sub
 

File đính kèm

HieuCD đã viết:
Qui ước:
_ Dữ liệu xếp max trước Min sau
_ Chặn trên và dưới của 2 kết quả cùng dòng
Mã: 
Sub XepDuLieu()
  Dim sArr(), Res1(), Res2()
  Dim fRow As Long, kMax As Long, kMin As Long, nMax As Long, nMin As Long
  Dim i As Long, id As Long, eRow As Long, sRow As Long

  With Sheets("PHAN TICH")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    If eRow < 3 Then MsgBox ("Khong co du lieu"): Exit Sub
    sArr = .Range("B2:F" & eRow + 1).Value
  End With
  sRow = UBound(sArr)
  ReDim Res1(1 To sRow - 2, 1 To 3)
  ReDim Res2(1 To sRow - 2, 1 To 3)
  For i = 2 To sRow - 1
    If sArr(i, 1) <> sArr(i - 1, 1) Then fRow = i
    If sArr(i, 2) Like "*Max" Then nMax = nMax + 1 Else nMin = nMin + 1
    If sArr(i, 1) <> sArr(i + 1, 1) Then
      kMax = fRow - 1
      For id = fRow To fRow + nMax - 1
        If id = fRow + nMax - 1 Then
          If nMax < nMin Then kMax = kMax + nMin - nMax
        End If
        Res1(kMax, 1) = sArr(id, 3)
        Res1(kMax, 2) = sArr(id, 4)
        Res1(kMax, 3) = sArr(id, 5)
        kMax = kMax + 1
      Next id
     
      kMin = fRow - 1
      For id = fRow + nMax To i
        If id = i Then
          If nMin < nMax Then kMin = kMin + nMax - nMin
        End If
        Res2(kMin, 1) = sArr(id, 3)
        Res2(kMin, 2) = sArr(id, 4)
        Res2(kMin, 3) = sArr(id, 5)
        kMin = kMin + 1
      Next id
      nMax = 0: nMin = 0
    End If
  Next i
  With Sheets("PHAN TICH")
    Range("G3:I" & eRow) = Res1
    Range("R3:T" & eRow) = Res2
  End With
End Sub
Nhấp chuột vào đây để mở rộng...
hay quá, cảm ơn bạn nhé
Bài đã được tự động gộp:

CHAOQUAY đã viết:
Chạy thử đoạn code này xem sao.
Kt quả điền vào sheet "PHANTICH"
Mã: 
Sub a_sort_noiluc()
Dim SArr As Variant
Dim Res1 As Variant
Dim Res2 As Variant
Dim i As Long, j As Long, x, z
SArr = Sheet8.Range("a2:f23")
ReDim Res1(1 To UBound(SArr), 1 To 3)
ReDim Res2(1 To UBound(SArr), 1 To 3)
z = 2
Do While z < UBound(SArr)
    For i = z + 1 To UBound(SArr)
        If SArr(i, 2) <> SArr(z, 2) Then Exit For
    Next i
    x = i - z
    If x = 6 Then
        For i = z To z + 2
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
                Res2(i - 1, j) = SArr(i + 3, j + 3)
            Next j
        Next i
    End If
    If x = 5 Then
        For i = z To z + 2
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
            Next j
        Next i
        i = z
        For j = 1 To 3
            Res2(i, j) = SArr(i + 3, j + 3)
        Next j
        i = z + 2
        For j = 1 To 3
            Res2(i, j) = SArr(i + 2, j + 3)
        Next j
    End If
    If x = 4 Then
        For i = z To z + 1
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
                Res2(i - 1, j) = SArr(i + 2, j + 3)
            Next j
        Next i
    End If
    z = x + z
Loop
With Sheet8
.Range("g3").Resize(UBound(Res1), UBound(Res1, 2)).ClearContents
.Range("g3").Resize(UBound(Res1), UBound(Res1, 2)) = Res1
.Range("r3").Resize(UBound(Res2), UBound(Res2, 2)).ClearContents
.Range("r3").Resize(UBound(Res2), UBound(Res2, 2)) = Res2
End With
End Sub
Nhấp chuột vào đây để mở rộng...
hay quá, cảm ơn bạn nhé
 
CHAOQUAY đã viết:
Chạy thử đoạn code này xem sao.
Kt quả điền vào sheet "PHANTICH"
Mã: 
Sub a_sort_noiluc()
Dim SArr As Variant
Dim Res1 As Variant
Dim Res2 As Variant
Dim i As Long, j As Long, x, z
SArr = Sheet8.Range("a2:f23")
ReDim Res1(1 To UBound(SArr), 1 To 3)
ReDim Res2(1 To UBound(SArr), 1 To 3)
z = 2
Do While z < UBound(SArr)
    For i = z + 1 To UBound(SArr)
        If SArr(i, 2) <> SArr(z, 2) Then Exit For
    Next i
    x = i - z
    If x = 6 Then
        For i = z To z + 2
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
                Res2(i - 1, j) = SArr(i + 3, j + 3)
            Next j
        Next i
    End If
    If x = 5 Then
        For i = z To z + 2
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
            Next j
        Next i
        i = z
        For j = 1 To 3
            Res2(i, j) = SArr(i + 3, j + 3)
        Next j
        i = z + 2
        For j = 1 To 3
            Res2(i, j) = SArr(i + 2, j + 3)
        Next j
    End If
    If x = 4 Then
        For i = z To z + 1
            For j = 1 To 3
                Res1(i - 1, j) = SArr(i, j + 3)
                Res2(i - 1, j) = SArr(i + 2, j + 3)
            Next j
        Next i
    End If
    z = x + z
Loop
With Sheet8
.Range("g3").Resize(UBound(Res1), UBound(Res1, 2)).ClearContents
.Range("g3").Resize(UBound(Res1), UBound(Res1, 2)) = Res1
.Range("r3").Resize(UBound(Res2), UBound(Res2, 2)).ClearContents
.Range("r3").Resize(UBound(Res2), UBound(Res2, 2)) = Res2
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Nếu 2 Max và 3Min thì sao
 
HieuCD đã viết:
Qui ước:
_ Dữ liệu xếp max trước Min sau
_ Chặn trên và dưới của 2 kết quả cùng dòng
Mã: 
Sub XepDuLieu()
  Dim sArr(), Res1(), Res2()
  Dim fRow As Long, kMax As Long, kMin As Long, nMax As Long, nMin As Long
  Dim i As Long, id As Long, eRow As Long, sRow As Long

  With Sheets("PHAN TICH")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    If eRow < 3 Then MsgBox ("Khong co du lieu"): Exit Sub
    sArr = .Range("B2:F" & eRow + 1).Value
  End With
  sRow = UBound(sArr)
  ReDim Res1(1 To sRow - 2, 1 To 3)
  ReDim Res2(1 To sRow - 2, 1 To 3)
  For i = 2 To sRow - 1
    If sArr(i, 1) <> sArr(i - 1, 1) Then fRow = i
    If sArr(i, 2) Like "*Max" Then nMax = nMax + 1 Else nMin = nMin + 1
    If sArr(i, 1) <> sArr(i + 1, 1) Then
      kMax = fRow - 1
      For id = fRow To fRow + nMax - 1
        If id = fRow + nMax - 1 Then
          If nMax < nMin Then kMax = kMax + nMin - nMax
        End If
        Res1(kMax, 1) = sArr(id, 3)
        Res1(kMax, 2) = sArr(id, 4)
        Res1(kMax, 3) = sArr(id, 5)
        kMax = kMax + 1
      Next id
     
      kMin = fRow - 1
      For id = fRow + nMax To i
        If id = i Then
          If nMin < nMax Then kMin = kMin + nMax - nMin
        End If
        Res2(kMin, 1) = sArr(id, 3)
        Res2(kMin, 2) = sArr(id, 4)
        Res2(kMin, 3) = sArr(id, 5)
        kMin = kMin + 1
      Next id
      nMax = 0: nMin = 0
    End If
  Next i
  With Sheets("PHAN TICH")
    Range("G3:I" & eRow) = Res1
    Range("R3:T" & eRow) = Res2
  End With
End Sub
Nhấp chuột vào đây để mở rộng...
nếu mình muốn thay đổi số cột kết quả thì phải thay đổi nhửng thông số nào vậy bạn ?
 
LOIKS đã viết:
nếu mình muốn thay đổi số cột kết quả thì phải thay đổi nhửng thông số nào vậy bạn ?
Nhấp chuột vào đây để mở rộng...
Khai báo lại mảng kết quả
ReDim Res1(1 To sRow - 2, 1 To 3)
ReDim Res2(1 To sRow - 2, 1 To 3)
Thành
ReDim Res1(1 To sRow - 2, 1 To socot)
ReDim Res2(1 To sRow - 2, 1 To socot)
Nhập số vào "Socot"

Gán thêm các cột kết quả mới vào sau các dòng lệnh
Res1(kMax, 1) = sArr(id, 3)
Res1(kMax, 2) = sArr(id, 4)
Res1(kMax, 3) = sArr(id, 5)
...
Res2(kMin, 1) = sArr(id, 3)
Res2(kMin, 2) = sArr(id, 4)
Res2(kMin, 3) = sArr(id, 5)
...

Chỉnh lại cột trả kết quả vào Sheet
With Sheets("PHAN TICH")
Range("G3:I" & eRow) = Res1
Range("R3:T" & eRow) = Res2
End With
 
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

Emyeuexcel
Tham chiếu nhều điều kiện với khoản thời gian (1 người xem)
Trả lời
8
Đọc
125
Emyeuexcel
Emyeuexcel
H
Tra cứu mã ngành theo hóa đơn (1 người xem)
Trả lời
8
Đọc
140
Hoale85
H
minhminh27
Reply lại email đã gửi
Trả lời
2
Đọc
260
minhminh27
minhminh27
Phonglinh0902
Hỗ trợ so sánh dữ liệu cột A và B điền kết quả cột C
Trả lời
2
Đọc
63
Phonglinh0902
Phonglinh0902
P
Bóc dự toán nhà dân (1 người xem)
Trả lời
6
Đọc
88
thuytrangbp28
T
K
Xử lý (tắt) đường link địa chỉ ô trong excel khi đăng nhập tài khoản MS.
Trả lời
5
Đọc
151
Mr.hieudoanxd
Mr.hieudoanxd
Nguyễn Duy Tuân
Dùng AI trên Excel bằng hàm BS_AI, BS_AI_CHAT của Add-in A-Tools v10
    • Yêu thích
Trả lời
4
Đọc
336
Nguyễn Duy Tuân
Nguyễn Duy Tuân
N
  • Question Question
Xin giúp đỡ in phiếu thông tin hàng loạt có điều kiện (1 người xem)
2
Trả lời
28
Đọc
716
HUONGHCKT
H
H
Cách tính số giờ làm thêm vượt quá 300 giờ của người lao động
Trả lời
9
Đọc
139
Hoa minh27
H
L
lọc số "hợp đồng" trong chuỗi câu "diễn giải"
    • Cảm ơn
Trả lời
12
Đọc
270
Duy Tùng 9x
Duy Tùng 9x
Gà Công Nghệ
Làm sao biết email gửi đi thành công và thời gian người nhận email đã xem email của mình?
Trả lời
9
Đọc
4K
ptm0412
ptm0412
X
  • Question Question
Giúp điều chỉnh thông số công suất máy tự động theo tuần
Trả lời
0
Đọc
60
xsmarthome
X
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)
2
Trả lời
25
Đọc
578
ongke0711
ongke0711
C
Giúp mình cập nhật dữ liệu từ google sheet về excel 2010 bằng VBA
Trả lời
3
Đọc
180
Nguyễn Duy Tuân
Nguyễn Duy Tuân
hoamattroicoi
TỔNG HỢP TỜ KHAI THUẾ THEO THÔNG TƯ 80/2021 TỪ *.XML SANG EXCEL (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
8
Đọc
4K
khoind.mcr
K
L
[Cần giúp] Cách liên kết các file Google sheet với nhau
Trả lời
13
Đọc
11K
SonBDND
S
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
Trả lời
11
Đọc
369
thanthanhan
T
Đ
gỡ rỗi công thức
    • Buồn
Trả lời
4
Đọc
104
Đình Bảo đl
Đ
test1986
  • Question Question
Thắc mắc về vba và unicode
Trả lời
4
Đọc
160
test1986
test1986
M
XIN GIÚP ĐỠ CÔNG THỨC CHẠY KHẤU HAO TSCĐ TÍNH THEO NGÀY
Trả lời
1
Đọc
96
Hoàng Tuấn 868
H
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