-
Fototrend
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
-
Dolphine
addikt
Sziasztok!
A problémám a következő:
Adott egy osztály, mely közösségi munkát végez.
Havi bontásban vannak az órák, amihez tartoznak területek. Tavaly kitalálták, hogy év végén statisztikát kell készíteni, hogy az elvégzett órákon belül melyik terület, mennyi százalékot tett ki.
Ezt hogyan lehetne megoldani?
A százalék az világos, azonban előfordul, hogy egy éven belül azonos területen is végeznek munkát, na ez bonyolítja a dolgot.
Ötlet van? Egyáltalán érthető, hogy mit szeretnék?Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
oke
senior tag
Sziasztok!
Hogyan lehet megjeleníteni egy százalékos értéket úgy, hogy a százalékjelet ne írja mögé?
Pl: 75,2 % helyett 75,2 legyen.
-
kepton
csendes tag
Sziasztok!
Következő feladatra keresnék függvényt:
Egy kérdőívben egy kérdésnél több válasz is lehetséges volt. Ezeket a válaszokat egy cellába tette.Példa:
A1 friss, konzerv
A2 friss, szárított, konzerv
A3 friss
A4 friss, szárított, konzerv
stb.Szeretném megszámolni, hogy hányszor szerepelnek az egyes lehetséges válaszok.
Darabtelivel próbáltam. Azzal viszont annyi a baj, hogy ha frisset számolom csak azt számolja ahol egyedül szerepel a friss.
Ahol már friss, konzerv van, azt figyelmen kívül hagyja.Remélem érthetően fogalmaztam.
-
EmberXY
addikt
Van egy ötletem:
Kijelölsz egy segédoszlopot, szöveg formátumot adsz neki, oda bemásolod a %-os értékeket.
Ezután ahová végül kerülne, azt az oszlopot is először szöveg formátumúvá teszed, majd az első cellától kezdve alkalmazod a =HELYETTE(A1;"%";"") függvényt, ahol értelemszerűen az A1 helyére a segédoszlop első cellája kerül, ahol érték van, majd ezt végigmásolod az oszlopon, ekkor minden érték végéről lekerül a %, majd ezután szám formátumúvá teszed az oszlopot, a segédoszlopot meg törlöd. Kicsit talán körülményes, de szerintem működik, más nem jut eszembe.(Innen vettem az ötletet...)
[ Szerkesztve ]
Up the Irons!
-
-
mindanee
tag
Sziasztok!
Valószínűleg nagyon egyszerűt kérdezek, de nem jövök rá a megoldásra
Szóval, van egy lenyíló listám (Igen és Nem választható). Másik cella értéke attól függne, hogy itt Igen vagy Nem szerepel.
Az adott cellába HA függvénnyel próbálkozok, de nem eszi meg az excel (#NÉV? hibát kapok).
Ez a HA függvényem, ami a cellában szerepel: =HA(E29=Igen;1;0)
Mi lehet ezzel a gond? Köszönöm előre is!
-
totya 25
újonc
Sziasztok!
Szeretnék közelebbről megismerkedni a "makro" tudomány rejtelmeivel. Tudtok ajánlani irodalmat?
-
RAZERXX
tag
válasz szatocs1981 #30500 üzenetére
S8, I5 6400 3200hz,Asus 150I Aura,Hiperx ddr4 2133 mhz 16g,R9 asus rog strix vega 56 ,ssd m2 Plextor,Samsung evo 840, FSP GOLD +700W
-
alfa20
senior tag
Sziasztok!
Makróval kapcsolatban lenne kérdésem:
Tudok úgy át másolni, adatot egyik munkafüzetből a másikba, anélkül, hogy ide oda ugrálnék?
Definiálva van mind két munkafüzet.így próbáltam, de ezzel nem jó:
Window(keres).Activate
Range(Cells(2, 1), Cells(usor, 2)).Copy
Windows(alap).Worksheets(1).Range("A2").Paste"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Pá
addikt
Sziasztok!
A oszlopban van egy dátumom, B oszlopban egy másik dátumom.
Szeretnék C oszlopba egy képletet gyártani, ami megmondja A és B között eltelt hónapok számát.
Mi lenne ennek a legegyszerűbb módja?
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
m.zmrzlina
senior tag
válasz alfa20 #30521 üzenetére
Próbáld így:
Worksheets("keres").Range(Cells(2, 1), Cells(usor, 2)).Copy Destination:=Worksheets(1).Range("A2")
Kicsit szebb lenne, ha a cél munkalapnak is megadnád a nevét "idézőjelek közt" és nem index-szel kellene hivatkozni rá. Meg hasznosabb is mert ha valaki elmozdítja az első helyről ezt a lapot akkor is a megfelelő helyre kerül a másolt adat.
-
alfa20
senior tag
válasz m.zmrzlina #30524 üzenetére
Bocsi lehet rosszul fogalmaztam:
szóval:
Dim alap, ker, alap_mf As String, usor As Long
alap = ActiveWorkbook.Name
alap_mf = ActiveSheets.Name
ker = Munka1.TextBox1.Value
Workbooks.OpenText Filename:=ker
keres = ActiveWorkbook.Name
usor = Application.CountA(Columns(1))
Range(Cells(2, 1), Cells(usor, 2)).Copy
Windows(rendez).Worksheets(alap_mf).Range("A2").PasteAz utolsó sor hibára fut, az nem tetszik neki.
A 'keres' Excel fájlból kellene az 'alap' Excel fájlba másolni adatokat és ki akarom hagyni a sok 'Windows(változó).Activate'-t."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
válasz alfa20 #30525 üzenetére
Sub Masolas()
Dim WSInnen As Worksheet, WSIde As Worksheet, usor As Long
Set WSInnen = Workbooks("Innen.xlsm").Sheets("Munka1")
Set WSIde = Workbooks("Ide.xlsx").Sheets("Munka1")
usor = WSInnen.Range("A" & Rows.Count).End(xlUp).Row
WSInnen.Range("A2:B" & usor).Copy WSIde.Range("A2")
End SubLátod, véletlenül sem találsz Active... hivatkozást. Bármelyik füzeten állva indíthatod a makrót.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
alfa20
senior tag
válasz Delila_1 #30526 üzenetére
Köszi!
ez jó lesz!
érdemesebb inkább a WSInnen-t újra és újra beállítani (több fájlból lesz másolva adat a WSide az állandó lesz), vagy inkább érdemes több váltózóval dolgozni?
Úgy készítem a makrót, ha kiszedi az egyes értékeket, akkor bezárja a fájlt és nyitja a következőt, ezért gondolkodtam egy váltózóban.[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Delila_1
Topikgazda
válasz alfa20 #30527 üzenetére
A megnyitáshoz kell tudnia a következő fájl nevét. Azt honnan veszi?
Ha a WSIde állandó, akkor az újabb WSInnen-ből másolás felülírja az előbb bemásolt adatokat.
[ 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.
-
alfa20
senior tag
válasz Delila_1 #30528 üzenetére
első lépésben egy textboxokba bekérem a fájlokat:
Private Sub CommandButton1_Click()
Dim fname As String
fname = Application.GetOpenFilename()
Munka1.TextBox1.Text = fname
End Submajd ezekből a TextBox-okból hívom meg a fájlokat, összesen 5 fájl-t kell betölteni:
Dim file1 as string
file1 = Munka1.TextBox1.Value
Workbooks.Open Filename:=file1, UpdateLinks:=FalseA másolás helyét azt majd megadom a másolások után. a másolandó helyek is változók lesznek
[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alevan
őstag
Sziasztok. Van két adatbázisom. A kettőben csak egy egyedi azonosító szám oszlop a közös pont. Na, ezt a két adatbázist kell egyesítenem. Képekben megpróbálom ilusztrálni:
Első adatbázis:
Második adatbázis:
Elérni kívánt eredmény:
Kézzel szemre nem tudom megcsinálni, mivel nagy adatbázisokról van szó és rengeteg külömbség van a két adatbázis között (az egyikben van benn adat az adott azonosítóval, a másikban nincs). Nekem a közös pontokat kell az elsőben kiegészíteni a másodikban lévő adatokkal.
[ Szerkesztve ]
"Ezért lovagol a pokolba a konzumer IT piac. A hülye igények... . Azt sem tudod, hogy mit akarsz de az jöjjon havonta frissités formájában."
-
Fferi50
őstag
válasz alevan #30533 üzenetére
Szia!
Az FKERES függvény lesz a megoldás. Pl
első "adatbázis"
D1 cella képlete: =Fkeres($A1;"Második adatbázis $A$1:$C$20000;2;0)
E1 cella képlete: =Fkeres($A1;"Második adatbázis $A$1:$C$20000;3;0)(Kis gonoszkodás - nem két adatbázisod van, hanem 2 táblád - 2 külön excel fájlban vagy egy fájlban két munkalapon).
Üdv.
-
alfa20
senior tag
ha létrehozom 'Workbook' változóként a munkafüzezett az képletbe hogy tudom be integrálni?
Dim WBmunka1 as Workbook
set WBmunka1 = Workbooks("vmi.xlsx').Sheets("zöld")eddig ezt így oldottam meg, de a 'WBmunka1'-t nem tudom hogy helyettesítsem be :
dim vmi_mf, vmi_ml as string
vmi_mf = ActiveWorkbook.Name
vmi_ml = ActiveSheet.Name
WBmunka2.active
Range("P2") = _
"=IFERROR(VLOOKUP(RC[-11],'[" & vmi_mf & "]" & vmi_ml & "'!C1:C21,2,0),"""")"[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Fferi50
őstag
válasz alfa20 #30535 üzenetére
Szia!
1. "Dim WBmunka1 as Workbook
set WBmunka1 = Workbooks("vmi.xlsx').Sheets("zöld")"
Ez így azonnali hibát eredményez, mert a munkafüzetnek definiált változóba munkalapot szeretnél tenni!2.Range("P2") = _
"=IFERROR(VLOOKUP(RC[-11],'[" & vmi_mf & "]" & vmi_ml & "'!C1:C21,2,0),"""")"
helyett Range("P2").formula=
vmi_mf helyett pedig WBmunka1.name a helyes a képletben (ámbár az 1. pontban írtak szerint ez így nem működik).
Üdv.[ Szerkesztve ]
-
germinator66
aktív tag
Sziasztok!
Excel jelszót fel lehet törni valahogy...? Sajnos úgy tűnik, a jelszókezelőm adatbázisa megsérült, ugyanis az egyel korábbi jelszó van benne... (Nem is értem, ez hogy lehetséges, mintha egy korábbi állapotban maradt volna. Az izgalmas az, hogy még melyikkel jártam így...)
Egy kis esély van arra, hogy pont akkor fagyott ki a gépem, és nem volt rámentve, tehát nem kizárt, hogy van rá magyarázat, de sajnos ez nem segít az eredeti problémán.[ Szerkesztve ]
-
norby91
tag
Üdv.
Segítség kellene.
Össze kell adni 1645 sort, úgy hogy mindig 5-tel többet adjon össze K$2-től kezdve.
Nincs kedvem mindig átirni függvényben, hogy mit számoljon. Valami megoldás csak lenne.=SZUM(K$2: K20)
=SZUM(K$2: K25)
=SZUM(K$2: K30)
=SZUM(K$2: K35)
=SZUM(K$2: K40)
.
=SZUM(K$2: K1645)
K2-től adja össze 20-ig, majd 25-ig, 30-ig, 40-ig és 1645-ig..
Ez lenne kb a képlet, de igy nem jó.Valami más megoldás kell, mert ez lett:
=SZUM(K$2: K20) -minta
=SZUM(K$2: K25) -minta kijelöl, húz
=SZUM(K$2: K22)
=SZUM(K$2: K27)
=SZUM(K$2: K24)
=SZUM(K$2: K29)Ez csak egy példa, azért van az első rész K2: K20-ig, de a lényeget próbáltam szemléltetni, remélem sikerült is.
Előre is köszönöm.
[ Szerkesztve ]
-
germinator66
aktív tag
válasz germinator66 #30538 üzenetére
Tárgytalan.
-
lappy
őstag
Excel guruknak és akit csak érdekel egy kis finomság, hogy mire jó az excel!
Bámulatos hol tart már a tudomány!
-
m.zmrzlina
senior tag
-
norby91
tag
válasz m.zmrzlina #30542 üzenetére
Ez működött köszi.
Annyi a baj, hogy törli/nem mutatja a többi sort, ami "nem oda való", s igy a másik érték eltűnik, amit látni kellene.
Nem szűrni akarok, csak összeadni.
Ideiglenesen megoldottam egy fkeres függvénnyel, ha nem lenne rá más megoldás.
Új táblázat, egyenkénti listázás, majd 5-10-15-ös sorban levő eredményt kiirja
[ Szerkesztve ]
-
-
Tido
aktív tag
Sziasztok!
Segítséget szeretnék kérni, mert fennakadtam egy problémán, de leeht nem is jó helyről közelítem meg.
Egy olyan feltételes formázásra lenne szükségem, ahol két oszlopnak értékének kell igaznak lenni.
Pl ha A1 tartalmazza hogy KL és B1 nagyobb mint 10 akkor érvényesüljön a formázás: pl legyen pirosha a1 nem tartalmazza KL-t akkor viszont mindegy, hogy mit tartalmaz a B1.
Vagy nem a feltételes formázásnál kéne kutakodnom?
Előre is köszönöm a a segítséget.
UPC 300/20 + Synology DS418play + RB2011UiAS-2HnD
-
mindanee
tag
Sziasztok!
Excel (2013-as) lapvédelem funkciójával kapcsolatban szeretnék érdeklődni most tőletek
Egy komplexebb árazós excelt készítettem (köszönhetően részben nektek is, m.zmrzlina és Delila_1). Ebben az excelben szeretnék 2 munkalapot elérhetetlenné tenni, röviden kifejtve:
Úgy közelítettem meg az excel összerakását, hogy van egy "fő" munkalap, ahol a mennyiségeket, és néhány további opciót lehet állítani, illetve van 2 segéd munkalapom, ahonnan jönnek a fő munkalapra a mennyiségfüggő számok.
Ezt a két segéd munkalapot szeretném idegen kéz számára elérhetetlenné tenni, és itt jön képbe a lapvédelem, ami adja magát, mint megoldást.
A kérdésem pedig konkrétan az volna, hogy ez mekkora biztonságot ad az excel munkalapjainak védelmére (feltételezzük, hogy a jelsző elég erős)? (Pl. ha egy 5-10 perces guglizás után feltörhető/más formátumba téve kinyerhető az adat, akkor nem sokat ér )
Korábban láttam már olyat, hogy excel-t ZIP formátumúvá módosítva (vagy más formátum, de nekem a tömörített formátum rémlik) hozzá lehetett férni olyan adathoz, amihez excelben megnyitva nem lehetett, ezért is merült fel bennem a kérdés.
Előre is köszönöm a segítséget!
-
bteebi
veterán
válasz norby91 #30543 üzenetére
Nem a legszebb, de működik, csak végig kell másolni. (Talán menne szebben is, de már fáradt vagyok .)
=SZUM(K$2:(INDIREKT("K" & 20+(SOR(K2)-SOR(K$2))*5)))
Az alapelv: a kiinduló sor számát (jelen esetben 20) fixnek veszed, majd megpróbálsz valami olyan dolgot keresni hozzá, amivel tudod soronként indexálni. Ez jelen esetben az aktuális cella sorszáma . Mivel a sor száma mindig változik, ezért egyszerűen kivonod az aktuális cella sorszámából a kiindulási cella sorszámát (a kiindulási cella sorszáma fix, emiatt vegyes vagy abszolút hivatkozás kell!). A különbség az egymás alatti cellák esetén - nyilván - mindig 1, ezért ezt még felszorzod 5-tel, és mindenki vidám . A követhetőség/ellenőrzés kedvéért legfeljebb írd be egy segédoszlopba azt, hogy
="K" & 20+(SOR(K2)-SOR(K$2))*5, ami megadja a cella nevét, vagyis egy szöveget, amit az INDIREKT függvénnyel (cella)hivatkozássá alakítasz. Makróval szebben meg lehetne csinálni, de így egyszerűbb.Sort (SOR függvény) és oszlopot (OSZLOP függvény) is lehet ezzel a módszerrel indexálni.
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
válasz mindanee #30546 üzenetére
Tudtommal ez a trükközés Excel 2007-től már nem működik. Vagy legalábbis nem ilyen egyszerű . A jelszóvédelmen felül amúgy el is rejtheted a védendő munkalapokat (very hidden legyen, ne csak simán rejtett!), és az azokra a lapokra hivatkozó cellákban akár a képletet is elrejtheted (Cellák formázása → Védelem → Zárolt, majd rá a Lapvédelem).
Cancel all my meetings. Someone is wrong on the Internet.
-
Grodd
tag
válasz mindanee #30546 üzenetére
Szia, a munkafüzet - és lap- védelem arra szolgál, nehpgy véletlenül egy hozzá nem értő kéz felülírjon valamit akár véletlenül is, nem pedig arra, hogy idegen kéz számára elérhetetlenné tegyünk akármit is, mivel semmi titkosítást nem tartalmaz a megoldás, számtalan rendkívül egyszerű módon eltávolítható. Függetlenül attól, hogy milyen erősségű a jelszót (magyarul nem kell a jelszót "feltörni" a védelem eltávolításához) Nem kell 5-10 perc gúglizás hozzá, elég 30 másodperc egy átlagembernek (aki meg ismeri valamelyik módszert,annak ennyi sem)
Például lehetséges módszerek: hexaeditor, VBA macró, web-es "szolgáltatás" (nem javaslom), olyan külső alkalmazással (akár Google Docs-sal) való megnyitás, ami nem támogatja a MS munkafüzet és lapvédelmét.
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- Szevam: Érzelmi magabiztosság/biztonság - miért megyünk sokan külföldre valójában?
- Alkalmazásbemutató: Keep
- Gaming notebook topik
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Debrecen és környéke adok-veszek-beszélgetek
- Futott egy Geekbench kört egy új HTC készülék
- Apple notebookok
- Anime filmek és sorozatok
- gban: Ingyen kellene, de tegnapra
- További aktív témák...
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."