Viết code cho form

[DUONGKHALY]

Em tìm trên diễn dàn có 1 đoạn code gần giống của em, em đã tạo form rồi và nhờ anh chị chỉnh sửa lại đoạn code dùm em. Năm Học phải là số. Xin cảm ơn.

 

[khoahoc78]

Ý bạn là nhập các thông tin đó vào các ô màu vàng khi ấn nút nhập từ form nhap du lieu chứ gì!

 

[NH_DK]

Em tìm trên diễn dàn có 1 đoạn code gần giống của em, em đã tạo form rồi và nhờ anh chị chỉnh sửa lại đoạn code dùm em. Năm Học phải là số. Xin cảm ơn.

Vậy năm học bạn muốn là gì? không hiểu ý bạn lắm! Bạn nói rõ hơn không?

 

[DUONGKHALY]

Vậy năm học bạn muốn là gì? không hiểu ý bạn lắm! Bạn nói rõ hơn không?

Ah. Mình bị nhằm. Năm học phải là số. Cảm ơn

 

[NH_DK]

Ah. Mình bị nhằm. Năm học phải là số. Cảm ơn

Bạn xem đúng ý mình chưa nhé!

 

[DUONGKHALY]

Vâng đúng rồi, phiền bạn lần nữa, viết dùm mình thêm 1 cái nút xóa trên form, để xóa dữ liệu dùm, cảm ơn.

.....................................................
Bạn có thể giải thích dùm mình đoạn này iRow = ws.Cells(Rows.Count, 7).End(xlUp).Row + 5
ws.Cells(iRow, 7).Value = Me.Txt1.Value
ws.Cells(iRow + 1, 7).Value = Me.Txt2.Value
ws.Cells(iRow + 2, 7).Value = Me.Txt3.Value
ws.Cells(iRow + 3, 7).Value = Me.Txt4.Value
ws.Cells(iRow + 4, 7).Value = Me.Txt5.Value
ws.Cells(iRow + 4, 8).Value = Me.Txt6.Value

 

[NH_DK]

Vâng đúng rồi, phiền bạn lần nữa, viết dùm mình thêm 1 cái nút xóa trên form, để xóa dữ liệu dùm, cảm ơn.

.....................................................
Bạn có thể giải thích dùm mình đoạn này iRow = ws.Cells(Rows.Count, 7).End(xlUp).Row + 5
ws.Cells(iRow, 7).Value = Me.Txt1.Value
ws.Cells(iRow + 1, 7).Value = Me.Txt2.Value
ws.Cells(iRow + 2, 7).Value = Me.Txt3.Value
ws.Cells(iRow + 3, 7).Value = Me.Txt4.Value
ws.Cells(iRow + 4, 7).Value = Me.Txt5.Value
ws.Cells(iRow + 4, 8).Value = Me.Txt6.Value

File có thêm nút xoá nè...........
- Đoạn code đó chỉ là vị trí của dòng và cột thôi bạn ơi. Bạn cứ xem kỹ nhé!

 

[DUONGKHALY]

Cho em hỏi thêm, khi em khóa sheet này lại thì nhập dữ liệu không được nữa. Cảm ơn

 

[NH_DK]

Cho em hỏi thêm, khi em khóa sheet này lại thì nhập dữ liệu không được nữa. Cảm ơn

Bạn xem có đúng ý bạn không nhé! Khoa sheet nhưng các ô nhập liệu không khoá thì vẫn nhập được. Còn khoá tất cả các ô thì chịu luôn đó bạn ah!