Új hozzászólás Aktív témák

• #39322 vvoros csendes tag

  Új Válasz 2018-10-10 16:47:07 #39322

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vvoros

  csendes tag

  Sziasztok!

  Pár napja kezdtem el VBA-val foglalkozni, elnézést a láma kérdésért.

  ÁTLAGHATÖBB függvényt szeretnék behívni, két verzióval próbálkozom, egyrészt formulamegadással:

  Range("l2").FormulaR1C1 = "=AVERAGEIFS(R2C235136C2,R2C735136C7,RC[-5],R2C1035136C10,RC[-2])" ' l2-be betöltjük a hétfő 0:00 intervallumok átlagát, végigküldjük a képletet"
  ' Range("l2").Select
  ' Selection.AutoFill Destination:=Range("l2:l" & NumberOfData)
  ' Columns(12).Select
  ' Selection.NumberFormat = "0.00"

  másrész for ciklussal

  Dim i As Long
  For i = 1 To NumberOfData

  Range("l" & i).FormulaR1C1 = Application.AverageIfs(columnB, columnG, Sheets(1).Range("g" & i), columnJ, Sheets(1).Range("j" & i)) ' l2-be betöltjük a hétfő 0:00 intervallumok átlagát, végigküldjük a képletet"

  Next i
  'Selection.AutoFill Destination:=Range("l2:l" & NumberOfData)
  Columns(12).Select
  Selection.NumberFormat = "0.00"

  A sima formulabeadásnál az a problémám, hogy nemtudom beadni a VBA-ban definiált NumberOfData változót a formulán belülre, fix referencia helyett az adott oszlop elejétől az adott oszlop NumberOfData soráig szeretném nézni az átlagot. Van erre valami megoldás?

  A for verzió lefut, jóeredményt ad, de 20 percig tart végigiterálnia. Ez normális, vagy a géppel van gond (64bit-os Windows, Excel 2010, i5 CPU

  Köszönöm a segítséget.

Új hozzászólás Aktív témák