Xin code thay công thức cộng, trừ, nhân,chia trong Worksheet

[saomai6692]

Em chào các anh chị.
Em đang học và tìm hiểu về code trên GPE, em nhờ các anh chị viết em xin code để thay công thức cộng, trừ, nhân, chia. Em cảm ơn

 

[saomai6692]

Các anh chị bớt thời gian giúp em với, em cảm ơn ạ

 

[anhphuong]

Sao không dùng hàm của Excel cho lẹ mà làm VBA gì cho cực vậy trời

 

[phulien1902]

Em chào các anh chị.
Em đang học và tìm hiểu về code trên GPE, em nhờ các anh chị viết em xin code để thay công thức cộng, trừ, nhân, chia. Em cảm ơn

Bạn thử:

Sub Tinh()
    Dim ws As Worksheet, LR&, i&
    Application.ScreenUpdating = False
    Set ws = Sheets("code")
    LR = ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 7 To LR
        Cells(i, 7) = Cells(i, 5) * Cells(i, 6) - Cells(i, 5) * Cells(i, 4)
        Cells(i, 9) = Cells(i, 5) + Cells(i, 8)
    Next
    With ws
        .Range("G" & LR + 1).Formula = Application.Evaluate("=SUM(G7:G" & LR & ")")
        .Range("G" & LR + 2).Formula = Application.Evaluate("=SUM(G7:G" & LR & ")") * 0.1
        .Range("G" & LR + 3).Formula = Application.Evaluate("=SUM(G7:G" & LR & ")") * 1.1
    End With
    Application.ScreenUpdating = True
End Sub

 

[saomai6692]

Bạn thử:

Sub Tinh()
    Dim ws As Worksheet, LR&, i&
    Application.ScreenUpdating = False
    Set ws = Sheets("code")
    LR = ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 7 To LR
        Cells(i, 7) = Cells(i, 5) * Cells(i, 6) - Cells(i, 5) * Cells(i, 4)
        Cells(i, 9) = Cells(i, 5) + Cells(i, 8)
    Next
    With ws
        .Range("G" & LR + 1).Formula = Application.Evaluate("=SUM(G7:G" & LR & ")")
        .Range("G" & LR + 2).Formula = Application.Evaluate("=SUM(G7:G" & LR & ")") * 0.1
        .Range("G" & LR + 3).Formula = Application.Evaluate("=SUM(G7:G" & LR & ")") * 1.1
    End With
    Application.ScreenUpdating = True
End Sub

Anh chị ơi, nếu em thay đổi số liệu (xóa đi nhập lại) mà không cần phải ấn nút "CLick me" thì nó có tự động chạy được không ạ, em cảm ơn

Bài đã được tự động gộp: 14/6/18

Sao không dùng hàm của Excel cho lẹ mà làm VBA gì cho cực vậy trời

Em đang học và tìm hiểu về code trên GPE mà, em cảm ơn

 

[phulien1902]

Anh chị ơi, nếu em thay đổi số liệu (xóa đi nhập lại) mà không cần phải ấn nút "CLick me" thì nó có tự động chạy được không ạ, em cảm ơn

Bài đã được tự động gộp: 14/6/18

Em đang học và tìm hiểu về code trên GPE mà, em cảm ơn

Hoàn toàn được mà bạn, ví dụ bạn chèn đoạn Code dưới đây vào Sheets("code")

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A7:F" & Cells(Rows.Count, "A").End(xlUp).Row)) Is Nothing Then
      Call Tinh
    End If
End Sub

 

[saomai6692]

Hoàn toàn được mà bạn, ví dụ bạn chèn đoạn Code dưới đây vào Sheets("code")

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A7:F" & Cells(Rows.Count, "A").End(xlUp).Row)) Is Nothing Then
      Call Tinh
    End If
End Sub

Anh chị ơi, hoàn toàn đúng ý em rồi ạ, Em trân trọng cảm ơn. Đúng là GPE cái gì cũng có thể làm tốt.