KẾT QUẢ THAY ĐỔI TỰ ĐỘNG (1 người xem)

[LamNA]

Chào anh chị GPE
Nhờ anh chị hỗ trợ code tự động tính khi dữ liệu thay đổi (không dùng nút lệnh) như file đính kèm.
Điều kiện B-A, và vùng tính toán từ ô 18 đến ô 2017
Sheet1 khi thay đổi số liệu cột "G" hoặc "H" thì gán kết quả cột "I"
Sheet2 khi thay đổi số liệu cột "K" hoặc "J" thì gán kết quả cột "L"
Em cám ơn

 

[phulien1902]

Chào anh chị GPE
Nhờ anh chị hỗ trợ code tự động tính khi dữ liệu thay đổi (không dùng nút lệnh) như file đính kèm.
Điều kiện B-A, và vùng tính toán từ ô 18 đến ô 2017
Sheet1 khi thay đổi số liệu cột "G" hoặc "H" thì gán kết quả cột "I"
Sheet2 khi thay đổi số liệu cột "K" hoặc "J" thì gán kết quả cột "L"
Em cám ơn

Bạn thử với Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i, LR
    If Not Intersect(Target, Range("G:H")) Is Nothing Then
        LR = Cells(Rows.Count, 8).End(xlUp).Row
        For i = 18 To LR
            Cells(i, 9) = Cells(i, 8) - Cells(i, 7)
        Next
    End If
End Sub

Với Sheet2, bạn làm tương tự.

 

[LamNA]

Bạn thử với Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i, LR
    If Not Intersect(Target, Range("G:H")) Is Nothing Then
        LR = Cells(Rows.Count, 8).End(xlUp).Row
        For i = 18 To LR
            Cells(i, 9) = Cells(i, 8) - Cells(i, 7)
        Next
    End If
End Sub

Với Sheet2, bạn làm tương tự.

Dạ em cám ơn anh đã hỗ trợ