Nhờ hướng dẫn sử dụng đoạn code cho userform

Liên hệ QC
H

huyen891977

Thành viên chính thức
Tham gia
15/11/08
Bài viết
87
Được thích
16
Nghề nghiệp
nojob
Chào các cao thủ trên GPE, mình có đoạn code của một người bạn gởi cho dùng để áp dụng cho userform có nhiều combobox và nhiều textbox, nhưng mình rất dở về VBA nên chưa áp dụng được cho form nhập liệu của mình. Mong các cao thủ gợi ý hoặc cho ví dụ mẫu để sử dụng đoạn code sau, chân thành cám ơn. Thân chào
Code :

Private Sub CommandButton1_Click()
Dim ctl As Control

For Each ctl In Me.Controls
If TypeName(ctl) = "ComboBox" Or TypeName(ctl) = "TextBox" Then
On Error Resume Next
Cells(1, ctl.Tag).Value = ctl.Value
On Error GoTo 0
End If

Next ctl
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Mỗi Control trong đó có combobox và textbox có 1 property là Tag. Theo như code của bạn thì người ta đã thiết lập tag của mỗi control tương ứng với số thứ tự cột của vùng dữ liệu cần nhập từ form.
Thí dụ combobox1 có tag là 3, thì câu code sau:
Cells(1, ctl.Tag).Value = ctl.Value
sẽ gán giá trị cho ô có dòng là 1, cột là 3 (cột C), bằng với giá trị của combobox1
 
Upvote 0
Đây là cách mà nó dùng vào việc khác. Ví dụ như hiển thị tên của Control và Tag của nó.
Bạn xem trong file.
Thân.
 

File đính kèm

Upvote 0
ptm0412 đã viết:
Mỗi Control trong đó có combobox và textbox có 1 property là Tag. Theo như code của bạn thì người ta đã thiết lập tag của mỗi control tương ứng với số thứ tự cột của vùng dữ liệu cần nhập từ form.
Thí dụ combobox1 có tag là 3, thì câu code sau:
Cells(1, ctl.Tag).Value = ctl.Value
sẽ gán giá trị cho ô có dòng là 1, cột là 3 (cột C), bằng với giá trị của combobox1
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn ! bạn cho mình hỏi vấn đề này nhé. Trên form nhập liệu của mình có 8 combobox để lựa chọn 8 mặt hàng cho mỗi phiếu mua hàng của khách (có thể mỗi khách mua nhiều hơn 8 mặt hàng, hoặc ít hơn). Ví dụ khách mua 4 mặt hàng thì khi nhập liệu mình chỉ sử dụng 4 combobox để chọn mặt hàng, vấn đê là khi mình nhấp ok để nhập dữ liệu vào sheet thì thay vì chỉ nhập 4 dòng nhưng nó lại nhảy vào cả 8 dòng. Bạn có thể hướng dẫn mình cách khắc phục không? CHÀO BẠN
 
Upvote 0
vấn đê là khi mình nhấp ok để nhập dữ liệu vào sheet thì thay vì chỉ nhập 4 dòng nhưng nó lại nhảy vào cả 8 dòng.
Nhấp chuột vào đây để mở rộng...
Bạn xóa bỏ cái gì đó trong property "Text" của cả 8 combobox, sau đó mỗi câu lệnh gán giá trị vào sheet thí dụ

Cells(1,1) = Combobox1.Value

sửa thành:

If combobox1 <> "" Then Cells(1,1) = Combobox1.Value
 
Upvote 0
Mình áp dụng đoạn code trên cho form nhập liệu của mình không được vì form có quá nhiều combobox và textbox, Mong các bạn chỉ giúp cho cám ơn nhiều ( trước đây mình dùng code như sau :
Sub SALES()
Dim NextRow As Long, i As Long
i = 0
NextRow = Sheets("XUAT").[A65536].End(xlUp).Row + 1
With Sheets("XUAT").Cells(NextRow, 1)
.Offset(i, 0).Value = Val(frmnhaplieu.txtNgay)
.Value = Val(frmnhaplieu.txtNgay)
.Offset(, 2).Value = frmnhaplieu.cboMaKH
.Offset(, 1).Value = frmnhaplieu.txtTenKH
.Offset(, 4).Value = frmnhaplieu.cboMahang
.Offset(, 3).Value = frmnhaplieu.txtTenHang
...
i = 1
...
i = 7
...
 
Lần chỉnh sửa cuối:
Upvote 0
PHP: 
Sub SALES()
Dim NextRow As Long, i As Long
i = 0 
NextRow = Sheets("XUAT").[A65536].End(xlUp).Row + 1
If cboMahang = "" Then Exit Sub
With Sheets("XUAT").Cells(NextRow, 1)
.Value = Val(txtNgay)
.Offset(i, 1).Value = txtTenKH
.Offset(i, 2).Value = cboMaKH
.Offset(i, 3).Value = txtTenHang
.Offset(i, 4).Value = cboMahang
.....
i = 1
If cboMahang1 = "" Then Exit Sub
...

End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
ptm0412 đã viết:
PHP: 
Sub SALES()
Dim NextRow As Long, i As Long
i = 0 
NextRow = Sheets("XUAT").[A65536].End(xlUp).Row + 1
If cboMahang = "" Then Exit Sub
With Sheets("XUAT").Cells(NextRow, 1)
.Value = Val(txtNgay)
.Offset(i, 1).Value = txtTenKH
.Offset(i, 2).Value = cboMaKH
.Offset(i, 3).Value = txtTenHang
.Offset(i, 4).Value = cboMahang
.....
i = 1
If cboMahang1 = "" Then Exit Sub
...
 
End Sub
Nhấp chuột vào đây để mở rộng...

Cho mình hỏi thêm nhé, phải thêm vào code như thế nào để khi nhập mã hàng sai vào cboMahang trên form thì code không báo lỗi (debug) mà chỉ không hiển thị tên hàng ở textTenhang thôi (vì nếu mình đã nhập vài mặt hàng rồi, nếu nhập sai một mã hàng nào đó không có trong DMHH thì nó lại debug, phải thoát ra và nhập lại từ đầu). Và khi mình nhấp Nhap thì chỉ có một mặt hàng được nhập vào sheet thôi dù trên form chọn nhiều mặt hàng.
Thân
 
Lần chỉnh sửa cuối:
Upvote 0
giả sử sub gán tên hàng dựa vào sự kiện after update của cboMahang, thêm vào câu lệnh đỏ như sau:
Mã: 
Sub cboMahang_AfterUpdate ()
[COLOR="Red"]On Error Resume Next[/COLOR]
txtTenhang = ...
End Sub
 
Upvote 0
Bạn xem code và sửa giùm mình luôn nhé, mình sửa một hồi thấy sai tùm lum luôn

Sub SALES()
Dim NextRow As Long, i As Long
i = 0
NextRow = Sheets("XUAT").[A65536].End(xlUp).Row + 1
With Sheets("XUAT").Cells(NextRow, 1)
.Value = Val(frmnhaplieu.NM)
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH
.Offset(, 3).Value = frmnhaplieu.TH
.Offset(, 5).Value = frmnhaplieu.QC
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG
.Offset(, 8).Value = frmnhaplieu.TT
.Offset(, 9).Value = frmnhaplieu.TGN
.Offset(, 10).Value = frmnhaplieu.TG
.Offset(, 11).Value = frmnhaplieu.NDK
.Offset(, 12).Value = frmnhaplieu.GC
'------------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL1, ",", "")) > 0 Then
i = 1
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH1
.Offset(, 3).Value = frmnhaplieu.TH1
.Offset(, 5).Value = frmnhaplieu.QC1
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL1, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG1
.Offset(, 8).Value = frmnhaplieu.TT1
.Offset(, 9).Value = frmnhaplieu.TGN1
'------------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL2, ",", "")) > 0 Then
i = 2
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH2
.Offset(, 3).Value = frmnhaplieu.TH2
.Offset(, 5).Value = frmnhaplieu.QC2
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL2, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG2
.Offset(, 8).Value = frmnhaplieu.TT2
.Offset(, 9).Value = frmnhaplieu.TGN2
'------------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL3, ",", "")) > 0 Then
i = 3
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH3
.Offset(, 3).Value = frmnhaplieu.TH3
.Offset(, 5).Value = frmnhaplieu.QC3
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL3, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG3
.Offset(, 8).Value = frmnhaplieu.TT3
.Offset(, 9).Value = frmnhaplieu.TGN3

'------------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL4, ",", "")) > 0 Then
i = 4
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH4
.Offset(, 3).Value = frmnhaplieu.TH4
.Offset(, 5).Value = frmnhaplieu.QC4
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL4, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG4
.Offset(, 8).Value = frmnhaplieu.TT4
.Offset(, 9).Value = frmnhaplieu.TGN4

'------------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL5, ",", "")) > 0 Then
i = 5
.Offset(, 4).Value = frmnhaplieu.cboMH5
.Offset(, 3).Value = frmnhaplieu.TH5
.Offset(, 5).Value = frmnhaplieu.QC5
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL5, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG5
.Offset(, 8).Value = frmnhaplieu.TT5
.Offset(, 9).Value = frmnhaplieu.TGN5

'------------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL6, ",", "")) > 0 Then
i = 6
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH6
.Offset(, 3).Value = frmnhaplieu.TH6
.Offset(, 5).Value = frmnhaplieu.QC6
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL6, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG6
.Offset(, 8).Value = frmnhaplieu.TT6
.Offset(, 9).Value = frmnhaplieu.TGN6

'------------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL7, ",", "")) > 0 Then
i = 7
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH7
.Offset(, 3).Value = frmnhaplieu.TH7
.Offset(, 5).Value = frmnhaplieu.QC7
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL7, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG7
.Offset(, 8).Value = frmnhaplieu.TT7
.Offset(, 9).Value = frmnhaplieu.TGN7
End If
'------------------------------------------------------------------------------------------
a = MsgBox("cap nhat thanh cong!An OK de tiep tuc!", vbInformation + vbOKOnly, "Cap nhap du lieu thanh cong")
End Sub
Sub Refresh_frmNhapLieu()
'Xoa Tieu de:
frmnhaplieu.NM = ""
frmnhaplieu.MKH = ""
frmnhaplieu.TKH = ""
'-------------------------------
'Xoa chi tiet phieu:
frmnhaplieu.cboMH = ""
frmnhaplieu.TH = ""
frmnhaplieu.QC = ""
frmnhaplieu.SL = ""
frmnhaplieu.DG = ""
frmnhaplieu.TT = ""
frmnhaplieu.TGN = ""
frmnhaplieu.TG = ""
frmnhaplieu.NDK = ""
frmnhaplieu.GC = ""
'-------------------------------
frmnhaplieu.cboMH1 = ""
frmnhaplieu.TH1 = ""
frmnhaplieu.QC1 = ""
frmnhaplieu.SL1 = ""
frmnhaplieu.DG1 = ""
frmnhaplieu.TT1 = ""
'-------------------------------
frmnhaplieu.cboMH2 = ""
frmnhaplieu.TH2 = ""
frmnhaplieu.QC2 = ""
frmnhaplieu.SL2 = ""
frmnhaplieu.DG2 = ""
frmnhaplieu.TT2 = ""
'-------------------------------
frmnhaplieu.cboMH3 = ""
frmnhaplieu.TH3 = ""
frmnhaplieu.QC3 = ""
frmnhaplieu.SL3 = ""
frmnhaplieu.DG3 = ""
frmnhaplieu.TT3 = ""
'-------------------------------
frmnhaplieu.cboMH4 = ""
frmnhaplieu.TH4 = ""
frmnhaplieu.QC4 = ""
frmnhaplieu.SL4 = ""
frmnhaplieu.DG4 = ""
frmnhaplieu.TT4 = ""
'-------------------------------
frmnhaplieu.cboMH5 = ""
frmnhaplieu.TH5 = ""
frmnhaplieu.QC5 = ""
frmnhaplieu.SL5 = ""
frmnhaplieu.DG5 = ""
frmnhaplieu.TT5 = ""
'-------------------------------
frmnhaplieu.cboMH6 = ""
frmnhaplieu.TH6 = ""
frmnhaplieu.QC6 = ""
frmnhaplieu.SL6 = ""
frmnhaplieu.DG6 = ""
frmnhaplieu.TT6 = ""
'-------------------------------
frmnhaplieu.cboMH7 = ""
frmnhaplieu.TH7 = ""
frmnhaplieu.QC7 = ""
frmnhaplieu.SL7 = ""
frmnhaplieu.DG7 = ""
frmnhaplieu.TT7 = ""
End Sub
 
Upvote 0
Trong các biểu thức Offset với i >= 1 bạn phải thêm i vào biểu thức offset đó mới đúng chứ, nếu không có i tham gia vào quá trình gán giá trị xuống cell thì bạn Set giá trị cho biến i làm gì!?
Bạn xem code sau đây nhé:
[highlight=vb]
Sub SALES()
Dim NextRow As Long, i As Long
i = 0
NextRow = Sheets("XUAT").[A65536].End(xlUp).Row + 1
With Sheets("XUAT").Cells(NextRow, 1)
.Value = Val(frmnhaplieu.NM)
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH
.Offset(, 3).Value = frmnhaplieu.TH
.Offset(, 5).Value = frmnhaplieu.QC
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG
.Offset(, 8).Value = frmnhaplieu.TT
.Offset(, 9).Value = frmnhaplieu.TGN
.Offset(, 10).Value = frmnhaplieu.TG
.Offset(, 11).Value = frmnhaplieu.NDK
.Offset(, 12).Value = frmnhaplieu.GC
'--------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL1, ",", "")) > 0 Then
i = 1
'Biến i phải nằm trong biểu thức Offset, như sau:
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH1
.Offset(i, 3).Value = frmnhaplieu.TH1
.Offset(i, 5).Value = frmnhaplieu.QC1
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL1, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG1
.Offset(i, 8).Value = frmnhaplieu.TT1
.Offset(i, 9).Value = frmnhaplieu.TGN1
'------------------------------------------------------------------------------------------
If Val(Replace(frmnhaplieu.SL2, ",", "")) > 0 Then
i = 2
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH2
.Offset(i, 3).Value = frmnhaplieu.TH2
.Offset(i, 5).Value = frmnhaplieu.QC2
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL2, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG2
.Offset(i, 8).Value = frmnhaplieu.TT2
.Offset(i, 9).Value = frmnhaplieu.TGN2
'.............................................
'Tương tự cho các code bên dưới
'.............................................
End Sub
[/highlight]
 
Upvote 0
Nguyên đoạn code xe lửa trên không có lỗi do sai mã hàng.
Lỗi nằm trong những đoạn code gán tên hàng cho textbox THi
Những đoạn code đó không có trong cái xe lửa trên.

Cái xe lửa trên, ngoài lỗi như cadafi nói, còn 1 lỗi là có quá trời If mà không có cái End If nào. Thay vào câu If ..... Sao em không dùng câu:

i = 1
If MH1 = "" Then Exit Sub
....
i = 2
If MH2 = "" Then Exit Sub
....
i = tiếp theo

Nói thêm:

Cấu trúc If Then nếu viết trên cùng dòng thì không cần End If

Nên nếu dùng câu If Val( SL1...) > 0 Then i = 1
Phải viết trên cùng dòng.
 
Lần chỉnh sửa cuối:
Upvote 0
Các bạn ơi không hiểu sao mình làm theo cách của 2 bạn Ca_dafi và Ptm0412 nó đều báo lỗi ở dong Ensub
 
Upvote 0
Anh ptm0412 xem lại code của em xem nó còn lỗi ở chỗ nào nhé.
CODE xe lửa đây :
Sub CapNhapPhieu()
Dim NextRow As Long, i As Long
i = 0
NextRow = Sheets("XUAT").[A65536].End(xlUp).Row + 1
With Sheets("XUAT").Cells(NextRow, 1)
.Value = Val(frmnhaplieu.NM)
.Offset(, 0).Value = frmnhaplieu.NM
.Offset(, 2).Value = frmnhaplieu.MKH
.Offset(, 1).Value = frmnhaplieu.TKH
.Offset(, 4).Value = frmnhaplieu.cboMH
.Offset(, 3).Value = frmnhaplieu.TH
.Offset(, 5).Value = frmnhaplieu.QC
.Offset(, 6).Value = Val(Replace(frmnhaplieu.SL, ",", ""))
.Offset(, 7).Value = frmnhaplieu.DG
.Offset(, 8).Value = frmnhaplieu.TT
.Offset(, 9).Value = frmnhaplieu.TGN
.Offset(, 10).Value = frmnhaplieu.TG
.Offset(, 11).Value = frmnhaplieu.NDK
.Offset(, 12).Value = frmnhaplieu.GC
'------------------------------------------------------------------------------------------
i = 1
If MH1 = "" Then Exit Sub
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH1
.Offset(i, 3).Value = frmnhaplieu.TH1
.Offset(i, 5).Value = frmnhaplieu.QC1
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL1, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG1
.Offset(i, 8).Value = frmnhaplieu.TT1
.Offset(i, 9).Value = frmnhaplieu.TGN1
'------------------------------------------------------------------------------------------
i = 2
If MH2 = "" Then Exit Sub
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH2
.Offset(i, 3).Value = frmnhaplieu.TH2
.Offset(i, 5).Value = frmnhaplieu.QC2
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL2, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG2
.Offset(i, 8).Value = frmnhaplieu.TT2
.Offset(i, 9).Value = frmnhaplieu.TGN2
'------------------------------------------------------------------------------------------
i = 3
If MH3 = "" Then Exit Sub
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH3
.Offset(i, 3).Value = frmnhaplieu.TH3
.Offset(i, 5).Value = frmnhaplieu.QC3
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL3, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG3
.Offset(i, 8).Value = frmnhaplieu.TT3
.Offset(i, 9).Value = frmnhaplieu.TGN3

'------------------------------------------------------------------------------------------
i = 4
If MH4 = "" Then Exit Sub
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH4
.Offset(i, 3).Value = frmnhaplieu.TH4
.Offset(i, 5).Value = frmnhaplieu.QC4
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL4, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG4
.Offset(i, 8).Value = frmnhaplieu.TT4
.Offset(i, 9).Value = frmnhaplieu.TGN4

'------------------------------------------------------------------------------------------
i = 5
If MH5 = "" Then Exit Sub
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH5
.Offset(i, 3).Value = frmnhaplieu.TH5
.Offset(i, 5).Value = frmnhaplieu.QC5
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL5, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG5
.Offset(i, 8).Value = frmnhaplieu.TT5
.Offset(i, 9).Value = frmnhaplieu.TGN5

'------------------------------------------------------------------------------------------
i = 6
If MH6 = "" Then Exit Sub
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH6
.Offset(i, 3).Value = frmnhaplieu.TH6
.Offset(i, 5).Value = frmnhaplieu.QC6
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL6, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG6
.Offset(i, 8).Value = frmnhaplieu.TT6
.Offset(i, 9).Value = frmnhaplieu.TGN6

'------------------------------------------------------------------------------------------
i = 7
If MH7 = "" Then Exit Sub
.Offset(i, 0).Value = frmnhaplieu.NM
.Offset(i, 2).Value = frmnhaplieu.MKH
.Offset(i, 1).Value = frmnhaplieu.TKH
.Offset(i, 4).Value = frmnhaplieu.cboMH7
.Offset(i, 3).Value = frmnhaplieu.TH7
.Offset(i, 5).Value = frmnhaplieu.QC7
.Offset(i, 6).Value = Val(Replace(frmnhaplieu.SL7, ",", ""))
.Offset(i, 7).Value = frmnhaplieu.DG7
.Offset(i, 8).Value = frmnhaplieu.TT7
.Offset(i, 9).Value = frmnhaplieu.TGN7

End Sub (nó báo lỗi ở đây)

Sub Refresh_frmNhapLieu()
'Xoa Tieu de:
frmnhaplieu.NM = ""
frmnhaplieu.MKH = ""
frmnhaplieu.TKH = ""
'-------------------------------
'Xoa chi tiet phieu:
frmnhaplieu.cboMH = ""
frmnhaplieu.TH = ""
frmnhaplieu.QC = ""
frmnhaplieu.SL = ""
frmnhaplieu.DG = ""
frmnhaplieu.TT = ""
frmnhaplieu.TGN = ""
frmnhaplieu.TG = ""
frmnhaplieu.NDK = ""
frmnhaplieu.GC = ""
'-------------------------------
frmnhaplieu.cboMH1 = ""
frmnhaplieu.TH1 = ""
frmnhaplieu.QC1 = ""
frmnhaplieu.SL1 = ""
frmnhaplieu.DG1 = ""
frmnhaplieu.TT1 = ""
'-------------------------------
frmnhaplieu.cboMH2 = ""
frmnhaplieu.TH2 = ""
frmnhaplieu.QC2 = ""
frmnhaplieu.SL2 = ""
frmnhaplieu.DG2 = ""
frmnhaplieu.TT2 = ""
'-------------------------------
frmnhaplieu.cboMH3 = ""
frmnhaplieu.TH3 = ""
frmnhaplieu.QC3 = ""
frmnhaplieu.SL3 = ""
frmnhaplieu.DG3 = ""
frmnhaplieu.TT3 = ""
'-------------------------------
frmnhaplieu.cboMH4 = ""
frmnhaplieu.TH4 = ""
frmnhaplieu.QC4 = ""
frmnhaplieu.SL4 = ""
frmnhaplieu.DG4 = ""
frmnhaplieu.TT4 = ""
'-------------------------------
frmnhaplieu.cboMH5 = ""
frmnhaplieu.TH5 = ""
frmnhaplieu.QC5 = ""
frmnhaplieu.SL5 = ""
frmnhaplieu.DG5 = ""
frmnhaplieu.TT5 = ""
'-------------------------------
frmnhaplieu.cboMH6 = ""
frmnhaplieu.TH6 = ""
frmnhaplieu.QC6 = ""
frmnhaplieu.SL6 = ""
frmnhaplieu.DG6 = ""
frmnhaplieu.TT6 = ""
'-------------------------------
frmnhaplieu.cboMH7 = ""
frmnhaplieu.TH7 = ""
frmnhaplieu.QC7 = ""
frmnhaplieu.SL7 = ""
frmnhaplieu.DG7 = ""
frmnhaplieu.TT7 = ""
End Sub
 
Upvote 0
Trước cái chữ End Sub bạn phải gõ vào chữ End With nữa mới đúng!Vì cái đầu xe lửa là With.... thì cái đuôi xe lửa phải End With
PHP: 
Sub CapNhapPhieu()
Dim NextRow As Long, i As Long
i = 0
NextRow = Sheets("XUAT").[A65536].End(xlUp).Row + 1
With Sheets("XUAT").Cells(NextRow, 1)
  ................
End With     ''<===Thêm cái này vào nữa nhé
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Xin lỗi nhe! mình dốt quá nên hỏi nữa nè ( dốt nhờ hỏi nhiều cũng biết chút xíu)
Bạn Ca_dafi ơi, mình chọn 4,5 mặt hàng nhưng nó chỉ nhập vào có 1 mặt hàng thôi. Sắp tới giờ đưa ông Táo rồi, bạn làm ơn giúp mình nhé, rất cảm ơn, ! Thân
 
Upvote 0
huyen891977 đã viết:
Xin lỗi nhe! mình dốt quá nên hỏi nữa nè ( dốt nhờ hỏi nhiều cũng biết chút xíu)
Bạn Ca_dafi ơi, mình chọn 4,5 mặt hàng nhưng nó chỉ nhập vào có 1 mặt hàng thôi. Sắp tới giờ đưa ông Táo rồi, bạn làm ơn giúp mình nhé, rất cảm ơn, ! Thân
Nhấp chuột vào đây để mở rộng...

Bạn đưa file lên luôn cho dễ hình dung, không biết code bạn đã sửa như thế nào? Khó trả lời quá!
 
Upvote 0
Cảm ơn bạn trước nhé. Mình gởi file đây :
 
Lần chỉnh sửa cuối:
Upvote 0

File đính kèm

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

LuuAnh980
Tham chiếu trong công thức bị giảm.
Trả lời
2
Đọc
39
huuthang_bd
huuthang_bd
N
Cách đánh số thứ tự không liên tục (đánh số lại từ đầu khi cột bên cạnh có giá trị)
Trả lời
8
Đọc
154
Phuocam
Phuocam
Thanh12Loan
Xin chào các bác. Em bị lỗi khung hiển thị excell Spreadsheet.
Trả lời
0
Đọc
26
Thanh12Loan
Thanh12Loan
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
1
Đọc
1K
GPE-Trợ Lý
GPE-Trợ Lý
hoamattroicoi
Trích xuất file *.xml sang Excel cho hóa đơn điện tử áp dụng nghị định 123/2020
    • Thích
    • Yêu thích
    • Cảm ơn
5 6 7
Trả lời
123
Đọc
30K
kunkoi9390
K
H
file bị lỗi value khi copy qua file mới.
Trả lời
0
Đọc
24
hoanang_bn84
H
vanle33
File không thao tác gì khi mở ra vẫn hỏi lưu lại khi tắt đi.
Trả lời
9
Đọc
128
hoangtuan.net
hoangtuan.net
H
Cách tạo nhắc nhở trong excel và tự động mở file khi có nhắc nhở
Trả lời
18
Đọc
6K
ongke0711
ongke0711
G
Chuyển Data từ hàng và cột về dạng cột
Trả lời
11
Đọc
170
ptm0412
ptm0412
quangminhici
Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail.
    • Thích
    • Yêu thích
Trả lời
16
Đọc
2K
quyenpv
quyenpv
P
Tại sao khi đánh số thì bị mất hai số cuối
Trả lời
4
Đọc
18K
vanle33
vanle33
HeSanbi
  • Đã giải quyết
LocalizeXL v1.71 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3
Trả lời
58
Đọc
9K
HeSanbi
HeSanbi
linhvu2807
Lỗi hàm công thức Querry
Trả lời
0
Đọc
46
linhvu2807
linhvu2807
C
Tìm dữ liệu khác nhau trong 2 file hoặc 2 sheet trong excel
Trả lời
2
Đọc
135
HUONGHCKT
H
D
Paste dữ liệu, bỏ qua các cell ẩn
2
Trả lời
30
Đọc
46K
HUONGHCKT
H
phatnguyen7301
  • Question Question
Tạo âm thanh khi nhấn vào một phím
Trả lời
3
Đọc
149
yaaasoo01
Y
B
Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.
Trả lời
11
Đọc
472
bipbo2008
B
HeSanbi
  • Question Question
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
2
Đọc
271
HeSanbi
HeSanbi
NguyenthiH
Sao dùng Ctl + H thay thế không đúng.
Trả lời
19
Đọc
267
NguyenthiH
NguyenthiH
N
Lỗi định dạng số Excel 2019 - Nguyên nhân và cách khắc phục
Trả lời
1
Đọc
60
ptm0412
ptm0412
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.
Back
Top Bottom