- Fejhallgató erősítő és DAC topik
- Milyen TV-t vegyek?
- A 3D V-Cache és a rengeteg memória lehet az új PlayStation fő fejlesztési iránya
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Milyen videókártyát?
- Az Amiga 1200-at is megcsapta a feltámadás szele
- Épített vízhűtés (nem kompakt) topic
- Milyen házat vegyek?
- Milyen billentyűzetet vegyek?
-
PROHARDVER!
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
modflow
#53394
üzenetére
Szia,
Itt egy VBA kód amivel egy "Summary" elnevezésű lapra ki tudod íratni, hogy a munkafüzet lapjain milyen képletek találhatóak. Ha lefuttatod mindkét fájlon, akkor össze tudod hasonlítani a listákat.
Sub ListCellswithFormulas()Dim ws As WorksheetDim rngFormulas As RangeDim wsReport As WorksheetDim a As Long, c As LongDim out As LongSet wsReport = ThisWorkbook.Worksheets("Summary")out = 2With wsReport.Range("A1") = "Lap".Range("B1") = "Cella".Range("C1") = "Képlet"For Each ws In ThisWorkbook.WorksheetsOn Error Resume NextSet rngFormulas = ws.Cells.SpecialCells(xlCellTypeFormulas, 23)On Error GoTo 0If Not rngFormulas Is Nothing ThenFor a = 1 To rngFormulas.Areas.CountFor c = 1 To rngFormulas.Areas(a).Count.Cells(out, "A") = ws.Name.Cells(out, "B") = rngFormulas.Areas(a).Item(c).Address.Cells(out, "C") = "'" & rngFormulas.Areas(a).Item(c).Formula2out = out + 1Next cNext aSet rngFormulas = NothingEnd IfNext wsEnd WithEnd Subüdv
-
föccer
nagyúr
válasz
modflow
#53396
üzenetére
Makróval végig lehet menni rajta, de csak akkor fog helyes megoldást adni, hogy ha pontosan ugyan az a felépítése a két tábblázatnak, bele értve a munkalap neveket is.
Én szúrópróbaszerűen, a képletek ~10-15%-t ellenőrízném manuálisan és ha ott 0 eltérés van, akkor elfogadnám egyezőnek. Statisztikai minőségellenprzés. Ettől még lehet benne hiba, de annak az esélye, hogy hibás jelentősen lecsökken.
fg
-
#48005
Fire/SOUL/CD
félisten
modflow
#48004
válasz
modflow
#48004
üzenetére
Adatok fül/Adateszközök/Érvényesítés Ez itt 1 és 10 közötti egész számokat engedélyez csak.
-
Mutt
senior tag
válasz
modflow
#44792
üzenetére
Szia,
Excel 2010-től van Power Query, amivel ha azonos a lapokon a struktúra akkor lehet összesítést könnyedén létrehozni. Power Query-nek az előnye, hogy mint egy makró a rögzített lépések újra felhasználhatók, így ha változik a fájlodban az adat akkor egy frissítés után megkapod a legújabb eredményt.
A minta fájlomban van 3 munkalap, amelyek így néznek ki (a tartalom természetesen laponként más és más)-
Ezek után ezek a lépések (angol Excelben tudom most mutatni):
1. Fájlban hozz létre egy munkalapot ahova kerül majd az összesítés, én Összesít nevet adtam neki.
2. Data -> Get data from file opcióval nyisd meg az Excel fájlt.
3. A navigátor ablakban ne kattints a munkalapra, hanem válaszd a fájlt ki majd alul a második opció Transform data kell. Ezzel megnyílik a Power Query szerkesztő része.
4. Itt a munkalapok nevénél válasszuk ki azokat, amelyek nem kellenek (nálam az Összesít).
5. Jelöld ki a Data oszlopot és jobb klikk a többi oszlop eltávolítása, hogy csak a Data oszlop maradjon meg.
6. Data jobb felső sarkában kattints a kibontás ikonra és okézd le.
7. Innentől a fájlod tartalmától függenek a lépések. Nekem pár lépés volt, hogy ezt a formát
erre át tudjam alakítani.
8. Ha készen vagyunk, akkor már csak Excel-be kell visszatölteni a Close & Load opcióval.
9. ha mentesz és utána frissíted a riportot akkor lesz egy mellékhatás (a fájlnak része lett az új report és azt is be fogja építeni a következő frissítéskor). Ezt úgy lehet kiküszöbölni, hogy megnyitod a lekérdezést Power Query-ben (Data -> Queries & Connections -> jobb klikk a lekérdezésen és Edit). Elmész a második lépéshez és ott KInd oszlopon szűrsz, hogy csak a munkafüzetekről dolgozzon.
üdv
-
Fferi50
Topikgazda
válasz
modflow
#42906
üzenetére
Szia!
Akkor próbáld meg a közös használatot. Ebben lehet egész sort, oszlopot beszúrni, de nem lehet cellacsoportokat (mint A1-C1 kijelölve és beszúrás lefelé tolva).
Ugyanakkor be tudod kapcsolni a változás követést x napra visszamenőleg, amit megnézhetsz külön munkalapon is vagy kiemelve az eredeti munkalapon.
A Véleményezés menüpontban van a Közös használat bekapcsolása. Kicsit érdemes megnézni a Helpet hozzá, mert jónéhány művelet nem végezhető ebben az állapotban.Üdv.
-
Fferi50
Topikgazda
-
lappy
őstag
válasz
modflow
#41486
üzenetére
de még mindig nem tudom mikor mennyi a 100% ez a gond
a példádat teljesen értem, de mi van ha Géza 40 almája lesz a 100% és itt jön a gond hogy egyszer 30 majd 40 el kell számolni így nehéz rá képletet alkotni
a példát tekintve meg egy ha függvénnyel ki tudom számolni de kell egy segédoszlop -
Fferi50
Topikgazda
válasz
modflow
#39600
üzenetére
Szia!
Alapból minden cella zárolt egy új munkalapon. De a zárolás csak akkor érvényes, ha bekapcsolod a munkalap védelmet. Magyar Excelben Véleményezés - lapvédelem.
A "szabad" celllákat kijelölöd - jobb egérgomb - cellaformázás - védelem - a Zárolt négyzetből kiveszed a pipát.Üdv.
-
-
Delila_1
veterán
válasz
modflow
#29086
üzenetére
A listából kiválasztást a laphoz rendelt makró figyeli.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then Ugras Target
End SubEz meghívja a modulba írt, Ugras nevű makrót, és átadja a kiválasztott értéket.
Ez a makró hajtja végre az ugrást az általad megadott lapra, és a megadott cellára. A Case utasításokban bármi más feladatot is megadhatsz.Sub Ugras(ide)
Select Case tg
Case "alma"
Sheets("AAA").Activate: Range("A1").Select
Case "körte"
Sheets("BBB").Activate: Range("C5").Select
Case "szilva"
Sheets("CCC").Activate: Range("B10").Select
Case "naspolya"
Sheets("DDD").Activate: Range("H12").Select
End Select
End Sub -
modflow
veterán
válasz
modflow
#29086
üzenetére
Igazából egy kis programot szeretnék csinálni, de mivel nem vagyok programozó, így excellel próbálom megvalósítani.
A lényeg, hogy azt szeretném, hogy egy cellából ha kiválasztok valamit, akkor azt le tudjam okézni és annak legyen valami közvetlen hatása, bejöjjön egy új lap pl.Vagy van esetleg valami olyan program, amivel lehet ilyeneket csinálni?
Visual Studio, vagy valami? Elég kezdő vagyok a témában.Egy nyilvántartó program lenne, ami adatbázisból dolgozna, lenne benne pár szöveges rész, a lényeg, hogy egy feladat elvégzésének (több éves) megvalósulását segítené.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Fejhallgató erősítő és DAC topik
- Battlefield 6
- Milyen TV-t vegyek?
- A 3D V-Cache és a rengeteg memória lehet az új PlayStation fő fejlesztési iránya
- Autós topik
- Október elején jön a Bye Sweet Carole
- Otthoni hálózat és internet megosztás
- E-roller topik
- Miért vezet mindenki úgy, mint egy állat?
- Microsoft Excel topic
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Samsung Galaxy A32 128GB Kártyafüggetlen 1 év Garanciával
- iKing.Hu - Motorola Razr 40 Ultra Glacier Blue 8 GB RAM / 256 GB tárhely Használt, karcmentes
- BESZÁMÍTÁS! Gigabyte Aorus B450 R7 5700X 16GB DDR4 512GB SSD RTX 3060Ti 8GB ZALMAN I3 NEO 650W
- BESZÁMÍTÁS! 3TB Western Digital WD RED SATA HDD meghajtó garanciával hibátlan működéssel
- Bomba ár! Dell Latitude 7320 - i5-11GEN I 8-16GB I 256-512SSD I HDMI I 13,3" FHD I Cam I W11 I Gari!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest