- Milyen házat vegyek?
- Azonnali informatikai kérdések órája
- 3D nyomtatás
- Projektor topic
- Kompakt vízhűtés
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- HTPC (házimozi PC) topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Amlogic S905, S912 processzoros készülékek
- OLED TV topic
Hirdetés
-
Computex 2024: Kingston mindenhol
ph A mesterséges intelligencia futtatásához sok RAM kell – és ez nem kerüli el a Kingston figyelmét sem.
-
Fejlesztői videón a The Casting of Frank Stone
gp A PC-re és konzolokra érkező alkotás a tervek szerint még idén elérhető lesz PC-re és konzolokra.
-
Letartóztatták, mert AI segítségével csalt az egyetemi vizsgán
it A török hatóságok letartóztattak egy diákot, amiért egy egyetem felvételi vizsgáján AI segítségével válaszolt a kérdésekre.
-
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
-
Delila_1
Topikgazda
válasz mimi_bacsi #4600 üzenetére
Open Office-ben nem tudom, Excelben Adatok/Szövegből oszlopok, Tagolt, a Határolójel szóköz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
v-paci
aktív tag
Sziasztok.
Egy kis segítség kellene. Van két munkalapom, mindkettőn EAN kódok vannak az első oszlopban, sorba rendezve. Az első munkalapon lévő EAN kódok alapján kéne az egyezőket a másik lapról leszűrni.
"Mi kalandvágyból itthon maradtunk."
-
Fehér Mancs
tag
Több megoldás is van, az egyik, angolosan:
=NOT(ISERROR(MATCH(A1;$E$1:$E$5;0)))
A1 a vizsgált cella, E1:E5 amiben meg kell keresnie. A lényeg, hogy ráfuttat egy keresést (magyarban azt hiszem, hogy hol.van függvény), majd megnézi, hogy megtalálta-e (ha nem, akkor hibát ír vissza, ezt az ISERROR/HIBÁS függvénnyel meg lehet fogni). Mivel, ha nincs megfelelő, akkor ad IGAZ értéket, a NOT/NEM függvénnyel megfordítjuk ennek az "előjelét".
A MATCH/HOL.VAN függvény helyett a VLOOKUP/FKERES is ugyanazt az eredményt adja ( =NOT(ISERROR(VLOOKUP(A1;$E$1:$E$5;1;0))) )
[ Szerkesztve ]
-
v-paci
aktív tag
-
mimi_bacsi
tag
Hogy lehet azt megcsinálni, hogy van két oszlop, amelyben nevek vannak. Szeretném összehasonlíttatni és a különbséget kiírattatni akár egy harmadik oszlopba, hogy láthassam, a második oszlopban mely nevek hiányoznak az elsőhöz képest.
-
VANESSZA1
őstag
válasz Delila_1 #4597 üzenetére
És hogy néz ki ez a makró, ha akarok egy ugyanilyen gombot csak kinyitásra?
És ez mit jelent a makróban?"G65536"
Próbálnám megérteni.
Elmondanád hogy mi mit jelent?[ Szerkesztve ]
Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
VANESSZA1
őstag
És még egy kérdés a CONVERT függvényre:
Ez a függvény alkalmas arra is, hogy ha én 0:01:34 ( 0óra,1perc,34mp) -et akarok átváltani másodpercre?Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
Delila_1
Topikgazda
válasz VANESSZA1 #4608 üzenetére
A convert nem alkalmas az idő átszámítására.
0:01:34-> 1*60+34 sec.A G65536-ot tartalmazó sor így néz ki:
Range("G65536").End(xlUp).Row
Ez a G oszlop utolsó kitöltött cellájának sorát adja. Állj a G65536-os cellára, a Ctrl+fel nyíl segítségével azonnal ott vagy ezen a cellán.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 VANESSZA1 #4607 üzenetére
Sub felfed()
Dim lap As Variant
lap = Array("Kaschieren", "Näherei")
For L = 0 To 1
Sheets(lap(L)).Select
Rows("11:100").Select
Selection.EntireRow.Hidden = False
Range("C1").Select
Next
End SubA #4595-ben leírtam, honnan vegyél elő egy gombot, amihez az új makrót hozzárendelheted. Írd meg, hogy boldogulsz vele.
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 mimi_bacsi #4606 üzenetére
Ha az első oszlopod az A, a második a pl. E, akkor a B1 cellába:
=DARABTELI(E:E;A1)
Ezt lemásolod addig, amíg az A oszlopban vannak adataid. Minden név mellé kiírja, hogy az hányszor szerepel az E oszlopban. A nulla azt jelenti, hogy csak az A oszlopban fordul elő.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
takyka77
tag
Sziasztok!
Van egy Textbox controlom, aminek az értékét egy cellában tárolom.
Ha ebben a textboxban pl. 0,11111 értéket írnak akkor teljesen jól menti el az értéket, de ha pl. 1,11111 értéket írnak akkor 111111 értéket ment el a cellában. Ez mitől lehet?
Textbox-nak lehet formátumot megadni (numerikus)?
Z -
VANESSZA1
őstag
válasz Delila_1 #4617 üzenetére
Rájöttem, talán az a gond,hogy közben módosítottam a táblázatot. Cellákat szúrtam be.
Az emailben amit küldtél tökéletesen működik, csak azt a táblát tovább fejlesztettem..Akkor most helyesen így nézne ki a makró?
Sub rejt()
Dim lap As Variant
lap = Array("Kaschieren", "Näherei")
For ll = 0 To 1
Sheets(lap(ll)).Select
For sor = Range("G65536").End(xlUp).Row To 11 Step -1
If Cells(sor, 7) = "" Then GoTo Köv
If Cells(sor, 7) = 0 Then
Range("G" & sor).Select
Selection.EntireRow.Hidden = True
End If
Köv:
Next
Next
End SubSub felfed()
Dim lap As Variant
lap = Array("Kaschieren", "Näherei")
For L = 0 To 1
Sheets(lap(L)).Select
Rows("11:100").Select
Selection.EntireRow.Hidden = False
Range("C1" & sor).Select
Next
End SubA G oszlop 11-es sorától kellene elrejteni, vagy felfedni.
Helyesen módosítottam?
Vagy a felfeden még kell alakítani?Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
Delila_1
Topikgazda
válasz VANESSZA1 #4618 üzenetére
Így kapásból nem látom, mit módosítottál rajta, és főként azt nem tudom, hova szúrtál be cellákat a füzetedben.
Indítsd a két makrót, és ha bajt okoznak, ne mentsd el a füzetet. Ha nem jön össze, küldd el nekem.Jobban látszik (tagolva) a makró, ha a bemásolás után kijelölöd, és a Kód gombra klikkelsz. Tagolatlanul eléggé olvashatatlan.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Robb202
tag
Sziasztok!
Kellene egy kis segítség, ami szerintem nem túl nehéz.
Valszeg egy makró kellene.a gond az hogy egy csomó szó van ami után van egy ilyesmi: (123456)
A számok nem mindig így jönnek, de a lényeg hogy a zárójelet és a benne lévő számokat a szavak után le kellene törölni. A szavak egy oszlopban egymás alatt vannak.
Rengeteg rekord van így kézzel sokáig tartana.
Tudnátok benne segíteni?
Előre is köszönöm.[ Szerkesztve ]
-
Robb202
tag
válasz Fehér Mancs #4622 üzenetére
Pont ellenkezőleg:
Vannak a szavak és a számok:
példa: xyxyxyxy (13456789)
Minden szó után van egy zárójel és benne számok. Én a szavak utáni zárójelet és a benne lévő számokat szeretném kiszedni. Ha ebben segítenél ezer hála.
-
Delila_1
Topikgazda
válasz Robb202 #4621 üzenetére
"...a lényeg hogy a zárójelet és a benne lévő számokat a szavak után le kellene törölni."
Ezt írtad, és Fehér Mancs ezt oldotta meg.
Ismétlés:
A név képlete =BAL(A1;SZÖVEG.KERES("(";A1)-2)A zárójeles szám képlete =JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES("(";A1)+1)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Balli
őstag
Sziasztok!
Azt valahogy meg lehet oldani, hogy a pivot tábla sor celláiban (első fő oszlop) lévő kategóriára kattintva, kilistázza hogy milyen tételek tartoznak hozzá?
Pl.: egy tétel neve: ktgriport- ami a pivotban egy sorban jelen meg szummázott összegel- es ezt hogy lehetne megnezni hogy ebbe a kategoriakban milyen tetelek tartoznak a leggyorsabban s nem ugy hogy a data sheeten leszőrünk a névre. remélem érthető
KöszönömAthens 2004
-
Delila_1
Topikgazda
A Pivot Table éppen arra való, hogy ne tételenként, hanem összesítve jelenítse meg az adatokat.
Írtam egy kis makrót, ami az adatokat tartalmazó lapod A oszlopa szerint rendez, végigfut az adatokon, és annyi új lapot hoz létre a füzetedben, ahány féle adat van az A oszlopban. A lapok mindegyike az adat nevét veszi fel, és az oda tartazó sorokat tartalmazza. Vagyis a ktgriport nevű lapon csak a ktgriport tartalmú sorok lesznek.Sub Adatok()
Application.ScreenUpdating = False
lap = ActiveSheet.Name
Range("A2").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
sor = 2
Do While Cells(sor, 1) <> ""
nev = Cells(sor, 1)
If Cells(sor + 1, 1) <> nev Then
Selection.AutoFilter Field:=1, Criteria1:=nev
Rows("1:" & Range("A65536").End(xlUp).Row).Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = nev
Sheets(lap).Select
End If
sor = sor + 1
Loop
Sheets(lap).Select
Application.CutCopyMode = False
Selection.AutoFilter
Application.ScreenUpdating = 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.
-
Delila_1
Topikgazda
válasz Fehér Mancs #4628 üzenetére
Ezt nem ismertem, köszi!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kija
aktív tag
Sziasztok!
Ms Office 2007 Excelben ha választógomb (optionbutton) formokat rakok ki a munkalapra hogyan tudom kilépéskor beállítani hogy melyik legyen bejelölve a 3-ból? Pl. Választógomb 1 néven fut az egyik és az ilyen elnevezés nem tetszik a VBA-nak.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
szam1 = 0
szam2 = 1
Választógomb 1.Value = 1
MsgBox ("Viszlát!")
End SubA Választógomb 1 elnevezést nem szereti, de az Excel alapból ezt adta és nem tudom megváltoztatni.
Előre is köszönöm a segítséget! -
Balli
őstag
Koszi szepen a segitsegeteket
Athens 2004
-
félisten
Hali!
Ne az ŰRLAP ELEMEK csoportból szúrj be választógombot, hanem az ACTIVEX ELEMEK csoportból.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
szam1 = 0
szam2 = 1
OptionButton1.Value = True
MsgBox ("Viszlát!")
End SubFire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
pschio
őstag
hi all!
tudja valaki hol lehet azt beállítani, hogy excelben több megnyitott xls file esetén a bezárás (jobb felsősarok X) ne vonatkozzon az összesre hanem csak az éppen aktuálisra. tudom hogy a tálcán jobb klikk bezárásnál lehet így, de én az X-el is ugyan így szeretném.
''Én nem süllyedek a hülyék szintjére, mert ott legyőznének a rutinjukkal''
-
mizu_
tag
Sziasztok!
Oszlopokat szeretnék elrejteni, azonban nem a jobb klikk -> elrejtés/felfedés módszerrel, hanem pl. egy nyomógomb megnyomására.
Tudtok erre valamilyen megoldást?Előre is köszi!
-
Delila_1
Topikgazda
Egy egysoros makróval megoldható.
Sub Rejt()
Selection.EntireColumn.Hidden = True
End SubKitehetsz egy új ikont, vagy az Űrlapok eszköztárról egy gombot, és valamelyikhez hozzárendeled a makrót. Egy, vagy több oszlop elrejtésére is alkalmas.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
balage02
csendes tag
Sziasztok!
Valahogy meg lehet oldani, hogy egy megadott tartományban jobbról balra haladva az első értékkel rendelkező cella értékét adja vissza egy függvény?
-
Delila_1
Topikgazda
válasz balage02 #4640 üzenetére
X1 cellából kiindulva megkeressük az első sorban a tőle balra eső első cella értékét:
Sub Első()
Range("X1").Select
Selection.End(xlToLeft).Select
MsgBox Selection.Value
End SubA Selection.End(xlToLeft).Select azonos azzal, mikor a cellán Ctrl+bal nyilat nyomunk.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rtom
senior tag
Hogyan oldanátok meg, hogy adott makró megnézze, mikor volt az excel tábla utoljára mentve, és ha azóta eltelt mondjuk 1 óra, akkor mentsen.
Makróval vitetek be adatokat egy táblába, de ha nem mentenek (és már miért is mentetnének? ), akkor egy idő után bedugul a "rendszer", mentésre azt mondja, hogy "Dokumentum nem került mentésre" vagy vmi ilyesmi.
A FileDateTime(ActiveWorkbook.FullName) és Time értékekkel próbálkoztam, de eddig nem jött össze valahogy, a kettő különbségét nem értelmezi
Előre is kösz
-
Delila_1
Topikgazda
válasz balage02 #4640 üzenetére
Az előző hozzászólásomra, ami útmutatóként szerepelt, nem jött válasz. Lehet, hogy nem sikerült összehozni a függvényt. Itt a megoldás:
Function BalCella()
sor = Selection.Row
oszlop = Selection.End(xlToLeft).Column
BalCella = Cells(sor, oszlop)
End FunctionProgramozó: 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
Nem kell külön makró. Az Eszközök/Bővítménykezelőben jelöld be az Automatikus mentést, mire az az Eszközök menüben megjelenik. Ott beállíthatod a gyakoriságát, továbbá, hogy csak az aktív-, vagy minden nyitott füzetet mentsen-e, és hogy mentés előtt rákérdezzen-e a mentésre.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fehér Mancs
tag
válasz balage02 #4640 üzenetére
Tömbfüggvénnyel is meglehet adni, de egy kicsit bonyolult. Bár, legalább nem kell makró.
A lényeg, hogy az adott cellától (jelen esetben az A1) kell offszet-elni a tőle jobbra lévő első nem üres celláig:
=OFSZET(A1;0;MIN(HA(ÜRES(B1:$IV1);500;OSZLOP(B1:$IV1)))-OSZLOP(A1)) és tömbképlet, vagyis Ctrl+Shift+Enter-rel kell leokézni.
Ha nincs tőle jobbra kitöltött cella, akkor #HIV!-et ír ki.
-
Fehér Mancs
tag
Ha valami ciklust használsz, akkor bizonyos ciklusnál (minden 1000-dik esetben) be lehet iktatni a ActiveWorkbook.Save -et.
Másik lehetőség, ha bizonyos időközönként akasz menteni, a Timer használata (bár ehhez is folyton vissza kell térni -> cilus kell hozzá):
Start = Timer
SaveSecond= 60*60 ' óránkénti mentés
cilus kezdete
if Start > Timer+SaveSecond then
ActiveWorkbook.Save
Start = Timer
endif
cilus vége[ Szerkesztve ]
-
rtom
senior tag
válasz Delila_1 #4646 üzenetére
Az Eszközök/Bővítménykezelő ennyit mutat, nekem egyik sem hasonlít automatikus mentésre:
Közben megnéztem a súgót is, szerinte az Eszközök/Beállítások-> Mentés fülön kell az Automatikus mentés-t engedélyezni, de itt meg csak ezek vannak:
"Az automatikus helyreállítás adatainak mentése ... perc"
"Az automatikus helyreállítás kikapcsolása"
Fehér Mancs: ciklus nincs a makróban és nem is nagyon szeretnék beletenni, mindössze annyit csinál, hogy a kitüntetett cellákban lévő adatokat összeszedi, dátumot a sor végére teszi, beilleszti egy az adatot bevivő személy által nem látható lapra, majd a kiinduló felületen törli a cellák tartalmát.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Canva Pro előfizetés - 1 éves
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!