giúp sửa code form nhập dữu liệu

[chandoi1992xhn]

giúp em sửa code trong form nhập dữ liệu trong sheet 2
toàn lên số 1

 

[giaiphap]

giúp em sửa code trong form nhập dữ liệu trong sheet 2
toàn lên số 1

Sửa code lại thế này.

Private Sub btn_nhap_Click()
    Dim i%, lastrow%
    lastrow = Cells(Rows.Count, "B").End(xlUp).Row
    For i = 1 To 9
         Range("B" & lastrow + 1).Offset(, i - 1 + IIf(i > 8, 2, IIf(i > 5, 1, 0))).Value = Me.Controls("Textbox" & i).Text
    Next i
End Sub

 

[truongvu317]

loaiphoi = txt_loaiphoi.TextAlign
kichthuc = txt_kichthuoc.TextAlign
dai = txt_dai.TextAlign
rong = txt_rong.TextAlign

gõ nhầm code, đúng ra là loaiphoi = txt_loaiphoi.Text

 

[đungtb2]

giúp em sửa code trong form nhập dữ liệu trong sheet 2
toàn lên số 1

Name của các textbox so với code của bạn đang chả cái nào khớp nhau. Bạn sửa lại cho khớp nhau là được.

 

[be_09]

giúp em sửa code trong form nhập dữ liệu trong sheet 2
toàn lên số 1

Góp ý cho bạn, vấn đề dùng Form để nhập liêu là chưa cần thiết, vì những vấn đề sau:
1/ Bạn cần cho biết kích thước từng loại phôi có khuôn mẫu chuẩn hay không?
2/ Nếu từng loại phôi có khuôn mẫu kích thước chuẩn thì nên sử dụng một danh mục để gán vào Form sẽ nhanh và việc nhập liệu sẽ được thống nhất trong, khi tổng hợp thì sẽ chính xác hơn.
3/ Sau khi đã thống nhất về danh mục và cấu trúc ở sheet theo dõi thì mới tính đến việc áp dụng lên Form sẽ như thế nào? Vì cách làm như bạn nêu ở bài 1 là không hiệu quả.

 

[chandoi1992xhn]

loaiphoi = txt_loaiphoi.TextAlign
kichthuc = txt_kichthuoc.TextAlign
dai = txt_dai.TextAlign
rong = txt_rong.TextAlign

gõ nhầm code, đúng ra là loaiphoi = txt_loaiphoi.Text

Name của các textbox so với code của bạn đang chả cái nào khớp nhau. Bạn sửa lại cho khớp nhau là được.

Bài đã được tự động gộp: 22/3/20

minh cảm ơn b nhiều ạ

Bài đã được tự động gộp: 22/3/20

minh cảm ơn b nhiều ạ

Name của các textbox so với code của bạn đang chả cái nào khớp nhau. Bạn sửa lại cho khớp nhau là được.

mình cảm ơn b nha