P
phuoc hieu
Guest
- 21/1/16
- 2
- 0
- 1
- 40
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 cám ơn nhiều
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 cám ơn nhiều
