Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- bambano: Bambanő háza tája
- Brogyi: CTEK akkumulátor töltő és másolatai
- petipetya: Nagy chili topic. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- biistvan: Notebook billentyűzet mellett ragados a burkolat
- Real Racing 3 - Freemium csoda
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Miért úszta meg Albert Speer? (Reagálás a Telex cikkére)
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Mutt
senior tag
válasz
#73966957
#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
-
Fferi50
Topikgazda
válasz
#73966957
#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 IntegerDim x As Byte, y As Byte, z As Byteu = 2usor = Range("M2").End(xlDown).Rowaras = Range("M2:R" & usor).ValueFor 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 + 1NextNextNextEnd 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 azM : Roszlopokba írd.Üdv.
Új hozzászólás Aktív témák
- Windows 11
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Bekékült a Pixel 10a
- Nintendo Switch
- Vezetékes FEJhallgatók
- Otthoni hálózat és internet megosztás
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- One mobilszolgáltatások
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- iPhone topik
- További aktív témák...
- Számlás,garanciás SSD-k! Kèszletről!
- GYÖNYÖRŰ iPhone 11 Pro 256GB Midnight Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3370,94% Akkumulátor
- HP EliteBook x360 1040 G8 i7-1185G7 32GB 512GB 2in1 1 év garancia
- AKCIÓ! Nintendo Switch OLED 64GB fehér játékkonzol garanciával hibátlan működéssel
- Eladó Samsung Galaxy Note 20 Ultra 5G 12/256GB / 12 hó jótállás
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50
