-
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
-
fricc_
tag
Sziasztok!
Az a problémám, hogy a kimutatásomban vannak oszloponként azonos elemek, amiket azonosság esetén is sorba kellene rendeznem, egy vagy több másik oszlopban szereplő érték alapján.
Meg lehet oldani, hogy egy kimutatásban szereplő adatok több szempont szerint is rendezve jelenjenek meg?
Magyarán, elsődleges rendezés mondjuk B oszlop értéke csökkenő sorrendben, majd ha van több azonos elem akkor az adott tétel E oszlopbeli értéke döntsön, mondjuk csökkenő értékben, azonosság esetén az F oszlop értéke számítson, stb.Próbáltam, de ezt nem tudtam összehozni.
Ha sima adatok rendezése akkor egy több szintű rendezés nem jelentene problémát, de ez nem az :-) -
Fferi50
Topikgazda
válasz
butch3r
#39157
üzenetére
Szia!
Ha csak az elrejtett fülön van pivot, akkor így módosítsd:
Sub ertekado()
Dim sh As Worksheet, sr As Integer
For Each sh In Worksheets
If sh.Visible=xlSheetVisible Then
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
End If
Next
End Sub
Ha máshol is lehet, akkorIf sh.Pivottables.Count = 0 Then 'legyen a feltételben a For Each után
Ha viszont csak az aktuális munkalapon szeretnéd alkalmazni, akkor csak a Dim és a For ...Next ciklust hagyd benne, a többit kommenteld ki (aposztróf ' a sor elejére)Üdv.
-
Fferi50
Topikgazda
válasz
butch3r
#39157
üzenetére
Szia!
Egy munkalaphoz így módosítsd:
Sub ertekado()
Dim sh As Worksheet, sr As Integer
'For Each sh In Worksheets
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
'Next
End Sub
Ha csak elrejtett lapon van pivot, akkorSub ertekado()
Dim sh As Worksheet, sr As Integer
For Each sh In Worksheets
If sh,Visible=xlsheetVisible then
For sr = 7 To 123 Step 4
sh.Range("C" & sr & ":N" & sr).Value = sh.Range("C" & sr & ":N" & sr).Value
Next
End If
Next
End Sub
Ha máshol is lehet, akkor a feltétel a For Each után:If sh.Pivottables.Count >0 ThenÜdv.
-
Enxtheone
tag
Sziasztok,
excel 2016
magyarArra van lehetőség hogy kijelölök egy cellát, és gyorsbillentyűvel rögtön odaugrik?
Azt tudom hogy az "F5" lenyomásával lehet ugrani, de ezzel a módszerrel be kell gépelni hogy hova akarok menni, és ez elég idegesitő mert elég nagy a tábla, és arra a fix pontra mindig vissza kell mennem, igy jó lenne ha lenne erre valami módszer.
Elöre is köszönöm
-
Fferi50
Topikgazda
válasz
Enxtheone
#39160
üzenetére
Szia!
Makró:
Sub ugrik()
Range("A5").Select
End Sub
Ezt hozzárendeled egy kényelmes billentyű kombinációhoz.
Viszont ha van eseménykezelés is valamelyik makródban, akkor eseménykezelés kikapcs-bekapcs is kell:Application.EnableEvents=False
Range("A5").Select
Application.EnableEvents=True("A5") helyére írod a cella címét.
Üdv.
-
friccccc
tag
sziasztok
olyan kérdésem lenne, hogy vba-val tudok kiíratni képletet a cellába?If Range("C1").Value = "OK" Then Range("F5").Value = "=HA(U3>=S3;"EZ";"")"Előre is bocsi ha rosszul írtam bármit is, kezdő vagyok még, csak felületesen próbálkozom.
Azt a hibát kapom futtatáskor, hogy : Compile error: Syntax error[ Szerkesztve ]
-
-
#39167
DrTechnoid
őstag
Üdv!
Adott egy kis összegző táblázat, legyen pl. cikkszám és polc formájú. A képen meghatározott módon vannak számosítva a polcon lévő darabok a táblázati jobb oldalon , és bal odalon a termék cikkszáma.
Engem az érdekelne ha kiszedem egy adott polcon lévő termék számának összegét pl a H9-es cellába, akkor azt külön ki lehet e íratni úgy , hogy a cikkszám helyett egy más elnevezést használok. Ebben az esetben ez azt jelenti, hogy a kijelölt D12-es cellában lévő A6 cikkszám helyett pl azt írja ki hogy zöld kocka, ne a kibogozhatatlan nevű cikkszám legyen ott. Magyarul engem az érdekelne hogy egy meglévő cellaérték mellé mégegy ilyen "nickname" vagy "tag"-elés adható e a cellának.
http://steamcommunity.com/id/DrTechnoid/
-
#39168
Fferi50
Topikgazda
DrTechnoid
#39167
Fferi50
Topikgazda
válasz
DrTechnoid
#39167
üzenetére
Szia!
"ki lehet e íratni úgy , hogy a cikkszám helyett egy más elnevezést használok"
Ha az Excelnek megmondod, melyik cikkszám milyen nevű terméket takar, természetesen.
Ehhez kell csinálnod egy kis "szótárt" 2 oszlopban, első oszlop cikkszám, második oszlop megnevezés.
Utána az Fkeres függvénnyel megkeresed a cikkszámnak megfelelő megnevezést és azt írod a cellába. Vagyis a cellába egy Fkerest tartalmazó képlet kerül.Üdv.
Ps. Megjegyzést adhatsz a cellákhoz, de azt nem lehet képlettel megjeleníteni.[ Szerkesztve ]
-
#39169
dellfanboy
őstag
dellfanboy
őstag
Kellene egy kis otlet/iranymutatas a tolem tapasztalabbaktol:
Van egy excel file-om ami jelenleg 160mb, eleg sok adat van benne, es ez honaprol honapra no. a file felepitese ugy nez ki, hogy a-ca oszlop import egy masik szoftverbol, majd mellett cb-fm kulonbozo fv-ek ami nagyreszt az a-ca adatait hasznaljak.
Csak megnyitni eltart kb 2 percig, egy teljes kalkulacio tobb percig is eltart. Hogyan tudnam gyorsabba tenni?
Arra gondoltam az a-ca adatokat bedobom egy access tablaba, csak nem tudom mellette a cb-fm oszlopokat hogy tudnam access-ben (meghatarozott) fv-el /logikaval kitolteni?
Ha kesz az access table akkor pedig excel powerpivot hozzaferessel elemezgethetnem az adatokat.
Szerintetek ez jo otlet? Ha nem milyen iranyba gondolkozzak? Merre olvasgassak?miben gondolkozzak?
Esetleg van tippetek, hogy akar a jelenlegi excel tablet hogy tudnam irto gyorsa tenni?koszi
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
#39170
Fferi50
Topikgazda
dellfanboy
#39169
Fferi50
Topikgazda
válasz
dellfanboy
#39169
üzenetére
Szia!
Az Acces jó ötlet. Természetesen ott is vannak jól használható függvények, lehet számított oszlopokat betenni, de nem kell vele az adatbázist növelni, elég lekérdezésként megcsinálni. Érdemes rajta elgondolkodni sőt más adatbázis kezelőben is.
Az Excel tekintetében:
Biztosan vannak olyan adatok a táblában, amik már nem módosulhatnak a számítások során - bár be vannak képletezve, minden számolás ugyanazt az eredményt kell, hogy adja - pl. múlt idők adataiból számítottak.
Ezeket én sürgősen átalakítanám értékké (kijelöl - másolás - irányított beillesztés saját magára értékként), ekkor nem fogja a számítási kapacitást terhelni többé. Szerintem elég, ha csak az újonnan bejövő adatokhoz tartoznak képletek.
Vannak olyan képletek is, amelyeknek az "eredménye", ha megnézed az fx gombra nyomva, frissítés (pl ilyen az indirekt függvény is és jó pár másik). Ha lehet, az ilyen képleteket próbáld más - ugyanazt az eredményt adó képlettel helyettesíteni - persze lehet, hogy ilyenkor segédoszlop vagy másik munkalap is kellhet.De a képletek átalakítása értékké a szükségtelen számításokat elhagyva szerintem kellő gyorsulást fogsz észlelni az előbbi bekezdés nélkül is.
Üdv.
-
ny.janos
tag
válasz
dellfanboy
#39169
üzenetére
Megpróbálhatod a fájlt xlsx helyett xlsb formátumban menteni, a megnyitáson, mentésen biztos gyorsítani fog.
-
friccccc
tag
Sziasztok
Azt hogy tudom megcsinálni, hogy ha egy bizonyos feltétel teljesül, akkor annak legyen nyoma excelben, akkor is ha később a feltétel már nem áll fenn?
Tehát: Például az A1 cella, ha nagyobb mint a B1, akkor legyen nyoma excelben akkor is, ha már a feltétel nem áll fenn... (közben ugye A1 cella értéke folyamatosan frissül/változik).
sima HA függvény nem jó( =HA(A1>B1;"OK";"") , mert ha A1 már nem teljesül a feltételnek már nem fogja kiíratni "OK"-ot. VBA-ban sem találtam megoldást rá, bár azt hozzá kell tennem, hogy nagyon amatőr vagyok benne -
Fferi50
Topikgazda
válasz
friccccc
#39173
üzenetére
Szia!
Csak VBA-ban tudod megcsinálni. Egy cella értékét beállítod mondjuk 0-ra, ez lesz a jelzőcella.
A makró megnézi, hogy A1 értéke nagyobb-e mint B1 értéke. Ha igen, a jelzőcella értékét átállítja 1 -re, ha nem akkor a jelzőcella értéke marad változatlan.
Ezzel a módszerrel a jelzőcella mutatja, hogy volt már nagyobb érték. Ha azt is meg szeretnéd tudni, hányszor, akkor a jelzőcella értékét minden alkalommal növelni kell eggyel, amikor a feltétel teljesül.
Vázlatosan:If Range("A1").Value>Range("B1'").Value Then Range("C1").Value =1 (vagy a második esetben Range("C1").Value=Range("C1").Value+1Mivel a feltétel nem teljesülése esetén nem kell hozzányúlni a cella értékéhez (sőt tilos), ezért nem egy sorban lehet rendezni a vizsgálatot és az értékadást.
Természetesen a jelzőcellába más értéket is írhatsz a feltétel teljesülése esetén.Üdv.
-
#39176
dellfanboy
őstag
ny.janos
#39171
-
#39177
Fferi50
Topikgazda
dellfanboy
#39176
Fferi50
Topikgazda
válasz
dellfanboy
#39176
üzenetére
Szia!
Feltétlenül kell minden "alapadat" egy Excel fáljban? A számítások eredményét nem elég a fájlban tárolni? Az alapadatokat pedig másik fájlban, esetleg havonta szétválasztva.
Azt ne várd, hogy a naponta növekvő fájl nyitása és számolása, mentése majd meggyorsul valami isteni csoda folytán.
Sok adat esetén bizony tud lassú lenni, ezzel barátkozni kell, vagy szabni-varrni az adatokat/fájlokat, vagy egyszerűen áttérni adatbázis kezelőre.
Értem én, hogy a főnökök Excelre vannak rágyógyulva, de nem hiszem, hogy minden egyes apró adatot egyenként is meg szeretnének nézni.
Tedd a közlésre szánt információkat egy fájlba, az adatokat pedig egy másikba. Naponta egyszer frissíted az "élmény" fájlt - ezt te kibírod. Másoknak pedig gyorsan megnyílik a nekik szánt adag.
Tudom, mit beszélek, én is voltam ilyen helyzetben - bár igaz, csak havonta frissültek az adatok -, minden hónapban kismillió adat érkezett, ebből kellett és lehetett emészthető állapotot csinálni némi gondolkodás után.Üdv.
-
#39179
dellfanboy
őstag
butch3r
#39178
-
allein
addikt
Jó reggelt. Adott egy sales report amiben termékek vannak, sajnos a termék súlya nem szerepel. Tudva a súlyt, milyen módon hozok létre egy új oszlopot ahova megadom a termék súlyát?
Nem foglalkozik itt amúgy valaki excel oktatással?
(#39181) dellfanboy - fkeres mire? Van egy oszlopom amiben benne van a pack neve(több terméket tartalmaz) és vannak oszlopok termékre külön bontva(ebben benne van a mennyiség).
[ Szerkesztve ]
-
#39182
Fferi50
Topikgazda
dellfanboy
#39179
Fferi50
Topikgazda
válasz
dellfanboy
#39179
üzenetére
Szia!
Mindezzel együtt, továbbra is azt kérdezem, szükség van-e rá, hogy minden sorban mindig ott legyenek a képletek?
Gondolom használsz makrókat, amik szükség esetén a képleteket is beírhatják a megfelelő helyekre.
Aztán át lehet gondolni a szerkezetet is.
De talán valóban egy valódi adatbáziskezelő lenne a megoldás.Üdv.
-
friccccc
tag
Sziasztok
VBA futtatásánál erre kapok egy " Type mismatch" run time error 13-as hibát:If Range("CS10").Value > Range("T3").Value And Range("CW10").Value < 1.5 Then Range("CS7").Value = 1Egy debugra klikkelés után egészen a "Range("CS7").Value = 1"-ig sárgára festi.
Tudnátok segíteni, hogy mi lehet a baj? -
friccccc
tag
válasz
Fferi50
#39187
üzenetére
Igen köszi nagyjából meg is van. Talán a hiba az, hogy : - ?Range("CS10").Value
- Error 2007
CS10 es cellában egy átlag képlet van( =ÁTLAG(CR10
R68)), amibe csak bizonyos idő elteltével kerül érték automatikusan. Talán nem a .Value a megfelelő VBA-ban ?
Köszi a segítséget! -
friccccc
tag
sziasztok
VBA-ban Immadiate -ben, ha ezt kapom eredményül:-?Range("CS10").Value
-Error 2007akkor mi lehet a gond? A CS10- es cellában egy átlag függvény van , ami csak a későbbiekben automatikusan kerül kitöltésre.
Úgy gondolom ez okozza a hibát VBA futtatásánál: " Type mismatch" run time error 13.
Köszi a segítséget
-
Fferi50
Topikgazda
válasz
friccccc
#39193
üzenetére
Szia!
Az Error 2007 a nullával való osztási kísérlet miatt van. Ha a CS10 cella képletéhez tartozó területen jogosan nincs még adat, akkor hibakezeléssel tudod a problémát kezelni:
If Iserror(Range("CS10") Then
Range("CS7").Value = 1 'ide azt az értéket írd, amit a cellában ebben az esetben látni szeretnél.
Else
If Range("CS10").Value > Range("T3").Value And Range("CW10").Value < 1.5 Then Range("CS7").Value = 1
End IfPersze meg kell még nézned, hogy a többi cellában. amit használsz a feltételekben, milyen értékek szerepelnek.
Üdv.
[ Szerkesztve ]
-
allein
addikt
F oszlopban található a csomag elnevezése - tartalmazhat több fél terméket. Feltételezzük van benne Termék1, Termék2 és Termék3. Termékeknek van különálló súlya, ez kell nekem. És a végeredmény a következő: - az F oszlopban található minden csomagnak a súlya. Nem tudom érthető-e ahogyan leírtam.
-
allein
addikt
Az F oszlopban a csomag neve és a tartalma van ami lehet: Termék1, Termék2, Termék3. De lehet csak Termék1 Termék2, stb.
Az M, N, O oszlopban látjuk mennyi van az adott termékből az adott csomagban. Tudom a termék súlyát, 5 termékünk van. Nem tudom hogyan fogjak neki, nagyon nem megy az excel
[ Szerkesztve ]
-
Fferi50
Topikgazda
válasz
allein
#39197
üzenetére
Szia!
"Tudom a termék súlyát, 5 termékünk van."
Ezeket az értékeket be kell tenni két oszlopba egy munkalapra.
1. oszlop megnevezés
2. oszlop termék súlya
Ha a termékneve valóban az F oszlopban van:
Az Fkeres első paramétere a termék neve, amit az F oszlopból veszel.
Második paramétere az a két oszlop, ahol az előzőleg mutatott értékek vannak, pl. Munka1!$A$1:$B$5
Harmadik paraméter 2 - mivel a második oszlop tartalmazza a súlyt
Negyedik paraméter 0
A példa képen viszont a termékek az M-O ill gondolom a Q oszlopig vannak, mivel 5 terméket említettél.
Akkor nem kell Fkeres függvény.
Ha sorrendben vannak a termékek az M-Q oszlopban és az AA1-AE1 cellákban vannak a megfelelő súlyok,
akkor az M-Q oszlop következő sorába írd be az alábbi képletet (a termék1 értéke alá):=M2*AA$1
majd másold le jobbra a Q oszlopig.
És kész.
Vagy R oszlop következő cellájába írd a szorzást és másold le még 4 oszlopra jobbra. Ekkor külön oszlopokban (R-V) kapod az egyes termékek súlyát.Üdv.
[ Szerkesztve ]
R68)), amibe csak bizonyos idő elteltével kerül érték automatikusan. Talán nem a .Value a megfelelő VBA-ban ?
tegeződjünk ha nem nagy gond 
Új hozzászólás Aktív témák
Hirdetés
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Smart Security Premium
- Vírusirtó, Antivirus, VPN kulcsok
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest