khamha
Không có việc gì khó...
- Tham gia
- 4/6/10
- Bài viết
- 662
- Được thích
- 846
- Nghề nghiệp
- CNVC Laos
Private Sub Worksheet_Change(ByVal Target As Range)
1. Application.Calculation = xlCalculationManual
2. If Target.Column = 42 And IsNumeric(Target) Then
3. If Target.Row < 3 Then Exit Sub
4. Target.Offset(, 27).FormulaR1C1 =
"=RC[-27]-RC[-17]-RC[-14]-RC[-11]-RC[-8]-RC[-2]"
End If
Application.Calculation = xlCalculationAutomatic
End Sub
Nhờ sửa lại như sau:
- Dòng số 2 thay cột 42 thành AF3:AF60 ( Chỉ cho hoạt động
khi ta tac động đến)
- Dòng số 4 thay bằng Range("AF3").Formula = "=
AP3-AZ3-BC3-BF3-BI3-BO3" Và chỉ cho hoạt động đến Cell 60
Cảm ơn các bạn.
1. Application.Calculation = xlCalculationManual
2. If Target.Column = 42 And IsNumeric(Target) Then
3. If Target.Row < 3 Then Exit Sub
4. Target.Offset(, 27).FormulaR1C1 =
"=RC[-27]-RC[-17]-RC[-14]-RC[-11]-RC[-8]-RC[-2]"
End If
Application.Calculation = xlCalculationAutomatic
End Sub
Nhờ sửa lại như sau:
- Dòng số 2 thay cột 42 thành AF3:AF60 ( Chỉ cho hoạt động
khi ta tac động đến)
- Dòng số 4 thay bằng Range("AF3").Formula = "=
AP3-AZ3-BC3-BF3-BI3-BO3" Và chỉ cho hoạt động đến Cell 60
Cảm ơn các bạn.
