- World of Tanks - MMO
- EAFC 24
- GTA VI
- PlayStation 5
- Hosszú idő után újabb előzetest kapott a Gothic Remake
- Hivatalosan is bemutatkozott a Kingdom Come Deliverance 2
- Rövid teaser trailert kapott a Dragon Age: Dreadwolf
- Alkoholista nevelde
- Nintendo Switch
- Teljes verziós, ingyenes mobil játékok és alkalmazások
-
GAMEPOD.hu
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
-
the radish
senior tag
válasz Delila_1 #19097 üzenetére
Sajnos letelt a szerk.idő.
Az első verziónál tökéletesen működik a szűrés, ha az utóbbival próbálkozok, sajnos sehogy nem jön össze.
Egyszerűen nem szűri meg az adatokat, pedig csak az említett módosítást hajtom végre.
Mi lehet a probléma?ActiveSheet.Range("$A$1:$C$5001").AutoFilter Field:=3, Criteria1:= _
">=" & kr1, Operator:=xlAnd, Criteria2:="<=" & kr2[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz the radish #19101 üzenetére
A változót így add meg:
kr1= ">=" & sheets("Munka1").range("a1")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
válasz the radish #19101 üzenetére
Az R3 képlete =HA($C3="A";KICSI($A:$A;SOR()-2);"")
Ezt másold az S3-ba, és az "A"-t írd át "B"-re.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
the radish
senior tag
válasz Delila_1 #19102 üzenetére
Egyszerűen nem megy. Ha az eredeti javaslatod marad, azaz a cellába simán beírom pl. >=0:00:15...., akkor tökéletesen működik. Most megpróbáltam, hogy külön cellába írtam a relációs jelet, a következőbe a változót, összefűztem, de ha ezt adom meg a makróban kr-nek, már ugyanúgy semmi, mint a másik megoldásnál (kr1= ">=" & sheets("Munka1").range("a1")) . Nem lehet, hogy a formátumokkal van probléma?
[ Szerkesztve ]
-
pirit28
csendes tag
válasz Delila_1 #19103 üzenetére
Szia !
Kössz választ..
Lehet rosszul fogalmaztam meg a kérdést ...Addig megvagyok ,hogy sikerült szétválasztanom a neveket műszak szerint,és kiiratnom a sorszámot mely a nevek mellett szerepel.De hogyan tudom ezeket a neveket egy másik táblába kiiratni műszak szerint egymás alá ?
Erre használtam volna a kicsi függvényt de tökéletes mert ha elfogynak a sorszámhoz tartozó nevek akkor #num hiba fogad...rem mostmár érthetőbb a problémám[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz the radish #19104 üzenetére
kr1 = ">=" & CDate(Sheets("Munka1").Range("A1"))
kr2 = "<=" & CDate(Sheets("Munka2").Range("B2"))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
-
Delila_1
Topikgazda
válasz the radish #19108 üzenetére
Megjegyzel?!!!
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
nesh20
aktív tag
Sziasztok!
Olyan szűrőre lenne szükségem egy listához amiben ha elkezdem írni a kezdőbetűt kidobja azt amit én keresek! Megoldható ez valahogy?
pl: 'A' oszlopban van 100DB név egymás alatt ezen lenne egy szűrő és ezek között szeretnék keresni ( nem CTRL+F-el )
Köszönöm a segítséget előre is!I am a Man of Fortune, and I must seek my Fortune.
-
RJan
csendes tag
válasz Delila_1 #19095 üzenetére
Szia
Igazából nem.
Mivel minden hónapban kell egy kimutatás, h ki mennyit dolgozott.
A C6 cellában pedig a hónapot lehet változtatni, viszont csak egy hónapot lát (2013_09) és mikor átváltok C6ban 2013_08-ra, akkor 0 mutat, pedig történt esemény.
A sor végét azt meg tudom oldani, mert csak %-ot kell számolni, csak az aktuális mezők nem változnak a C6 alapján.
Köszi -
81lendo$
csendes tag
Valaki tudna segíteni a Mutt által javasolt "PasteSpecial"-ban.
Bármilyen segítséget köszönök! -
Delila_1
Topikgazda
válasz 81lendo$ #19113 üzenetére
Lusta vagyok kikeresni (nem írtad meg a hsz. számát, ahol Mutt javasolt valamit), de úgy rémlik, formátumot akarsz másolni.
Selection.PasteSpecial Paste:=xlPasteFormats
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
válasz the radish #19115 üzenetére
Ha előtte más meghajtó volt aktuális, előbb át kell váltanod a chdir paranccsal a D-re.
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="export.txt", FileFormat:=xlTextMSDOSRemélem, jól írtam, mert nem próbáltam ki.
[ 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.
-
ElemiKoczka
csendes tag
Sziasztok!
Újra a munkaidős táblámról lenne szó.A dolgozó napi munkaidő kezdetét és végét 6:00, 14:00 formátumban kell beírni.
Innentől kezdve a további műveletek nagyon jól mennek, hála Nektek (főként Delilának
Egy egyszerűsítést szeretnék bele tenni.
Lehetséges e a : valamilyen módon történő "nem bevitele".
Vagyis csak a 6-ot és a 0-t kelljen beütni. Persze a végső formátum ne változzon, mert akkor a további képletek sem fognak működni.
Ez főként a 13:10, 23:25 értékű időknél adhat segítséget.
Előre is köszönöm az infókat. -
Delila_1
Topikgazda
válasz ElemiKoczka #19120 üzenetére
A lapodhoz rendeld a makrót, ilyen módon.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:B]) Is Nothing Then
If Target = 6 Then Range(Target.Address) = "6:00"
If Target = 14 Then Range(Target.Address) = "14:00"
End If
End SubEz a makró az A és B oszlopba beírt 6-ot írja át 6:00-ra, és a 14-et 14:00-ra.
Ha nem az A és B oszlopban van a két időpontod, azIf Not Intersect(Target, [A:B]) Is Nothing Then
sorba írd be a módosítást.
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
válasz the radish #19119 üzenetére
Sub direktor()
Dim utvonal$
utvonal$ = Range("B1")
ChDir utvonal$
ActiveWorkbook.SaveAs Filename:=utvonal$ & "proba.xls"
End SubNem szerencsés dolog személy szerint valakinek címezni a kérdésedet. Ha nincs itt a címzett, vagy nem tud-, nem akar válaszolni, akkor várhatsz a sorodra.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív tag
válasz 81lendo$ #19113 üzenetére
Hello,
Itt megtalálod a módosított változatot. Nem csak a formátum másolás, de a munkalapra helyezett ActiveX vezérlőt változat is benne van.
A formátum másolása pedig általánosságban így oldható meg:
Range(masolando).Copy
Range(cel).PasteSpecial Paste:=<beillesztéstípusa>A beillesztés típusáról itt súgóban vagy itt lehet olvasni.
Tipikus példák:
xlPasteAll - minden formátumot másol (függvény, szám formátum, cella formátum, keret, komment stb).
xlPasteValuesAndNumberFormats - értéket és számformátumot másol, de mást nem
xlPasteValues - értékként fogja másolni a cella tartalmát, de mást nem hoz átüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz Agostino #19085 üzenetére
Hello,
FKERES-hez a többiek mellett még az alábbi javaslatom lehet.
Amit fontos tudni, hogy a táblában (amelyből vissza akarod kapni a keresett értéket) az első oszlopban milyen módon vannak az értékek. A számok lehetnek számként (alapból jobbra rendezi a cella tartalmát az Excel) tárolva vagy szövegként (ezek balra vannak igazítva).Ha ezt tudjuk, akkor az FKERES-ben a keresési értéket fel lehet készíteni, hogy a táblának megegyező formátumba tegye azt minden esetben:
1. A táblában szám van, ekkor használható ez:
=FKERES(--D13;$K$13:$L$3766;2;0)
2. A táblázatban szöveg van, ekkor pedig ez:
=FKERES(D13&"";$K$13:$L$3766;2;0)Az első esetben megszorozzuk a cella értékét 1-el, ekkor a számként értelmezhető, de nem számként tárolt értékek is számok lesznek. A második esetben pedig egy üres szöveget fűzünk az értékhez, aminek eredménye egy szöveg lesz minden esetben.
Az FEKERES helyett használható a HOL.VAN függvény is, amely nem csak a fenti formátum problémára érzéketlen, hanem megoldható vele hogy az első oszloptól balra is tud értéket visszaadni. Az INDEX függvénnyel kell együtt használni.
Alább a logika, hogy ezek a függvények hogyan képezhetők le egymásra:FKERES(keres;tábla;hanyadik oszlop;egyezés típusa) -> INDEX(tábla;HOL.VAN(keres;tábla;egyezés típusa);hanyadik oszlop)
Továbbá meglepő módon a KERES függvény sem finnyás (itt viszont pontos egyezést nem lehet beállítani):
KERES(keres;tábla első oszlopa;tábla visszatérési oszlopa)
pl. KERES(D13;K:K;L:L)üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz pirit28 #19100 üzenetére
Hello,
..Szeretném ebből a táblából egy másik táblába kigyűjteni a neveket akik A műszakosak.
Kiindulni az if függvényből indultam el ,úgy hogy megnéztem az illető A műszakos-e vagy B.ezt az R és S oszlopban rögzítettem...
A problémám az az hogyha elfogynak a nevek akkor #num hibaüzenet fogad,amit szeretnél eltüntetni valahogyan, de nem tudom hogyan.
Ezt úgy tudod megoldani, hogy megszámolod hány értéket lehet kiírni, és ha annyit már kiírtál, akkor a semmit iratod ki.A COUNTIF(C:C;"A") megmondja hogy hány értéked van, hogy hányadik írod ki az pedig a SMALL-nál vhogy megadod. Vagyis a képlet vmi ilyen lehet:
=IF(COUNTIF(C:C;"A")<=small-ban a k értéke;eredeti képleted;"")Azonban hadd javasoljak egy másik megoldást is.
Ha nem akarod ABC sorrendben, akkor nem is kell az R és az S segédoszlop, mivel egy képletben meg lehet oldani. Én az alábbi mintával dolgoztam.
Ekkor az E3-ba ez a képlet kell:
=IF(ROWS(E$3:E3)<=COUNTIF($C:$C;E$2);INDEX($B:$B;AGGREGATE(15;6;ROW($C:$C)/($C:$C=E$2);ROWS(E$3:E3)));"")Ezt másolhatod lefele és jobbra is hogy a B műszakosok is meglegyenek.
Ha ABC sorrend is jó lenne, akkor kell egy segédtábla. A mintámban a G és H-oszlopok ezek.
G3-ban ez a képlet:
=IF(COUNTIF($B:$B;"<="&$B3)*($C:$C=G$2)>0;COUNTIF($B:$B;"<="&$B3)*($C:$C=G$2);"")Ez kihasználja azt, hogy a COUNTIF (DARABTELI) függvényben lehet kisebb v. nagyobb operátort is használni, és ezzel sorrendet meghatározni. pl. COUNTF(B:B;"<Dénes") megszámolja hogy Dénes előtt hányan vannak a listában. Szóval a képlet vagy visszaadja az ABC sorrend szerinti helyezést, vagy egy üres mezőt ad.
Ezek után már csak a SMALL segítségével a sorszámokat növekvő sorrendben ki kell olvasni, majd egy MATCH (HOL.VAN) függvénnyel megkeresni, hogy ez hol van és az ahhoz tartozó nevet INDEX-el kiíratni.
A képlet az I3-ban ez:
=IF(ROWS(I$3:I3)<=COUNTIF($C:$C;I$2);INDEX($B:$B;MATCH(SMALL(G:G;ROWS(I$3:I3));G:G;0));"")üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz nesh20 #19111 üzenetére
Hello,
Olyan szűrőre lenne szükségem egy listához amiben ha elkezdem írni a kezdőbetűt kidobja azt amit én keresek! Megoldható ez valahogy?
A szűrővel vmit meg szeretnél jeleníteni? Egy vagy több találatod lehet?
Igazából csak ActiveX vezérlővel tudod elérni, hogy gépeléskor mutassa a találatokat. Ilyet a Fejlesztőeszközök fülön keresztül tudsz beszúrni, Combobox kell neked, amelynek a ListFillRange részébe kell beírnod a keresendő tartományt.
Ha LinkedCell-be írsz egy cella azonosítót, akkor ott megjelenik a kiválasztott érték, amelynek segítségével ki tudsz íratni más értéket is.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
róland
veterán
Egy Excelben készített táblázat minden kinyomtatásakor szerepelni kellene a nyomtatott lapon a nyomtatás dátumának és a pontos időnek. Erre legjobb megoldás a MOST() függvény használata.
Viszont hogyan lehet azt megoldani, hogy minden nyomtatáskor AUTOMATIKUSAN frissüljön a függvény?
http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!
-
Mutt
aktív tag
válasz Delila_1 #19122 üzenetére
Hello,
Nem kell ChDir-el váltatni, azonban szerintem fontos lenne előbb ellenőrízni, hogy a megadott útvonal létezik-e egyáltalán.
Sub direktor()
Dim utvonal$
utvonal$ = Range("B1")
'ha nincs a végén \ akkor hozzáadjuk
If Right(utvonal$, 1) <> "\" Then utvonal$ = utvonal$ & "\"
'ellenőrízzük hogy a mappa létezik-e
If Dir(utvonal$, vbDirectory) <> "" Then
ActiveWorkbook.SaveAs Filename:=utvonal$ & "proba.xls"
Else
MsgBox "Hiba az útvonal nem létezik"
End If
End SubÉs talán esetleg ellenőrízni is célszerű, hogy a mappa írható-e:
Sub direktor()
Dim utvonal$
utvonal$ = Range("B1")
'ha nincs a végén \ akkor hozzáadjuk
If Right(utvonal$, 1) <> "\" Then utvonal$ = utvonal$ & "\"
'ellenőrízzük hogy a mappa létezik-e
If Dir(utvonal$, vbDirectory) <> "" Then
'ellenőrizzük, hogy a könyvtár írható-e
If GetAttr(utvonal$) And vbReadOnly = 0 Then
ActiveWorkbook.SaveAs Filename:=utvonal$ & "proba.xls"
Else
MsgBox "A megadott könyvtár nem írható"
End If
Else
MsgBox "Hiba az útvonal nem létezik"
End If
End Subüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
nesh20
aktív tag
Szia!
Ez lesz az. Feltöltöm az egyik oszlopot adatokkal, nevekkel bármivel, ez akár több 100DB is lehet.
Mellette lévő cellába fkeres függvénnyel hozzá keresném amit épp szeretnék megnézni.
Hogy lehet ezt a Combobox-ot működésre bírni, se lenyitni se beleírni nem tudok, ha rákattintok csak átméretezni tudom.
Köszönöm!I am a Man of Fortune, and I must seek my Fortune.
-
róland
veterán
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz ElemiKoczka #19120 üzenetére
Rájöttem, hogy a #19121-ben nem azt a választ adtam, amire vártál.
Kerek óránál 600-t írj, 12:42-höz elég 1242-t írnod, 0:54-nél 054-et.Private Sub Worksheet_Change(ByVal Target As Range)
Dim ido, ertek
If Not Intersect(Target, [A:B]) Is Nothing Then
If Range(Target.Address) = "" Then Exit Sub
Application.EnableEvents = False
On Error GoTo Hiba
ertek = Target * 1
If ertek > 2359 Or ertek < 0 Or Right(ertek, 2) > 59 Then
GoTo Hiba
Else
Select Case Len(ertek)
Case 1, 2
ido = "00:" & ertek
Case 3
ido = "0" & Left(ertek, 1) & ":" & Right(ertek, 2)
Case Else
ido = Left(Target, 2) & ":" & Right(Target, 2)
End Select
Range(Target.Address) = Format(ido, "hh:mm")
End If
End If
Application.EnableEvents = True
Exit Sub
Hiba:
MsgBox "Hiba!" & Chr(10) & "Ilyen időpont nem létezik", vbInformation
Range(Target.Address).Select
Application.EnableEvents = True
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.
-
Caipi
tag
Sziasztok,
Segítséget kérnék.
Hiperhivatkozás függvénnyel ugranék egy munkafüzet egyik lapjáról a másikra. A függvényben a munkalapok neveit cellából teszem be Indirekt fgv-el.
Szintaktikai problémám lehet, mert #HIV-t kapok vissza.
A felépítése:
B2 cella = munkalap neve (Próba 1)
C2 cella= hiperhivatkozás függvény
=Hiperhivatkozás(indirekt("[Excel Fájl Neve]'"&B2"'!A1");b2 & "megnyitása"))Köszönöm,
Caipi -
Caipi
tag
Ott lesz a hunyó, csak nem jöttem rá, hogy mi az. A lapnév+cella rész ad hibát
Szerk:
ha csak a fájlnév+cellát adom meg, akkor nem #HIV-t kapok vissza, hanem elérési út nem található hibaüzenetet.
A fájl maga egy többek által elérhető meghajtóra fog kerülni, ahonnan megnyitják. Lehet, hogy ennek a definiálásnál van a hiba?[ Szerkesztve ]
-
DopeBob
addikt
Sziasztok, van egy tobb ezer soros excel munkalapom, amit szét kell válogatni.
Tobb kulonbozo munkalapra kerul az egész sor, bizonyos feltételek alapján. Minden sornak van helye.
Magát a másolást így tudtam megcsinálni, működik, de lassú:
Cells(i, 1).EntireRow.Select
Selection.Copy
Sheets("ize").Select
Cells(vevoRows, 1).EntireRow.Select
ActiveSheet.Paste
Sheets("original").ActivateVan erre olyan megoldás, hogy úgy szúrjak be egész sort egy másik munkafüzetbe, hogy ne keljen azt aktiválni?
MZ/X
-
-
-
DopeBob
addikt
válasz Delila_1 #19149 üzenetére
Nem tudnám így egszerre másolni.
Most úgy mukodik a makróm, hogy az elso sortól az utolsóig végigmegy az eredeti táblán, és egy case eldonti, hogy az adott sort melyik munkalapra kell másolni.
Még arra gondoltam, hogy eloszor csak osszerakom a kijelolést és egyben másoltatom, viszont ilyenkor az eredeti táblán kéne tobbszor végigmenni.
[ Szerkesztve ]
MZ/X
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Vírusirtó, Antivirus VPN kulcsok
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül