Nhờ anh chị tạo giúp cách tạo form nhập liệu cho file excell

[olovetccb]

Nhờ anh chị tạo giúp form nhập liệu và form truy xuất dữ liệu, có cách nào để những người về hưu sẽ bị chuyển đi qua 1 sheet khác được không? em khong biết vba nên mong được anh chị hướng dẫn thật cụ thể. em cảm ơn nhiều.

 

[viehoai]

Nhờ anh chị tạo giúp form nhập liệu và form truy xuất dữ liệu, có cách nào để những người về hưu sẽ bị chuyển đi qua 1 sheet khác được không? em khong biết vba nên mong được anh chị hướng dẫn thật cụ thể. em cảm ơn nhiều.

1. Bạn không nói rõ bạn muốn nhập những nội dung nào?
2. Sao bạn không nhập trực tiếp vào Sheet và bạn muốn vào Form. Nhập Form bất tiện hơn Sheet ngoại trừ một số trường hợp đặc biệt khác. Với dữ liệu nhập nhiều như bạn tôi thấy không nên nhập từ Form, vấn đề nhập sửa từ Form khó khăn không dễ (không phải là không làm được)
3. Chuyển những người về hưu sang sheet khác dự vào điều kiện gì hở bạn?

 

[olovetccb]

em muốn nhập toàn bộ (trừ mấy cột nâng lương tự động), vì dữ liệu nhiều quá nên em muốn nhập form và truy xuất thông qua form để lỡ có delete nhầm 1 ô nào đó thì bất tiện, còn em muốn dựa vào ngày tháng năm sinh để tính hưu, nam 60, nữ 55, anh chỉ cách giúp em làm sao cứ tính từ ngày sinh đến ngày tháng hiện tại đủ tuổi hưu là sẽ chuyển toàn bộ dữ liệu của người đó ra chổ khác.

 

[tvxdgt]

em muốn nhập toàn bộ (trừ mấy cột nâng lương tự động), vì dữ liệu nhiều quá nên em muốn nhập form và truy xuất thông qua form để lỡ có delete nhầm 1 ô nào đó thì bất tiện, còn em muốn dựa vào ngày tháng năm sinh để tính hưu, nam 60, nữ 55, anh chỉ cách giúp em làm sao cứ tính từ ngày sinh đến ngày tháng hiện tại đủ tuổi hưu là sẽ chuyển toàn bộ dữ liệu của người đó ra chổ khác.

file nhập liệu trên diễn đàn có nhiều người hỏi rồi mà bạn. Đây là một file nhập liệu mình cũng tải trên diễn đàn. Bạn chỉ cần thay đổi code cho hợp với file của bạn là được. Chúc thành công.

 

[tvxdgt]

còn em muốn dựa vào ngày tháng năm sinh để tính hưu, nam 60, nữ 55, anh chỉ cách giúp em làm sao cứ tính từ ngày sinh đến ngày tháng hiện tại đủ tuổi hưu là sẽ chuyển toàn bộ dữ liệu của người đó ra chổ khác.

Bạn thêm đoạn code sau để lọc ra người về hưu qua sheet khác.

Sub Macro1()
Sheets("sheet1").Activate
For i = 2 To 71
If Cells(i, 10) = Year(Now()) Then
    Range(Cells(i, 1), Cells(i, 50)).Select
    Selection.Cut
    Sheets("Sheet2").Select
    Cells(i, 1).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range(Cells(i, 1), Cells(i, 50)).Select
    Selection.Delete Shift:=xlUp
    End If
    Next
End Sub