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

• #42030 lappy őstag dav<3 #42028

  Új Válasz 2019-10-30 11:59:54 #42030

  Ú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

  

  lappy

  őstag

  válasz dav<3 #42028 üzenetére

  Legördülő lista minden plusz dologhoz és annyi sorban ahány variációban akarod
  De ha szeretnéd az is megoldható bár nem egyszerűen hogy az összes variációt összeallitja majd egy megadott adatbázisból árazás is megtortenik.

  Bámulatos hol tart már a tudomány!

• #42031 Fferi50 őstag dav<3 #42028

  Új Válasz 2019-10-30 12:39:37 #42031

  Ú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

  őstag

  válasz dav<3 #42028 üzenetére

  Szia!
  Egy makróval megoldható a feladat. Az árlistát az alábbiak szerint helyezd el:
  
  Az L2 cella tartalmazza az alapárat, az M, O, Q oszlopok a tartozékfajták megnevezését, a mellettük levő oszlop pedig az árakat.
  Az árlista generálása az A2 cellától kezdődik és tartalmazza az adott tartozék nevét és árát valamint a végösszeget. A fejléceket nem írja ki a makró, amely az alábbi:
  Sub varial()
Dim aras(), u As Integer, usor As Integer
Dim x As Byte, y As Byte, z As Byte
u = 2
usor = Range("M2").End(xlDown).Row
aras = Range("M2:R" & usor).Value
For x = 1 To UBound(aras, 1)
    For y = 1 To UBound(aras, 1)
        For z = 1 To UBound(aras, 1)
            Cells(u, 1).Value = 100: Cells(u, 2).Value = aras(x, 1): Cells(u, 3).Value = aras(x, 2): Cells(u, 4).Value = aras(y, 3): Cells(u, 5).Value = aras(y, 4): Cells(u, 6).Value = aras(z, 5): Cells(u, 7).Value = aras(z, 6)
            Cells(u, 8).Value = 100 + aras(x, 2) + aras(y, 4) + aras(z, 6)
            u = u + 1
        Next
    Next
Next
End Sub
  Ezt a makrót egy modullapra helyezd el. (eljárás az összefoglalóban).
  3 fajta összetevőt használhatsz, de ezen belül nem csak 10-10 lehetőséget, azokat tetszés szerint növelheted. Fontos, hogy azokat az M :  Roszlopokba írd.

  Üdv.

• #42133 Mutt aktív tag dav<3 #42028

  Új Válasz 2019-11-07 20:47:01 #42133

  Ú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

  aktív tag

  válasz dav<3 #42028 üzenetére

  Szia,

  ... Hogyan tudnék excelben létrehozni egy olyan munkafüzetet, ahol ha megadom, hogy pl. 100.000 Ft az alapára a kerékpárnak, majd pedig megadom a 3*10db opciót árakkal, akkor az excel kiszámolja nekem az összes létező variációt, tehát mind a 1.000db-ot és mondjuk egymás alá megadja nekem egy táblázatban.

  Makrómentesen az Excel 2010-től elérhető Power Query tud segíteni.

  1. A különböző opciókat táblázattá alakítsd át, FFeri mintáját felhasználva van 4 táblázatom egymás mellett. Az elsőben csak a kerékpár alapára van, a többiben pedig a választható elemek (eltérő színekkel jelöltem ezeket). Mindegyik táblázatnak adjál egy beszédes nevet (én Alap, Vaz, Gumi, Attetel, Szin-t használtam).
  

  2. Ezeket az adatokat Power Query-be kell tölteni, rajta állsz az adott adatsoron és Adatok -> Beolvasás táblázat/tartományból.
  

  3. Nem kell semmit Power Query-ben még csinálni, csak Adatok betöltése adott helyre opciót választani és Csak kapcsolatot megadni.

  A 2-3-as lépéseket meg kell csinálni mindegyik adatsorral, vagyis lesz 5 db Power Query kapcsolatunk a fájlunkban. Adatok -> Lekérdezések és Kapcsolatok alatt lehet őket látni.
  

  4. Jobb klikk az Alap lekérdezésen a kapcsolatok lapon és Referencia/Hivatkozást választva visszajutunk a Power Query-be, ahol a egy új Egyéni oszlopot kell felvenni.
  

  5. Az egyéni oszlop képlete csak a másik táblának a neve (pl. Vaz).
  

  6. Az új oszlop jobb felső sarkában lévő ikonra kattintva ki lehet bontani az adatokat.
  

  Az eredmény egy keresztszorzat lesz:
  

  7. Az 5-6-os lépéseket végezd el a többi választható opciókat tartamazó adatsorokkal.
  A végén vmi hasonlót kapsz:
  

  8. Egy újabb egyéni oszlopban már csak a különböző változatok teljes árát kell kiszámolni, ami egy sima összeadás.
  

  9. Az eredményt vissza kell tölteni Excelbe, a Bezárás és betöltés opcióval.

  üdv

  [ Szerkesztve ]

  A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

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