Chương trình Quản lý nhân sự (giáo viên) Code VB + Access

[tctuvan]

Link tải miễn phí luận văn gồm cả source code


Chức năng chính

Hệ thống
Cập nhật
Quản lý hồ sơ
Tìm kiếm
Thống kê báo cáo
Trợ giúp
Thoát

Quản lý nhân sự (giáo viên) VB + Access

Dung lượng : 10MB

Nội dung chi tiết


Do Drive thay đổi chính sách, nên một số link cũ yêu cầu duyệt download. các bạn chỉ cần làm theo hướng dẫn.
Password giải nén nếu cần: ket-noi.com | Bấm trực tiếp vào Link để tải:
Code:

You must be registered for see links

Báo cáo:
Chương trình quản lý nhân sự bằng Access

 

Tags: EXCEL QUAN LI NHAN SU GIAO VIEN

[HieuLam829]

Giúp với
em đang bí về khúc macro của excel, cũng là về nhân sự, do em muốn tìm hiểu thêm,
có 2 sheet, sheet1 là quan lý nhân sự sheet2 là data
Khi thay đổi sheet1 thì data đổi theo, em đã làm được ở macro
cái tiếp theo là, ở cột S, khi em nhập OFF ( tức là người đó nghĩ việc) thì cột sheet Data sẽ không hiện tên người đó ra
đây là hàm em đã chạy ở bước 1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' Dim iHang As Long
Application.ScreenUpdating = False
If Not Intersect(Range("A1:CA100"), Target) Is Nothing Then Sheets("DATA").Range("A1:CA100").Value = Range("A1:CA100").Value
‘If Not Intersect(Range("S5:S100"), Target) Is Nothing Then Sheets("DATA").Range(Null).Value = Range("S5:S100").Value
End Sub

Được giúp em với a, em Thank nhiều

 

[tctuvan]

Giúp với
em đang bí về khúc macro của excel, cũng là về nhân sự, do em muốn tìm hiểu thêm,
có 2 sheet, sheet1 là quan lý nhân sự sheet2 là data
Khi thay đổi sheet1 thì data đổi theo, em đã làm được ở macro
cái tiếp theo là, ở cột S, khi em nhập OFF ( tức là người đó nghĩ việc) thì cột sheet Data sẽ không hiện tên người đó ra
đây là hàm em đã chạy ở bước 1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' Dim iHang As Long
Application.ScreenUpdating = False
If Not Intersect(Range("A1:CA100"), Target) Is Nothing Then Sheets("DATA").Range("A1:CA100").Value = Range("A1:CA100").Value
‘If Not Intersect(Range("S5:S100"), Target) Is Nothing Then Sheets("DATA").Range(Null).Value = Range("S5:S100").Value
End Sub

Được giúp em với a, em Thank nhiều

Bạn thử áp dụng code này xem

    If Target.Address = "$A$2" And Target.Value = "OFF" Then

	   Shapes("Rectangle 1").Fill.Transparency = 1#	// ẩn
    Else
	   Shapes("Rectangle 1").Fill.Transparency = 0#  // hiện

    End If