- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
- Google Pixel topik
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- Szívós, szép és kitartó az új OnePlus óra
- Milyen okostelefont vegyek?
- iPhone topik
- Lehetetlenül vékony és hihetetlenül kemény (fotó)
- Apple iPhone 13 Pro Max - őnagysága
- One mobilszolgáltatások
- Honor 400 Pro - Gép a képben
-
Mobilarena
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
Fferi50- OLED monitor topic
- Kezdő fotósok digitális fényképei
- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
- iPad topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- PlayStation 5
- PROHARDVER! feedback: bugok, problémák, ötletek
- Windows 11
- Milyen légkondit a lakásba?
- A Temu diktál Magyarországon, a hazai e-kereskedők fulladoznak
- További aktív témák...
- Apple iPhone 12 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3356
- iKing.Hu Samsung Galaxy S25 Plus Navy 12/256 GB Használt, karcmentes állapotban 3 hónap garanciával!
- GYÖNYÖRŰ iPhone 13 mini 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3310
- Bomba ár! Acer Travelmate P214-53 - i5-1135G7 I 8GB I 512SSD I 14" FHD I Cam I W10 I Garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest