- iPhone topik
- Vodafone mobilszolgáltatások
- Motorola Moto G54 5G Power Edition - nem merül le
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Elcsípte a Huawei kameratelefonja az első helyet
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Huawei Watch Fit 3 - zöldalma
- Fotók, videók mobillal
- Xiaomi 13 Pro - szerencsés szám
- Drágábban indíthat az új iPhone SE
Hirdetés
-
MultiVersus - Íme a launch trailer
gp Az érdeklődőknek alig egy hetet kell már csak várniuk a teljes kiadás megjelenésére.
-
Céges verziót mutatott be a HMD a Pulse Plusból
ma Hosszabb szoftveres támogatás és garancia, az Android Enterprise ajánlott irányelvek kipipálása megvan.
-
Folyamatosan hazudott a bitcoin állítólagos feltalálója
it Egy brit bíró szerint Craig Wright, a bitcoin állítólagos feltalálója folyamatosan hazudott és bizonyítékot hamisított.
-
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
-
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)
[ Szerkesztve ]
-
ReSeTer
senior tag
Köszönöm mindannyiótoknak!
[ Szerkesztve ]
-
ReSeTer
senior tag
Helló!
Hogyan tudnék hivatkozni egy ugyanabban a fájlban lévő sorra úgy, hogy ha én közben beszúrok új sorokat, akkor az kövesse?
Köszönöm! -
ReSeTer
senior tag
Sziasztok!
Hogyan lehet azt megoldani, hogy egy szűrő cellát tartalmazó oszlopban szűrni tudjak üres cella utáni sorokban is? Nem listázza a lenyíló menüben ha van üres sor az oszlopban.
Előre is köszi!
[ Szerkesztve ]
-
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!
[ Szerkesztve ]
-
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
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 #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!
[ Szerkesztve ]
-
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)).Select
Egyé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
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
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 masikvaltozo
masikvaltozo= Cells(sorszam, 1).Value
Mit rontok el?
[ Szerkesztve ]
-
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 Then
MsgBox " nincs talalat", vbInformation, "Hiba"
Else
MsgBox "cella tartalmának sorszáma az A oszlopban: " & talalatsorszama, vbInformation, "Eredmény üzenet"
End If
On Error GoTo
Egyéb kód itt
Next megintismetel
A 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?
[ Szerkesztve ]
-
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 = True
End Sub
[ Szerkesztve ]
-
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 ameret
wDoc.Tables(1).Cell(aktivsorszam, 2).Range.Text = ameret
Milyen módszerrel lehetne ezt megoldani?
[ Szerkesztve ]
-
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
válasz Dark Archon #47774 üzenetére
Köszönöm, ezt kerestem.
-
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. -
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 integer
peldafunkcio=a+b
eztakaromfelhasznalni=a-b
End Function
Sub fomakro()
egyebvaltozo=valami+eztakaromfelhasznalni
End Sub
Ezt így nem lehet, mert üresen áll a "eztakaromfelhasznalni" váltózó miután visszatér a program a fomakro-ba.
-
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ó!
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.Application
Dim wDoc As Word.Document
Set wordapp = CreateObject("word.application")
Set wDoc = wordapp.Documents.Add(sablonpath & sablonfilename)
wordapp.Visible = True
helyett ezt használom:
Dim wordapp As Object
Dim wDoc As Object
Set wordapp = CreateObject("word.application")
Set wDoc = wordapp.Documents.Add(sablonpath & sablonfilename)
wordapp.Visible = True
A 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) & Date
wordapp.Selection.EndKey unit:=wdStory, Extend:=wdMove
wordapp.Selection.InsertBreak Type:=wdSectionBreakNextPage
wordapp.Selection.MoveDown unit:=wdScreen, Count:=1
wordapp.Selection.PasteAndFormat (wdFormatOriginalFormatting)
Mi lehet a probléma?
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Skoda, VW, Audi, Seat topik
- Veszprém és környéke adok-veszek-beszélgetek
- Senua’s Saga: Hellblade II teszt
- EA Sports WRC '23
- Folyamatosan hazudott a bitcoin állítólagos feltalálója
- Call of Duty: Modern Warfare III (2023)
- Így nem hajlik, úgy kettétörik az új iPad
- iPhone topik
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Autós topik látogatók beszélgetős, offolós topikja
- További aktív témák...
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Promenade Publishing House Kft.
Város: Budapest