So sánh dữ liệu giữa 2 sheets và tô màu dữ liệu trùng (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)
zPeterPan

zPeterPan

Thành viên hoạt động
Tham gia
27/2/21
Bài viết
154
Được thích
10
Em xin nhờ các Thầy cô và các Anh chị em trên diễn đàn giúp em với ạ. . .
Từ bài viết Tách chuỗi và ghép vị trí được sự giúp đỡ của bác @Ba Tê . . .
Em muốn so sánh dữ liệu của các cột ngày trong Sheets"Ghep Vi Tri" với dữ liệu ngày ở cột D trong Sheets" Tach Vi Tri" và những số nào trùng sẽ tô màu vào ô trùng trong Sheets"Ghep Vi Tri"
Ví dụ là: Các số của cột ngày 01/03/2020 của Sheets"Ghep Vi Tri", sẽ so sánh với với ngày 02/03/2020 cột ("D") của Sheets" Tach Vi Tri", nếu số nào trùng thì tô màu vào ô đó trong Sheets"Ghep Vi Tri" . . .
Do số liệu nhiều nên em chỉ so sánh 4 ngày của sheets" Ghep Vi Tri" ạ. . .
Nhờ mọi người giúp em với ạ. . . Em xin cảm ơn ạ. . .

2.JPG
1.JPG
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Sao đăng nhiều bài vậy?

www.giaiphapexcel.com

Tách chuỗi ký tự ra nhiều ô và ghép các ô đã được tách ra từ chuỗi ký tự

Em nhờ các thấy cô và các anh chị trên diễn đàn giúp em đoạn code để tách chuỗi gồm 107 ký tự ra 107 ô trên 1 hàng trong sheet1( TachViTri) , và ghép lần lượt từ ký tự từ vị trí 1 đến vị trí 107 trong sheet2(GhepViTri), và khi nhập ngày tại .cell(C1) thì sẽ hiển thị dữ liệu tách trong...
www.giaiphapexcel.com www.giaiphapexcel.com

Hình như là thống kê con số gì hả?
 
Upvote 0
befaint đã viết:
Sao đăng nhiều bài vậy?

www.giaiphapexcel.com

Tách chuỗi ký tự ra nhiều ô và ghép các ô đã được tách ra từ chuỗi ký tự

Em nhờ các thấy cô và các anh chị trên diễn đàn giúp em đoạn code để tách chuỗi gồm 107 ký tự ra 107 ô trên 1 hàng trong sheet1( TachViTri) , và ghép lần lượt từ ký tự từ vị trí 1 đến vị trí 107 trong sheet2(GhepViTri), và khi nhập ngày tại .cell(C1) thì sẽ hiển thị dữ liệu tách trong...
www.giaiphapexcel.com www.giaiphapexcel.com

Hình như là thống kê con số gì hả?
Nhấp chuột vào đây để mở rộng...
2 bài tiêu đề và nội dung em hỏi khác nhau mà bác. . .
Bài bên đấy là tách và thống kê
Còn bài này là so sánh dữ liệu ạ
 
Upvote 0
zPeterPan đã viết:
Em xin nhờ các Thầy cô và các Anh chị em trên diễn đàn giúp em với ạ. . .
Từ bài viết Tách chuỗi và ghép vị trí được sự giúp đỡ của bác @Ba Tê . . .
Em muốn so sánh dữ liệu của các cột ngày trong Sheets"Ghep Vi Tri" với dữ liệu ngày ở cột D trong Sheets" Tach Vi Tri" và những số nào trùng sẽ tô màu vào ô trùng trong Sheets"Ghep Vi Tri"
Ví dụ là: Các số của cột ngày 01/03/2020 của Sheets"Ghep Vi Tri", sẽ so sánh với với ngày 02/03/2020 cột ("D") của Sheets" Tach Vi Tri", nếu số nào trùng thì tô màu vào ô đó trong Sheets"Ghep Vi Tri" . . .
Do số liệu nhiều nên em chỉ so sánh 4 ngày của sheets" Ghep Vi Tri" ạ. . .
Nhờ mọi người giúp em với ạ. . . Em xin cảm ơn ạ. . .

View attachment 263246
View attachment 263247
Nhấp chuột vào đây để mở rộng...
Do code tô màu chạy hơi lâu chút bạn xem có đúng không.
Mã: 
Sub tomau()
   Dim i As Long, lr As Long, arr, j As Long, dic As Object, T, dk As String, a As Long, lc As Long
   Set dic = CreateObject("scripting.dictionary")
   With Sheets("tach vi tri")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B3:D" & lr).Value
        For i = 1 To UBound(arr)
            a = CLng(arr(i, 1))
            For Each T In Split(arr(i, 3), ",")
                dk = a & "#" & T
                dic.Item(dk) = i
            Next
       Next i
   End With
   With Sheets("ghep vi tri")
       lc = .Range("XFD2").End(xlToLeft).Column
       lr = .Range("B" & Rows.Count).End(xlUp).Row
       .Cells(1, 1).Resize(lr, lc).Interior.ColorIndex = 0
       For i = 3 To lr
           For j = 2 To lc
               a = CLng(.Cells(2, j).Value) + 1
               dk = a & "#" & .Cells(i, j).Value
               If dic.exists(dk) Then
                  .Cells(i, j).Interior.ColorIndex = 4
               End If
           Next j
      Next i
   End With
End Sub
 
Upvote 0
snow25 đã viết:
Do code tô màu chạy hơi lâu chút bạn xem có đúng không.
Mã: 
Sub tomau()
   Dim i As Long, lr As Long, arr, j As Long, dic As Object, T, dk As String, a As Long, lc As Long
   Set dic = CreateObject("scripting.dictionary")
   With Sheets("tach vi tri")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B3:D" & lr).Value
        For i = 1 To UBound(arr)
            a = CLng(arr(i, 1))
            For Each T In Split(arr(i, 3), ",")
                dk = a & "#" & T
                dic.Item(dk) = i
            Next
       Next i
   End With
   With Sheets("ghep vi tri")
       lc = .Range("XFD2").End(xlToLeft).Column
       lr = .Range("B" & Rows.Count).End(xlUp).Row
       .Cells(1, 1).Resize(lr, lc).Interior.ColorIndex = 0
       For i = 3 To lr
           For j = 2 To lc
               a = CLng(.Cells(2, j).Value) + 1
               dk = a & "#" & .Cells(i, j).Value
               If dic.exists(dk) Then
                  .Cells(i, j).Interior.ColorIndex = 4
               End If
           Next j
      Next i
   End With
End Sub
Nhấp chuột vào đây để mở rộng...
Nếu cho Sheets("Ghep Vi Tri") vào mảng thì có nhanh hơn không ạ. . .
 
Upvote 0
zPeterPan đã viết:
Nếu cho Sheets("Ghep Vi Tri") vào mảng thì có nhanh hơn không ạ. . .
Nhấp chuột vào đây để mở rộng...
.........................................
Mã: 
Option Explicit

Sub Macro2()
Sheet2.Activate
Range("B3").Select
With Range("B3:CV11344")
    .Interior.ColorIndex = 0
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=(LEN(INDEX('Tach Vi Tri'!$D$3:$D$533,MATCH(B$2,'Tach Vi Tri'!$B$3:$B$533,0)))-LEN(SUBSTITUTE(INDEX('Tach Vi Tri'!$D$3:$D$533,MATCH(B$2,'Tach Vi Tri'!$B$3:$B$533,0)),B3,"""")))>0"
    With .FormatConditions(.FormatConditions.Count)
        .SetFirstPriority
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.399945066682943
            .PatternTintAndShade = 0
        End With
    End With
End With
End Sub
 
Upvote 0
CHAOQUAY đã viết:
.........................................
Mã: 
Option Explicit

Sub Macro2()
Sheet2.Activate
Range("B3").Select
With Range("B3:CV11344")
    .Interior.ColorIndex = 0
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=(LEN(INDEX('Tach Vi Tri'!$D$3:$D$533,MATCH(B$2,'Tach Vi Tri'!$B$3:$B$533,0)))-LEN(SUBSTITUTE(INDEX('Tach Vi Tri'!$D$3:$D$533,MATCH(B$2,'Tach Vi Tri'!$B$3:$B$533,0)),B3,"""")))>0"
    With .FormatConditions(.FormatConditions.Count)
        .SetFirstPriority
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.399945066682943
            .PatternTintAndShade = 0
        End With
    End With
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác @CHAOQUAY . Nhưng đối chiếu như vậy sai ạ. . . và có 27 vị trí ghép là bôi màu hết hơn 500 ngày , em đối chiếu thủ công thì chỉ trùng > 10 ngày và < 20 ngày thôi ạ. . . 123.JPG
 
Upvote 0
zPeterPan đã viết:
Nếu cho Sheets("Ghep Vi Tri") vào mảng thì có nhanh hơn không ạ. . .
Nhấp chuột vào đây để mở rộng...
Cho vào mảng có vẻ nhanh hơn bằng 1/2 thời gian không cho vào mảng.
Mã: 
Sub tomau()
Application.ScreenUpdating = False
   Dim i As Long, lr As Long, arr, j As Long, dic As Object, T, dk As String, a As Long, lc As Long
   Set dic = CreateObject("scripting.dictionary")
   With Sheets("tach vi tri")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B3:D" & lr).Value
        For i = 1 To UBound(arr)
            a = CLng(arr(i, 1))
            For Each T In Split(arr(i, 3), ",")
                dk = a & "#" & T
                dic.Item(dk) = i
            Next
       Next i
   End With
   With Sheets("ghep vi tri")
       lc = .Range("XFD2").End(xlToLeft).Column
       lr = .Range("B" & Rows.Count).End(xlUp).Row
       .Cells(1, 1).Resize(lr, lc).Interior.ColorIndex = 0
       arr = .Cells(1, 1).Resize(lr, lc).Value
       For i = 3 To lr
           For j = 2 To lc
               a = CLng(arr(2, j)) + 1
               dk = a & "#" & arr(i, j)
               If dic.exists(dk) Then
                  .Cells(i, j).Interior.ColorIndex = 4
               End If
           Next j
      Next i
   End With
   Set dic = Nothing
   Application.ScreenUpdating = True
End Sub
 
Upvote 0
snow25 đã viết:
Cho vào mảng có vẻ nhanh hơn bằng 1/2 thời gian không cho vào mảng.
Mã: 
Sub tomau()
Application.ScreenUpdating = False
   Dim i As Long, lr As Long, arr, j As Long, dic As Object, T, dk As String, a As Long, lc As Long
   Set dic = CreateObject("scripting.dictionary")
   With Sheets("tach vi tri")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B3:D" & lr).Value
        For i = 1 To UBound(arr)
            a = CLng(arr(i, 1))
            For Each T In Split(arr(i, 3), ",")
                dk = a & "#" & T
                dic.Item(dk) = i
            Next
       Next i
   End With
   With Sheets("ghep vi tri")
       lc = .Range("XFD2").End(xlToLeft).Column
       lr = .Range("B" & Rows.Count).End(xlUp).Row
       .Cells(1, 1).Resize(lr, lc).Interior.ColorIndex = 0
       arr = .Cells(1, 1).Resize(lr, lc).Value
       For i = 3 To lr
           For j = 2 To lc
               a = CLng(arr(2, j)) + 1
               dk = a & "#" & arr(i, j)
               If dic.exists(dk) Then
                  .Cells(i, j).Interior.ColorIndex = 4
               End If
           Next j
      Next i
   End With
   Set dic = Nothing
   Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Bác @snow25 ơi, khi em so sánh để tô màu 3 số thì bị lỗi này ạ, bác có thể sửa giúp em được không ạ, em cảm ơn nhiều ạ.1234.jpg
 

File đính kèm

Upvote 0
Upvote 0
zPeterPan đã viết:
Bác @snow25 ơi, khi em so sánh để tô màu 3 số thì bị lỗi này ạ, bác có thể sửa giúp em được không ạ, em cảm ơn nhiều ạ.View attachment 271595
Nhấp chuột vào đây để mở rộng...
Thử code.
Mã: 
Sub ToMau()
Application.ScreenUpdating = False
   Dim i As Long, Lr As Long, arr, j As Long, dic As Object, t, dk As String, a As Long, Lc As Long, m As Long
   m = Timer
   Set dic = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
   With Sheet1
        Lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B4:D" & Lr).Value
        For i = 1 To UBound(arr)
            a = CLng(CDate(arr(i, 1)))
            For Each t In Split(arr(i, 3), ",")
                dk = a & "#" & t
                dic.Item(dk) = i
            Next
       Next i
   End With
   With Sheet2
      .AutoFilterMode = False
       Lc = .Range("XFD2").End(xlToLeft).Column
       Lr = .Range("B" & Rows.Count).End(xlUp).Row
       .Cells(1, 1).Resize(Lr, Lc).Interior.ColorIndex = 0
       arr = .Cells(1, 1).Resize(Lr, Lc).Value
       For i = 3 To Lr
           For j = 2 To Lc
               a = CLng(arr(2, j)) + 1
               dk = a & "#" & arr(i, j)
               If dic.exists(dk) Then
                  .Cells(i, j).Interior.ColorIndex = 46
               End If
           Next j
      Next i
   End With
   Set dic = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
MsgBox Timer - m
End Sub
 
Upvote 0
snow25 đã viết:
Thử code.
Mã: 
Sub ToMau()
Application.ScreenUpdating = False
   Dim i As Long, Lr As Long, arr, j As Long, dic As Object, t, dk As String, a As Long, Lc As Long, m As Long
   m = Timer
   Set dic = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
   With Sheet1
        Lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B4:D" & Lr).Value
        For i = 1 To UBound(arr)
            a = CLng(CDate(arr(i, 1)))
            For Each t In Split(arr(i, 3), ",")
                dk = a & "#" & t
                dic.Item(dk) = i
            Next
       Next i
   End With
   With Sheet2
      .AutoFilterMode = False
       Lc = .Range("XFD2").End(xlToLeft).Column
       Lr = .Range("B" & Rows.Count).End(xlUp).Row
       .Cells(1, 1).Resize(Lr, Lc).Interior.ColorIndex = 0
       arr = .Cells(1, 1).Resize(Lr, Lc).Value
       For i = 3 To Lr
           For j = 2 To Lc
               a = CLng(arr(2, j)) + 1
               dk = a & "#" & arr(i, j)
               If dic.exists(dk) Then
                  .Cells(i, j).Interior.ColorIndex = 46
               End If
           Next j
      Next i
   End With
   Set dic = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
MsgBox Timer - m
End Sub
Nhấp chuột vào đây để mở rộng...
code này lại không thấy tô màu cell anh ạ.
 
Upvote 0
zPeterPan đã viết:
code này lại không thấy tô màu cell anh ạ.
Nhấp chuột vào đây để mở rộng...
snow25 đã viết:
Thử code.
Mã: 
Sub ToMau()
Application.ScreenUpdating = False
   Dim i As Long, Lr As Long, arr, j As Long, dic As Object, t, dk As String, a As Long, Lc As Long, m As Long
   m = Timer
   Set dic = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
   With Sheet1
        Lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B4:D" & Lr).Value
        For i = 1 To UBound(arr)
            a = CLng(CDate(arr(i, 1)))
            For Each t In Split(arr(i, 3), ",")
                dk = a & "#" & t
                dic.Item(dk) = i
            Next
       Next i
   End With
   With Sheet2
      .AutoFilterMode = False
       Lc = .Range("XFD2").End(xlToLeft).Column
       Lr = .Range("B" & Rows.Count).End(xlUp).Row
       .Cells(1, 1).Resize(Lr, Lc).Interior.ColorIndex = 0
       arr = .Cells(1, 1).Resize(Lr, Lc).Value
       For i = 3 To Lr
           For j = 2 To Lc
               a = CLng(arr(2, j)) + 1
               dk = a & "#" & arr(i, j)
               If dic.exists(dk) Then
                  .Cells(i, j).Interior.ColorIndex = 46
               End If
           Next j
      Next i
   End With
   Set dic = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
MsgBox Timer - m
End Sub
[/CODE
[/QUOTE]
bác có thể sửa code giúp em để nếu cột ngày mà không liền nhau trong Sheets" Tach Vi Tri" thì Sheets"Ghep Vi Tri" vẫn chọn tô màu được không ạ.
Ví dụ:
Các số của cột ngày 09/11/2021 của Sheets"Ghep Vi Tri", sẽ so sánh với số của ngày 16/11/2021 cột ("D") của Sheets" Tach Vi Tri"
có thể ngày sẽ không được cách đều nhau, mà dòng trên và dòng dưới thôi ạ. Em cảm ơn bác nhiều
Nhấp chuột vào đây để mở rộng...
snow25 đã viết:
bác có thể sửa code giúp em để nếu cột ngày mà không liền nhau trong Sheets" Tach Vi Tri" thì Sheets"Ghep Vi Tri" vẫn chọn tô màu được không ạ.
Ví dụ:
Các số của cột ngày 09/11/2021 của Sheets"Ghep Vi Tri", sẽ so sánh với số của ngày 16/11/2021 cột ("D") của Sheets" Tach Vi Tri"
có thể ngày sẽ không được cách đều nhau, mà dòng trên và dòng dưới thôi ạ. Em cảm ơn bác nhiều[/CODE]
Nhấp chuột vào đây để mở rộng...
 
Lần chỉnh sửa cuối:
Upvote 0
snow25 đã viết:
Thử code.
Mã: 
Sub ToMau()
Application.ScreenUpdating = False
   Dim i As Long, Lr As Long, arr, j As Long, dic As Object, t, dk As String, a As Long, Lc As Long, m As Long
   m = Timer
   Set dic = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
   With Sheet1
        Lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B4:D" & Lr).Value
        For i = 1 To UBound(arr)
            a = CLng(CDate(arr(i, 1)))
            For Each t In Split(arr(i, 3), ",")
                dk = a & "#" & t
                dic.Item(dk) = i
            Next
       Next i
   End With
   With Sheet2
      .AutoFilterMode = False
       Lc = .Range("XFD2").End(xlToLeft).Column
       Lr = .Range("B" & Rows.Count).End(xlUp).Row
       .Cells(1, 1).Resize(Lr, Lc).Interior.ColorIndex = 0
       arr = .Cells(1, 1).Resize(Lr, Lc).Value
       For i = 3 To Lr
           For j = 2 To Lc
               a = CLng(arr(2, j)) + 1
               dk = a & "#" & arr(i, j)
               If dic.exists(dk) Then
                  .Cells(i, j).Interior.ColorIndex = 46
               End If
           Next j
      Next i
   End With
   Set dic = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
MsgBox Timer - m
End Sub
Nhấp chuột vào đây để mở rộng...
Bác có thể sửa code giúp em để nếu cột ngày mà không liền nhau trong Sheets" Tach Vi Tri" thì Sheets"Ghep Vi Tri" vẫn chọn tô màu được không ạ.
Ví dụ:
Các số của cột ngày 09/11/2021 của Sheets"Ghep Vi Tri", sẽ so sánh với số của ngày 16/11/2021 cột ("D") của Sheets" Tach Vi Tri"
có thể ngày sẽ không được cách đều nhau, mà dòng trên và dòng dưới thôi ạ. Em cảm ơn bác nhiều
 
Upvote 0
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

Quang Ròm
  • Question Question
VBA nhảy qua lại 2 cột A B
    • Cười
Trả lời
5
Đọc
55
Quang Ròm
Quang Ròm
S
Hỏi về công thức tính tiền công theo Kg, có điều kiện.
Trả lời
0
Đọc
14
saicmf
S
N
Cho em xin hỏi về hàm Workday về ngày làm bù ạ
Trả lời
1
Đọc
25
hoangtuaotrang_hp_vn
H
K
dùng hàm sumproduct kết hợp nhiều điều kiện như thế nào?
Trả lời
2
Đọc
37
khanhnth02
K
tranaidh
Giúp sắp xếp phòng thi tốt nghiệp năm 2025 (1 người xem)
Trả lời
4
Đọc
245
BuiQuangThuan
B
V
Cập nhật DataValidation 2 chiều giữa 2 sheet (1 người xem)
Trả lời
4
Đọc
166
hoangtuaotrang_hp_vn
H
nghiahandsome1995
  • Question Question
in đậm chuỗi văn bản bằng excel
Trả lời
11
Đọc
296
HUONGHCKT
H
nghiahandsome1995
Xin mã code autofit
Trả lời
0
Đọc
29
nghiahandsome1995
nghiahandsome1995
D
tạo pivot table theo nhiều trường dữ liệu phân loại
Trả lời
4
Đọc
93
duymax1234567
D
H
Cách nào có thể gộp dữ liệu không dùng VBA (1 người xem)
Trả lời
9
Đọc
114
Hoang NS
H
B
Xin tư vấn excel tính giá trị cho nhiều trường hợp
    • Ngạc nhiên
    • Phẫn nộ
Trả lời
5
Đọc
278
hangnguyenkt
H
A
Giúp đỡ tính tổng ô hàng ngang bất kỳ !
Trả lời
8
Đọc
193
anhdung411
A
T
  • Question Question
Ẩn hiện các sheet khi click vào HyperLink
Trả lời
5
Đọc
166
DeTong
D
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
5
Đọc
246
PhanTuHuong
PhanTuHuong
DinhManh1307
Cách thống kê công việc sản xuất từng người để tính lương sản phẩm
Trả lời
6
Đọc
79
DeTong
D
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
    • Thích
Trả lời
8
Đọc
785
thanhkhoavp
T
sangvanng92
  • Question Question
Cách chạy file excel chứa code vba trên sharepoint
Trả lời
2
Đọc
141
Nguyễn Duy Tuân
Nguyễn Duy Tuân
ankhanh2k2
sắp xếp dữ liệu chấm công
    • Buồn
Trả lời
8
Đọc
247
pycckuu410
P
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
6
Đọc
868
PhanTuHuong
PhanTuHuong
Tuấn Bụng Bự
tạo QRcode chuyển khoản ngân hàng
Trả lời
4
Đọc
121
HeSanbi
HeSanbi
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
TALK SHOW EXCEL TRONG SẢN XUẤT
Back
Top Bottom