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

• #53171 ny.janos tag ny.janos #53053

  Új Válasz 2024-09-09 22:15:26 #53171

  Ú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

  

  ny.janos

  tag

  válasz ny.janos #53053 üzenetére

  Bár a kérdésem korábban már megválaszolásra került itt a fórumban, ma pont ezen problémát taglaló videóba futottam bele, ezért gondoltam érdekességképpen megosztom (bár nem tudom hányan foglalkoznak a jelenlévők közül behatóbban a PQ-vel, Muttnak pedig úgysem fogok újat mondani).

  Power Query - Dynamic Column Selection (BCTI)

• #53061 Mutt senior tag ny.janos #53053

  Új Válasz 2024-08-14 18:32:37 #53061

  Ú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

  

  Mutt

  senior tag

  válasz ny.janos #53053 üzenetére

  Szia,

  Cseréld le erre az átlag számítást:
  =Table.AddColumn(#"Oszlop elforgatva", "Átlag", each List.Average(List.Range(Record.ToList(_), 3, List.Count(Table.ColumnNames(#"Oszlop elforgatva")))), type number)

  Annyi, hogy a fenti képletben a 3-as azt jelenti, hogy ennyi oszlop van az eredmények előtt (a mintád szerint).

  üdv

• #53054 Fferi50 Topikgazda ny.janos #53053

  Új Válasz 2024-08-14 14:56:20 #53054

  Ú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

  

  Fferi50

  Topikgazda

  válasz ny.janos #53053 üzenetére

  Szia!
  Változóba kell tenned az oszlopok számát, amelyet a fordulók szerint hozhatsz létre, mielőtt "ráengednéd" a munkatáblára.
  Pl. egy lehetőség:
  Sub oszlopos()
Dim fordulo As Integer, xvalt As Integer
Dim fordulas As String
M_kod = "= Table.AddColumn(#""Oszlop elforgatva"", ""Átlag"", each List.Average({oszlopszam}), type number)"
fordulo = 14 ' pl. Range("A1").Value
For xvalt = 1 To fordulo
    fordulas = fordulas & "[" & xvalt & "],"
Next
fordulas = Left(fordulas, Len(fordulas) - 1)
M_kod = Replace(M_kod, "oszlopszam", fordulas)
MsgBox M_kod & vbLf & vbLf & fordulas
End Sub
  A lényeg, hogy az oszlopszam szöveg helyére be fog cserélődni a tényleges oszlopoknak megfelelő névlista.
  A fordulók számát veheted az eredménytáblára beírva egy cellából (mint a kommentben van, beírhatod a futás előtt, vagy bekérheted Inputbox-szal.
  Az MsgBox természetesen a vizuális ellenőrzés érdekében van most benne.
  Üdv.
  Ps. Bocs a változónevek esetlegesek lettek, alakítsd a saját ízlésednek megfelelően.

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