- Fejhallgató erősítő és DAC topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Milyen egeret válasszak?
- Végleg lemondott a régi gépekről a Steam
- LG LCD és LED TV-k
- Akciókamerák
- Kompakt vízhűtés
- Épített vízhűtés (nem kompakt) topic
- Napokon belül mindenki megkapja a GeForce Now időlimitjét
-
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
-
ReSeTer
senior tag
Helló!
A fenti A5 mezőbe szeretném összeadni a D oszlopban lévő összegeket, de csak azokat az összegeket, amelyekkel egysorban lévő C oszlop cellája tartalmaz BÁRMIT.
Ha üres, akkor hagyja ki.
A formulát megírtam nagyjából, a kettő ; közé nem tudom, hogy hogyan írjam be, hogy "ha nem üres".
Van erre valami megoldás? -
ReSeTer
senior tag
Helló!
Olyan kérdésem lenne, hogy van egy táblázat ami így néz ki:
A oszlopban nevek
B oszlopban számok
C-ben pedig az egyik cellába megkell keresni a B oszlopban a legnagyobb számot, DE, nem a számot kell kiírni, hanem az A oszlopban lévő nevet ami a legnagyobb számmal azonos sorban van.
Gyakorlatilag mintha megkeresnénk a legnagyobb keresetű emberkét, de nem az összeget íratnám ki a C oszlop egyik cellájába, hanem a nevét.
Na most a legnagyobb szám megvan, de a nevet hogyan íratom ki vele?
Tudom, hogy többféle megoldás van, valószínűleg én bonyolultan oldanám meg, a legegyszerűbb megoldásra lennék kíváncsi.Köszönöm!
-
#53438
ReSeTer
senior tag
Fire/SOUL/CD
#53437
ReSeTer
senior tag
válasz
Fire/SOUL/CD
#53437
üzenetére
Köszönöm a próbálkozást, ez van sajnos, marad így akkor.
-
#53436
ReSeTer
senior tag
Fire/SOUL/CD
#53434
ReSeTer
senior tag
válasz
Fire/SOUL/CD
#53434
üzenetére
Ha kiveszem a DAO-t, akkor
A következő sornál: Dim dbs As Database, rec As Recordset
Ha visszarakom a DAO-t, akkor pedig az eredeti problémához jutok vissza. -
#53433
ReSeTer
senior tag
Fire/SOUL/CD
#53431
ReSeTer
senior tag
válasz
Fire/SOUL/CD
#53431
üzenetére
Windows 10, az Office 365 excel 64 bites, gondolom a többi része is. Én már mindent pipálgattam, a referenciáknál, de egyelőre nem segített.
Most nem vagyok annál a gépnél, de ha jól emlékszem, a 32 bites program files-ban megtaláltam azt a .dll-t ahova mutatott, átmásoltam próbaképpen a 64 bites-be, és utána jutottam el a fenti hibához...ezelőtt még hamarabb állt meg az egész.
Ez a makró elég régi, több mint 10 éves. Jelszó védi, tehát belenyúlni nem lehet a forráskódba. -
ReSeTer
senior tag
Helló! Nem tudom, hogy jó helyen kérdezem-e, igazítsatok légyszíves útba, ha nem jó helyen.
Van egy makró, amely eddig jól működött. Nem tudjuk mióta, de most nem fut le az egyik bővítmény. Semmit nem változtattunk tudtommal, kódba nem írtunk bele.
A kód ahol megáll:
Set wrkJet = CreateWorkspace("NewJetWorkspace", "admin", "", dbUseJet)
Referenciák:
Mit lehet a probléma?
-
ReSeTer
senior tag
Helló!
Van egy projektem ami excel táblázatból szed ki adatokat és illeszti be ezt egy word sablon dokumentumba.
A gondom az, hogy kompatibilitási probléma akadt néhány kollégánál, mert a Microsoft Word Object Library 16.0-t használja a program.
Át kellene alakítanom a kódot olyanra, hogy ne kelljen semmire se hivatkozni.
Eddig ezt csináltam:
Dim wordapp As Word.ApplicationDim wDoc As Word.DocumentSet wordapp = CreateObject("word.application")Set wDoc = wordapp.Documents.Add(sablonpath & sablonfilename)wordapp.Visible = Truehelyett ezt használom:
Dim wordapp As ObjectDim wDoc As ObjectSet wordapp = CreateObject("word.application")Set wDoc = wordapp.Documents.Add(sablonpath & sablonfilename)wordapp.Visible = TrueA word dokumentumot még létre is tudom hozni, de vannak olyan sorok amit hibára állnak:
Ezek a sorok nem közvetlenül egymásután vannak, csak most kigyűjtöttem őket:
wordapp.ActiveDocument.Sections.Item(1).Footers(wdHeaderFooterPrimary).Range.Text = Application.UserName & Chr(13) & Datewordapp.Selection.EndKey unit:=wdStory, Extend:=wdMovewordapp.Selection.InsertBreak Type:=wdSectionBreakNextPagewordapp.Selection.MoveDown unit:=wdScreen, Count:=1wordapp.Selection.PasteAndFormat (wdFormatOriginalFormatting)Mi lehet a probléma?
-
ReSeTer
senior tag
Bocsánat ha rossz topic, igazából VBA topic nincs, csak VB.
Hogyan tudnék egy Word dokumentumban található táblázatba új sort csinálni célzottan? Tehát ne a végére csináljon, hanem mondjuk megtudnám adni, hogy melyik sor alá.
wordobjektum.Tables(táblázatazonosító).rows.add
Itt tartok.
-
ReSeTer
senior tag
Helló!
Fel lehet valahogy használni egy funkción belüli változót a főmakróban?
Function peldafunkcio (a as integer, b as integer) as integerpeldafunkcio=a+beztakaromfelhasznalni=a-bEnd FunctionSub fomakro()egyebvaltozo=valami+eztakaromfelhasznalniEnd SubEzt így nem lehet, mert üresen áll a "eztakaromfelhasznalni" váltózó miután visszatér a program a fomakro-ba.
-
ReSeTer
senior tag
Helló!
Lehet olyat csinálni VBA-ban, hogy csinálok egy sablon kódsort, és azt behívom máshol ott megadott értékekkel?
Sablonkod()
A=
B=
Sor=
Oszlop=
Muvelet=A+BCell(Sor,Oszlop).Text=Muvelet
End Sablonkod
És akkor ezt így használnám egy másik kódban:
Masikprogram()
Call Sablonkod(A=4,B=8,Sor=1,Oszlop=3)
End Masikprogram
Bocs, tudom, hogy ez így nem helyes, még tanulom a VBA-t, de remélem a lényeg átjön.
Lehet ilyet csinálni? Valami olyat találtam, hogy egy funkció visszaad egy változót, de nekem nem kell, hogy visszaadjon bármit is, inkább csináljon valamit, mint pl fent, hogy átír egy cellát. -
#47793
ReSeTer
senior tag
Dark Archon
#47774
ReSeTer
senior tag
válasz
Dark Archon
#47774
üzenetére
Köszönöm, ezt kerestem.
-
-
ReSeTer
senior tag
Köszönöm az eddigi válaszokat.
Egyszerűnek tűnő problémánál akadtam el.Van egy word dokumentumom, benne egy táblázattal, amit excelből makróval töltöttem ki.
Szeretnék a lap végére egy oldaltörést tenni, hogy majd utána a következő lapra beillesszem az első oldal teljes tartalmát.Eddigi próbálkozásaim mindig a lap elejére raktak egy oldaltörést.
-
ReSeTer
senior tag
Sziasztok!
Szeretnék kettő szöveget beilleszteni egy cellába. A probléma az, hogy az egyik szövegnek félkövérnek kellene lennie.
A következő megoldással illesztek be jelenleg:ameret = Range("G" & talalatsorszama) & " " & Range("I" & talalatsorszama) ' String az ameretwDoc.Tables(1).Cell(aktivsorszam, 2).Range.Text = ameretMilyen módszerrel lehetne ezt megoldani?
-
ReSeTer
senior tag
válasz
Fferi50
#47642
üzenetére
Köszönöm, eszközölnöm kellett kisebb módosítást, de működik a Range Find metódusával.
Másik:
Szeretnék beilleszteni egy Word dokumentumban lévő táblázat celláiba értékeket. A cellák üresek.
Egyszerűen nem találok rá egyszerű megoldást a google-ben.
Hogyan tudom meghatározni, hogy hova illesszen be? Van valami azonosító?Eddigi kód:
Sub openword()Set wordalkalmazas = CreateObject("word.Application")wordalkalmazas.documents.Open "elérésiút\probasablon.doc"wordalkalmazas.Visible = TrueEnd Sub -
ReSeTer
senior tag
Helló!
Egyszerűen nem tudok rájönni, hogy miért működik első ciklusban az egész, majd amikor az első ismétlés elkezdődik, hibára fut:
holkeressen = "A1:A1000"
For megintismetel = 1 To 3talalatsorszama = Application.Match(munkaszam, Range(holkeressen), 0)
holkeressen = "A" & talalatsorszama + 1 & ":A1000"If VarType(talalatsorszama) = vbError ThenMsgBox " nincs talalat", vbInformation, "Hiba"ElseMsgBox "cella tartalmának sorszáma az A oszlopban: " & talalatsorszama, vbInformation, "Eredmény üzenet"End IfOn Error GoToEgyéb kód ittNext megintismetelA cél az, hogy addig ismételje, amíg van találat, de próbaképp csak 3x akarom ismételni, majd később átírom. De így se fut le. Elvileg át kellene írnia mindig a keresési tartomány elejét az "előző találat+1"-re, hogy ne számolja bele az előbbi találat.
Hibaüzenet: Runtime error '13'
Type MismatchAmikor debug módban rámutatok egérrel a talalatsorszama-ra akkor: Error 2042 az értéke
Mi lehet a probléma?
-
ReSeTer
senior tag
Ok, közben valahogy megoldottam, viszont a következő probléma:
Van egy változóm: sorszam = mondjuk 1
Szeretném ha a "masikvaltozo" értéke a "sorszam és 1 oszlop" értéke lenne
Tehát a lenti példában az A1-es cella (mert ugye a "sorszam" értéke 1, tehát első sor) tartalmát szeretném hozzárendelni a "masikvaltozo"-hoz.Dim masikvaltozomasikvaltozo= Cells(sorszam, 1).ValueMit rontok el?
-
ReSeTer
senior tag
Helló!
Hogyan lehetne azt megoldani legkönnyebben, hogy macroval, keresni akarok egy oszlopban egy szöveget, és ha megegyezik, akkor ki kellene nyerni a találatot tartalmazó sor számát, hogy aztán azt feltudjam használni változóként?
Tehát: Kellene annak a sornak a száma, amely tartalmazza a keresett szöveget.
Köszönöm!
-
ReSeTer
senior tag
válasz
Fferi50
#45448
üzenetére
Szia!
Ez eléggé túl lett szerintem bonyolítva. Kipróbáltam, végigmentem lépésenként, de nem láttam, hogy bármit is kijelölne, sőt a nextnél mindig visszamegy a For Each részig.
Jelenleg sikerült ezzel megoldani látszólag:
Range("A5:RG5", Range("A5:RG5").End(xlDown)).SelectEgyébként ebben a kódban nem tudom mit jelent a második range értéke. Beírtam ugyanazt ami az elsőben volt. Néztem a hivatalos leírást, de nem írja, hogy mi az.
-
ReSeTer
senior tag
válasz
Fferi50
#45444
üzenetére
Nem jó, ez csak az A5 oszlopban lévő sorokat jelöli ki. Oszloptól függetlenül kellene. Most nézem, lehet ez nem volt leírva egyértelműen előbb. Bocs.
Tehát, A5-s cella a kijelölés egyik pontja és az utolsó cella amiben van érték/képlet/szöveg az utolsó. Az a cella lehet akár egy másik oszlopban is.@Delila_1
Majdnem jó, csak ez meg valamiért kijelöl plusz sorokat lefele, pedig ott nincs semmi. Szerintem ez azt nézi, hogy mi volt az utoljára "használt" cella, amit akár egy előző kódsor is használhatott, csak most üres, vagy valami ilyesmi.Köszönöm attól függetlenül a próbálkozásokat!
-
ReSeTer
senior tag
Helló!
Szeretném kijelölni az "A5" cellától a legutolsó bármiféle írásos tartalmat (tehát nem formázást) tartalmazó celláig a cellákat.
Jelenleg így próbálkoztam:
Range("A5").Select
Range(Selection, ActiveCell.SpecialCells(xlCellTypeLastCell)).Select
Jelenleg ez nem működik úgy ahogy szeretném, mert ez így azt a cellát jelöli ki, amelyiket a program előző sorai utoljára használtak. Nekem kizárólag csak az utolsó számot/képletet/szöveget tartalmazó cella kéne. Formázást ne figyelje.Létezik ilyen kód?
-
ReSeTer
senior tag
válasz
Fferi50
#44788
üzenetére
=HIPERHIVATKOZÁS("pdfelérésiútja\pdfneve-0098.pdf";"PDF")
Jelenleg itt tartok. Ezt a sor függvényt nem értem. A sorok sorszáma nem egyezik meg a pdf-ek nevében szereplő számmal.
Tehát mondjuk a lista a 344. sorban kezdődik, és ott van a pdfneve-0098.pdf link.
A 345. sorban már pdfneve-0099.pdf kellene ugyanabban az oszlopban. -
ReSeTer
senior tag
Sziasztok!
Olyat lehet csinálni, hogy az excelben a hivatkozásokat is növekvő módban "lehúzni"?
Tehát az első cella linkje: 1.pdf az alatta lévőké meg növekedne: 2.pdf 3.pdf 4.pdf... stb.
Van több mint 100 sor, nem akarom mindegyiknél egyenként beírogatni a linket.
A sima "lehúzós" módszer nem működik, mert ismételgeti a kijelölt 2 cella linkjét, tehát nem veszi észre, hogy növekszik.Köszönöm!
-
ReSeTer
senior tag
Helló! Egy olyan megoldásra lenne szükségem, hogy ha egy adott oszlopban egymás után előfordul három vagy annál több beírás egymás alá, akkor egy függvény ezt megszámolja, hogy mennyiszer fordult elő. Másik megoldás, hogy számolja meg azt, hogy egy oszlopban mennyi cella van beszínezve rossz színnel (rózsaszín), és amikor több cella van egymásután beszínezve, azt egynek vegye(ez itt nem fontos, de jó lenne)
Új hozzászólás Aktív témák
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Eladó Steam kulcsok kedvező áron!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Hutt C6 ablaktisztító robot / 12 hó jótállás
- Konzol felvásárlás!! Xbox Series S, Xbox Series X
- Samsung Galaxy S23+ / 8/256GB / Kártyafüggetlen / 12Hó Garancia
- BESZÁMÍTÁS! Gigabyte M27UA 27 160Hz IPS UHD 4K 1ms monitor garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi