Nhờ giúp về Form Excel.

[duythanhdl]

Chào các anh chị.
http://www.pcworld.com.vn/articles/...12/1185346/tao-form-nhap-du-lieu-trong-excel/Hiện tại em đang rất cần thiết kế một form nhập liệu.
Anh chị có thể giúp em hoặc cho em xin hướng dẫn chi tiết và có hình ảnh minh họa được không ạ>Nếu có ai giúp em luôn thì em biết ơn lắm lắm.
em muốn làm form nhập liệu giống file nhập liệu ở dưới , trong sheet form của file quan ly ho so với đầy đủ nội dung quan ly hồ sơ.
Riêng phần phân loại thì sẽ tại list để chọn gồm: ĐB, AThT, ATrT, ATĐ, AĐT. Mong anh chỉ dẫn giúp em. Cảm ơn anh nhiều.

 

[khoa140383]

Trên diễn đàn nhiều Form lắm bạn ơi. Bạn chỉ cần tìm kiếm là ra thôi mà.

Have a nice day !!!

 

[thanhphuong]

Chào các anh chị.
Hiện tại em đang rất cần thiết kế một form nhập liệu.
Anh chị có thể giúp em hoặc cho em xin hướng dẫn chi tiết và có hình ảnh minh họa được không ạ>Nếu có ai giúp em luôn thì em biết ơn lắm lắm.
em muốn làm form nhập liệu giống file nhập liệu ở dưới , trong sheet form của file quan ly ho so với đầy đủ nội dung quan ly hồ sơ.
Riêng phần phân loại thì sẽ tại list để chọn gồm: ĐB, AThT, ATrT, ATĐ, AĐT. Mong anh chỉ dẫn giúp em. Cảm ơn anh nhiều.

Dùng Validation để tạo lis
Dùng Record macro để ghi lại thao tác rồi chỉnh sửa
Cuối cùng được code như thế này

Sub Chep()
    If WorksheetFunction.CountA(Sheet1.Range("C8:C18")) = 0 Then
        MsgBox "Chua nhap lieu", , "Chu y"
        Exit Sub
    End If
    Dim n As Long
    n = Sheet2.Range("C65000").End(xlUp).Row
    Sheet1.Range("C8:C18").Copy
    Sheet2.Range("C" & n + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    Sheet2.Range("C" & n + 1).Validation.Delete
    If n = 3 Then Sheet2.Range("B" & n + 1) = 1 Else Sheet2.Range("B" & n + 1) = Sheet2.Range("B" & n) + 1
End Sub

Xem file đính kèm

 

[thanhphuong]

Mode xóa giùm bài này
Cám ơn

 

[Đặng Kim Ngọc]

Mình xin mượn file sẵn của bạn Thanh Phương để thiết lập tạm mẫu form khác. Em xem thử nhé!

 

[duythanhdl]

Thế này là quá tốt rùi. Chị có thể giúp em viết code được không ạ. Cám ơn chị nhiều lắm!