CÔNG THỨC VBA VỚI NHIỀU THAM CHIẾU (1 người xem)

[sadoan.dty]

Hi mọi người,
Mong mọi người hỗ trợ giúp em.
Em đã làm quen VBA đã lâu, hôm nay vì nhu cầu công việc cần gấp nên em mạo mụi viết bài đầu tiên để nhờ các cao nhân chỉ giáo.
Với một hàm vba thông thường thì =congthuc(cellrange)
Nhưng nay vì nhu cầu công việc, em muốn làm 1 công thức khác nhận thêm 2 cell tham chiếu cùng dòng nhưng khác cột bất kỳ do người viết chọn ví dụ
=congthuc(cell1,cell2,cell3)
Mọi người có thể cho em ví dụ mẫu đơn giản như cộng 3 cell trên cùng 1 dòng được nhận từ tham số trong công thức được không ạ.
Cảm ơn hậu tạ ạ.

 

[phihndhsp]

Hi mọi người,
Mong mọi người hỗ trợ giúp em.
Em đã làm quen VBA đã lâu, hôm nay vì nhu cầu công việc cần gấp nên em mạo mụi viết bài đầu tiên để nhờ các cao nhân chỉ giáo.
Với một hàm vba thông thường thì =congthuc(cellrange)
Nhưng nay vì nhu cầu công việc, em muốn làm 1 công thức khác nhận thêm 2 cell tham chiếu cùng dòng nhưng khác cột bất kỳ do người viết chọn ví dụ
=congthuc(cell1,cell2,cell3)
Mọi người có thể cho em ví dụ mẫu đơn giản như cộng 3 cell trên cùng 1 dòng được nhận từ tham số trong công thức được không ạ.
Cảm ơn hậu tạ ạ.

Cái này hơi bị căng đó bạn, viết hàm có truyền tham số. muốn hiểu rõ để viết thì cũng cần phải có thời gian nhiều đó

 

[Hoang2013]

Mình cao có thước sáu lăm thôi, nên bạn đành tự xem xét xem sao:

Sub TinhTongTheoCotChon()
 Dim Col As Integer, Hàng As Long

 Col = InputBox("Xin Nhâp Côt Cân Tính :", "GPE.COM Xin Chào!", 4)
 If Col Mod 2 = 0 Then Col = 3 Else Col = 4
 Hàng = Selection.Row
 Cells(Hàng, 7).FormulaR1C1 = "=Tong(RC[-5],RC[-" & Col & "])"
 Cells(Hàng, 8).Select
End Sub

Function Tong(Rg1 As Range, Rg2 As Range)
 Tong = Rg1.Value + Rg2.Value
End Function

 

[phihndhsp]

Không có cao nhân nào giúp sao ạ ?

Bạn hỏi như vậy nói cả năm cũng không hết. vì biết bạn truyền cái gì và bao nhiêu cái.... bạn có thể gởi một file nào đó và cần trợ giúp như thế nào, thì mọi người sẽ giúp bạn, chứ hỏi không không như vậy thì biết đâu mà giúp. Chúc bạn 8/3 vui vẻ, nhìn avata đoán thôi nha

 

[VetMini]

... truyền cái gì và bao nhiêu cái....

Muốn đoán tổng quát thì cũng có thể dùng paramarray, và xét từng tính chất của cái nhập vào.

 

[sadoan.dty]

Function Tong(Rg1 As Range, Rg2 As Range)
 Tong = Rg1.Value + Rg2.Value
End Function

Cảm ơn đồng chí. Đây đúng là cái tui cần.
Nhưng có thể nào chỉ giúp mình thêm diễn giải vào công thức hay không.
Ví dụ như: =sum(Number1,Number2...) để người sử dụng công thức dễ biết chọn trường nào tiếp theo.
Cảm ơn các đồng chí.

 

[Hoang2013]

Bạn nên mô tả CSDL cũng như các iêu cầu tính toán của bạn mới cụ thể được

 

[♫ђöล♥ßล†♥†µ♫]

Muốn đoán tổng quát thì cũng có thể dùng paramarray, và xét từng tính chất của cái nhập vào.

Em làm được cái này nó gần giống với Hàm Sum Thầy ạ

Function MySum(ParamArray sArr()) As Double
    Dim I As Long, Cll As Range, Total As Double
For I = LBound(sArr) To UBound(sArr)
    If TypeOf sArr(I) Is Range Then
        For Each Cll In sArr(I).Cells
            Total = Total + Cll.Value
        Next Cll
    Else
        Total = Total + sArr(I)
    End If
Next I
MySum = Total
End Function