- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- Az iPadOS-re írt appokra is díjat vet ki az Apple
- Letartóztatták a bitcoin-Jézust
- Hálózatokról alaposan
- ASUS routerek
- Asustor NAS
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- A pápa egyre jobban tart a romlott AI veszélyeitől
- Milyen program, ami...?
- Aliexpress tapasztalatok
-
IT café
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
-
Mutt
aktív tag
válasz bajor14 #18682 üzenetére
Hello,
...van egy makró ami minden fél órában lefut...
Miért nem használsz inkább feladatütemezőt? (Windows beépített, külső)
A makródnak ekkor csak automatikusan kell tudnia indulna, a kért műveleteket elvégeznie és magát bezárnia.
Az időzítés az ütemező dolga lesz.üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Vladek83
tag
Sziasztok!
Segítséget szeretnék kérni:
Van egy UserForm ami tartalmaz egy listbox-ot ( 5 oszlopos ), illetve egy textbox-ot (ebben szeretném megjeleníteni az adott értéket, ami a listbox-ban van ( első oszlopban lévőket ).
Van egy makro, ami megkeresi a listbox-ból az értéket, ami szintén ehez a textbox-hoz van rendelve.Ez működik is, csak ha a listbox-ból választom ki akkor nem jeleníti meg...Dim i As Long
Dim sFind As StringsFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.lbArlista.ListIndex = -1
Me.lbArlista.TopIndex = 0
Else
For i = 0 To Me.lbArlista.ListCount - 1
If UCase(Left(Me.lbArlista.List(i), Len(sFind))) = UCase(sFind) Then
Me.lbArlista.TopIndex = i
Me.lbArlista.ListIndex = i
Exit For
End If
Next i
End IfIf lbArlista.ListIndex >= 0 Then
Me.TextBox1.Value = Me.lbArlista.List(i, 1)előre is köszönöm
[ Szerkesztve ]
-
nimmy001
csendes tag
Sziasztok!
Egy olyan problémám lenne, hogy szeretnék egy képet bepakolni makróval egy excel fájlba, de úgy, hogy akkor is látsszon, ha olyan gépre kerül át az excel fájl, ahonnan nem érhető el a képfájl helye. Próbáltam makrórögzítővel, a Pictures.Insert... stb. kóddal, de a kép eltűnik, ha nem találja a forrásmappát. Nem találtam még meg a végső megoldást.
-
nimmy001
csendes tag
Sziasztok,
Még egy kérdés, hogy lehet excel beépített gyorsbillentyű kódokat törölni, módosítani (olyanokat, amik 1-1 menüfülre ugranak). Nincs rá szükség, és másra kéne az a kód, 1-1 makrót lefuttatni, a problémát egy olyan gép okozza, ahol angol nyelvű az office, és ott ez a 2 gyorsbillentyű foglalt, a többin, ahol jól működik, magyar, és azokon nem foglalt. Nem telepíthetek semmi plusz programot, kiegészítőt... stb. Más megoldás kell.
-
nimmy001
csendes tag
válasz nimmy001 #18706 üzenetére
Úgy tűnik, erre találtam megoldást (ha másnak is kéne):
ActiveSheet.Pictures.Insert(Filename).Select
If Val(Application.Version) > 12 Then
dWidth = Selection.Width
dHeight = Selection.Height
Selection.Cut
ActiveSheet.Shapes.AddPicture(Filename, False, True, 100, 100, dWidth, dHeight).Select
End If(a 100, 100 a pozíciót adja meg, lehet más is, 0, 0 a táblázat bal felső sarka például)
-
Vizes Tomi
tag
Sziasztok Azt szeretném kérdezni, hogy egy neveket tartalmazó listában az összes név kisbetűs Pl minta áron, de én szeretném átalakítani úgy, hogy Minta Áron.
Ezt, hogyan tudnám, könnyen gyorsan megcsinálni?
-
Delila_1
Topikgazda
válasz Vizes Tomi #18709 üzenetére
A TNÉV függvény pontosan ezt csinálja.
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 Vizes Tomi #18711 üzenetére
Nincs nit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mythunderboy
csendes tag
Sziasztok!
Tudna valaki segíteni?
Egy számomra érthetetlen probléma jelentkezett egyik napról a másikra egy táblázatomban. 1901-es évtől összevissza évjáratú dátumokat szórt szanaszét a cellákba valami... Kitörölve a fontos hivatkozásokat kitörölni igen, de felülírni nem engedi... mindig visszaírja a dátumot......van ahol kettős kereszteket írt a cellába de a szerkesztőlécen a dátumot mutatja és van ahol már a dátum van a cellában... Van ötletetek mi a répa ez? és javítható?Spacesynth 4 ever!
-
Caipi
tag
válasz Mythunderboy #18713 üzenetére
Szerintem csak a cellák formátuma lett átállítva
-
nimmy001
csendes tag
Sziasztok!
Akadt egy problémám. Van egy közös használatú excel, amiben szeretnénk szűrni, de úgy, hogy a fejlécek szövegét ne lehessen átírni, csak arra jogosult írhassa át, szűrni más is akar, és mindezt közös használat mellett. Az excel lapvédelem funkciója mellett nem működik a szűrés (kipróbáltam). Makrós megoldás esetleg? Tartományok védelmét és jogosultság szerinti írását meg lehet oldani a Lapvédelem funkció megkerülésével makrósan? Begépelős mezőknél szeretném, ha rászólna a nem jogosult felhasználóra, hogy oda nem írhat, és ki se töltse (vezérlős mezők is vannak, arra már találtam megoldást, a kitöltősökre még nincs). Vannak mezők, ahova más, beírt adat szerint képlettel keres adatot másik excelből, a képlethez viszont szeretném, ha nem tudnának hozzányúlni mások, és ne írhassák át véletlenül akár. Az összes kérdés ugyanarra a fájlra vonatkozik.
[ Szerkesztve ]
-
nimmy001
csendes tag
Az oké, csak ez több gépen megosztva lenne használva, és nem mindenhol 2010-es office van (egyébként nekem a 2010-esben se engedi, akkor se, ha ezeket nem zárolom, még az ikonja is inaktívra vált), ráadásul van, ahol magyar, van, ahol angol. Még ha a szűrőt engedem is, hogy hozzáférjenek, nem akarom, hogy véletlenül átírják a fejléc szövegét, mert annak maradnia kell, azt nem engedhetem meg, csak azt, hogy le tudjanak szűrni.
[ Szerkesztve ]
-
nimmy001
csendes tag
A képleteknél nem az a fontos, hogy ne lássák, hanem, hogy ne tudjanak beleírni. Ez lapvédelemmel megoldott volt, amíg nem volt igény a szűrésre is, amíg nincs más megoldás, addig vagy szűrés nincs, vagy lapvédelem nincs. Most egyelőre a szűrést nélkülözzük, a lapvédelem a fontosabb, mert más-más felhasználóknak más-más részekhez kell tudni hozzáférni, de nem szabad mindenhez.
-
nimmy001
csendes tag
Még ez is kérdés:
"...hogy lehet excel beépített gyorsbillentyű kódokat törölni, módosítani (olyanokat, amik 1-1 menüfülre ugranak). Nincs rá szükség, és másra kéne az a kód, 1-1 makrót lefuttatni, a problémát egy olyan gép okozza, ahol angol nyelvű az office, és ott ez a 2 gyorsbillentyű foglalt, a többin, ahol jól működik, magyar, és azokon nem foglalt. Nem telepíthetek semmi plusz programot, kiegészítőt... stb. Más megoldás kell." -
Vizes Tomi
tag
Sziasztok
Újra
Van egy olyan listám , hogy
Azonosító, Minta Árpád, Számlaszám, Összeg
Ezt a listát szeretném elrejteni a kollégáim elől, de egy másik munkalapon szeretnék lehetőséget hagyni arra, hogy keressenek. Az lenne a legjobb, ha Pl az azonosítóra rákeresnénk és kiadna egy listát arról, hogy ehhez az azonosítóhoz hány számla tartozik. Illetve ha kell akkor új sorokat tudjak a táblázatba bevinni, az még királyabb lenne ha a bevitelkor is ellenőrizne,és kiadná, hogy már van ilyen számlaszám.
A keresésre ott van a keres függvény csak nem tudom, hogy hogyan tudnám rábeszélni, hogy listát adjon ki.
A többi homály.Köszönöm
[ Szerkesztve ]
-
mr.nagy
tag
Sziasztok!
A feladat a következő:
A C oszlopban számok vannak, a D oszlopban nevek. A feladat, hogy egy adott szám esetén a mellette található információkat egy fix cellában (pl. B5) egymás mellett lássuk.
Tehát mintha "&"-el egymás mellé egy cellába egyesítenénk a különböző oszlopokban található információkat csak itt még meg is kell kereseni hogy hol vannak ezek!A képen a C-D tartományban keressük az A5 értékét és a B5 cellát szertnénk eredménynek kapni.
Hogy lehet megoldani?
HMNote10Pro
-
Delila_1
Topikgazda
válasz mr.nagy #18723 üzenetére
Az első makrót a lapodhoz rendeld. Ez figyeli az A5 cella változását.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then Osszefuz
End SubMikor új adatot viszel be az A5-be, meghívja a modulba írt Osszefuz makrót, ami a B5 cellában összefűzi az azonos kódhoz tartozó adatokat.
Sub Osszefuz()
Dim kriterium, Rng As Range, usor As Long, CV As Object
Application.EnableEvents = False
Range("B5") = ""
kriterium = Range("A5")
Range("A4:D4").AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=kriterium
usor = Range("D4").End(xlDown).Row
Set Rng = Range("D5:D" & usor).SpecialCells(xlCellTypeVisible)
For Each CV In Rng
Range("B5") = Range("B5") & " " & CV
Next
Application.EnableEvents = True
Selection.AutoFilter
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 Vizes Tomi #18722 üzenetére
A két lapnak Rejtett, és Látható nevet adtam. Az első makrót a Látható laphoz rendeld. Ezen a lapon az A1 cellába beírod a keresett azonosítót.
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("5:10000").ClearContents
If Target.Address = "$A$1" Then
Rows("5:10000").ClearContents
Listaz Target
End If
End SubA második makró, amit modulba másolsz be, a Látható lapra átmásolja a kritériumnak megfelelő sorokat, az A5 cellától kezdve. A 4. sorba beírhatod az oszlopok címét (Azonosító ... Összeg)
Sub Listaz(krit)
Dim usor As Long, Rng As Range
Application.EnableEvents = False
Sheets("Rejtett").Select
Selection.AutoFilter Field:=1, Criteria1:=krit
usor = Range("A1").End(xlDown).Row
Set Rng = Range("A2:D" & usor).SpecialCells(xlCellTypeVisible)
Rng.Copy Sheets("Látható").Range("A5")
Sheets("Látható").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.
-
Agony
aktív tag
Sziasztok!
Egy kis szakértői supportra lenne szükségem az alábbi problémára. Nincs vele semmi különösebb dolgom, de nagyon bosszant, hogy nem tudom megoldani.
Szeretném azt megoldani, hogy a makró végignézze az A oszlop celláit (pl.: A105) és hajtson végre egy függvényt a vele egy sorban lévő B oszlop cellájában (pl.: B105), addig amig üres cellát nem talál az A oszlopban.
Idáig jutottam, de nem igazán akar működni, feltételezem az Autofill-nek van még szüksége valamilyen paraméterre, de nem sikerült kimatekozni. :S
Sub FüggvényMásolás()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=FÜGGVÉNY"
Range("B1").Select
Selection.Autofill
Range("B").Select
End SubŐszintén szólva nagyon érdekel az excel makrókra, függvényekre vonatkozó oldala, de nem igazán találtam olyan könyvet amiből el tudnám sajátítani. (Amik megvannak: Excel haladóknak, Makrohasználat Excelben, Gazdasági számítások Excelben)
Ti hogy értétek el, hogy ilyen pro excel felhasználók lettetek? (Vagy mindenki programozó? )
Start with a whisper, end with a scream!
-
Delila_1
Topikgazda
Érdemes meghatározni, hány sor van az A oszlopban. Ezt több módon meg lehet állapítani, pl.
lastrow=range("A1").end(xkdown).rowJöhet a függvény.
range("A1:A" & lastrow)= "=függvény"Szakkönyvekből, fórumokon járkálva lehet tanulni, és vannak ilyen helyek, amik segítséget nyújtanak. A YouTube-on is rengeteg példát találsz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Agony
aktív tag
válasz Delila_1 #18729 üzenetére
Köszönöm a választ!
Végül ez lett a működő koncepció:
Sub Markó()
Range("B1").FormulaR1C1 = "=IF(RC[-1]=10,""Igaz"",""Hamis"")"
Range("B1:B1").Autofill Destination:=Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row)
End SubRemélem, nincs benne túl nagy blődség, minden esetre a funkcióját ellátja.
[ Szerkesztve ]
Start with a whisper, end with a scream!
-
Delila_1
Topikgazda
Jó, ahogy írtad.
Egy lépésben:
Sub tiz()
Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=IF(RC[-1]=10,""Igaz"",""Hamis"")"
End SubEgyszerűbben:
Sub Tiz()
Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row) = "=if(A1=10,""Igaz"",""Hamis"")"
End Sub[ 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.
-
Delila_1
Topikgazda
válasz Vizes Tomi #18734 üzenetére
Szia!
A Látható lap fülén jobb klikk, Kód megjelenítése. Ezzel bejutottál a VBA szerkesztőjébe. Látod, hogy bal oldalon a lapok felsorolásánál a Látható lapod van kijelölve. A jobb oldali üres területre másold az első makrót.
Bal oldalon a füzeted nevén állva az Insert menü Module almenüjére kattints, kapsz egy új modult, aminek Module...n lesz a neve. Erre kattintva jobb oldalon ismét üres területet kapsz, ide másold a második 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.
-
Delila_1
Topikgazda
válasz Vizes Tomi #18736 üzenetére
Melyik verziót használod?
Készítek egy füzetet, amibe majd átmásolod az adataidat. Abban már az is benne lesz, hogy a látható lapon vihetsz fel új sort a rejtettre.
Add meg a lapok általad használt nevét is.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
Helló!
Adott egy MS Office Pro 2010. Adott egy diagramm, amit adattáblából készítek, mondjuk egy ilyen:
Kérdésem az lenne, hogy hogyan tudnék makró nélkül, automatán maximumot meghatározni a kirajzolt diagrammhoz? (tehát hány %-nál érem el a maximum értéket.
A segítséget előre is köszönöm.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz föccer #18738 üzenetére
Felveszel egy új oszlopot, amibe végig az első oszlop max értékeit teszed. Ez egy vízszintes vonalat eredményez a grafikonodon, ami a max értéknél metszi a görbé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.
-
tamas1985
aktív tag
Sziasztok!
A következőben kérném a segítségeteket:
Adott egy táblázat.
Az első oszlopban (4a) kell lenni az összes ÁFÁnak egy adott évben ez megoldva sima összeadás semmi gond.
Másodiki oszlopban (4b)azt kell eldönteni hogy ez az összeg 30000 alatt vagy felett van, ezt egy HA függvénnyel oldottam meg, így néz ki =HA($C66>30000;"Yes";"No"), ez is rendben
A harmadik oszlopban(4c), kell kiszámolni a visszatérítést 2,5% ha 30000 felett vagyunk, illetve ha nincs 30000 felett akkor is jár neki 20, na ezt nem tudom megcsinálni.
Ezt próbáltam:
=HA($D67="Yes";;"20")+$C67*$E$78
De nem jó mert odáig ha csak azt nézzük hogy melyik nem éri el a 30000 és azok 20 kapnak ok, de ha az egész oszlopra akarom alkalmazni akkor már nem jó.
Lényeg hogy csak a sárga mezőben szerepelhet képlet.
Előre is köszi. -
Delila_1
Topikgazda
-
q13579
senior tag
Sziasztok!
Feltételes formázással kapcsolatban lenne kérdésem.
Két táblázatból szeretnék egy harmadikba értéket másolni, fkeres függvénnyel. Ha az egyikbe nincs benne, akkor a másikból vegye. Ez működik, nincs vele gond. (HAHIBA és FKERES függvényekkel megy egyszerűen).
Viszont hogyan tudnám megoldani, hogy kiemelje valahogyan azokat az értékeket, amelyeket az 1-es táblázatból szed?
Próbáltam feltételes formázással, hogy ha az érték megegyezik az 1-es táblázatban lévő, azonos helyen lévő értékkel (szintén fkeres függvény), akkor formázza pirosra. Ez működik is egy cellánál.
Viszont másolni CSAK a feltételes formázást nem tudom. Ez megoldható valahogy, vagy tud ehelyett esetleg más megoldást is javasolni valaki?
-
Delila_1
Topikgazda
válasz q13579 #18745 üzenetére
A képen a 3 lapot egymás mellé tettem. A Munka3 lapra gyűjtöm a két első lapról az adatokat. Itt felvettem egy segédoszlopot – a képletét láthatod a szerkesztőlécen –, mert a feltételes formázás csak a saját lapján lévő adatok szerint működik.
A felt . formázás 2 képlete
=$C1=1 (egyik szín) és
=$C1=2 (másik szí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.
-
föccer
nagyúr
válasz Delila_1 #18739 üzenetére
Ezzel az a baj, hogy az adattábla az csak abból az 5 pontból áll, amin az adatjelölők állan (2-10%-ig) Nekem meg arra a maximum pontra lenne szükségem, ami az illesztett görbe maximuma. A leni példánál maradva ~8,22%.
Nem kell a diagrammra rárajzolnom, hanem csak számszakilag kell tudnom kiszámolni (amit most csak "ránézésre" tudok megmondani).
Ha erre tudsz valami frappáns megoldást, akkor azt megszönömöm, ha megosztod.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
-
föccer
nagyúr
válasz Delila_1 #18748 üzenetére
Ez egy vizsgálati eredményeket ábrázoló grafikon. A vizsgálat eredménye egy anyagra jellemző, %-ban kifejezett szám. A vizsgálatot csak korlátozott mennyiségben, az egész % értékeknél végezzük el, viszont az anyagra jellemző érték a legkevesebb esetben lesz kerek%. A természetanyánk így találta ki az anyagot. A vizsgált anyagjellemzőnek mindig van egy maximum értéke, csak éppen nem tudjuk, hogy hol. (tapasztalat alapján 6-8% között, de ez változik.
Tehát nem arra vagyok kíváncsi, hogy al elvégzett vizsgálatok közül melyiknek legnagyobb az értéke =max() függvény ugyebár..., hanem arra, hogy a vizsgálati eredmények álltal kirajzolt görbének hol van a maximuma. Ha ismerném a görbe egyenletét, akkor 2 deriválással már megkaphanám annak a maximumát, csak hát nem ismerem a görbe pontos egyenletét. A közelítő polinomok és egyéb trendvonalak ebben az esetben igen használhatatlanok, mert a vizsgálati eredményben pontos (0,05%) eredményt kell megadni. Ennél jóval nagyobb tévedést adna, ha közelítő polinommal számolnék.
Szóval ennek fényében látsz rá valami megoldást, hogy automatán ki tudjam számoltatni amit szeretnék, vagy maradjak a manuális leolvasásnál?
Köszi szépen
üdv, föccer
Építésztechnikus. Építőmérnök.
Új hozzászólás Aktív témák
- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- Ukrajnai háború
- Autós topik látogatók beszélgetős, offolós topikja
- Robogó, kismotor
- Ennyibe kerülnek a Huawei Pura modellek Európában
- Milyen cserélhető objektíves gépet?
- Call of Duty: Modern Warfare III (2023)
- Óra topik
- Magisk
- Nők, nőügyek (18+)
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen