🚀 go-pugleaf

On 21/11/2010 12:18, ZikO wrote:
> Witam
>
> Czy ktos moze mi poradzic jak zwrocic obszar komorek w Excelu z funkcji?
>
> Przykladowo na zasadzie porowan If ... Then ... buduje zakres komorek,
> ktory nie jest ciagly i zapisuje go w zmiennej typu String, czyli np mam
> cos takiego:
>
> sRange = "A1,A5,A6,A7,A10"
>
> itd.
>
> Czy jest mozliwosc zeby zwrocic taki obszar w taki sposob, zebym mogl
> ten obszar uzyc w jakiejkowliek formule =SUM(sRange), =POWER(10, sRange)
>
> itd.
>
> Dzieki i pozdrawiam
>
>
>
> PS. Jestem totalnie poczatkujacy i ucze sie VBA wiec problem moze byc
> trywialny

Znalazlem odpowiedz jesli ktos bylby zainteresowany

[Code]
'Function SumOfLog(ParamArray vArgList() As Variant) As Double
'    Dim rCell As Range
'    Dim vArg As Variant
'    Dim dSumArray As Double
'
'    For Each vArg In vArgList
'        For Each rCell In vArg
'            If WorksheetFunction.IsNumber(rCell) Then
'                dSumArray = dSumArray + WorksheetFunction.Power(10, _ 
'rCell / 10)
'            End If
'        Next rCell
'    Next vArg
'    SumOfLog = 10 * Log10(dSumArray)
'End Function
[/Code]