Code cho Hàm VLookup cho nhiều cột làm sao đây

Liên hệ QC
H

hoahuongduong1986

Thành viên thường trực
Tham gia
14/11/18
Bài viết
346
Được thích
40
Em nhờ Anh chị chút ạ.
Code cho các hàm tại vùng F : H tại Sheet So Giao dich là thế nào ạ. Em có tìm hiểu một số bài nhưng thấy khó quá. Em cảm ơn ạ.
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
hoahuongduong1986 đã viết:
Em nhờ Anh chị chút ạ.
Code cho các hàm tại vùng F : H tại Sheet So Giao dich là thế nào ạ. Em có tìm hiểu một số bài nhưng thấy khó quá. Em cảm ơn ạ.
Nhấp chuột vào đây để mở rộng...
Bạn thử code này

Mã: 
Code trong Module

Option Explicit
Public Chk As Boolean, Dic As Object, aResult()
Sub Vlookup()
Dim wks As Worksheet, SrcRng As Range, sArray
  Dim LR As Long, i As Long, n As Long, tmp
  On Error Resume Next
  Set wks = Sheets("Ma")
  Set SrcRng = wks.Range("B2:E7")
  sArray = SrcRng.Value
  ReDim aResult(1 To UBound(sArray, 1), 1 To UBound(sArray, 2))
  Set Dic = CreateObject("Scripting.Dictionary")
  For i = 1 To UBound(sArray, 1)
    If CStr(sArray(i, 1)) <> "" Then
      tmp = sArray(i, 1)
      If Not Dic.exists(tmp) Then
        LR = LR + 1
        Dic.Add tmp, LR
        aResult(LR, 1) = tmp
        aResult(LR, 2) = sArray(i, 2) 'Loai hang
        aResult(LR, 3) = sArray(i, 3) 'Cong ty cap
        aResult(LR, 4) = sArray(i, 4) 'Hang cong ty
      End If
    End If
  Next
End Sub

Code trong sheet So giao dich
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, result()

    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Set Change = Intersect(Range("B4:B600000"), Target)
    If Not Change Is Nothing Then
        If Dic Is Nothing Then Vlookup
        result = Change.Resize(Change.Rows.Count + 1).Value
        ReDim Preserve result(1 To UBound(result), 1 To 3)
 
        For i = 1 To UBound(result) - 1
            If Len(result(i, 1)) Then
                tmp = result(i, 1)
                If Dic.exists(tmp) Then
                    result(i, 1) = aResult(Dic.Item(tmp), 2) 'Loai hang
                    result(i, 2) = aResult(Dic.Item(tmp), 3) 'Cong ty cap
                    result(i, 3) = aResult(Dic.Item(tmp), 4) 'Hang cong ty
                Else
                    result(i, 1) = "Ch" & ChrW(432) & "a có mã"
                    result(i, 2) = "Ch" & ChrW(432) & "a có mã"
                    result(i, 3) = "Ch" & ChrW(432) & "a có mã"
                End If
            End If
        Next i
        Change.Offset(0, 4).Resize(, 3).Value = result
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
 

File đính kèm

Upvote 0
LamNA đã viết:
Bạn thử code này

Mã: 
Code trong Module

Option Explicit
Public Chk As Boolean, Dic As Object, aResult()
Sub Vlookup()
Dim wks As Worksheet, SrcRng As Range, sArray
  Dim LR As Long, i As Long, n As Long, tmp
  On Error Resume Next
  Set wks = Sheets("Ma")
  Set SrcRng = wks.Range("B2:E7")
  sArray = SrcRng.Value
  ReDim aResult(1 To UBound(sArray, 1), 1 To UBound(sArray, 2))
  Set Dic = CreateObject("Scripting.Dictionary")
  For i = 1 To UBound(sArray, 1)
    If CStr(sArray(i, 1)) <> "" Then
      tmp = sArray(i, 1)
      If Not Dic.exists(tmp) Then
        LR = LR + 1
        Dic.Add tmp, LR
        aResult(LR, 1) = tmp
        aResult(LR, 2) = sArray(i, 2) 'Loai hang
        aResult(LR, 3) = sArray(i, 3) 'Cong ty cap
        aResult(LR, 4) = sArray(i, 4) 'Hang cong ty
      End If
    End If
  Next
End Sub

Code trong sheet So giao dich
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, result()

    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Set Change = Intersect(Range("B4:B600000"), Target)
    If Not Change Is Nothing Then
        If Dic Is Nothing Then Vlookup
        result = Change.Resize(Change.Rows.Count + 1).Value
        ReDim Preserve result(1 To UBound(result), 1 To 3)

        For i = 1 To UBound(result) - 1
            If Len(result(i, 1)) Then
                tmp = result(i, 1)
                If Dic.exists(tmp) Then
                    result(i, 1) = aResult(Dic.Item(tmp), 2) 'Loai hang
                    result(i, 2) = aResult(Dic.Item(tmp), 3) 'Cong ty cap
                    result(i, 3) = aResult(Dic.Item(tmp), 4) 'Hang cong ty
                Else
                    result(i, 1) = "Ch" & ChrW(432) & "a có mã"
                    result(i, 2) = "Ch" & ChrW(432) & "a có mã"
                    result(i, 3) = "Ch" & ChrW(432) & "a có mã"
                End If
            End If
        Next i
        Change.Offset(0, 4).Resize(, 3).Value = result
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Anh ơi, Code chỉ chạy khi có biến động mã tại Cột B tai Sheet So giao dịch. Khi em xóa vùng kết quả đi và tạo một Nút bấm Button với Macro Vlookup thì nó không nhảy. Có cách gì tạo bao cáo bằng cách bấm nút thay vì chỉ khi có biến động mã mới chạy không ạ. E cảm ơn ạ.
 
Upvote 0
hoahuongduong1986 đã viết:
Anh ơi, Code chỉ chạy khi có biến động mã tại Cột B tai Sheet So giao dịch. Khi em xóa vùng kết quả đi và tạo một Nút bấm Button với Macro Vlookup thì nó không nhảy. Có cách gì tạo bao cáo bằng cách bấm nút thay vì chỉ khi có biến động mã mới chạy không ạ. E cảm ơn ạ.
Nhấp chuột vào đây để mở rộng...
Bạn thử sub này

Mã: 
Public Sub Test()
Dim sArr(), dArr(), tArr(), I As Long, J As Long, R As Long, Col As Long, Rws As Long
With Sheets("Ma")
    sArr = .Range("B2", .Range("B2").End(xlDown)).Resize(, 4).Value
End With
R = UBound(sArr)
With CreateObject("Scripting.Dictionary")
    For I = 1 To R
        .Add sArr(I, 1), I
    Next I
    With Sheets("So giao dich")
        tArr = .Range("B4", .Range("B4").End(xlDown)).Value
        R = UBound(tArr)
        Col = 3
        ReDim dArr(1 To R, 1 To Col)
    End With
    For I = 1 To R
        If .Exists(tArr(I, 1)) Then
            Rws = .Item(tArr(I, 1))
            For J = 1 To Col
                dArr(I, J) = sArr(Rws, J + 1)
          Next J
         End If
    Next I
End With
Sheets("So giao dich").Range("F4").Resize(R, Col) = dArr
End Sub
 
Upvote 0
LamNA đã viết:
Bạn thử sub này

Mã: 
Public Sub Test()
Dim sArr(), dArr(), tArr(), I As Long, J As Long, R As Long, Col As Long, Rws As Long
With Sheets("Ma")
    sArr = .Range("B2", .Range("B2").End(xlDown)).Resize(, 4).Value
End With
R = UBound(sArr)
With CreateObject("Scripting.Dictionary")
    For I = 1 To R
        .Add sArr(I, 1), I
    Next I
    With Sheets("So giao dich")
        tArr = .Range("B4", .Range("B4").End(xlDown)).Value
        R = UBound(tArr)
        Col = 3
        ReDim dArr(1 To R, 1 To Col)
    End With
    For I = 1 To R
        If .Exists(tArr(I, 1)) Then
            Rws = .Item(tArr(I, 1))
            For J = 1 To Col
                dArr(I, J) = sArr(Rws, J + 1)
          Next J
         End If
    Next I
End With
Sheets("So giao dich").Range("F4").Resize(R, Col) = dArr
End Sub
Nhấp chuột vào đây để mở rộng...
Nó chạy được rồi anh ạ. A giỏi quá. Anh cho em hỏi thêm chút ạ, nếu nó tìm mà không có mã thì nó hiện ra "Cần nhập mã vào" mà không để trống ạ (Chú ý cột mã hàng cột B của Sheet So giao dich phải là khác rỗng, nếu trống thì không hiện ạ). Em cảm ơn Anh.
 
Upvote 0
hoahuongduong1986 đã viết:
Nó chạy được rồi anh ạ. A giỏi quá. Anh cho em hỏi thêm chút ạ, nếu nó tìm mà không có mã thì nó hiện ra "Cần nhập mã vào" mà không để trống ạ (Chú ý cột mã hàng cột B của Sheet So giao dich phải là khác rỗng, nếu trống thì không hiện ạ). Em cảm ơn Anh.
Nhấp chuột vào đây để mở rộng...
Bạn thử lại

Mã: 
Option Explicit
Sub Test2()
Dim i As Long, KQ(), Ma(), SoGiaoDich(), Item, Dic As Object
With Sheet2
    Ma = Range(.[B2], .[B65000].End(3)).Resize(, 4)
End With
With Sheet1
    SoGiaoDich = .Range(.[B4], .[B65000].End(3))
    ReDim KQ(1 To UBound(SoGiaoDich), 1 To 3)
    Set Dic = CreateObject("Scripting.dictionary")
    For i = 1 To UBound(Ma)
    Item = CStr(Ma(i, 1))
        If Not Dic.exists(Item) Then
            Dic.Add CStr(Ma(i, 1)), i
        End If
    Next i
    For i = 1 To UBound(SoGiaoDich)
    Item = CStr(SoGiaoDich(i, 1))
        If Dic.exists(Item) Then
            KQ(i, 1) = Ma(Dic.Item(Item), 2)
            KQ(i, 2) = Ma(Dic.Item(Item), 3)
            KQ(i, 3) = Ma(Dic.Item(Item), 4)
            Else
            KQ(i, 1) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 2) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 3) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
        End If
    Next i
    .[F4:H65000].ClearContents
    .[F4].Resize(i - 1, 3) = KQ
Set Dic = Nothing
End With
End Sub
 

File đính kèm

Upvote 0
LamNA đã viết:
Bạn thử lại

Mã: 
Option Explicit
Sub Test2()
Dim i As Long, KQ(), Ma(), SoGiaoDich(), Item, Dic As Object
With Sheet2
    Ma = Range(.[B2], .[B65000].End(3)).Resize(, 4)
End With
With Sheet1
    SoGiaoDich = .Range(.[B4], .[B65000].End(3))
    ReDim KQ(1 To UBound(SoGiaoDich), 1 To 3)
    Set Dic = CreateObject("Scripting.dictionary")
    For i = 1 To UBound(Ma)
    Item = CStr(Ma(i, 1))
        If Not Dic.exists(Item) Then
            Dic.Add CStr(Ma(i, 1)), i
        End If
    Next i
    For i = 1 To UBound(SoGiaoDich)
    Item = CStr(SoGiaoDich(i, 1))
        If Dic.exists(Item) Then
            KQ(i, 1) = Ma(Dic.Item(Item), 2)
            KQ(i, 2) = Ma(Dic.Item(Item), 3)
            KQ(i, 3) = Ma(Dic.Item(Item), 4)
            Else
            KQ(i, 1) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 2) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 3) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
        End If
    Next i
    .[F4:H65000].ClearContents
    .[F4].Resize(i - 1, 3) = KQ
Set Dic = Nothing
End With
End Sub
Nhấp chuột vào đây để mở rộng...


Em thử nó chạy được rồi anh ạ. A là người nhiệt tình quá, thấy hỏi gì cũng được a chỉ giáo. Chúc anh luôn gặp nhiều may mắn nhé. Có gì lại làm phiền anh và mọi người tiếp ạ !
 
Upvote 0
LamNA đã viết:
Bạn thử lại

Mã: 
Option Explicit
Sub Test2()
Dim i As Long, KQ(), Ma(), SoGiaoDich(), Item, Dic As Object
With Sheet2
    Ma = Range(.[B2], .[B65000].End(3)).Resize(, 4)
End With
With Sheet1
    SoGiaoDich = .Range(.[B4], .[B65000].End(3))
    ReDim KQ(1 To UBound(SoGiaoDich), 1 To 3)
    Set Dic = CreateObject("Scripting.dictionary")
    For i = 1 To UBound(Ma)
    Item = CStr(Ma(i, 1))
        If Not Dic.exists(Item) Then
            Dic.Add CStr(Ma(i, 1)), i
        End If
    Next i
    For i = 1 To UBound(SoGiaoDich)
    Item = CStr(SoGiaoDich(i, 1))
        If Dic.exists(Item) Then
            KQ(i, 1) = Ma(Dic.Item(Item), 2)
            KQ(i, 2) = Ma(Dic.Item(Item), 3)
            KQ(i, 3) = Ma(Dic.Item(Item), 4)
            Else
            KQ(i, 1) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 2) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 3) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
        End If
    Next i
    .[F4:H65000].ClearContents
    .[F4].Resize(i - 1, 3) = KQ
Set Dic = Nothing
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Anh ơi, em hỏi anh chút ạ. Đoạn nào trong Code để nó hiểu rằng Việc Vlookup sẽ thực hiện từ Cột F mà không phải thực hiện từ Cột D, E ạ. Em cảm ơn ạ
 
Upvote 0
hoahuongduong1986 đã viết:
Anh ơi, em hỏi anh chút ạ. Đoạn nào trong Code để nó hiểu rằng Việc Vlookup sẽ thực hiện từ Cột F mà không phải thực hiện từ Cột D, E ạ. Em cảm ơn ạ
Nhấp chuột vào đây để mở rộng...
Bạn nên gửi file để biết chỉnh và hướng dẫn nhé
Mã: 
Option Explicit
Sub Test2()
Dim i As Long, KQ(), Ma(), SoGiaoDich(), Item, Dic As Object
With Sheet2
    Ma = Range(.[B2], .[B65000].End(3)).Resize(, 4) 'bat dau từ b2 Resize(, 4) => tới cột E'
End With
With Sheet1
    SoGiaoDich = .Range(.[B4], .[B65000].End(3))
    ReDim KQ(1 To UBound(SoGiaoDich), 1 To 3)
    Set Dic = CreateObject("Scripting.dictionary")
    For i = 1 To UBound(Ma)
    Item = CStr(Ma(i, 1))
        If Not Dic.exists(Item) Then
            Dic.Add CStr(Ma(i, 1)), i
        End If
    Next i
    For i = 1 To UBound(SoGiaoDich)
    Item = CStr(SoGiaoDich(i, 1))
        If Dic.exists(Item) Then
            KQ(i, 1) = Ma(Dic.Item(Item), 2) 'Từ mã hàng tới Loại hàng'
            KQ(i, 2) = Ma(Dic.Item(Item), 3) ''Từ mã hàng tới cong ty cấp''
            KQ(i, 3) = Ma(Dic.Item(Item), 4) 'Từ mã hàng tới Hạng công ty'
            Else
            KQ(i, 1) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 2) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 3) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
        End If
    Next i
    .[F4:H65000].ClearContents
    .[F4].Resize(i - 1, 3) = KQ
Set Dic = Nothing
End With
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
LamNA đã viết:
B

Bạn nên gửi file để biết chỉnh và hướng dẫn nhé
Mã: 
Option Explicit
Sub Test2()
Dim i As Long, KQ(), Ma(), SoGiaoDich(), Item, Dic As Object
With Sheet2
    Ma = Range(.[B2], .[B65000].End(3)).Resize(, 4) 'bat dau từ b2 Resize(, 4) => tới cột E'
End With
With Sheet1
    SoGiaoDich = .Range(.[B4], .[B65000].End(3))
    ReDim KQ(1 To UBound(SoGiaoDich), 1 To 3)
    Set Dic = CreateObject("Scripting.dictionary")
    For i = 1 To UBound(Ma)
    Item = CStr(Ma(i, 1))
        If Not Dic.exists(Item) Then
            Dic.Add CStr(Ma(i, 1)), i
        End If
    Next i
    For i = 1 To UBound(SoGiaoDich)
    Item = CStr(SoGiaoDich(i, 1))
        If Dic.exists(Item) Then
            KQ(i, 1) = Ma(Dic.Item(Item), 2) 'Từ mã hàng tới Loại hàng'
            KQ(i, 2) = Ma(Dic.Item(Item), 3) ''Từ mã hàng tới cong ty cấp''
            KQ(i, 3) = Ma(Dic.Item(Item), 4) 'Từ mã hàng tới Hạng công ty'
            Else
            KQ(i, 1) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 2) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
            KQ(i, 3) = "C" & ChrW(7847) & "n nh" & ChrW(7853) & "p mã"
        End If
    Next i
    .[F4:H65000].ClearContents
    .[F4].Resize(i - 1, 3) = KQ
Set Dic = Nothing
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Ý em hỏi là tại Sheet 1 ạ: Đoạn nào thể hiện nó sẽ thực hiện VLookup trả kết quả từ F4 đến H mà không phải từ C, D, hoặc E ạ.
 
Upvote 0
hoahuongduong1986 đã viết:
Ý em hỏi là tại Sheet 1 ạ: Đoạn nào thể hiện nó sẽ thực hiện VLookup trả kết quả từ F4 đến H mà không phải từ C, D, hoặc E ạ.
Nhấp chuột vào đây để mở rộng...
Là muốn trả kết quả về C,D,E thay vì kết quả code đang trả về F,G,H hay sao? nếu đúng thì chỉ chỉnh dòng này

Mã: 
Sửa dòng này
    .[F4:H65000].ClearContents
    .[F4].Resize(i - 1, 3) = KQ
Thành
    .[C4:E65000].ClearContents
    .[C4].Resize(i - 1, 3) = KQ
 
Upvote 0
hoahuongduong1986 đã viết:
Em nhờ Anh chị chút ạ.
Code cho các hàm tại vùng F : H tại Sheet So Giao dich là thế nào ạ. Em có tìm hiểu một số bài nhưng thấy khó quá. Em cảm ơn ạ.
Nhấp chuột vào đây để mở rộng...
1 cách:
PHP: 
Sub hoahuongduong1986()
    Dim i As Long
    For i = Range("B" & Rows.Count).End(3).Row To 4 Step -1
        Range(Cells(i, "F"), Cells(i, "H")).FormulaArray = "=VLOOKUP(B" & i & ",Ma!$B:$E,{2,3,4},0)"
        With Range("F4:H" & Range("B" & Rows.Count).End(3).Row)
            .Value = .Value
            .Replace "#N/A", "Không có "
        End With
    Next
End Sub
 
Upvote 0
phulien1902 đã viết:
1 cách:
PHP: 
Sub hoahuongduong1986()
    Dim i As Long
    For i = Range("B" & Rows.Count).End(3).Row To 4 Step -1
        Range(Cells(i, "F"), Cells(i, "H")).FormulaArray = "=VLOOKUP(B" & i & ",Ma!$B:$E,{2,3,4},0)"
        With Range("F4:H" & Range("B" & Rows.Count).End(3).Row)
            .Value = .Value
            .Replace "#N/A", "Không có "
        End With
    Next
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn 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

Huyen9
Lỗi không mailings được.
Trả lời
3
Đọc
54
vanle33
vanle33
Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
4
Đọc
62
Hoàng Tuấn 868
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
310
Đọc
23K
kunkoi9390
K
K
Có ai giúp mình lấy kết quả xổ số miền nam về file excel
Trả lời
0
Đọc
17
khanhvinhdai1
K
ptm0412
  • Question Question
Lấy dữ liệu web nhiều trang về file Excel bằng Power Query
    • Thích
Trả lời
5
Đọc
2K
ptm0412
ptm0412
H
Công thức tìm kết quả
Trả lời
11
Đọc
110
VetMini
V
V
Hàm dò tìm lấy giá trị của lần xuất hiện thứ n trong excel.
Trả lời
9
Đọc
1K
VetMini
V
N
Nhờ các anh chỉ chỉnh lỗi giúp em với ạ, em cảm ơn ạ.
Trả lời
3
Đọc
70
minhminh27
minhminh27
T
File quản lý thiết bị trong trường học!
Trả lời
4
Đọc
129
VetMini
V
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
1
Đọc
121
VetMini
V
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
3
Đọc
121
VetMini
V
L
Viết phần mềm đánh lô bằng Visual Basic
    • Thích
2 3
Trả lời
51
Đọc
103K
taimeanh
T
hungtin1997
  • Question Question
[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột
Trả lời
6
Đọc
407
A HOANG 620
A
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
14
Đọc
550
htin1997
htin1997
tramcannt
Các bác cho hỏi làm cách nào để thu nhỏ thanh công thức này với ạ. Em cảm ơn.
Trả lời
2
Đọc
56
Nhattanktnn
Nhattanktnn
S
  • Question Question
Điều chỉnh kích thước dòng tự động theo trang in
Trả lời
5
Đọc
143
HUONGHCKT
H
A
Tạo vé Loto bằng Excel
2
Trả lời
20
Đọc
23K
Tuấn tata
Tuấn tata
Nauduong
Cách chuyển định dạng từ PDF sang Image
Trả lời
9
Đọc
266
Châu Bá Thông
Châu Bá Thông
minhduongct
  • Question Question
Viết code VBA thay cho dùng hàm vlookup
Trả lời
6
Đọc
1K
VetMini
V
N
Thử viết code lập trình đa luồng bằng TwinBasic và khả năng ứng dụng vào COM add-in chạy trong Excel
    • Thích
Trả lời
0
Đọc
177
nguyendang95
N
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
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom