Registracija

vba kode za vlookup funkciju

Odgovori Nova tema

1 odgovor
2.146 pregleda

vba kode za vlookup funkciju 08.05.2009. u 13:33 · pre 212 meseci #1

u jednoj koloni su datumi, dnevni, u drugoj brojevi.

ja treba da napisem kod:

da trazi poslednji dan u mesecu minus 1

npr nadje 30.04.2009 -1 da onda u drugoj koloni nadje broj i da ga podeli sa prethodnim mesecom (poslednjim danom u mesecu npr 31.03.2009 - 1) pomocu formule ln(x/y)

i da na kraju nadje najmanji broj od svih tih brojeva.

to je lako u excelu pomocu vlookup formule i ove ln(x/Y) i na kraju min().

Re: vba kode za vlookup funkciju 12.05.2009. u 16:20 · pre 212 meseci #2

Code:
Function myFunc(Area As Range, Month As Integer, Year As Integer)
   Dim d As Date, i As Long

   d = DateSerial(Year, Month + 1, -1)
   For i = 1 To Area.Rows.Count
      If Area.Cells(i, 1).Value = d Then
         myFunc = Log(Area.Cells(i, 2).Value / Day(Area.Cells(i, 1).Value)) / 1000

         Exit Function
      End If
   Next
End Function

nesto ovako ... ali ne dobijem isti rezultat kao kad radim u excelu rucno.

min_perf.xls125k

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme