- Android szakmai topik
- Milyen okostelefont vegyek?
- iPhone topik
- Apple Watch
- A hagyományos (nem okos-) telefonok jelene és jövője
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Fotók, videók mobillal
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Android alkalmazások - szoftver kibeszélő topik
-
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
-
Fferi50
Topikgazda
Szia!
Viszont amennyiben 6 szám átlaga kell, akkor kevesebb számból nem ér átlagot számolni
Egyébként nálad is feltétel az, hogy egymást követő 6 sort néz, nem pedig egymást utáni 6 számot. Ez utóbbi feltétel teljesíthetőségén - azaz 6-6 számot nézzen akkor is, ha nem egymást követő sorokban vannak - még morfondíroznom kell. (pl. 1,3,b,8,9,d,10,2,z,,8 ... hat-hat darab szám átlaga v. összege, mert abból már lehet átlagot számolni könnyen.)
Üdv. -
jcage
tag
Próbáltam demonstrálni, mit szeretnék. A oszlop tartalmát szeretném vizsgálni, hogy a B oszlopban szereplő tartomány része-e, ha igen, akkor ez látszódjon C-ben. Ha még meg is számolná azzal a mozdulattal, már csak hab lenne a tortán.
Viszont a CIDR tartományok változatosak /16 - /30 között.
-
Msony
tag
Nagyon köszi.
De ez fizetős.
Olyat én is tudok.Ingyenesből van VBA kódos: link és link
Mike barátunk az általa írt makróval megoldja, hogy a Sankey elkészül a böngészőben, még módosítani is lehet ott, de ez is egy külső megoldás, amit le kell fotózzak és képként beilleszteni a doksiba.Szóval szeretném használni a google diagramjait, mert a Script lab ezt ingyenesen lehetővé teszi.
Külső modullal készült és képbefotózós megoldást többet is ismerek, de az lassú és nem szép.üdv
-
AttyVin
aktív tag
-
#49571
MasterMark
titán
lappy
#49570
MasterMark
titán
Köszi, tökéletes.
Ez lett belőle:
For Offset = 3 To 7
Formula = Loc.Resize(1).Offset(0,Offset).Formula
ExpArray = Split(Formula, "+")
Exprr = ExpArray(UBound(ExpArray))
Exprr = Replace(Exprr, CStr(Loc.Row - 1), CStr(Loc.Row - 2))
Loc.Resize(1).Offset(0,Offset) = Formula & "+" & Exprr
Next Offset -
#49501
Kence Fice
lelkes újonc
lappy
#49500
Kence Fice
lelkes újonc
Ismertek az eddigi havi költések témakörök szerint, annyit sejteni lehet, hogy ebből a rezsi az nagyon komolyan megemelkedik, valószínűleg az élelmiszerárak is, de kisebb mértékben.
A szabad pénzmennyiségre kell fókuszálni, hogy mennyivel csökkentsük a más témakörökre költéseket, a minimális tartalékot valahogy megtartsuk, hogy mindig legyen valamennyi készpénz. -
bozsozso
őstag
Szerintem rosszul fogalmaztam és már csak azt mutattam mit akarok a végén.
Tehát jelenleg A oszlopban ez van:
1111111
2222222
3333333
4444444pl: a 1111111-et szeretném 365 sorban, hogy a B oszlopba tudjam berakni a dátumot január 1-től december 31-ig
Minden azonosítót 365 soron szeretnék látni.
-
bteebi
veterán
Így vagy úgy, de fura. Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen. Egy dolgon kellett módosítani, mert talán nincs simán olyan, hogy Workbook_Close (tulajdonképp logikus), csak olyan, hogy Workbook_BeforeClose:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.WindowState = xlMaximized
End SubHa csak a
DisplayFullScreenvan a kódban, akkor ugyan újra megjeleníti a ribbont, viszont ablak méretűvé változtatja a file-t, ezért kell bele aWindowStateis. De akármilyen módban is hagyom ekkor (ribbon mutatás/rejtés, vagy épp ablak/teljes képernyő), a következő file-t annak megfelelően nyitja meg ribonnal vagy anélkül, ablakban vagy teljes képernyőn. -
bteebi
veterán
Egy kis félreértés van, valamelyest becsapós a megfogalmazás.
Van a "teljes képernyő"-nek nevezett nézet, ami annyit csinál, hogy elrejti a menüket, és csak a cellák látszanak (vagyis nagyobb a látható "hasznos" munkaterület). Ezt csinálja az
Application.DisplayFullScreen. Ez működik akkor is, ha az Excelt csak egy ablakban futtatod, vagy ha az ablakméretet maximalizálod ("teljes képernyős ablak"). A lényeg pedig annyi lenne, hogy a makrót tartalmazó file, ablakban vagy nem ablakban ("teljes képernyőn") futtatva is teljes képernyős nézetben, vagyis menük nélkül induljon.Azt viszont nem szeretném, hogy a teljes képernyős nézet (=rejtett menük) más file-ok megnyitásakor is megmaradjon, ezért kapcsolnám ezt ki a Workbook_Close makróval. De ez utóbbi sehogy se működik...
Remélem most már érthetőbben fogalmaztam; nem vagyok teljesen biztos benne.
-
psg5
veterán
Bocsánat! Probaltam mindig tomiren egyszeruen leirni.
Tényleg koszonom mert ha a legujabb officet hasznalja mindenki akkor teljesen jol mukodik a fülek rejtese jelszoval.
Sajnos tobb regebbi excel is használatban van igy siman egy mappábavtesszuk a különböző munkafuzeteket (amelyek eddig fulek voltak) es egy = fuggvennyel mjndegyikbol behuvjuk az adatot egy torzs munkafuzetbe. Igag azt nem talaltuk hogy milyen modon lehet megoldani hogy ne kelljen minden cellába végig = fuggvenyt kézzel irigatni mert ilyenkor nem engedi sima huzassal ervenyesiteni a következő cellára. -
-
psg5
veterán
Igen köszönöm ez megvan.
Sajnos valamit nem jol masolok modositok, mert van amikor bár eltunnek a fulek, hiaba irom be a jelszot. Es van hogy hiaba irom be a makrot nem tunnek el a fulek.
Illetve az altalad kuldottben hiaba irom be a makros jelszavadat nem tortenik semmi. -
Silious
tag
Nem, pontosan megadnám, hogy hol keressen, tehát lehetne úgy is értelmezni, hogy az A oszlóbban lévő sor001.jpg, és a B oszlopba pedig ezt a képet beillessze nekem automatikusan.
Mondhatni a B2 cellába akarok egy függvényt vagy makró, aminek megadom, hogy az A2 cellában lévő fájlnevet keresse, és megadom neki, hogy a C:\kepek\ mappába keresse meg és persze illessze is be.
-
hódmaci
senior tag
Idő formátumnál történik ez. Azt állítottam be.
Ezért nem értem laikuskén mit keres ott a dátum.
Fire/SOUL/CD
Vagyis ha jól értelek akkor minden cellába be kell pötyögnöm a xx:00 -t
Nem tudom azt megtenni, hogy autómatikusan a 17et átalakitsa 17:00 ra -
#49293
z123456789
addikt
lappy
#49292
z123456789
addikt
Elnézést mindenkitől, nem sűrűn használok excelt, ha igen, akkor is a legalapabb funkcióit, nem tudom mire képes a program. Csak sejtem, hogy kb mindenre.
Azt akkor gondolom nem tudja, hogy a Trello alkalmazáson belül levő adatokra hivatkozzon. Tehát mondjuk, ha azt a leírást kimásolom egy TXT fájlba, azzal már tudnk valamerre haladni?
Egyébként mostanában láttam ezt a makró funkciót, azzal gondolom meg lehet oldani, de nem tudom hogy működik. Illetve így "hangosan" gondolkodva, nem is azzal van a baj, hogy annak utána járjak, hanem azt gondoltam, hogy egyből tudom ipmortálni a Trelloban levő adatokat. De akkor ez így ebben a formában nem működik, igaz? Kell valami másik program, ahova kimásolom ezeket az adatokat, és az excel táblázat arra tud majd hivatkozni? Valami ilyesmi?
-
#49285
z123456789
addikt
lappy
#49283
z123456789
addikt
Adott a Trello nevű app, amiben lényegében minden adatot tök jól tudunk rögzíteni, tehát lényegében ő lenne az adatbázis. Már amennyire lehet a Trelloban levő adatokat adatbázis nyilvántartásként kezelni.
(Szerintem amúgy már itt bukik a dolog.) A képen látni, hogy Adott cég adatai szerepelnek egy trello kártya leírásában, rendezett sorokban. Ezeket az adatokat szeretném átültetni a linkelt excelbe, mindegyiket oda, ahova való.
49284detroitrw
Köszönöm, ezt néztem én is, de ha van mód rá, akkor inkább a fent leírtak szerint készíteném, hogy ne nagyon legyen még plusz dolgom vele. -
#49261
istvankeresz
aktív tag
lappy
#49260
istvankeresz
aktív tag
Szia!
Lehet, hogy nem jól írtam le, de így talán jobban érthető:
Ez az "adatbázisom" az egyes lapfülön:
Ezt szeretném a második lapfülön:
Ha B3-ba beírok egy 2-est akkor C3 és D3 automatikusan kitöltődik, azaz így néz ki:
Ha esetleg letudnád írni erre a példára a konkrét függvényt, akkor azon eltudnék indulni.
Előre is köszi!
-
Dilikutya
félisten
Nem, csak lehet rosszul írtam le. Szóval:
Van egy cél oszlop, egyszerűség kedvéért A2:A10 mondjuk (amúgy J
), és van az értékek tömbje, ez B210.
A szerint van színezve, hogy a tömb értékei hogy viszonyulnak az A-hoz (<90, 90<értékek<100, >100). De bejön egy plusz feltétel, ezek legyenek a 11. sorban, B1111, az értékek alatt. Ez ha nulla, marad a fenti formázás, de ha nagyobb nullánál, akkor az az érték B210-ben legyen szürke, tökmindegy, hogy viszonyul az A oszlophoz. -
Dilikutya
félisten
Visszazárás, feloldás után jó lett, valóban a celláknál volt. Valószínűleg így lett anno megcsinálva, a 100. sorig kijelölve, és úgy zárolva. A makróban nincs ilyen, az csak amikor a második oszlopba beírunk, felold, beírja az elsőbe a dátumot, és visszazár. Fél perc guglizással bárki feltöri, szerencse hogy ezeknek annyi esze van mint egy marék molylepkének, így elég a védelem.
-
Delila_1
veterán
Az előzőnél az
oszlop = Application.Match(cim, Range("G1:BB1"), 0)
sor olykor 0 értéket ad, ha nem található a G1 : BB1 tartományban a cím.
Az eredetiIf VarType(oszlop) = vbError Then
sort ezért kibővítettemIf VarType(oszlop) = vbError Or oszlop=0 Then
-re, de lemaradt egy p betű az oszlop végéről. -
Delila_1
veterán
Sub Masolas()Dim cim As String, sor As Long, tartomany As Range, oszlop As Integer, usor As LongSet tartomany = Selectionsor = tartomany(1).Rowcim = Cells(sor, 2)On Error Resume Nextoszlop = Application.Match(cim, Range("G1:BB1"), 0)If VarType(oszlop) = vbError Or oszlo=0 Thenoszlop = Cells(1, Columns.Count).End(xlToLeft).Column + 1Cells(1, oszlop) = cimElseoszlop = oszlop + 6End Ifusor = Cells(Rows.Count, oszlop).End(xlUp).Row + 1Selection.Copy Cells(usor, oszlop)End Sub -
lappy
őstag
A következő probléma megoldásában kérném a segítségeteket:
Adott egy bemásolt lista az A1 cellától lefelé. A lista elemei legyenek a példa kedvéért sorban
pl.: cikkszám, mennyiség, egység, megnevezés, ár, …. , de a listában egymás után több cikkszám, mennyiség, egység … van
A következőt szeretném az átalakításhoz
A lista elemeit oszlopokba helyezze, de csak azt amelyikre éppen szükségem van – kijelöléssel történne és adom meg mettől meddig. Kijelölök egy tartományt akkor helyezze át a következő üres oszlopba majd a következő tartományt mellé (akár ezek az áthelyezések lehetnek egy munkalapon is). De a csavar az benne, hogy utána újabb listát másolok be és azt is mint az előző kijelölés után tegye az általam megadott oszlop utolsó eleme után. -
lumpy92
aktív tag
Közben rájöttem, hogy rosszul irtam le, fordított az irány.
Tehat van egy cellám (szöveg a cellaformátum), amiben szerepel, hogy 84,09. Cserével a vesszőt kicserélem pontra és szept.84 lesz az érték a cellában.
(Hiába állítom be a formátumát, már nem az eredeti értéket kapom vissza, hanem a dátum számértékét).
Ezt szeretném kiküszöbölni. -
VGYke
addikt
Nem jó, a feladat bonyolultabb. Egy hívjuk adatbázis munkalapról szeretném kiválogatni majd sorba rendezve egy másik munkalapon megjeleníteni a szükséges adatokat, makrók nélkül, csak képletekkel megoldva.
Már az is jó lenne, ha képlettel ki tudnám nyerni az adott cellába beszúrt hivatkozást.
lenkei83: nem jó az "Adatok beolvasása és átalakítása" (lekérdezés)?
Csak pár másodpercet játszottam vele, de nekem sikerült:
-
-
kormo1
csendes újonc
igazából arra gondolok, hogy van egy cellában sok-sok karakter és azt a makró az első karaktertől az utolsóig kijelölje/válóglapra rakja és ezt majd én be szeretném illeszteni valahová, de ha az egész cellát jelölöm ki és beillesztem akkor nem ugyanaz lesz a végeredmény, szóval a nekem egy adott cellában lévő összes karakter kijelölése kell...
-
#48939
Lasersailing
senior tag
lappy
#48938
Lasersailing
senior tag
Azt nem, tudtam, akkor sorry.
daver88:
Akkor amit szerintem lehet tenni, de ez nagyobb meló:
csinálsz egy adatbázis file-t, ill. egy másik file-t. A másik file-t nyitja meg minden felhasználó, az sem baj, ha csak read only-ban, mert más is használja.
Ez a másik file struktúrája ugyanúgy néz ki, mint az adatbázis maga:
1-es felhasználónak betöltöd a teljes file-t, míg
a 2-es felhasználónak csak az AB oszlopokat.
Végül mentésnél kiírod az adatokat az adatbázisba.Csak az a gond, hogy gondoskodnod kell az alábbiakról:
- mi van akkor, ha ugyanazt az adatot két ember egyszerre írja felül? Kinek lesz igaza, vagy esetleg szólsz a második mentőnek, hogy ezt közben valaki felülírta (ez esetben kell egy "láthatatlan" másolatot betölteni, hogy lássad, hogy miről mire változtatott a felhasználó, és a "miről"-t összehasonlítani az adatbázissal
- sortörlés, sorbeszúrás kezelése
- és millió dolog ami még nem jutott eszembe...Én csináltam ilyen jellegű programot, de ott a felhasználó csak 2-3 oszlopot írhat át (átírhat többet is, de azok elvesznek makrós-mentéskor)
- nincs sorbeszúrás - törlés gond (13-jegyű cikkszámok alapján azonosítja a sort)
- És rajtam kívül még 1 felhasználó használja (+ programok mentenek az adatbázisba), akit ki lehetett képezni a használatra. Ez utóbbi a legfontosabb! Ha nagyon alap tudással rendelkeznek a felhasználók, akkor nagyon sokat kell programozni, hogy minden lehetséges hibát lekezelj... -
Melorin
addikt
Van egy saját táblázatom, amiben vezetem azokat a termékeket, amikre szükségem van a munkámhoz. Ezeknek a beszerzési árát folyamatosan vezetnem kell, hogy mire a megrendelésre kerül a sor, tudjam, hogy mennyibe kerülnek, ráadásul ha lejár az ára egy terméknek, meg sem lehet rendelni addig, amíg nem kérek új árajánlatot rá, és nem frissül a központi adatbázisban az ára. Ha jön rá árajánlat és frissül az ára, kapok egy emailt amiben leírják, hogy mennyi az új ára és hogy azt milyen dátumig tudják tartani a cégek.
Nemrég jöttem rá, hogy a központi adatbázisból le lehet kérni az összes létező anyag aktuális árát és annak érvényességi dátumát.
Mutatom milyen formátumban (nyílván ez két külön táblázat, csak most hogy egy képen szerepeljenek, egymás alá másoltam őket egy táblázaton belül):
[kép]A felső a saját táblázatom, amiben vezetem azt, hogy mikor kértem új árat egy termékre.
Az alsó a rendszerből lekérdezett.
Az lenne a feladat, hogy amennyiben a lekérdezett táblázatban egy anyag árának érvényessége újabb mint ami az én táblázatomban szerepel (zölddel jelöltem egy példát erre), írja át az én táblázatomban ezt a dátumot erre az értékre, és törölje ki a mellette lévő árkérési dátumot, mivel már megkapta az új árat.
Sajnos ahogy látszik, a lekérdezett dátum formátuma eléggé érdekes finoman szólva.
Ahogy a folyamatot elképzelem:
- Lekérem a legfrissebb adatbázist a rendszerből, lementem egy adott mappába.
- A makrót elindítom és cikkszám alapján végigmegy és összeveti az én táblázatomban szereplő adatokkal cikkszám keresés alapján (A oszlop).
- a "C" oszlopból pl. 20200930 ~ 20221231 értékből 2022.12.31-et kell csinálni
- ezt beírni a saját táblázatomban a megfelelő sor E cellájába, és az F cella tartalmát kitörölni amennyiben annál a dátumnál újabb ez az új dátum.
-És természetesen az ár oszlopban szereplő értéket is írja át mindenképp, akár más az előzőhöz képest akár nem.Ezt meg kell csinálnia minden egyes sorral a táblázatomban.
-
-
#48840
Fire/SOUL/CD
félisten
lappy
#48839
-
nyikszi
őstag
Miért nem lottózom?
Annyira biztos voltam benne, hogy erre kell A Pulover's Macro Creator program kell neked, van portable verziója is. Én egy játékban kattintás helyettesítőnek használom. Ugyan nem lett gyorsabb a kattintás, sőt, de viszont nincs is ínhüvelygyulladásom, mint egy játékostársamnak
Lényeg, hogy lehet benne mindenfélét csinálni, tutorialt is találsz hozzá, kifejezetten Excelhez valót is találsz. Most 2 perc alatt csináltam egy olyat, ami arrébb lépteti az Excelben a kurzort és az előre meghatározott szövegből ír be egy szöveget. Lehet véletlenszerűen is időt választani két parancs közti időtartamra.Honlap: [link]
Letöltés (portable is): [link]
-
#48805
BigBadPlaYeR
senior tag
lappy
#48800
BigBadPlaYeR
senior tag
Mi a célja ennek a macro-nak? Mert ha csak annyi, hogy ne aludjon el a gép, akkor javaslom a Zhorn - Caffeine nevű programot.
-
Fferi50
Topikgazda
Szia!
Pl.Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Intersect(Target, Range("A1:B8")) Is Nothing ThenTarget.Value = "akarmi"End IfEnd Sub
Ha a kiválasztott cella nem esik az A1 : B8 tartományba, beleírja a cellába a szöveget.
[Itt a helpje]
A target paraméter az a tartomány (egy vagy több cella), amely újonnan lett kiválasztva. A tartomány minden paraméterét vizsgálhatod az eseménykezelő makróban, sőt más cellák, tartományok, paraméterek függvényében alakíthatod a makró futását.
FONTOS: Ha cellák értékét változtatod vagy másik tartományt szeretnél Select v. Activate paranccsal elérni a makró közben, akkor az elején ki kell kapcsolnod az eseménykezelést az Application.EnableEvents=False sorral - a kilépés előtt pedig visszakapcsolni True paraméterrel.
Üdv. -
#48798
BigBadPlaYeR
senior tag
lappy
#48794
BigBadPlaYeR
senior tag
Köszönöm, jó leírás a cella formázásról; de sajnos nem lehet megoldani vele amire szükségem lenne.
Képlettel sikerült elérni egy kerülő-megoldást, de hátha másnak is jól jön:=HA((A1-INT(A1))>0;CSERE(A1;SZÖVEG.KERES(",";A1);1;".");A1)
(Leellenőrzi, hogy van-e tört része; ha igen, megkeresi, hogy hol a tizedes elválasztó, és lecseréli pontra) -
tomi5244
őstag
Bocsánat, az lemaradt. De igazából arra nincs időkeret megszabva. Kis mennyiségben nyilván nem ültetünk, szóval 1 óra rezsidíj (3.900.-) mindig összejön, ha felszorzom a db-ot. A gondom inkább az, hogy a végösszegnél a 3.900.- soha nem jön ki, mindig tört óra a végeredmény.
Fenti példa alapján 18db örökzöld 16.920.- ez pedig 4,33 óradíjra jön ki. Nekem már az is elég lenne, ha egész órára kerekítene a képlet. És utána hozzá igazítaná az árat, mert ügye nekünk kifele közölni kell az ültetési költséget. Tehát 16.920.- = 4,33 óra -> 4 óra = 15.600.-
Itt nem is lenne kikötés a negyed órás kerekítés, mindig egész óra elérése lenne a cél.
Nem tudom, hogy így átlátható e?
-
underdark
aktív tag
-
#48673
Fire/SOUL/CD
félisten
lappy
#48671
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Vírusirtó, Antivirus, VPN kulcsok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Álmodozol egy erősebb gamer élményről? Kamatmentes rèszletre is!
- REFURBISHED és ÚJ - HP Thunderbolt Dock G2 230W docking station (3TR87AA)
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- BESZÁMÍTÁS! Gigabyte B450 R7 5700X 32GB DDR4 512GB SSD RX 6700XT 12GB Rampage SHIVA be quiet! 650W
- AKCIÓ! Gigabyte AORUS 16X (2024) Gamer notebook - i7 14650HX 16GB RAM 1TB SSD RTX 4070 8GBWin11
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest