- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Lalikiraly: Astra kalandok @ Harmadik rész
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- Elektromos rásegítésű kerékpárok
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: AOMEI Backupper Professional Edition: Lifetime Subscription
- sh4d0w: Netflix? Ugyan, VW előfizetés!
- LordAthis: AI Kérdés érkezett - 3600 soros Spagetti kód refaktorálása és budget
-
LOGOUT
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
-
bteebi
veterán
válasz
Krogoth
#34895
üzenetére
Ez ugyan az autoszűrőre, és a teljes használt tartományra van, de az
ActiveSheet.UsedRange.AutoFilterparanccsal ki, és be is lehet kapcsolni a szűrőt. Gondolom irányított szűrőnél is valami hasonló van - makró rögzítővel ki lehet próbálni. Ezt egy Worksheet_Change eventhez kell rendelned, amiben a változandó sorra/oszlopra hivatkozol. Amennyiben annak az értéke megváltozik, akkor fusson le a makró, ami ki, majd visszakapcsolja a szűrőt. -
#34899
bteebi
veterán
vandeminek
#34897
bteebi
veterán
válasz
vandeminek
#34897
üzenetére
Szia!
Én mondjuk sajnos nem nagyon értek a pivot táblákhoz, de szerintem egy teszt munkafüzetben vedd fel makró rögzítővel az általad végzett módosításokat, az lehet egy viszonylag jó kiindulási alap. Egyébként - nekem legalábbis - kicsit körülményes elképzelni, hogy pontosan mi is a gond, egy mintafájl (dummy adatokkal) sokat segíthetne a megértésben. De persze lehet, hogy valaki tőlem jóval okosabb nemsokára megmondja a megfejtést
. Ha nem, akkor szerintem kellhetne a mintafájl...#34896: Lefagy, megáll? Nem lehet, hogy csak sok idő kell neki? Talán hülyeség, de ha egy mód van rá, én kipróbálnám másik Office verzióval is, leginkább talán a 2010-zel.
-
bteebi
veterán
Sziasztok!
Mértékegység konverziót szeretnék végezni a g-mg-µg-ng-pg tartományban. Azt szeretném, hogyha mondjuk beírom azt, hogy valami hány mg, akkor számolja ki az általam megadott mértékegységben az értékét. Az érték az A1 cellában, a mértékegysége a B1-ben, az eredmény az A2-ben, a mértékegysége pedig a B2-ben lenne. Képlettel szeretném megoldani, lehetőleg segédoszlopok (és makró) nélkül. Egyelőre a legjobb ötlet, ami eszembe jut, az az egymásba ágyazott HA függvények kezelhetetlen hosszúságú sora lenne. Az viszont rendkívül hosszú lenne, alapból már szerintem nem is bírná kezelni az Excel, hiszen minden mértékegységnél meg kellene az összes mértékegységre az átszámolást, ami összesen 25 lehetőség.
Van valami jobb ötletetek? Vagy marad a makró? Előre is köszönöm!
-
#34897
vandeminek
tag
vandeminek
tag
Sziasztok!
Excel 2016-ban vezetett pénzügyes adataimhoz szeretnék egy jobb, átláthatóbb kis kimutatás táblázatot beállítani. Ehhez kérnék segítséget, útmutatást.
Egy külön munkafüzetben vannak egymás után bedobálva a költségek a következő adatokkal: dátum, kategária, leírás, költség, kapcsolat (akihez/amihez tartozik, kapcsolatban van), hely, projekt, megjegyzés. Kezdő szinten beállítottam egy kimutatásos pivot táblát: sorok a kategóriák, oszlopok a dátum, értékek a költség összege. A dátum rész automatán évek - negyedévek - hónap - dátum részre bomlik. Az a problémám, hogy a kimutatás minden egyes frissítésénél a dátum oszlopok teljesen lenyílnak (ergo minden oszlop napok szerint kinyílik) és elveszik a hónap rész. Kézzel újra kell állítgatni az egész kimutatás táblázatot.
Az lenne a célom, hogy ebben az elrendezésben minden oszlopban egy hónap adatai legyenek összesítve (az évet felrakom szűrőbe) és frissítés után se kelljen újra beállítgatni a dátum oszlopok csoportosítását (esetleg szélességek is fixen megmaradjanak, mert akkor nem kellene görgetni se a nézetet). Így egy képernyőre kiférne az összes pénzügyes adatom egy éven belül, kategóriákra bontva.Elnézést, ha nem tudtam jól érthetően leírni. Ha valaki tud ebben segíteni, akkor készítek egy mintát példa adatokkal és feltöltöm.
-
tgumis
tag
Sziasztok
Van egy (számomra borzasztoan nagy )kb 700000 soros excel táblám.
Egyszerűen nem tudok benne keresni mert ha bekapcsolom a szűrést kettő karakter beirása után gondolkodik majd semmi. (2016-os excelt használok) probálkoztam power pivottal de a 40 megás munkafüzet mellé így kaptam még egx kb 60 megás másikat is.
Valami ötlet?
Köszi -
Krogoth
senior tag
Hy.
Adott egy táblázat, amiben színekre szűrök. Alapból piros a cella, a zöld van szűrve. (Csak a piros kitöltőszínű cellák jelennek meg.)
Ha egy piros cellát zöldre változtatok, akkor hogy tudom azt elrejtetni? Jelenleg törlöm a szűrést, majd újra rárakom, tudom csak pár kattintás, de érdekel, hogy van-e rá valami 1 klikkes megoldásKöszi
UI: office 2016-ot használok.
-
-
butch3r
senior tag
Sziasztok
Újfent segítséget szeretnék kérni.
Van egy elemző excelem amiben a tartalom midnig ugyan azokban a cellákban van. Az excel elemzésenként külön-külön mentem el így annak a file neve mindig más.
Mivel így az elmezett dolgokat nehéz összenézni ezért csinálnék egy excelt amiben ugyan azokat a tételeket szépen egymás alatt felsorolom és így könnyen összehasonlíthatóak lesznek.
Megtudom e azt oldani, hogy ezen cellákban amik a számomra releváns infokat tartalmazzák ne kelljen mindig manuálisan egyesével rámutatnom a kérdéses cellákra a másik (elemző) fileban, hanem mondjuk beillesztem a file elérési útvonalát egy segéd cellába és a többi cella abból szedi ki az elérési útvonalat.
Jelenleg ezt úgy tudnám megoldani, hogy duplikálom a már működő, manuálisan belinkelt képletet majd keresés cserével kicserélem az új file adataival.
Remélem sikerült értelmesen megfogalmaznom a kérdést
Köszi
üdv -
314tyu
csendes tag
Sziasztok! a következő problémára keresek megoldást: van egy közepes méretű tábla ami Adatérvényesítéseket tartalmaz listák alapján. A listák külön munkalapon vannak és csak egy lapra vannak alkalmazva bizonyos oszlopokra. Használat közben, egy idő után (hetekről beszélünk) egyik pillanatról a másikra használhatatlan módon belassul, pedig mindössze új sorok kerültek bele. Első alkalommal az adatok értékként történő új fájlba másolás, majd a tábla újraparaméterezése oldotta meg a problémát, de ez nyilván nem az ideális megoldás... Azon munkalapok, ahol nincs Adatérvényesítés szépen működnek továbbra is. Az Adatérvényesítés levétele nem oldja meg a problémát, továbbra is szaggat az érintett munkalap.
-
Imy
veterán
Van egy excelem kb 50-60 azonos lappal, ahol csak pár megjegyzés, érték más, de nagy része ugyanaz.
Ezt kellene lefordítanom angolra. Az rendben van, hogy lefordítom, de hogyan lehet kicserélni minden lapon ugyanazokat a szavakat vagy cellákat? Az a lényeg, hogy ne kelljen minden lapon egyesével beírogatni a magyar angol megfelelőjét. -
#34887
lappy
őstag
Sweetraver
#34886
lappy
őstag
válasz
Sweetraver
#34886
üzenetére
A google-ben keress rá csak egy kis angol kell hozzá
-
#34886
Sweetraver
csendes tag
Sweetraver
csendes tag
Sziasztok!
Elnézést, a kicsit offtopicért de gondoltam ti tudtok segíteni, mint már jó pár esetben.
Szóval a kérdésem az lenne, hogy Wordben hogyan tudom megoldani, hogy egy oldal közepén levő szöveg megváltoztatásával az élőfejben levő szöveg automatikusan változzon? (az oldal közepén levő sort manuálisan átírom, s változzon az élőfej is, mintha Excelben egy sima =A8 képlet lenne a D1 cellában)köszönöm!
-
csferke
senior tag
válasz
Delila_1
#34874
üzenetére
Szia Delila!
Más elfoglaltságom miatt csak tegnap tudtam foglalkozni a makróval amit írtál. Meg nem is akartalak állandóan zavarni sorozatos kérdésekkel hanem inkább próbálkoztam, tanultam és bővítettem. Most már úgy dolgozik ahogyan szeretném.
Ezzel eljött az ideje egy NAGY köszönetnek
üdv -
Delila_1
veterán
válasz
.Farkas.
#34877
üzenetére
Nem írtad, melyik oszlopban vannak ezek az adatok.
Írtam egy makrót, ami az A oszlopban lévő adatoknál végzi el az általad leírt feladatot. Ha nem ott található adatokról van szó, a makróban minden helyen az "A"-t írd át ennek megfelelően.A makrót modulba másold be a Téma összefoglaló szerint. Ha 2003-nál magasabb verziójú az Exceled, a füzetet makróbarátként kell mentened.
Sub Szazalek()
Dim sor As Long, usor As Long, ertek As Integer
Dim k As Integer, v As Integer
Application.ScreenUpdating = False
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 6 Step -1
If Left(Cells(sor, "A"), 1) = "<" Then
k = Application.WorksheetFunction.Search(">", Cells(sor, "A"), 2) + 1
v = Application.WorksheetFunction.Search("<", Cells(sor, "A"), 2) - 1
ertek = Mid(Cells(sor, "A"), k, v - k + 1)
Rows(sor + 1).EntireRow.Insert
Cells(sor + 1, "A") = "<Statisztikai ertek>" & Int(ertek * 9.2 / 100) & "</Statisztikai ertek>"
End If
Next
Application.ScreenUpdating = True
End Sub -
harkhon
tag
Sziasztok,
A következő feladathoz szeretném a segítségeteket kérni [ ha fontos az office legújabb verzióján kellene megoldani ]
A lentebb látható kép alapján, egy megoldásra lenne szükségem, ami jelen esetben az E oszlopba kiszámolná , hogy az adott emberek által választott szolgáltatásokért mennyit kellene fizetniük.
Egy táblázatban mindenki bejelölhette, hogy milyen szolgáltatásra tart igényt [ jelen esetben ezt 'x'-el tették meg ], a B,C,D oszlop 2. cellájában találhatóak az árak. Az F-oszlopban manuálisan kiszámoltam, egyszerű adatoknál/kis táblázatnál nem bonyolult , de ezt lehetne valahogyan automatizálni? Pivot tábla vagy függvény? én sok if-el próbálkoztam de az nem volt valami elegáns és nem is akart működni :/
Előre is köszönöm
-
.Farkas.
tag
Hello!
Egy eleg furcsa problemara szeretnek megoldast keriteni es gondoltam Excelben meg lehet oldani.
Remelem sikerul elmagyarazzam erthetoen.Szoval van nekunk a cegnel ahol dolgozom egy havi listank amit egy romania programocskaba olvasunk be txtbol. kb havi 300-400 elem van benne, minden elemre eddig 6 sor vonatkozott.
kb igy nez ki a txt, nekem csak az ertek sor fontos most.
sor1
sor2
sor3
sor4
sor5
<Ertek>321</Ertek>
sor7
sor8
sor9
sor10
sor11
<Ertek>1234</Ertek>
...Ehez utolagosan most bevezettek meg 1 sort es visszamenoleg 2015 re hetvegeig be kellene irdogaljak, kezzel az ertek 9,2% at egy uj sorba.
valahogy igy nezne ki
sor1
sor2
sor3
sor4
sor5
<Ertek>321</Ertek>
<Statisztikai ertek>29</Statisztikai ertek> "ide kell a 321-nek a 9,2% at kiszamolni"
sor8
sor9
sor10
sor11
sor12
<Ertek>1234</Ertek>
<Statisztikai ertek>113</Statisztikai ertek>
...Valahogy meg lehet ezt oldani makroval? minden 7. sorba kellene szamolja a felette levo sorbol a > jel utani ertek 9,2%-at
-
Delila_1
veterán
Túl hosszú ahhoz, hogy végignézzem.
A kérdés felvetésekor összedobtam egy makrót, ez célratörőbbnek tűnik.A makróban a B2 cella bal felső széléhez illesztem az új logót. Csillagokkal jeleztem, melyik sorokban kell a kódot a saját adataidhoz igazítani.
Sub Kepcsere()
Dim utvonal As String, FN, lap As Integer
Application.DisplayAlerts = False
utvonal = "C:\Tmp\" 'Excel fájlok útvonala *********
ChDir utvonal
FN = Dir(utvonal & "*.xls*")
Do While FN <> ""
Workbooks.Open utvonal & FN
For lap = 1 To Worksheets.Count
Sheets(lap).Select
ActiveSheet.DrawingObjects.Delete
Range("B2").Select 'Melyik cellához igazítsa a logót ***********
ActiveSheet.Pictures.Insert("D:\Logó_útvonala\Logo.jpg").Select 'Ezt is írd át *********
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 141.75 'Logó magassága '*******
Selection.ShapeRange.Width = 119.25 'Logó szélessége '*******
Next
ActiveWindow.Save
ActiveWindow.Close
FN = Dir()
Loop
Application.DisplayAlerts = True
End Sub -
Traxx
őstag
válasz
Delila_1
#34863
üzenetére
és sztanozs: köszönöm
Delila hozzászólása volt a kulcs, az alapján elkezdtem keresgélni, és egy külföldi fórumon találtam egy hasznos makrót, pont ilyen esetekre. Sikerült szépen lecserélnem az összes képet (és jól gondoltad, régi logót újra
). És igen, azonos helyen voltak a logók. Ha valakinek még szüksége lenne rá, akkor közzé is teszem, lefordítva a használat korlátjait, és a makróban a megjegyzéseket, szövegdobozokat. Egy új fájlba másoltam bele a makrót, amit utána elmentettem, aztán hajrá 
A makró működéséhez azért volt pár feltétel, ami szerencsére nálam adott volt:
- ha a munkalap védett, akkor átugorja, és nem cseréli le a képet
- ha a fájl csak egyetlen képet tartalmaz, akkor
- a régi képet lecseréli az újra, ugyanabban a pozícióban, ahol az elődje volt
- az új képen nem végez semmilyen átméretezést, szóval megfelelő méretűt célszerű választani
- a fálj ugyanazon néven, de másik (LOGONEW) mappába kerül elmentésre; ezt a mappát létre kell hozni abban a könyvtárban, ahol a cserélendő fájlok vannak
- és nyilván a művelet előtt nem árt egy biztonsági mentésÉs a makró:
Sub ReBrand()
Dim PCount As Long, I As Long, Candid As Long, myPath As String, myFFile As String
Dim LogSh As Worksheet, LogoPos As String, newLogo As String, NextLogLine As Long
Dim mySk As Long, myRep As Long, myTim As Single
'
newLogo = "D:\logo2.jpg" '<<< Az új logo elérési útja és neve
'
'Figyelmeztető üzenet:
rispo = MsgBox("Add meg a könyvtárat, amelyek fáljaiban ki kell cserélni a logo-t" & vbCrLf _
& "A könyvtárnak tartalmaznia kell egy ÜRES mappát, aminek a neve ""LOGONEW""" _
& vbCrLf & "Nyomd meg az OK-t a folytatáshoz, vagy a Cancelt a folyamat megszakításához.", vbOKCancel)
If rispo <> vbOK Then Exit Sub
'A fájlok elérési útjának megkapása:
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Nem történt kiválasztás, a folyamat megszakítva")
Exit Sub
End If
myPath = .SelectedItems.Item(1)
End With
'
'Indítás:
myTim = Timer
Set LogSh = ThisWorkbook.Sheets(1) 'A tevékenységek naplózása a munkalapon
'
myFFile = Dir(myPath & "\*.xls*") 'megkapjuk az első fájl nevét
Application.EnableEvents = False
Do
PCount = 0
If myFFile = "" Then Exit Do 'Lépjen ki, ha nincs fájl
Workbooks.Open myPath & "\" & myFFile
'A fájl nevének naplózása:
NextLogLine = LogSh.Cells(Rows.Count, 1).End(xlUp).Row + 1
LogSh.Cells(NextLogLine, 1) = myFFile
'Számolja meg, hány kép van:
For I = 1 To Worksheets.Count
LogSh.Cells(NextLogLine, 2).Offset(0, I) = Sheets(I).Name
If Sheets(I).Pictures.Count > 0 Then
PCount = PCount + Sheets(I).Pictures.Count
If Sheets(I).ProtectContents Then PCount = 999
'Naplózási infó a munkalapokon:
LogSh.Cells(NextLogLine, 2).Offset(0, I).Value = "*--" & PCount & "--*--" & Sheets(I).Name
Candid = I
End If
If PCount > 1 Then '>1, nem kell szkennelni több munkalapot
Exit For
End If
Next I
If PCount = 1 Then 'Fájl kijelölve a kicserélésre
Worksheets(Candid).Select
If UCase(Left(ActiveSheet.Pictures(1).Name, 7)) = "PICTURE" Then
'ok, kicserélés:
ActiveSheet.Pictures(1).Select
LogoPos = Selection.TopLeftCell.Address
Selection.Delete
Range(LogoPos).Select
ActiveSheet.Pictures.Insert(newLogo).Select
Range("A1").Select
'Napló eredmény:
LogSh.Cells(NextLogLine, 2).Value = ">>>>>: " & LogoPos
myRep = myRep + 1
'Mentés az új mappába:
ActiveWorkbook.SaveAs (myPath & "\LOGONEW\" & myFFile)
Else
'Napló eredmény:
LogSh.Cells(NextLogLine, 2).Value = "SKIPPED--" & PCount
mySk = mySk + 1
End If
Else
'Napló eredmény:
LogSh.Cells(NextLogLine, 2).Value = "SKIPPED--" & PCount
mySk = mySk + 1
End If
Workbooks(myFFile).Close savechanges:=False 'Bezárás
myFFile = Dir 'Következő fájl
Loop
Application.EnableEvents = True
'
'Végső üzenet:
MsgBox ("Szükséges idő (secs): " & Format(Timer - myTim, "0.00") & vbCrLf _
& "Lecserélve: " & myRep & vbCrLf & "Átugorva: " & mySk)
End SubAz eredeti forrás: [link]
-
Delila_1
veterán
válasz
csferke
#34872
üzenetére
Szóval a B oszlopban választasz ki egy cellát. Ez a kezdősor. A végző sor a kezdő + 16. Összegezni a Ckezdő:Dvégző tartományt kell, és ennek az összegnek a 17-ed része az eredmény.
A makró bekéri a kezdősort úgy, hogy rákattintasz a cellára, majd a G1-be beírja az eredményt.
Ha a Bvégvő cella üres, hibát jelez.Sub mm()
Dim sorK, sorV As Integer, osszeg As Double
Set sorK = Application.InputBox(prompt:="Kérem a kezdő sort", Type:=8)
sorK = sorK.Row
sorV = sorK + 16
If Cells(sorV, "B") <> "" Then
osszeg = Application.WorksheetFunction.Sum(Range("C" & sorK & ":D" & sorV)) / 17
Range("G1") = osszeg
Else: MsgBox "Hiba"
End If
End Sub -
csferke
senior tag
válasz
Delila_1
#34866
üzenetére
Bocsi a becsúszott smiley miatt de azért köszönöm.
A
C:Doszlop adatait kellene összeadni és osztani 17-el.
Az osszeg sorban átírom B-B => C-D, eddig ok, kijavítom.
Mivel a B oszlopban van a mutató így megvan a kezdő dátum is kDatum amit majd kiíratok F1-be.Az egyszerűbb megoldás Average nem jó, nem az átlag kell mint eredmény.
A logikádat követve úgy látom, hogy előbb kiválasztod a kezdő mezőt a B oszlopban és ezután indítod a makrót. Így sem rossz de én úgy szeretném, hogy elindítom a makrót és addig várakozik amíg egérrel kiválasztok egy dátumot/mezőt, klikk az egérrel, és csak ezután folytatja a futást.
köszi
-
-
0P1
aktív tag
válasz
Slaci321
#34867
üzenetére
Szia
Alakítsd táblává a tartományt, és ezt írd D2-be (ha a C oszlopodat "Valami"-nek nevezed el):
=HA([@Valami]<>C1;SZÖVEGÖSSZEFŰZÉS(";";0;A2:INDIREKT("A"&SZÖVEG(KERES(9.99999999999999E+307;1/([Valami]=[@Valami]);SOR([Valami]));"0")));"")
ps: a SZÖVEGÖSSZEFŰZÉS függvény csak Excel 2016-tól műxik. Delimiternek (listaelválasztónak) azt adsz meg amit akarsz (én ";"-t adtam meg)
-
Slaci321
újonc
Sziasztok,
Segítséget szeretnék kérni. Hogy tudnám a D oszlop értékeit egymás mellé vagy akár egy cellába helyezni F oszlop értéke alapján. Tehát F oszlop értéke a közös nevező és szeretném hogy egy sorba/cellába kerüljenek az értékek. Transzponálással meg tudom csinálni de több ezer tételről van szó. Köszi!
-
Delila_1
veterán
válasz
csferke
#34864
üzenetére
A becsúszott smiley miatt nem tudom, melyik oszlop adatait kell összegezned, és hova akarod az eredményt írni.
A makró a B oszlop adatait összegzi, és osztja 17-tel, az eredményt a C1-be írja.Sub ido()
Dim sorK As Integer, sorV As Integer
Dim osszeg As Double
sorK = Selection.Row
sorV = sorK + 16
If Cells(sorV, "B") = "" Then Exit Sub
osszeg = Application.WorksheetFunction.Sum(Range("B" & sorK & ":B" & sorV)) / 17
Range("C1") = osszeg
End SubEgyszerűbben az osszeg meghatározása:
osszeg = Application.WorksheetFunction.Average(Range("B" & sorK & ":B" & sorV)) -
csferke
senior tag
Sziasztok!
Adott táblázatban folyamatosan bővülnek majd az adatok kb.250 sor-ig.
Ebből kellene a B oszlopból kijelölni egy mezőt/dátumot és e sortól lefelé +16 sorig összeadni a C oszlopban szereplő óó:pp adatokat. Mint a képletből is látszik ezt kell osztanom 17-el.Az alábbi kódban nem tudom:
- megállítani a futást amíg kijelölök egy cellát a B oszlopban
- meghatározni a kCell(row, col), vCell(row, col) értékeket amit használnák a SUM-ban
- a SUM sor így megfelel?Sub Atlag4x()
' B - oszlop - dátum
' C, D - oszlop - óó:pp
' kDatum - kezdo dátum, B oszlop
' vDatum - végzo dátum, B oszlop
' kCell - kezdo Cella, kDatum sora C oszlop
' vCell - végzo Cella, vDatum sora D oszlop
Dim kDatum, vDatum, kCell, vCell, adat
' B oszlop
?? B oszlopban cella / dátum kiválasztása
kDatum = ActiveCell.Value
ActiveCell.Offset(RowOffset:=0, ColumnOffset:=1).Activate
' C oszlop
kCell = Cells(getRow, getCol).Address
ActiveCell.Offset(RowOffset:=16, ColumnOffset:=-1).Activate
' B oszlop + 16 sor
vDatum = ActiveCell.Value
If vDatum.Isblank Then
MsgBox "HIBA"
Else
ActiveCell.Offset(RowOffset:=0, ColumnOffset:=2).Activate
' D oszlop a +16. sorban
eCell = Cells(getRow, getCol).Address
adat = ((Sum(kCell; eCell)) / 17)
Range("F1").Select
ActiveCell = kDatum
Range("F2").Select
ActiveCell = adat
End If
End SubEgyáltalán helyes-e a megközelítés amit összehoztam?
köszi
-
Delila_1
veterán
Az egyes fájlokban több lapon is szerepel a lecserélendő kép?
Több kép is van 1-1 lapon? Ez azért fontos, mert nem tartom valószínűnek, hogy a több 100 fájlban azonos megnevezése van a beszúrt képnek – valószínűleg régi logónak –, így esetleg nem lehet fixen hivatkozni rá.
ActiveSheet.DrawingObjects.DeleteA fenti kóddal az aktív lapon lévő összes képet 1 lépésben le lehet törölni. Ha csak 1 db logó van a lapon, ez alkalmazható.
Egy ciklussal meg kell nyitni a fájlokat. Ha több lapon is szerepel a cserélendő kép, egy másik ciklussal a lapokat kell sorba venni, törölni a régi képet, majd meghatározott helyre beszúrni az újat, beállítani a méretét, végül menteni és bezárni a behívott fájlt.
-
Traxx
őstag
Sziasztok!
Van arra vanami megoldás (vagy külső program), amivel egy, Excelben lévő képet ki tudok cserélni egy másikra? A probléma annyi, hogy pár 100 fájlban kéne ezt megtennem, és egyesével nem olyan jó móka a CTRL+C CTRL+V
Mindegyik dokumentumban ugyanaz a kép szerepel, és ugyanarra is cserélném.Köszönöm a segítséget
P.S.: Delila_1: nagyon jól vizsgázott a héten a táblázat
-
cigam
titán
+1 problémám lett a =HIPERHIVATKOZÁS()-al. Ha speciális karakter van benne, azt ASCII kóddá alakítja.
PL ha a fájlnévbe van egy nemzeti karakter, vagy szököz, máris "Hib%C3%A1s+linket_gener%C3%A1l" Így meg már nem találja meg a windows.
Rá lehet venni arra, hogy ne kódolja a linket? -
válasz
Pikkolo^^
#34846
üzenetére
Kifutottam a szerkesztésből - bonyolultabb (segédoszlopos) megoldás:
1) Sárga terület TEXT formtumra konvertálása, utána szabadon tölthető (sajnos a lenti formula nem kezeli jól a szám és dátum formátumoú adatokat). B1 kötelezően üres marad.2) Zöld első mezőbe (B2) a következő Array formula kell (CTRL+ENTER - rel kell bevinni):
=IFERROR(INDEX($A$2:$A$11,MATCH(0,COUNTIF($A$2:$A$11,"<"&$A$2:$A$11)-SUM(COUNTIF($B$1:B1,$A$2:$A$11)),0)),"")3) Első zöld mezőt lehúzni a sárga aljáig
4) A következő Named Range felvétele (itt pl. Validation névvel):
=OFFSET(Sheet1!$B$2,0,0,COUNTIF(Sheet1!$B$2:$B$11,">'"),1)5) Validáláshoz a fenti Named Range behivatkozása:
-
-
kezdosql
tag
válasz
sztanozs
#34731
üzenetére
Igen, "kalkulalva" gondoltam, egyszeruen megoldhato lenne az adatbevitel, soronkent az adatok, oszlopokban a csoportok, es amelyik csoportba tartozik az adott adat, ott lenne egy 1-es vagy x.
Kozben megneztem a linket, tehat 2010-ben mar van ilyen, KOSZONOM, de ugy latom, valami nagyon bonyolult modon oldja meg, majd a hetveget raszanom, hogy kitalaljam, miket csinal es hogyan.
![;]](//cdn.rios.hu/dl/s/v1.gif)
-
Pikkolo^^
addikt
Van 10 db cellám amiben az értékek változnak, néha van értékük, néha nem. Ezeket az értékeket kellene érvényesítéssel legördülő listába raknom mellyel nincsen gond. Amikor üres a mező akkor a legördülőben is benne van az üres rész. Milyen megoldással lehetne a legegyszerűbben megoldani, hogy ne legyenek benne üres sorok?
-
Delila_1
veterán
válasz
MZsoltee
#34842
üzenetére
Nézd meg a RÉSZÖSSZEG függvényt. Ez mindig az aktuális szűrésben látható értékekkel dolgozik, függetlenül attól, hogy hány oszlopot szűrsz a tartományodban.
Szűrés nélkül:
2 oszlopot szűrve:
Szerk.: A G1 és I1 cellákban rosszul adtam meg a címet, de látszik, mi van a jobbra mellettük lévő cellákban.
-
föccer
nagyúr
válasz
MZsoltee
#34839
üzenetére
bal oldalt, a táblázat szélén megjelenik 3 jelölő. Azokra kattintva lehet nyitni/csukni a részösszegnek a szintjeit. Ba variáció, hogy használd az összesít függvényt, az autoszűrővel kiegészítve, és akkor egy dedikált helyen megjelenik a leszürt adatokon végrehajtott művelet eredménye.
-
cigam
titán
=HIPERHIVATKOZÁS("file:////nas/kartonok/dokumentumok/"&ÉV(A2)&"/"&SZÖVEG(HÓNAP(A2);"00")&"_"&SZÖVEG(NAP(A2);"00")&"/"&ÉV(A2)&"_"&SZÖVEG(HÓNAP(A3);"00")&SZÖVEG(NAP(A3);"00")&".pdf";ÉV(A2)&"-"&SZÖVEG(HÓNAP(A2);"00")&"-"&SZÖVEG(NAP(A2);"00"))
A fenti képlettel "számolom ki" az elérési utat, fájlnevet. Működik is Excel-ben, de az Excel viewer megbuggyan tőle. A linkek működnek, de fals értéket ír ki. Elképzelni nem tudom, hogy ha a fájlnévben az ÉV(A2) 1987-et ad vissza, de a cellába miért 1900-at ír ki.
-
#34834
RAiN91
őstag
Juditta_56
#34833
RAiN91
őstag
válasz
Juditta_56
#34833
üzenetére
Köszi, király vagy!
Nem értem hogy működik, "=" és a kérdőjel, de erre gondoltam.
-
RAiN91
őstag
Sziasztok. Adott "A" oszlopban lévő számok, van amelyikből csak 1 darab van, van amiből több. B oszlop tartalmát szeretném megkapni a lenti példa alapján. Tehát pl. A oszlopban 121-es számból 2 darab van, akkor 2-es számot szeretnék kapni.
(viszont A oszlopban nagyon sok féle szám van, tehát egyenként nem tudok az adott számra hivatkozni, fel kellene ismernie az Excelnek, hogy ugyan olyan számokból hány darab van)
Létezik ilyen függvény?
A B
121 | 2
121 | 2
123 | 1
233 | 4
233 | 4
233 | 4
233 | 4Köszönöm!
-
Lya
csendes tag
Sziasztok!
Olyan problémám lenne hogy van két excel táblám egy fileban. Több sorral és oszloppal rendelkezik mind a kettő. Soronként össze vannak fűzve adatként és növekvő sorrendbe állítva. Hogyan tudnám ezt a két táblázatot egy harmadik táblázatba összehasonlítani a mindkét táblázatban megtalálható egy oszlop információinak azonosságának alapján? Az adott oszlopban lévő azonosakat teljes sorukkal kellene bemásolnia az új táblázatba.
Előre is köszönöm.
-
kirattila
újonc
válasz
Delila_1
#34822
üzenetére
Sziasztok!
Nagyon köszönöm a gyors és kielégítő pontos válaszaitokat!
Teljesen jó amit tettetek!!!
A túlóra számítás végeredményét nem igazán értem mert ottBELÉPÉS KILÉPÉS ÓRA SZÜNET LEDOLG.ÓRA TÚLORA
6:00 14:30 8:30 0:30 8:00
5:40 13:00 7:20 0:30 6:50
5:00 14:50 9:50 0:30 9:20 0,055555556 ezt az eredményt adja???Köszönöm a segítségét mindeninek
-
-
kirattila
újonc
Sziasztok!
Tisztelt Lappy!
Sajnos én nem értek a programozáshoz,Excel2016-ban fut megpróbálom a linket elküldeni hogy lásd mit alkottam és úgy hátha könnyebb a megoldás rá!A mit írtál szerintem nem jó mert nem ezt szeretném!De lehet csak nem értek hozzá.Több mint valószínű!
Előre is köszönöm a segítséged. -
kirattila
újonc
Sziasztok!
Azt szeretném meg tudni ha excel írok munkaidő nyilvántartást az éjszakai műszakot hogy kell beírni, ha 2017.03.05-én 20:20 kor kezd és 2017.03.06-án 06:00-kor végez,
Valamint mi a képlete hogy jó időt számoljon mert nekem nem jön ki sehogy sem.Illetve ha valamit oda ír azt nem mutatja mert sok a kettős kereszt ami ugye azt jelenti hogy sok a szám.
-
válasz
DeFranco
#34810
üzenetére
Sajnos a Match és *Lookup függvények nem jók, mert bugos az array funkció kezelésük. Igazából a match bugos, mert ugyanazt a funkciót használja az összes lookup a háttérben. Szóval a match nem a megfelelő formátumú array-t adja vissza és így a többi sztenderd array-t kezelő függvény nem tudja feldolgozni, hanem csak ez első találatot veszi fel.
Sajnos csak kerülőúton lehet megcsinálni ugyanezt - sokat szívtam vele korábban.
Amúgy:
=SUMPRODUCT(COUNTIF($L2:$P2,$R$1:$V$1)) -
DeFranco
nagyúr
válasz
Delila_1
#34809
üzenetére
meg tudom oldani így, ez nem probléma csak keresek egy "elegáns" megoldást, mert szerintem létezik, csak valamiért nem találom vagy nincs meg a szikra... hogy értsd, valami ilyesmire gondolok:
=MATCH(lookup_value;lookup_array;[match_type])ahol a
lookup_valuenem egy érték hanem egy lista. csomó függvény esetében ez megoldható, szerintem valahol aKERES,FKERES,VKERES,DARABHATÖBBtájékon kellene lenni itt is egy ilyen egy függvényes vagy összetett függvényes megoldásnak.ilyen a+b+c vagy ha(ha(ha(ha megoldással meg tudom csinálni csak nem szép
-
-
DeFranco
nagyúr
válasz
Delila_1
#34805
üzenetére
igen ez a megoldás "triviális", valami "tömörebbre" gondoltam, kb. a tárgyalt elv szerint, tömbbet tömbbel összehasonlítva, vagy tömbben megkeresve értéket, de úgy hogy az érték amit keresek több érték vagylagos kritériummal... sejtem-érzem hogy van ilyen de nem áll most rá az agyam és a net sem segít, pedig az ilyenek ha nem is magától értetődőek de összehozhatóak...
-
Delila_1
veterán
válasz
DeFranco
#34802
üzenetére
Sajnos pigster tömbképlete csak abban az esetben adja a találatok számát, ha az összehasonlítandó 2×5 szám közül az egyezőek azonos helyen szerepelnek, pl. mindegyik sorban a 3. helyen.
Egy halom segédoszloppal makró nélkül is láthatod, az 5 szelvényed melyik számát melyik héten húzták ki. A megtett számok az R1:AT1 tartományban vannak.
-
palanc
újonc
Sziasztok, nagy SEGÍTSÉGRE van szükségem.
Felső indexet szeretnék betenni. Minden eddigi munkámban ez sikerült, semmi probléma, de most bármit is csinálok nem jelenik meg a felső index, hanem Times New Roman 12-es nagyságban, egysorban a szöveggel. Amúgy meg más dokumentumaimban teljesen normális, jól működik. MI a szösz a baj???
-
DeFranco
nagyúr
-
. Ha nem, akkor szerintem kellhetne a mintafájl...
Találtam is megoldást a Kész modulok menüben.
gyorsabb vagy a válasszal mint ahogy én megfogalmazom a kérdést 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Warhammer 40.000
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Gyúrósok ide!
- Xiaomi Mi Box androidos médialejátszó 4K és HDR támogatással
- Luck Dragon: Asszociációs játék. :)
- Milyen videókártyát?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- GL.iNet Flint 2 (GL-MT6000) router
- Autós topik
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- HIBÁTLAN iPhone 12 Pro 256GB Pacific Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3107, 100% Akkumulátor
- Magyarország piacvezető szoftver webáruháza
- HP Victus 15-fb1002AX - 15,6"FHD IPS - Ryzen 5 7535HS - 8GB - 512GB SSD - RTX 2050 - Win11
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Lenovo ThinkPad T15 Gen 1 Intel Core i5-10310U
Állásajánlatok
Cég: FOTC
Város: Budapest