- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Kötelező BIOS frissítéssel orvosolná a Core CPU-k stabilitási gondját az Intel
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Kormányok / autós szimulátorok topicja
- ThinkPad (NEM IdeaPad)
- Gaming notebook topik
- Azonnali informatikai kérdések órája
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- SSD kibeszélő
- AMD K6-III, és minden ami RETRO - Oldschool tuning
Hirdetés
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Még több embert rúgott ki a Tesla
it A jelentések szerint újabb dolgozókat küld el a Tesla, ezúttal a szoftvereket és a szolgáltatásokat, mérnöki részlegeket érinti a leépítés.
-
Indika teszt
gp Teológiai utazás egy kételkedő apáca és egy istenhívő szökött fegyenc kíséretében.
-
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
-
Delila_1
Topikgazda
A Forrásadatok az A2 cellában van (formázással az A2:D2 közepére lehet tenni a vízszintes elrendezés menüpontban).
Sub Szetdob()
Dim sor As Long, ide As Long, oszlop As Integer
sor = 3
Do While Cells(sor, 1) > ""
Select Case Cells(sor, "A")
Case 1
oszlop = 5
Case 2
oszlop = 8
Case 3
oszlop = 11
End Select
ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Range(Cells(sor, 2), Cells(sor, 4)).Copy Cells(ide, oszlop)
sor = sor + 1
Loop
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Ezt nem írtad, de hamarosan átírom ennek megfelelően.
Most éhes vagyok.Szerk.: befért az ebéd elé.
Sub Szetdob()
Dim sor As Long, ide As Long, oszlop As Integer
sor = 3
Do While Cells(sor, 1) > ""
oszlop = Cells(sor, 1) * 3 + 2
Cells(2, oszlop) = Cells(sor, 1)
ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Range(Cells(sor, 2), Cells(sor, 4)).Copy Cells(ide, oszlop)
sor = sor + 1
Loop
End SubJó étvágyat!
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
Szia!
Ha az adatok az A oszlopban, az 1 az E oszlopban, 2 a H, 3 a K oszlopban, továbbá a fejlécek a második sorban vannak - vagyis az adatok a 3. sortól kezdődnek, akkor a következő képleteket próbáld ki:
E3 cella képlete: =HAHIBA(INDEX(B:B;HAHIBA(HOL.VAN(HAHIBA(KICSI(HA($E$2=$A:$A;SOR($A:$A);"");SOR()-2);1);SOR($A:$A);0);-1);1);"")
Ez lehúzható az E,F,G oszlopban.H3 cella képlete: =HAHIBA(INDEX(B:B;HAHIBA(HOL.VAN(HAHIBA(KICSI(HA($H$2=$A:$A;SOR($A:$A);"");SOR()-2);1);SOR($A:$A);0);-1);1);"")
Amit a H,I,J oszlopban húzhatsz leK3 cella képlete: =HAHIBA(INDEX(B:B;HAHIBA(HOL.VAN(HAHIBA(KICSI(HA($K$2=$A:$A;SOR($A:$A);"");SOR()-2);1);SOR($A:$A);0);-1);1);"")
Ezt a K,L,M oszlopban húzd le.Ezek a képletek tömbképletek, tehát Ctrl+Shift+Enterrel kell befejezni a képlet beírását, nem sima Enterrel.
Ahol már nem talál adatot, oda 0-át fog kiírni. Ha ez zavar, akkor megspékelheted egy HA(képlet=0;"";képlet) kibővítéssel. A képlet helyére az eredeti képletet kell beírni - továbbra is tömbképlet.
Új adat bevitele után egy F9 segít az újraszámolásban.Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz Fferi50 #25654 üzenetére
Még valami:
Az egész oszlopok használata nagyon llelassítja a számolást, ezért azt javaslom, hogy egy olyan tartományt használj, ami nagy valószínűséggel elegendő lehet - (de később természetesen ez bővíthető). Viszont feltétlenül abszolut ($-os) legyen a sor címzése pl. B$1:B$300, illetve $A$1:$A$300 és minden tartomány ugyanannyi sort tartalmazzon.
Üdv.
[ Szerkesztve ]
-
Thrawnad
senior tag
Hali!
Kicsit elakadtam.
Excel 2010
Kellene egy fügvény ami megnézi hogy egy szövegben meg van-e a másik szöveg.
Eredményül igaz, vagy hamis jön.Köszi !
ThrawnadHardver hibára ritkán van jó szoftver...
-
mikroli
újonc
Sziasztok!
A segítségetek kellene. Adott egy excel tábla két oszlop (A, B) számokkal. Az egyes oszlopokban a számok ismétlődhetnek többször is valamint az A oszlopban is lehet olyan szám, ami szerepel a B-ben és fordítva. A feladat az lenne, hogy össze kellene párosítani a mindkét oszlopban szereplő számokat úgy, hogy amelyiknek nincs párja, azt egy harmadik oszlopban listázza. Nem igazán van ötletem, hogyan lehetne kivitelezni, viszont egy csomó felesleges munkát megtudnék vele spórolni... Előre is köszi, ha valaki tudja rá a megoldást...
-
Delila_1
Topikgazda
válasz mikroli #25657 üzenetére
Makró arra az esetre, mikor az A és B oszlopban azonos mennyiségű szám van, és az adatok a 2. sorban kezdődnek (címsor az első).
Sub Paratlanok()
Dim sor As Long
sor = 2
Do While Cells(sor, 1) > ""
If Application.CountIf(Range("A:B"), Cells(sor, "A")) = 1 Then _
Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 1)
If Application.CountIf(Range("A:B"), Cells(sor, "B")) = 1 Then _
Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 2)
sor = sor + 1
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz mikroli #25659 üzenetére
Arra az esetre
Sub Paratlanok()
Dim sor As Long
sor = 2
Do While Cells(sor, 1) > ""
If Application.CountIf(Range("A:B"), Cells(sor, "A")) = 1 Then _
Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 1)
sor = sor + 1
Loop
sor = 2
Do While Cells(sor, 2) > ""
If Application.CountIf(Range("A:B"), Cells(sor, "B")) = 1 Then _
Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 2)
sor = sor + 1
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz mikroli #25663 üzenetére
Semmi akadálya.
Sub Paratlanok()
Dim sor As Long
sor = 2
Do While Cells(sor, 1) > ""
If Application.CountIf(Range("A:B"), Cells(sor, "A")) = 1 Then _
Range("D" & Application.CountA(Columns(4)) + 1) = "'+" & Cells(sor, 1)
sor = sor + 1
Loop
sor = 2
Do While Cells(sor, 2) > ""
If Application.CountIf(Range("A:B"), Cells(sor, "B")) = 1 Then _
Range("D" & Application.CountA(Columns(4)) + 1) = "'-" & Cells(sor, 2)
sor = sor + 1
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz mikroli #25665 üzenetére
A
Range("D" & Application.CountA(Columns(4)) + 1) ="'+" & Cells(sor, 1)
sorból hagyd ki a "'+" & -et, a
Range("D" & Application.CountA(Columns(4)) + 1) = "'-" & Cells(sor, 2)
helyett pedig legyen
Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 2)*-1
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
KaliJoe
csendes tag
válasz Delila_1 #25604 üzenetére
Szia Delila_1,
A többi gépre??? Én nem mondtam, h egynél több gépen szeretném ezt használni!! Csak a sajátomon szeretném, de OTT NEM MEGY.
Így? Ötlet?
Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)
-
xors
senior tag
Sziasztok!
Adott egy táblázatom, amiből ki kéne törölnöm pár részt, a szerencse az, hogy ezek nagy része zárójelben van. Létezik rá megoldás, hogy ki tudjam törölni az összes olyan szövegrészt (cellákon belül) ami zárójelben van?
Köszi előre is a segítséget! -
Delila_1
Topikgazda
válasz slashing #25672 üzenetére
Eszerint félreértettem a kérdést.
A saját függvényeket a függvények között (Alt+F8) PERSONAL.XLSB!FüggvényNeve címen találod meg, így kell hivatkozni rá.
Sub mm()
Range("B1:B10") = "=personal.xlsb!FüggvényNeve(A1)"
End SubB1-től B10-ig beírja a függvényedet, aminek a hivatkozása az A oszlop azonos sora.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
TrollBalint
addikt
válasz Delila_1 #25648 üzenetére
Szia,
le akartam tesztelni a makrót, de nem akar működni
Hiába csinálom meg újra és újra, vagy azt mutatja #VALUE vagy pedig ?NAME Nem tudod mi lehet a gond? Minden ugyanúgy van, ahogy legutóbb. Ugyanazok az adatok, semmit nem neveztem át.
Másik kérdés, hogy tudom elmenteni a makrót, hogy ha megnyitom az xls-t, akkor megnyissa automatikusan a makrót is?
köszihttps://www.pathofexile.com/account/view-profile/Haarkon/characters
-
KaliJoe
csendes tag
Sziasztok,
Szia Delila_1,Nekem a PERSONAL.XLSB-ben van az a két Funkciónak szánt makróm, amit bármely (más) Excel táblában is szeretnék használni. De nem éri el...
A csatolt képen látható a "leosztás"...Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)
-
Delila_1
Topikgazda
válasz TrollBalint #25674 üzenetére
Ha xls a kiterjesztés, akkor 2003-as, vagy régebbi verziójú az Exceled. Ezeknél a füzet sima mentése menti a benne lévő makró(ka)t is.
Ahhoz, hogy lássam, mi lehet a hiba, a füzetet is látnom kellene.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
TrollBalint
addikt
válasz Delila_1 #25677 üzenetére
bocs, az xls-t reflexből írtam xlsx a kiterjesztés (2007-es az excel) és kipróbáltam úgy is, hogy .xlsm-be mentem, de úgy se akarta megőrízni a makrót
Mivel ez céges dokumentum, nem szeretném kiküldeni, de valamit kitalálokhttps://www.pathofexile.com/account/view-profile/Haarkon/characters
-
KaliJoe
csendes tag
válasz Delila_1 #25676 üzenetére
Szia Delila_1,
Nem, nincs cellahivatkozás. Ez funkció, és nincs köze cellához. Konkrétan ez csak egy bizonyos értékekkel növeli a változót. Ha nincs megadva növekmény, akkor 1-gyel. Ennyit tud... De nem is ez a lényeg, hanem ezen kezdve el akartam kezdeni felépíteni a saját függvényeimet.
De egyébként az előző poszt képes részében látszik a teljes helyzet.
[ Szerkesztve ]
Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)
-
Delila_1
Topikgazda
válasz TrollBalint #25678 üzenetére
Megnyitod a füzetet. Alt+F11-gyel átváltasz a VBA editorba (VBE). Bal oldalon kijelölöd a füzetedet. Insert menü, Module. Jobb oldalon kaptál egy nagy üres területet, oda másold be a makrót. Lépj vissza a füzetbe, mentés makróbarátként.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
KaliJoe
csendes tag
válasz Delila_1 #25681 üzenetére
Szia Delila_1,
Nem, erre a megoldásra hibát ad. Pláne, mi az az egyenlőségjel az elején? Ahogy láthatod a képen, ez egy funkció... úgy érzem még mindig nem értjük egymást rendesen... Nem tudnánk Skypeon megbeszélni?
Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)
-
TrollBalint
addikt
válasz Delila_1 #25680 üzenetére
Sikerült köszi
Kipróbáltam, hogy a makrót beleírom egy új excelbe, és ott működött. Elmentettem, visszatöltöttem és már nem működött. Gyanítom excel beállítási hiba, esetleg van valami ötleted (vagy bárki másnak ) mi lehet a gond?https://www.pathofexile.com/account/view-profile/Haarkon/characters
-
Delila_1
Topikgazda
válasz TrollBalint #25684 üzenetére
Engedélyezned kell a beállításoknál a két Analysis kezdetű bővítményt az Excelben.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Chesterfield
senior tag
Az fkeres függvényem vajon miért az utolsó találat sorában lévő értéket adja eredményül?
Tudtommal az elsőt kéne.thx
-
DrojDtroll
addikt
Sziasztok!
Egy ilyen cellához milyen képlettel tudok hozzáadni 15 percet?
-
Fferi50
őstag
válasz Chesterfield #25686 üzenetére
Szia!
Írd ide légy szíves a képletet, mert az fkeres a negyedik paraméter függvényében vizsgálja a keresendő értéket. Esetleg a táblázatod egy részét is megmutathatnád képben.
Üdv.
-
Fferi50
őstag
válasz DrojDtroll #25687 üzenetére
Szia!
Az a kérdés, hogy a cella időformátumú vagy szövegformátumú.
Ha időformátumú, akkor az IDŐ függvény használatával:
C1 cella képlete: =b1 + idő(0;15;0)
Ha szöveg, akkor bonyolultabb, mert a szövegkezelő függvényekkel (bal,jobb,közép) "le kell vadászni" az óra-perc-másodperc részeket a forráscellából, hogy hozzá tudd adni a perceket.Üdv.
-
Fferi50
őstag
válasz Chesterfield #25691 üzenetére
Nincs mit, szívesen.
Üdv.
-
Agony
aktív tag
Sziasztok!
Belefutottam egy problémába amit nem sikerült függvénnyel megugrani, van esetleg rá ötletetek?
Példa:
- B2 : K2 -ig tartalmazza a referencia számokat
- C2 : K2 -ig az eseti számadatokatÖssze kellene hasonlítani a sorok egyes cellákat egymással, tehát B2-t B3-vel, C2-t C3-al, aztán megállapítani, hogy egyezik-e vagy sem. DARABTELI-vel gondoltam, de a referencia sor alatt sok beérkező adat van, tehát nem tudom minden sor alá odatenni az eltéréseket, hanem az A oszlopban kellene összegezni, hogy például a 3. sorban 4 eltérés volt, a 4. sorban 8 eltérés volt, stb...
Megvalósítható ez szerintetek függvénnyel vagy ez már inkább makró?
Előre is köszönöm a segítséget!
Üdv,
Levi[ Szerkesztve ]
Start with a whisper, end with a scream!
-
Agony
aktív tag
válasz Delila_1 #25696 üzenetére
Elnézést, szerintem én írtam le pontatlanul a problémát.
Van egy referencia sor, ami számokat tartalmaz és az összes többi sor eredményeit ahhoz kell hasonlítani egyesével és soronként kiértékelve. De lehet az lesz a legegyszerűbb ha nyitok egy másik munkalapot, ott számolok, aztán már csak az eredmény kerül át az első oszlop celláiba.
Start with a whisper, end with a scream!
-
bukrinca
újonc
Sziasztok!
Van-e lehetőség Excelben, hogy ha egy munkafüzetet szerkesztek, de nem akarom a gépre lementeni, akkor a neve ne munkafüzet1 legyen a csatolmányban, hanem amikor email-ben továbbküldöm, ott már az általam meghatározott néven jelenjen meg,Köszi.
Új hozzászólás Aktív témák
- UJ CIMEK PC jatekok eladok vagy cserelhetoek
- BIG BOX lot - Adventure II. (Stonekeep, Myst 3, UO 2nd Age)
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
- WIBU Software Development Kit
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen