Công thức bằng VBA

[nguyenminhly01]

Em có file tính điểm cần sự hỗ trợ:

1. Tính tổng ở cột AB = Cột R + S

2. Tính phép chia ở cột AC = Cột AB/2

Xin cảm ơn Anh/ Chị

 

[phulien1902]

Em có file tính điểm cần sự hỗ trợ:

1. Tính tổng ở cột AB = Cột R + S

2. Tính phép chia ở cột AC = Cột AB/2

Xin cảm ơn Anh/ Chị

Bạn thử:

Sub Test1()
   Dim i%, LR%
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 4 To LR
        Cells(i, "AB") = WorksheetFunction.Sum(Range(Cells(i, "S"), Cells(i, "T")))
        Cells(i, "AC") = Cells(i, "AB") / 2
    Next i
End Sub

Hoặc:

Sub Test2()
    Dim i%, LR%
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To LR
        Range("AB4:AB" & LR).Formula = "=SUM(S4:T4)"
        Range("AC4:AC" & LR).Formula = "=SUM(S4:T4)/2"
    Next
End Sub

 

[nguyenminhly01]

Bạn thử:

Sub Test1()
   Dim i%, LR%
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 4 To LR
        Cells(i, "AB") = WorksheetFunction.Sum(Range(Cells(i, "S"), Cells(i, "T")))
        Cells(i, "AC") = Cells(i, "AB") / 2
    Next i
End Sub

Hoặc:

Sub Test2()
    Dim i%, LR%
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To LR
        Range("AB4:AB" & LR).Formula = "=SUM(S4:T4)"
        Range("AC4:AC" & LR).Formula = "=SUM(S4:T4)/2"
    Next
End Sub

Cho em hỏi thêm thêm là nếu phép tính Trừ (-) ở cột AD = Cột AB - Cột V thì sử dụng công thức VBA như thế nào
Xin cảm ơn

 

[phulien1902]

Cho em hỏi thêm thêm là nếu phép tính Trừ (-) ở cột AD = Cột AB - Cột V thì sử dụng công thức VBA như thế nào
Xin cảm ơn

Thử:

 Range("AD4:ad" & LR).Formula = "=AB4-V4"

 

[VetMini]

Hãi hùng thật. Có nhiêu đó mà cũng Vê Bê A.

 

[AutoReply]

Hãi hùng thật. Có nhiêu đó mà cũng Vê Bê A.

Những công trình vĩ đại cũng phải bắt đầu từ những việc nhỏ bé mà bạn.

 

[VetMini]

Những công trình vĩ đại cũng phải bắt đầu từ những việc nhỏ bé mà bạn.

Thảo nào có những dự tính là chục tỷ, làm xong "những việc nhỏ bé" thì trở thành "công trình vĩ đại" cả trăm tỷ.

Dân ta có tật chỉ cần ra đầu ngõ uống cà phê cũng xách xe máy.