ngh_khanh
Thành viên mới
- Tham gia
- 14/2/11
- Bài viết
- 45
- Được thích
- 25
Em có đoạn code sau:
Không hiểu code vẫn chạy chưa được ưng ý.
AC xem và hoàn thiện dùm em nha!
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Not Intersect([B2:B1000], Target) Is Nothing Then
With Range([A2], [A65535].End(xlUp))
.Offset(, 2).Formula = "=RC[-2]*RC[-1]"
.Offset(, 2).NumberFormat = "_(* #,##0_);_(* (#,##0);"""""
.Offset(, 2).Value = .Offset(, 2).Value
End With
End If
End Sub
AC xem và hoàn thiện dùm em nha!