dB калькулятор? Запись функции VBA

Question

Итак, у меня есть конкретная задача. Я хочу создать функцию, которая добавит единицы децибела вместе. В настоящее время, вы должны ввести что-то вроде

=10*LOG10(10^(A1/10)+10^(A2/10))

и сделать это еще больше, если у вас есть как 15 части, которые вы хотите добавить вместе. Вид боли.

В идеале он будет работать как функция excel SUM и просто принимать любые данные. Может ли кто-нибудь помочь мне собрать это вместе или, по крайней мере, показать мне, что будет выглядеть СУМ, если бы вам нужно было создать его с нуля?

Лучший, Т. Хэн

Answer 1

Ниже очень простой пример User Defined Function (который должен быть набран в стандартный модуль), который может принимать любое количество параметров и возвращает сумму этих параметров. Ваш пример, по-видимому, связан с более сложной логикой, поэтому вам придется расширить свой пример. Сообщите нам, если вам нужна дополнительная помощь.

Function AddSomeDigits(ParamArray nums()) As Double 
    Dim vRunningTotal As Variant 

    vRunningTotal = 0 

    For i = LBound(nums) To UBound(nums) 
     vRunningTotal = vRunningTotal + nums(i) 
    Next i 

    AddSomeDigits = vRunningTotal 
End Function 

Answer 2

Этот маленький UDF() даст вам больше гибкости:

Public Function decibelle(rng As Range, N As Long) As Double 
    Dim wf As WorksheetFunction, i As Long, Z As Double 
    Set wf = Application.WorksheetFunction 
    For i = 1 To N 
     Z = Z + 10^(rng(i)/10) 
    Next i 
    decibelle = 10 * wf.Log10(Z) 
End Function 

, где первый аргумент является диапазон входов и второй аргумент число входов:

РЕДАКТИРОВАТЬ # 1:

и если вы хотите UDF() быть больше как SUM() считают:

Public Function decibelle2(rng As Range) As Double 
    Dim wf As WorksheetFunction, r As Range, Z As Double 
    Set wf = Application.WorksheetFunction 
    For Each r In rng 
     Z = Z + 10^(r.Value/10) 
    Next r 
    decibelle2 = 10 * wf.Log10(Z) 
End Function 

, чтобы вы могли использовать его как:

=decibelle2(A1:A2)