tính tổng và số trung bình

[Onchuot]

Các anh chị giúp em với ạ! Em không biết cách viết hàm để tính tổng và trung bình trong VBA . em xin chân thành cảm ơn !

 

[Hoàng Tuấn 868]

Cả nhà giúp e với ak. em xin chân thành cảm ơn ak

"e" và "ak" có nghĩa là gì vậy bạn ơi?

 

[Cu Tồ]

Cả nhà giúp e với ak. em xin chân thành cảm ơn ak

Nôi quy diễn đàn là không viết tắt nha ban! còn tính tổng thì dùng SUM , tính trung bình dùng AVERAGE đi

 

[Onchuot]

Nôi quy diễn đàn là không viết tắt nha ban! còn tính tổng thì dùng SUM , tính trung bình dùng AVERAGE đi

Em xin lỗi ạ. Em không biết cách tính bằng vba a..mong các anh chị chỉ giáo giúp em

 

[Hoàng Tuấn 868]

Em xin lỗi ạ. Em không biết cách tính bằng vba a..mong các anh chị chỉ giáo giúp em

Bạn sửa hết các từ viết tắt đi sẽ có người giúp bạn nhé.

 

[Onchuot]

Bạn sửa hết các từ viết tắt đi sẽ có người giúp bạn nhé.

Em cám ơn anh ạ!

 

[Hoàng Tuấn 868]

Em cám ơn anh ạ!

Bạn xem file.............

 

[Onchuot]

Bạn xem file.............

Anh chỉ giúp em cách viết hàm được không ạ. Em cám ơn

 

[Hoàng Tuấn 868]

Anh chỉ giúp em cách viết hàm được không ạ. Em cám ơn

Trên google có rất nhiều mà, mình chỉ cho bạn cũng được nhưng bạn chịu khó tự tìm hiểu sẽ nhớ rất lâu. Trước đây mình cũng vậy bạn ạ. Cố gắng lên bạn nhé.

 

[Onchuot]

Trên google có rất nhiều mà, mình chỉ cho bạn cũng được nhưng bạn chịu khó tự tìm hiểu sẽ nhớ rất lâu. Cố gắng lên bạn nhé.

Vậy em hỏi thêm chút được không ạ

 

[Hoàng Tuấn 868]

Vậy em hỏi thêm chút được không ạ

Bạn cứ nói đi..........

 

[Onchuot]

Bạn cứ nói đi..........

Giả sử
Dim total as range
Thì set range sẽ đặt như thế nào ạ

 

[Hoàng Tuấn 868]

Giả sử
Dim total as range
Thì set range sẽ đặt như thế nào ạ

Đây là VBA mà bạn, có phải hàm Excel đâu.

 

[Onchuot]

Vâng ạ. E không hiểu nên đặt thế nào.

 

[Hoàng Tuấn 868]

Vâng ạ. E không hiểu nên đặt thế nào.

Vậy bạn đăng bài mới vào mục Lập trình với Excel, gửi file đính kèm, nêu điều kiện và kết quả mong muốn, sẽ có nhiều thành viên sẵn lòng giúp bạn.

 

[Onchuot]

V

Vậy bạn đăng bài mới vào mục Lập trình với Excel, gửi file đính kèm, nêu điều kiện và kết quả mong muốn, sẽ có nhiều thành viên sẵn lòng giúp bạn.

vâng em cám ơn anh ạ!

 

[Nhattanktnn]

Giả sử
Dim total as range
Thì set range sẽ đặt như thế nào ạ

Thử cái này xem sao

Sub TongVaTrungBinh()
Dim I As Long, sEmpty As Long, J As Long, sArr(), dArr()
sArr = Range("B3:F14").Value
ReDim dArr(1 To 2, 1 To UBound(sArr, 2))
For J = 1 To UBound(sArr, 2) Step 2
sEmpty = 0
    For I = 1 To UBound(sArr, 1)
        dArr(1, J) = sArr(I, J) + dArr(1, J)
        If sArr(I, J) <> "" Then sEmpty = sEmpty + 1
    Next
        dArr(2, J) = dArr(1, J) / sEmpty
Next
Range("B15").Resize(2, UBound(sArr, 2)) = dArr
End Sub

 

[Onchuot]

Thử cái này xem sao

Sub TongVaTrungBinh()
Dim I As Long, sEmpty As Long, J As Long, sArr(), dArr()
sArr = Range("B3:F14").Value
ReDim dArr(1 To 2, 1 To UBound(sArr, 2))
For J = 1 To UBound(sArr, 2) Step 2
sEmpty = 0
    For I = 1 To UBound(sArr, 1)
        dArr(1, J) = sArr(I, J) + dArr(1, J)
        If sArr(I, J) <> "" Then sEmpty = sEmpty + 1
    Next
        dArr(2, J) = dArr(1, J) / sEmpty
Next
Range("B15").Resize(2, UBound(sArr, 2)) = dArr
End Sub

em cám ơn nhiều ạ!

 

[VetMini]

Code ở bài #17 đâu có kiên quan gì đến Dim total As Range và Set như thế nào.

Nếu muốn đặt điểm tố-tồn ở B15
Dim toTTon As Range, eVoRit As Range
Set toTon = Range("B15")
Set eVoRit = Range("B16")

Nếu muốn code trông càng bí hiểm:
Dim tongKet As Variant, daTaRen As Range, i As Long
tongKet = Array( Range("B15"), Range("D15"), Range("F15") )
For i = LBound(tongKet) To UBound(tongKet)
Set daTaRen = Range(Cells(3, tongKet(i).Column), Cells(tongKet(i).Row-1, tongKet(i).Column))
tongKet(i).Value = Application.Sum(daTaRen)
tongKet(i).Offset(1, 0).Value = Application.Average(daTaRen)
Next i

 

[Onchuot]

Code ở bài #17 đâu có kiên quan gì đến Dim total As Range và Set như thế nào.

Nếu muốn đặt điểm tố-tồn ở B15
Dim toTTon As Range, eVoRit As Range
Set toTon = Range("B15")
Set eVoRit = Range("B16")

Nếu muốn code trông càng bí hiểm:
Dim tongKet As Variant, daTaRen As Range, i As Long
tongKet = Array( Range("B15"), Range("D15"), Range("F15") )
For i = LBound(tongKet) To UBound(tongKet)
Set daTaRen = Range(Cells(3, tongKet(i).Column), Cells(tongKet(i).Row-1, tongKet(i).Column))
tongKet(i).Value = Application.Sum(daTaRen)
tongKet(i).Offset(1, 0).Value = Application.Average(daTaRen)
Next i

Em cám ơn nhiều ạ!