Mảng trong VBA

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi vuaxumu, 13 Tháng hai 2006.

4,031 lượt xem

  1. vuaxumu

    vuaxumu Thành viên sơ cấp

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    Lam Dong
    Em đang làm 1 vba có liên quan đến mảng .Nó có thể như sau
    Hàm SUM() ai cũng hiểu.bây giờ em muốn viết 1 Function có chức năng lấy dữ liệu và có thể Xử lý dữ liệu của mảng này như + - * /.và sau đó xuất ra lại một cell. vi du. A3=CONGMANG(B5:B15) thì nó sẽ trả về kết quả là SUM(B5:B15).Em cảm ơn.Nếu được thì cho em luôn cái code luôn hi`.:lol:
     
    #1
  2. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    432
    Đã được thích:
    37
    Nơi ở:
    HCM city
    Không phải mãng đâu!

    Nếu bạn muốn tham khảo VD về hàm mãng thì đây:
    http://webketoan.com/forum/showthread.php?t=12438 #36
    có VD về giải phương trình bậc 2: Nó trả về giá trị tại 3 ô
    (Nếu thích bạn có thể chỉ cho trả về tại 2 hay 1 ô cũng được) :wall: :dzo:
    Còn yêu cầu của bạn không phải dùng mãng đâu mà là:
    Function PhepToanSoHoc(Rrange As Range, Optional PhepToan As Byte)
    Dim xRange As Range, ib As Byte
    If PhepToan = 0 Or PhepToan = 1 Then
    1 For Each xRange In Rrange
    2 PhepToanSoHoc = PhepToanSoHoc + xRange
    3 Next xRange
    ElseIf PhepToan = 2 Then
    PhepToanSoHoc = Rrange(1, 1) - Rrange(2, 1)
    ElseIf PhepToan = 3 Then
    5 For Each xRange In Rrange
    6 PhepToanSoHoc = PhepToanSoHoc * xRange
    7 Next xRange
    ElseIf PhepToan = 4 Then
    PhepToanSoHoc = Rrange(1, 1) / Rrange(2, 1)
    ElseIf PhepToan = 5 Then
    For Each xRange In Rrange
    PhepToanSoHoc = PhepToanSoHoc + (xRange * xRange)
    Next xRange
    elseif PhepToan = 6 then
    For Each xRange In Rrange
    ib = 1 + ib
    PhepToanSoHoc = PhepToanSoHoc + (-1) ^(ib)/(xRange * xRange)
    Next xRange
    End If
    End Function

    1-3 thay =:
    2 PhepToanSoHoc = Application.SUM(Rrange)
    5-7 thay =:
    6 PhepToanSoHoc = Application.PRODUCT(Rrange)
     
    Last edited: 16 Tháng hai 2006
    #2

Chia sẻ trang này