File quản lý nhân viên (1 người xem)

[yeudoi]

Mình đang làm ( nhưng chưa xong) file quản lý nhân viên. Các bạn xem thử và nếu có thể làm tiếp tục ( hoặc có thể góp ý xây dựng thêm) . Trong này mình dùng advanced filter để lọc các bạn có thể tham khảo để áp dụng cho công việc của mình. Xin cảm ơn
P/s: Mình đã sửa file lại khi chọn hồ sơ cá nhân được nhanh hơn.

 

[anhtuan1066]

Oh... sao bấm vào người nào nó cũng báo là CHƯA CÓ HÌNH thế nhỉ? Có gì đó sai sót chăng?
ANH TUẤN

 

[yeudoi]

Bạn bấm vào Hồ Quang Hướng và Nguyễn Quí thử bởi những người khác mình chưa đặt tên hình. Muốn nổi hình thì tên file hình phải trùng với mã số nhân viên. Ở đây mình dùng sự kiện Worksheet_change() vì vậy khi chọn mã số nhân viên xong bạn phải kích chọn một ô nào đó thì hình mới thay đổi.

 

[anhtuan1066]

Ko phải bạn ơi... là như vầy nè... đầu tiên tôi mở file ra thì có sẳn 1 hình... sau đó khi chọn mã nhân viên thì chẳng thấy hình nảo hiên lên nữa... Chọn tất tần tật luôn, có bao nhiêu người tôi chọn hết nhưng cũng ko ăn thua... Thao tác sai chổ nào chăng?

 

[duongsatdn]

Như anh Yêu đời đã hướng dẫn, sau khi chọn tên nhân viên, phải kích vào một ô nào đó thì mới hiển thị ảnh nhân viên được chọn.
Em thay Worksheet_change() .... bằng Worksheet_Calculate() thì chọn nhân viên nào thì lập tức hiển thị ảnh luôn.
Cảm ơn anh Yêu đời!!!

 

[anhtuan1066]

Uh... xin lổi, tôi nhầm... có 2 tấm hình, nhưng mà nó cập nhật chậm quá... Nhìnchung chương trình rất hay.. tôi sẽ áp dụng vào công việc của mình mới dc...
Tuy nhiên xin góp ý 1 chút... khi vào chương trình thì bạn muốn dọn dẹp các toolbar thế nào là tùy ý, nhưng khi thoát ra nhớ trả lại như củ... VD như thanh Formula, Standard... bạn dẹp nó đi mà khi thoát ra lại "quên" trã lại... hi... hi...
Nên nhớ co khi máy tính ko phải chỉ 1 người xài... dọn dẹp như thế sẽ có người la làng đấy!
ANH TUẤN

 

[yeudoi]

Uh tại mình đang làm chưa được hoàn chỉnh. Khi nhập liệu tại Data1 khi nhập có thể bị sai format tại mình chưa chỉnh lại. Mấy cái đó mình biết nhưng chưa làm, xin cảm ơn anhtuan1066

 

[yeudoi]

Tôi muốn làm một userform để chỉnh sửa dữ liệu, nhưng khi hiển thị dữ liệu ngày từ listbox vào textbox để chỉnh sửa thì ngày lại không hiển thị dữ liệu theo kiểu dd/mm/yyyy mà là theo dữ liệu số mong mọi người giúp đỡ.

 

[quangiang]

Bạn làm như thế này xem. Ví dụ :
Me.XNgayCTu.Value = FormatDateTime(Me.XSTT.Column(3), 0)

 

[yeudoi]

Mình làm như vậy, nhưng nếu cột đó không có dữ liệu thì vẫn hiển thị formatdatetime nhưng là 12.00 giờ. Nay mình muốn bỏ nếu không có thì bỏ trống thì phải làm sao. Mình muốn hỏi thêm file mình tự dưng lưu thì lúc dung lượng lớn lên, lúc thì trở lại , lúc thì xử lý nhanh lúc lại chậm mình không biết tại sao.

 

[Bong05]

Trên mục cài đặt có dòng :Thông tin đơn vị nhưng em thấy hình như không hoạt động được ạ.

 

[yeudoi]

Uh cái đó mình đang làm nên chưa có

 

[quangiang]

Các vấn đề bạn hỏi mình có ý kiến sau ( Không chắc lắm , dùng để tham khảo ) :
1/ Nếu ô rổng bạn nên lồng phương thức if - then vào , vd :
if Me.XNgay <> "" then
Me.XNgay = formatdatetime(me.Xngay,0)
else
Me.Xngay = ""
end if
2/ Không nên dùng công thức trong bảng tính quá nhiều sẽ làm chậm tốc độ xử lý khi chạy macro ( Nhất là khi dử liệu >10.000 dòng ) . Hạn chế dùng sự cố trong worksheet (sẽ làm chương trình chạy châm hơn )
3/ Xin tham khảo thêm file đính kèm . ( Chú ý dùng thêm hàm SuaNgay

 

[dmtdmtbb]

Mình làm như vậy, nhưng nếu cột đó không có dữ liệu thì vẫn hiển thị formatdatetime nhưng là 12.00 giờ. Nay mình muốn bỏ nếu không có thì bỏ trống thì phải làm sao. Mình muốn hỏi thêm file mình tự dưng lưu thì lúc dung lượng lớn lên, lúc thì trở lại , lúc thì xử lý nhanh lúc lại chậm mình không biết tại sao.

- Sử dụng hàm Format như thế này, có thì format còn không thì chẳng ảnh hưởng gì tới hoà bình thế giới !
vd: Textbox1 = Format(Cells(1,1),"dd/mm/yyyy")

 

[yeudoi]

Mình mới làm thêm được mục chỉnh sửa thông tin cá nhân. Tuy nhiên khi chỉnh sửa tên vẫn chưa chỉnh được tên bên thông tin gia đình. Mong mọi người làm tiếp tục và cho ý kiến.

 

[blueboy]

Chào các bạn, dựa trên mẫu của bạn yêu đời, mình muốn thêm thời hạn nâng lương (6 tháng hoặc 1 năm), mức độ nâng lương (Giả sử 5% hoặc 10% mức lương hiện tại). Đến thời điểm đã định thong báo những người đến hạn điều chỉnh lương.... Có thể giup mình được không ạ. Cám ơn

 

[nk8019]

Mình mù tịt về lập trình excel,mình nhập thông tin cho nhân viên mới thì toàn báo lỗi module không chạy được!Ai đó có thể giúp minh được không?thanks

 

[phuongc5]

Mọi người ơi, mình vào file quản lý nhân viên bây giờ mở excel các thanh trên toolbar của mình thay đổi hết rồi, ko biết cách sửa thế nào nữa. Huhu. Giúp mình với

 

[yeudoi]

Bạn bấm nút thoát (X) là nó trở về lại menu cũ mà

 

[LanHa92]

sao mình tải file xuống không ra phông chữ tiếng Việt giúp mình với