Code lấy dày, rộng, dài (1 người xem)

  • Thread starter Thread starter DMQ
  • 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)
DMQ

DMQ

Thành viên dốt
Tham gia
21/3/12
Bài viết
722
Được thích
57
Giới tính
Nam
Chào các anh chị!!!!
Em có file, trong file em có code lấy dày, rộng, dài. Em có bắt chước code của các anh chị trên DD, nhưng em thấy nó dài dài sao ấy, các anh chị có thể rút gọn lại dùm em ạ.
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
DMQ đã viết:
Chào các anh chị!!!!
Em có file, trong file em có code lấy dày, rộng, dài. Em có bắt chước code của các anh chị trên DD, nhưng em thấy nó dài dài sao ấy, các anh chị có thể rút gọn lại dùm em ạ.
Em cám ơn.
Nhấp chuột vào đây để mở rộng...
Nghiên cứu Dictionary và mảng nhé.
 
Upvote 0
Em mới bập bẹ thôi, anh giúp em với.
 
Upvote 0
@Tác giả bài đăng: Đoạn các lệnh trong khoản trích này nhằm mục đích gì vậy:
PHP: 
' . . . . . . . . .   '
        With Sheets("Rec")
            lr = .Range("A" & Rows.Count).End(xlUp).Row
            For I = 5 To lr
            Next I
            .Cells(Row, 5).Value = Description
        End With
' . . . . . . . . .   '
 
Upvote 0
nó là lấy cột Diễn giải đó thầy.
 
Upvote 0
Bạn thử bỏ vòng lặp trong những đoạn đó xem có bị gì không, mình cảm thấy vòng lặp đó vậy là thừa.
 
Upvote 0
Em có thử bỏ vòng lặp, không bị gì hết Thầy ơi.
Còn có cách dùng Dic như anh @snow25 nói nữa, các anh làm cho em học hỏi với.
 
Upvote 0
DMQ đã viết:
... em thấy nó dài dài sao ấy, các anh chị có thể rút gọn lại dùm em ạ.
Nhấp chuột vào đây để mở rộng...
DMQ đã viết:
Em mới bập bẹ thôi, anh giúp em với.
Nhấp chuột vào đây để mở rộng...
DMQ đã viết:
...
Còn có cách dùng Dic như anh @snow25 nói nữa, các anh làm cho em học hỏi với.
Nhấp chuột vào đây để mở rộng...
Thực sự thì bạn muốn học, hay muốn nhờ viết giùm code khác?
 
Upvote 0
thực là nhờ viết code khác ạ.
 
Upvote 0
Phải chi bạn viết Code như thế này thì sẽ thấy sự ngộ nghĩnh của mình:

PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim I As Long, lR As Long, counter As Integer, UnitWeight As Integer, Col As Integer, Row As Integer
 Dim MaSo As String, Description As String
    
 If Target.Count > 1 Then Exit Sub
2 If Not Intersect(Target, Range("D5:K10000")) Is Nothing Then
    If IsEmpty(Target) Then Exit Sub
    Row = Target.Row:           Col = Target.Column
    If IsEmpty(Cells(Row, 1)) Then
        MsgBox "Ban Cân Nhâp Du Liêu Vào Côt Ngày Truóc", vbCritical
        Exit Sub
    End If
    MaSo = Cells(Row, 4):        DoDay = Cells(Row, 6)
    Rong = Cells(Row, 7):        Dai = Cells(Row, 8)
3    If Col = 4 Then            '** '
        With Sheets("Sue")
            lR = .Range("B" & Rows.Count).End(xlUp).Row
            For I = 8 To lR
                If .Range("B" & I) = MaSo Then Description = .Range("I" & I):
                Exit For
            Next I
        End With
        With Sheets("Rec")
'            lr = .Range("A" & Rows.Count).End(xlUp).Row
'            For I = 5 To lr
'            Next I
            .Cells(Row, 5).Value = Description
        End With
30      If Col = 4 Then
            With Sheets("Sue")
                lR = .Range("B" & Rows.Count).End(xlUp).Row
                For I = 8 To lR
                    If .Range("B" & I) = MaSo Then DoDay = .Range("E" & I): Exit For
                Next I
            End With
            With Sheets("Rec")
1
                .Cells(Row, 6).Value = DoDay
            End With
31        End If
40        If Col = 4 Then
            With Sheets("Sue")
                lR = .Range("B" & Rows.Count).End(xlUp).Row
                For I = 8 To lR
                    If .Range("B" & I) = MaSo Then Rong = .Range("F" & I): Exit For
                Next I
            End With
            With Sheets("Rec")
2
                .Cells(Row, 7).Value = Rong
            End With
41        End If
50        If Col = 4 Then
            With Sheets("Sue")
                lR = .Range("B" & Rows.Count).End(xlUp).Row
                For I = 8 To lR
                    If .Range("B" & I) = MaSo Then Dai = .Range("G" & I): Exit For
                Next I
            End With
            With Sheets("Rec")
3
                .Cells(Row, 8).Value = Dai
            End With
51        End If
60        If Col = 4 Then
            With Sheets("Sue")
                lR = .Range("B" & Rows.Count).End(xlUp).Row
                For I = 8 To lR
                    If .Range("B" & I) = MaSo Then UnitWeight = .Range("H" & I): Exit For
                Next I
            End With
            With Sheets("Rec")
4
                .Cells(Row, 9).Value = UnitWeight
            End With
61        End If
39    End If
 End If
End Sub
 
Upvote 0
Ý Thầy là sao em không hiểu?????
 
Upvote 0
DMQ đã viết:
Ý . . . là sao em không hiểu?????
Nhấp chuột vào đây để mở rộng...
Ý mình là mệnh đề lệnh
Mã: 
If Col = 4 Then
có ở khắp nơi như vậy có hợp lý hay không?
1./ Sao phải lặp lại mệnh đề này nhiều lần như vậy?
2./ Mệnh đề này đối chiếu với
PHP: 
If Not Intersect(Target, Range("D5:K10000")) Is Nothing Then
Thì có gì đó hơi thừa thải không cần thiết, vì phạm vi cột quá ư là nhiều so với cần thiết.
 
Upvote 0
Bởi vậy em mới nhờ rút gọn lại dùm em, thầy @SA_DQ
rút gọn dùm em với.
 
Upvote 0
Code hiện tại có rất nhiều thừa thãi: Nếu chỉ quan tâm đến việc thay đổi giá trị cột D thì chỉ vầy là đủ:
PHP: 
 Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, arr()
If Target.Column <> 4 Or Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
r = Target.Row
If IsEmpty(Cells(r, 1)) Then
    MsgBox "Ban can nhap du lieu vao cot Ngay truoc", vbCritical
    Exit Sub
End If
With Sheets("Sue")
    lr = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 6 To lr
        If .Range("B" & i) = Target Then
            ReDim arr(1 To 1, 1 To 6)
            arr(1, 1) = Target: arr(1, 2) = .Cells(i, "I").Value
            arr(1, 3) = .Cells(i, "E").Value: arr(1, 4) = .Cells(i, "F").Value
            arr(1, 5) = .Cells(i, "G").Value: arr(1, 6) = .Cells(i, "H").Value
            Target.Resize(1, 6).Value = arr
            Exit Sub
        End If
    Next
End With
End Sub
 

File đính kèm

Upvote 0
DMQ đã viết:
Bởi vậy em mới nhờ rút gọn lại dùm em, thầy @SA_DQ
rút gọn dùm em với.
Nhấp chuột vào đây để mở rộng...
Sao không phải là code khác nhanh hơn.Tiện hơn mà cứ phải là rút gọn code của bạn.Nếu đúng ý của tôi nói ở bài 12 thì code khác nhanh hơn.
Bài đã được tự động gộp:

bebo021999 đã viết:
Code hiện tại có rất nhiều thừa thãi: Nếu chỉ quan tâm đến việc thay đổi giá trị cột D thì chỉ vầy là đủ:
PHP: 
 Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, arr()
If Target.Column <> 4 Or Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
r = Target.Row
If IsEmpty(Cells(r, 1)) Then
    MsgBox "Ban can nhap du lieu vao cot Ngay truoc", vbCritical
    Exit Sub
End If
With Sheets("Sue")
    lr = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 6 To lr
        If .Range("B" & i) = Target Then
            ReDim arr(1 To 1, 1 To 6)
            arr(1, 1) = Target: arr(1, 2) = .Cells(i, "I").Value
            arr(1, 3) = .Cells(i, "E").Value: arr(1, 4) = .Cells(i, "F").Value
            arr(1, 5) = .Cells(i, "G").Value: arr(1, 6) = .Cells(i, "H").Value
            Target.Resize(1, 6).Value = arr
            Exit Sub
        End If
    Next
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Hình như code này chỉ là cập nhập giá trị cũ.Không có thêm mới.Đầu tiên em cứ tưởng bác sa viết hóa ra không phải.
 
Lần chỉnh sửa cuối:
Upvote 0
Sheet Rec là nhập liệu hàng ngày, sheet Sue là bảng danh mục, bạn @snow25 dùng Dic cho mình xem với
Bài đã được tự động gộp:

Cám ơn bạn @bebo021999 nhiều
 
Upvote 0
Không cần dùng Dic.
Code này bổ sung phần kiểm tra nếu mã chưa tồn tại thì sẽ cho phép bổ sung.
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, arr(), found As Boolean, newV, oldV
If Target.Column <> 4 Or Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
r = Target.Row
If IsEmpty(Cells(r, 1)) Then
    MsgBox "Ban can nhap du lieu vao cot Ngay truoc", vbCritical
    Exit Sub
End If
With Sheets("Sue")
back:
    lr = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 6 To lr
        If .Range("B" & i) = Target Then
            found = True
            ReDim arr(1 To 1, 1 To 6)
            arr(1, 1) = Target: arr(1, 2) = .Cells(i, "I").Value
            arr(1, 3) = .Cells(i, "E").Value: arr(1, 4) = .Cells(i, "F").Value
            arr(1, 5) = .Cells(i, "G").Value: arr(1, 6) = .Cells(i, "H").Value
            Target.Resize(1, 6).Value = arr
            Exit Sub
        End If
    Next
    If Not found Then
        If MsgBox("Ma so moi, ban co muon bo sung khong?", vbYesNo) = vbYes Then
            ip1 = InputBox("nhap do Day:")
            ip2 = InputBox("nhap chieu Rong:")
            ip3 = InputBox("nhap chieu Dai")
            ip4 = InputBox("nhap Trong Luong:")
            If Not IsNumeric(ip1 + ip2 + ip3 + ip4) Or ip1 < 0 Or ip2 < 0 Or ip3 < 0 Or ip4 < 0 Then
                MsgBox "Du liêu nhap sai!", vbCritical
                Exit Sub
            End If
            .Cells(lr + 1, "B").Value = Target
            .Cells(lr + 1, "E").Value = ip1
            .Cells(lr + 1, "F").Value = ip2
            .Cells(lr + 1, "G").Value = ip3
            .Cells(lr + 1, "H").Value = ip4
            .Cells(lr + 1, "I").Value = ip1 & "x" & ip2 & "x" & ip3
            GoTo back
        Else
            newV = Target.Value
            With Application
                .EnableEvents = False
                .Undo
                oldV = Target.Value
                .EnableEvents = True
            End With
            Target.Value = oldV
        End If
    End If
End With
End Sub
 

File đính kèm

Upvote 0
Không cần tạo danh mục mới đâu bạn @bebo021999 ơi, ở sheet Rec cột tổng trọng lượng mình đang dùng công thức, bạn viết code thay công thức dùm mình được không ạ
 
Upvote 0
DMQ đã viết:
Không cần tạo danh mục mới đâu bạn @bebo021999 ơi, ở sheet Rec cột tổng trọng lượng mình đang dùng công thức, bạn viết code thay công thức dùm mình được không ạ
Nhấp chuột vào đây để mở rộng...
Thêm chút xíu vào nhé:

PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, arr()
If Target.Column <> 4 Or Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
r = Target.Row
If IsEmpty(Cells(r, 1)) Then
    MsgBox "Ban can nhap du lieu vao cot Ngay truoc", vbCritical
    Exit Sub
End If
With Sheets("Sue")
    lr = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 6 To lr
        If .Range("B" & i) = Target Then
            ReDim arr(1 To 1, 1 To 6)
            arr(1, 1) = Target: arr(1, 2) = .Cells(i, "I").Value
            arr(1, 3) = .Cells(i, "E").Value: arr(1, 4) = .Cells(i, "F").Value
            arr(1, 5) = .Cells(i, "G").Value: arr(1, 6) = .Cells(i, "H").Value
            Target.Resize(1, 6).Value = arr
            With Sheets("Rec")
                lr = .Range("D" & Rows.Count).End(xlUp).Row
                .Range("K2:K" & lr).Formula = "=I2*J2"
            End With
            Exit Sub
        End If
    Next
End With
End Sub
 
  • Thích
Reactions: DMQ
Upvote 0
Sao mình chép code bài #20 vào file, không chạy bạn @bebo021999 ơi....
 
Upvote 0
Nó không có gì luôn, giống như file không hề có code vậy, khi mình gõ ngày và mã số vào, nó không điền diễn giải, dày, rộng, dài vào các cột tương ứng. Nó không run code
 
Upvote 0
Bảo đảm là cột chứa mã số nhập vào là cột D nhé?
Không thì bạn post file có code lên xem thử.
 
Upvote 0
Cám ơn bạn đã quan tâm.
Mình đang mở bằng điện thoại.
 
Upvote 0
À, mình biết rồi, vì mã số bên sheet Sue định dạng Text, nên khi gõ mã số bên sheet Rec phải gõ thêm dấu nháy đơn, bạn có thể viết code khắc phục sự cố này
 
Upvote 0
Cũng không phải nữa các anh ơi, chỉ có mã số "1215120" là không chạy code thôi.
Mong các anh và bạn @bebo021999 xem coi vì sao lại bị chỉ mỗi mã số này.
Trong file em có bôi màu vàng.
 

File đính kèm

Upvote 0
DMQ đã viết:
Cũng không phải nữa các anh ơi, chỉ có mã số "1215120" là không chạy code thôi.
Mong các anh và bạn @bebo021999 xem coi vì sao lại bị chỉ mỗi mã số này.
Trong file em có bôi màu vàng.
Nhấp chuột vào đây để mở rộng...
Vì ở bên Sue nó là số. Format lại dạng Text đi bạn.
Bạn nên thống nhất dữ liệu lại nhé.
 
Upvote 0
Mình đã format lại dạng Text rồi mà vẫn vậy bạn ơi.
Bài đã được tự động gộp:

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

Hoi1.png
 
Lần chỉnh sửa cuối:
Upvote 0
Được rồi bạn ơi, mình phải xóa hết mã số bên sheet Sue, định dạng Text cho cột mã số và gõ lại mã số.
Cám ơn bạn @bebo021999 nhiều.
 
Upvote 0
À, bạn giúp mình đoạn code kẻ Borders khi nhập liệu tới đâu kẻ tới đó với.
 
Upvote 0
Ý là nhập liệu tới đâu kẻ border đến đấy
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Bạn cũng viết được code rồi thì gõ câu này lên tìm kiếm rồi nghiên cứu là tự viết được thôi, chứ nhờ không sót chút nào như vậy thì...hơi buồn.
Nhấp chuột vào đây để mở rộng...
Buồn chỗ nào. Hay bạn nói buồn cười?
Vòi từng chút một là một kỹ năng được rèn luyện rất nhiệt tình ở diễn đàn này.
Người đã viết code ở trên sẽ không để code của mình mồ côi đâu. Họ sẽ hân hoan viết tiếp (hay viết lại) thôi.
 
Upvote 0
DMQ đã viết:
À, bạn giúp mình đoạn code kẻ Borders khi nhập liệu tới đâu kẻ tới đó với.
Nhấp chuột vào đây để mở rộng...
Khi nào rảnh nhớ chịu khó google mày mò nhé.
Code mới :
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, arr()
If Target.Column <> 4 Or Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
r = Target.Row
If IsEmpty(Cells(r, 1)) Then
    MsgBox "Ban can nhap du lieu vao cot Ngay truoc", vbCritical
    Exit Sub
End If
With Sheets("Sue")
    lr = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 6 To lr
        If .Range("B" & i) = Target Then
            ReDim arr(1 To 1, 1 To 6)
            arr(1, 1) = Target: arr(1, 2) = .Cells(i, "I").Value
            arr(1, 3) = .Cells(i, "E").Value: arr(1, 4) = .Cells(i, "F").Value
            arr(1, 5) = .Cells(i, "G").Value: arr(1, 6) = .Cells(i, "H").Value
            With Target
                .Resize(1, 6).Value = arr
                .Offset(, -3).Resize(1, 11).Borders.LineStyle = xlContinuous
            End With
            With Sheets("Rec")
                lr = .Range("D" & Rows.Count).End(xlUp).Row
                .Range("K2:K" & lr).Formula = "=I2*J2"
            End With
            Exit Sub
        End If
    Next
End With
End Sub
 
  • Thích
Reactions: DMQ
Upvote 0
Cam ơn bạn @bebo021999 nhiều, trong code mình có thêm đoạn code này để khi gõ mã số vào cột D thì nhảy tới cột J luôn để
gõ số lượng, mình thì thấy code chạy theo đúng ý mình rồi đó, bạn xem coi nó có lỗi gì tiềm ẩn không.
Mã: 
 Cells(r, "j").Select
 
Upvote 0
mình có định dạng số cho cột I (trọng lượng) như vầy, nhưng code lỗi:
Mã: 
Cells(i, "I").Value = Format(, "#,##0.00")
mong bạn chỉ giáo.
 
Upvote 0
DMQ đã viết:
Cells(i, "I").Value = Format(, "#,##0.00")
Nhấp chuột vào đây để mở rộng...
Bạn sửa thành thế này
Mã: 
Cells(i, "I").NumberFormat = "#,##0.00"
Bài đã được tự động gộp:

DMQ đã viết:
mình có định dạng số cho cột I (trọng lượng) như vầy, nhưng code lỗi:
Mã: 
Cells(i, "I").Value = Format(, "#,##0.00")
mong bạn chỉ giáo.
Nhấp chuột vào đây để mở rộng...
Tốt nhất thì bạn định dạng cả cột trước, vì dữ liệu dán xuống cells được dán từ mảng nên sẽ giữ nguyên định dạng của nó.
 
Upvote 0
không được bạn @anhtuan2939 ơi, không đúng định dạng #,##0.00
 
Upvote 0
DMQ đã viết:
mình có định dạng số cho cột I (trọng lượng) như vầy, nhưng code lỗi:
Mã: 
Cells(i, "I").Value = Format(, "#,##0.00")
mong bạn chỉ giáo.
Nhấp chuột vào đây để mở rộng...
Tại sao bạn lại dùng vòng lặp để định dạng cho nó, chả lẽ cứ mỗi lần nhập dữ liệu thì cứ chạy vòng lặp để định dạng những ô đã được định dạng trước đó. Như vậy sẽ làm tốc độ chậm thêm. Bạn nên dùng Format cells để định dạng cột đó trước, khi code dán dữ liệu xuống thì sẽ giữ nguyên định dạng được cài đặt ban đầu.
 
Upvote 0
Ý mình nói là code của bạn không ra định dạng #,##0.00
 
Upvote 0
Sao bài này mà lên đến 43 bài mà vẫn chưa có đáp án đúng là sao ta.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao (8 người xem)
Trả lời
9
Đọc
55
Nguyenkhang2404
Nguyenkhang2404
D
Lọc các ô có dữ liệu trùng nhau trong một cột. Xin chỉ giúp (4 người xem)
Trả lời
1
Đọc
39
truongvu317
truongvu317
N
Tạo file lưu trữ dữ liệu tự động trên excel. (2 người xem)
Trả lời
13
Đọc
310
LOGANWover
L
T
VBA LẤY THÔNG TIN TRÊN TỜ KHAI NHẬP KHẨU (6 người xem)
Trả lời
1
Đọc
52
BuiQuangThuan
B
Tienvinh191
  • Question Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp (3 người xem)
    • Thích
Trả lời
29
Đọc
3K
ThanhNgoc26100
T
S
cần xử lý dữ liệu trùng nhau bằng VBA (1 người xem)
    • Cười
Trả lời
10
Đọc
297
sonminhtran
S
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (4 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
400
Đọc
47K
pycckuu410
pycckuu410
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb (1 người xem)
Trả lời
9
Đọc
462
Gà Con yêu VBA
Gà Con yêu VBA
Ả
Cách tạo list Data validation không qua trung gian
Trả lời
46
Đọc
7K
thuytrangbp28
T
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
15
Đọc
2K
anhdepjai
A
T
[Giúp đỡ] Sửa lỗi runtime error 1004 application defined or object defined
Trả lời
2
Đọc
101
tmhung0805
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711) (3 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
280
Đọc
36K
hoangtuan.net
hoangtuan.net
M
  • Question Question
[Hỏi cách tạo VBA] - Xin các cao nhân chỉ giúp cách tạo VBA cho công việc thuận tiện hơn (1 người xem)
Trả lời
5
Đọc
235
SA_DQ
SA_DQ
dongbhhg
Hàm đếm số lượng trong khoảng thời gian cho trước (2 người xem)
Trả lời
6
Đọc
169
thanthanhan
thanthanhan
D
  • Đã khóa
lọc các ô trong một cột chứa một nhóm dữ liệu? mong các cao thủ giải đáp giúp mình (2 người xem)
Trả lời
6
Đọc
181
ptm0412
ptm0412
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết
Trả lời
27
Đọc
25K
Anh2207
A
P
In file excel có cột bị gộp (1 người xem)
Trả lời
0
Đọc
70
ple28
P
N
  • Question Question
Tạo file lưu trữ dự liệu tự động (1 người xem)
Trả lời
8
Đọc
269
le_vis
L
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
577
ongke0711
ongke0711
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn (2 người xem)
Trả lời
3
Đọc
180
HieuCD
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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom