Phạm Thành Phúc
Phạm Thành Phúc
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 233 lượt xem

Em viết code với vòng lặp For dùng lấy dữ liệu từ CBBOX cho TB Số lượng

Hi Thầy !

Em viết code với vòng lặp For dùng lấy dữ liệu từ CBBOX cho TB Số lượng vs Đơn vị tính nhưng chạy thì báo lỗi:

Private Sub CB_TH_Change()

Dim dongcuoi As Long

dongcuoi = Sheets("DS_Hang").Range("A" & Rows.Count).End(xlUp).Row

Dim i As Integer

For i = 3 To dongcuoi

If Me.CB_TH = "" Then

Me.TB_DG = 0

Me.TB_DVT = ""

ElseIf Me.CB_TH.Value = Sheets("DS_Hang").Range("A" & i).Value Then

Me.TB_DG.Value = Sheets("DS_Hang").Range("C" & i).Value

Me.TB_DVT.Value = Sheets("DS_Hang").Range("B" & i).Value

End If

Next i

TB_DG = Format(TB_DG, "#,##0")

End Sub

Thảo luận 1 câu trả lời
Lượt xem 233 lượt xem
Vỗ tay vỗ tay
Phạm Thành Phúc 09:03 - Mar 22, 2021

Chào bạn bạn đẩy file lên nhé.

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông