Hirdetés
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Mr.Csizmás: ncore free regisztráció
- urandom0: Száműztem az AI-t az életemből
- Real Racing 3 - Freemium csoda
- eBay-es kütyük kis pénzért
- Brogyi: CTEK akkumulátor töltő és másolatai
- Elektromos rásegítésű kerékpárok
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
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
-
Mutt
senior tag
válasz
sniphoe
#50296
üzenetére
Szia,
Segédoszlopban az alábbi képlettel, ahol az érték 2 ott van két mássalhangzó (mivel a képletben a magánhangzókat soroltam fel):
=SZORZATÖSSZEG(--HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2;{2;4};1);"aáeéiíoóöőuúüű")))Microsoft365 verzió esetén pedig a SZŰRŐ (FILTER) függvény tud segíteni.
=SZŰRŐ(A2:A21;HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2:A21;2;1);"aáeéiíoóöőuúüű"))*HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2:A21;4;1);"aáeéiíoóöőuúüű")))
üdv
-
Delila_1
veterán
válasz
TheSaint
#50295
üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
Application.EnableEvents = False
Visszajelzes Target.Row 'Meghívjuk a másik makrót, átadva a beviteli sor számát
Application.EnableEvents = True
End If
End SubSub Visszajelzes(sor) ' Itt nevet adhatunk a sorszámnak, nem feltétlen Target.Row legyen a változó neve
'...
End Sub -
TheSaint
aktív tag
válasz
sniphoe
#50296
üzenetére
Az alábbi kód segítségével leszűrhetőek azok a 4 betűs szavak, amelyek első és második karaktere is mássalhangzó:
Sub FilterWords()Dim r As LongDim c As LongDim vowels As Stringvowels = "aeiou"c = 1 ' az oszlop számaFor r = 1 To ActiveSheet.UsedRange.Rows.CountIf InStr(vowels, LCase(Left(Cells(r, c).Value, 1))) = 0 And InStr(vowels, LCase(Mid(Cells(r, c).Value, 2, 1))) = 0 ThenCells(r, c).Interior.Color = vbGreenElseCells(r, c).Interior.Color = vbRedEnd IfNext rEnd Sub
Be kell állítani az oszlop számát (c), amelyet ellenőrizni szeretnél. Ha a szó első és második karaktere is mássalhangzó, akkor zöldre festi a cellát, egyébként pirosra.
Utána mehet sima színszűrő akár. -
TheSaint
aktív tag
Sziasztok!
Worksheet Change eseménnyel kapcsolatban kérnék segítséget, nem ismerem még sajnos.
A feladat egy oszlop (K) celláinak a változása esetén küldjön emailt az adott sor C oszlopában szereplő névhez tartozó email címre. Az emailcímet a munka1 lapon lévő L név oszlop mellett lévő M oszlopban található.
Az emilküldés része már le van kezelve, csak az eseményfigyeléssel nem bírok:Sub Visszajelzes()On Error Resume Next'Public Sub SendEMail(Dim MailFr As String, MailCC As String, MailTo As String, MailSubject As String, MailText As StringDim CDOMsg As ObjectDim CDOConf As ObjectDim CDOFields As ObjectThen MailFr = Munka1.Cells(i, "M")Next iMailTo = Munka1.Cells(2, "H")If IsEmpty(Munka1.Cells(3, "H")) = False Then MailCC = Munka1.Cells(3, "H")If IsEmpty(Munka1.Cells(4, "H")) = False Then MailCC = MailCC & "; " & Munka1.Cells(4, "H")MailCC = MailCC & "; " & MailFrMailSubject = "Visszajelzés érkezett"IfThenMailText = MailText & Chr(10) & _Munka2.Cells(i, "A") & " " & Munka2.Cells(i, "B") & " " & Munka2.Cells(i, "C") & " " & Munka2.Cells(i, "D") & " " & Munka2.Cells(i, "E") & " " & Munka2.Cells(i, "F") & " " & Munka2.Cells(i, "G") & " " & Munka2.Cells(i, "H") & " " & Munka2.Cells(i, "I") & Munka2.Cells(i, "J")Next iEnd If'On Error GoTo ERRORHANDLERSet CDOMsg = CreateObject("CDO.Message")Set CDOConf = CreateObject("CDO.Configuration")CDOConf.Load -1 ' CDO Source DefaultsSet CDOFields = CDOConf.FieldsWith CDOFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1.".Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60'Anonim.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0'Jelszóval:'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'.Item("http://schemas.microsoft.com/cdo/configuration/Sendusername") = ""'.Item("http://schemas.microsoft.com/cdo/configuration/SendPassword") = "".UpdateEnd WithSet CDOMsg.Configuration = CDOConfCDOMsg.Subject = MailSubjectCDOMsg.From = MailFrCDOMsg.To = MailToCDOMsg.CC = MailCCCDOMsg.TextBody = MailTextCDOMsg.SendSet CDOMsg = NothingSet CDOConf = NothingSet CDOFields = NothingEnd Sub -
#50294
Fferi50
Topikgazda
Lasersailing
#50293
Fferi50
Topikgazda
válasz
Lasersailing
#50293
üzenetére
Szia!
VBA nézet Window menüpontban az ablakokat egymás mellé vagy alá is helyezheted.
Másrészt szerintem a Windows több képernyős megjelenítése - úgy emlékszem a kiterjesztett mód - lehetőséget ad arra, hogy a kép mintegy átlógjon a másik képernyőre.
Üdv. -
#50293
Lasersailing
senior tag
Fferi50
#50286
Lasersailing
senior tag
válasz
Fferi50
#50286
üzenetére
Köszönöm szépen, Neked és Delilának is a segítséget!
olyan kérdés jutott eszembe, hogy két monitoros környezetben dolgozom és szeretném, ha az egyik monitoron a VBA object-jét tudnám nézni, míg a másikon a VBA code-ját. Értelemszerűen ugyanannak az excelnek (általában) ugyanazon userformját
Van erre lehetőség?
-
Sprite75
tag
Sziasztok.
Találtam egy ilyen dátum kitöltő megoldást de nem boldogulok a testreszabásával.
[link]
Azt szeretném elérni, hogy saját munkafüzetben is működjön, akkor is ha ez a samradapps_datepicker_221114.xlam file nincs bemásolva a C:\Users\[your login]\AppData\Roaming\Microsoft\Excel\XLSTART mappába
Mert a táblázatban amiben szertném "integrálva" használni többen is dolgoznak és akinek a gépén esetleg nincs fent ez a file a C:\Users\[your login]\AppData\Roaming\Microsoft\Excel\XLSTART mappába
annál nem fog működni a dolog.Próbáltam mind a user form-ot mind az összes modult átrakni egy új munkafüzetbe a samradapps_datepicker_221114.xlam file-ból de különböző hibák miatt nem jó müködik.
Használok egy hasonló "naptárat" pár táblázatomban, ami szintén a kiválasztott dátumot irja be az aktuális cellába egy egyéb dolgot is tartalamzó makró futtatásakor.
De ez a naptár sokkal jobban néz ki és pl tetszik benne hogy egér görgővel lehet lapozni benne ha nyitva van.
-
#50290
Delila_1
veterán
gigabytman
#50289
Delila_1
veterán
válasz
gigabytman
#50289
üzenetére
Szívesen.
-
#50288
Delila_1
veterán
gigabytman
#50287
Delila_1
veterán
válasz
gigabytman
#50287
üzenetére
Azt hiszem, az Ismétlődések eltávolítása funkcióra gondolsz. Ezt az Adatok – Adateszközök menüben találod.
Átmásolod a kérdéses oszlopot egy új helyre, és indítod az ismétlődések eltávolítását. -
#50287
gigabytman
tag
gigabytman
tag
Sziasztok!
Ha nagyon "láma" bocsánat, nekem nem az. A képeken látható példa alapján:
Adott egy 9 adatrekordból álló oszlop/táblázat. Van település ami egyszer, kétszer, háromszor is előfordul az "A" oszlopban. Ha a szűrőt nézem, akkor látható, hogy a 9 rekord ténylegesen 4 fajta várost tartalmaz. A kérdés:
Hogyan tudom egy oszlopba kiíratni a 4 fajta város/bejegyzés nevét?
A szöveges adatok mellett lehetnek számok is az oszlopban. Pl. 9 cikkszám az oszlopban ami valójában 4 fajtából áll. Remélem érthető a példa.
Köszönöm szépen. -
#50286
Fferi50
Topikgazda
Lasersailing
#50282
Fferi50
Topikgazda
válasz
Lasersailing
#50282
üzenetére
Szia!
Az eseménykezelés letiltása (Application.EnableEvents) sajnos a formra nem terjed ki, így kicsit kerülő úton lehet elérni az esemény "letiltását".
Kell egy publikus logikai változó a userform modul lapjára, aminek a hamis v. igaz értéke szerint fut le az esemény kezelés.
Amikor makróval változtatod az értéket, a változás előtt a logikai változó értékét beállítod, majd utána vissza, hogy a user változásokat le tudja kezelni.
Pl.Userform1 modul lapon:Public fusson As Boolean_Change eseménykezelőbenIf fusson Then' amit az eseménykezelőben szeretnélEnd IfEnd Sub
A makróban, bárhol van a makró:Sub Akarmi()...Userform1.fusson=False '(Userform1 helyett a formod neve kell!)... változtatásokUserform1.fusson=True...End SubA Publikus változó helyes meghívása a Modulnév.Változónév, így egyértelmű a VBA számára, hogy melyik változóról van szó.
Üdv. -
hentes555
senior tag
Sziasztok!
Azt melyik függvénnyel tudom megcsinálni, hogy az excel listázza ki az összes adatot egy bizonyos feltétel szerint?
Tehát pl. vannak egy táblázat oszlopaiban tulajdonos nevek, autó alvázszámok, gyártási év, szín, rendszám. És mondjuk van 5 munkalap, 2018-2019-2020 stb. évek szerint.
Amit szeretnék elérni, hogy pl. egy adott mezőbe, ha beírok egy személy nevét, akkor listázza ki az adott személyhez tartozó összes alvázszámot és azok egyéb adatát egymás alá és ezt mind az 5 munkalapból kérje le.
-
#50283
Delila_1
veterán
Lasersailing
#50281
Delila_1
veterán
válasz
Lasersailing
#50281
üzenetére
Szám szöveggé alakítása:
cells(x,y)=cells(x,y) & ""(üres string)
Fordítva:cells(x,y)=cells(x,y)*1 -
#50282
Lasersailing
senior tag
Lasersailing
senior tag
Bocsánat még egy kérdésem lenne:
Ha egy userform-on egy combobox értékét megváltoztatom ahhoz a _change() funkció segítségével tudok programlépéseket hozzárendelni. Hogyan lehet azt elérni, hogy amikor a makró változtatja meg az adott combobox értékét, akkor viszont ne fusson le? -
#50281
Lasersailing
senior tag
Lasersailing
senior tag
Sziasztok,
Excel 365 VBA kérdésem lenne:
Van egy adatbázis, amibe makró segítségével szkennelek be adatokat. Teszt alatt 6 sora van, a sorból az első a megrendelés szám, ami tartalmilag egy 10 jegyű szám (csak szám). Az első 5 sorba beszkennelt adat valamiért text formátumban lett letárolva, most viszont ha beszkennelek adatokat, akkor azokat számként tárolja el. (gondolom azóta valamit átírhattam a makróban, de ez mindegy is, mert nem tudom, hogy mit...)Nem is lenne ezzel gondom. A makró egy másik részében kiolvasom ezeket a sorokat és az első oszlop adatát, mint kulcsot használva keresem vissza, hogy a felhasználó a lehetséges kulcsok közül melyikhez tartozó adatokat szeretné megnézni. A gondom itt kezdődik: Ha text-ként van letárolva a mező adata, akkor azt megtalálja, ha viszont számként, akkor nem találja meg. Pedid a beolvasott adatra keresek (felhasználó csak kiválaszthatja a beolvasott adatot, nem írhat be), azt gondolnám, hogy mindenképp meg kellene találja, de nem.
Eltárolt adatok:
A 2-6 sor között a zöld háromszög mutatja, hogy "text"-ként értelmezi az adatokat
A 7-es sor viszont szám. Bár minden adat text típusú (fent jelőlve). Ha összehúzom a cellákat csak A7-et adja hozzá, a többi az excel szemében nem szám.Az alábbi sor keresi a "Seged" táblában az "ordervalaszto.value" (itt választja ki a user a 6 lehetséges érték valamelyikét) értékét.
Ha pl a 2133990001-et választom ki megtalálja, ha a 2135480001-et akkor viszont nem találja meg, vidáman továbblép (F8-cal léptetve a futást látom):Do
sm = sm + 1
Loop Until Sheets("Seged").Cells(sm, 1).Value = ordervalaszto.Value Or IsEmpty(Sheets("Seged").Cells(sm, 1))Mi ennek az oka, és főleg hogyan tudnám ezt elkerülni?
Biztosan minden orderszám kizárólag számból fog állni, de amúgy az sem gond, ha text-ként tárolom de találja meg "saját magát" mindig.(remélem érthetően sikerült megírni a kérdést)
-
Delila_1
veterán
válasz
RAiN91
#50275
üzenetére
A Worksheet_Change eseményt javaslom.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Long
Application.EnableEvents = False
If Target.Address = "$F$4" Then
If Target.Value <> Range("AH9").Value Then
k = Range("AH" & Rows.Count).End(xlUp).Row + 1
Range("AH" & k) = Range("K9").Value
End If
End If
Application.EnableEvents = True
End Sub -
Pá
addikt
Nem túl elegáns, valószínűleg lehetne rajta optimalizálni, de alapvetően nem ebbe az irányba szeretnék menni, szóval nem öltem bele sok energiát, csak megnéztem, hogy működik-e.
szerk: a sárga mező adja a megoldást, ha 1, akkor jók vagyunk, ha nagyobb szám, akkor nem.
-
Pá
addikt
Ilyen kerülő úton meg tudom csinálni, hogy ez oszlop mellett egy másik oszlopban felismerem a nem nulla értékéket és megszámolom a közöttük lévő cellákat és megnézem, hogy ezek a számok egyformák-e mind. Szóval ilyen módon megvan.
Most arra keresnék módot, hogy lehetséges-e ezt frappánsan belesüríteni csak 1 cellába.
-
Pá
addikt
Sziasztok!
Oszlopban vannak számaim, felváltva nullánál nagyobb számok és nullák. Arra szeretnék egy formulát, ami eldönti, hogy a számok között mindig egyforma mennyiségű nullák vannak-e.
Szóval, akkor lenne TRUE a függvény, ha a első és második szám között pont annyi nullás cella van, mint a második és harmadik, harmadik és negyedik között és így tovább a végéig. Ha bármelyik 2 szám között más mennyiségű nulla van, akkor FALSE.
Az első szám előtti és az utolsó szám utáni nullák nem érdekesek, azokat nem kell nézni.Erre bárkinek egy frappáns ötlete macro nélkül?
-
RAiN91
őstag
Sziasztok,
Az alábbi kódot hogyan lehetne úgy megcsinálni, hogy hasonlóan egyszerű felépítésű legyen? A cél, hogy AH10 cellába írja be K9 tartalmát, ha F4 cella változott. F4 cellában egyébként egy másodpercenként változó óra van, külső adatforrásból. Szeretném, hogy állandóan fusson az egész, ezért választottam worksheet_calculate-t, illetve még más kódok is vannak benne, ezért ehhez ragaszkodnék.
A hiba ott van, hogy megadtam, hogy k=10, és mindig innen indul. De nekem csak az eleljén kéne tudni, hogy 10, utána már léptethetné.
Sub worksheet_calculate()Application.EnableEvents = Falsek = 10If Range("F4") <> Range("AH9") ThenRange("AH9") = Range("F4")Range("AH" & k) = Range("K9")k = k + 1End IfApplication.EnableEvents = TrueEnd Sub -
eszgé100
őstag
válasz
eszgé100
#50198
üzenetére
Sziasztok!
Korábbi kérdésemből csak az "adott pötty fölé viszem az egeret, akkor megjelenítse a szériaszámot" maradt aktuális
Megoldható, hogy a Point "18/01/2023" helyett egy másik cella értéke legyen megjelenítve, pl C1-ben -37 van, viszont kellene a hozzá tartozó B1?
Másik újabb kérdésem a scatter plot charttal kapcsolatban, hogy meg lehet oldani, hogy a x tengely Dátum az adott tárgyhó 1-től induljon és tárgyhó végével érjen véget? Automatikusan Excel kiterjeszti a tengelyt mindkét irányba, hiába nincs semmilyen adat y-tengelyen megjelenítve. Kézzel meg tudom oldani, de ezt minden hónapban el kellene játszni, jobb lenne automatikus megoldás.
-
-
Fferi50
Topikgazda
válasz
Fundiego
#50269
üzenetére
Szia!
Miért lenne 5 kattintás?
Kész van a pivotod, kiválasztod a megfelelő szűrő megfelelő emberét.
Sőt, ne felejtsd el, hogy vannak már SZELETELŐK a pivot táblákhoz, amik kiválóak pl. ilyenre is és talán egyszerűbbek mint a szűrő. Egymás közötti függéseket is lehet velük állítani.
Üdv. -
Fundiego
tag
Excelben szeretnék egy SQL szerű lekérdezést csinálni, de excel módszerrel.
Megoldható az alábbi elképzelés, hogy csakis simán képlettel, segédoszlop nélkül megnézzük Andrással ki(k) dolgozik egy helyen, és mi a beosztása?
Tehát 2020-ban az 1. emelet A helyen Béla dolgozik vele aki egy orvos
2021-ben Géza, és Elemér dolgozik vele egy helyen
Tudom pivottal is meglehet oldani, de én szeretném ezt továbbfejleszteni egy legördülő listás kivlasztással.
-
bsh
addikt
sziasztok.
lenne egy problémám, pont ilyet nem találtam a neten vagy nem jól kerestem. hátha valaki találkozott már vele.
adott egy táblázat, makrókkal, amit "közösen" használnak, egy fájlszerveren van, hálózati meghajtó, stb. a "közös használatot" úgy kell érteni, hogy X megnyitja szerkesztésre és dolgozik benne, közben Y megnyitja és kapja a figyelmeztetést, hogy X-nél van szerkesztésre és ő csak olvasásra tudja megnyitni. ez így oké is lenne. van lockfájl is meg minden ahogy kell.
csakhogy azt csinálja, hogy mikor Y megnyitja csak olvasásra, akkor X-nél, akinél szerkesztésre van megnyitva és dolgozott benne, hirtelen átvált csak olvasásra és nem tudja a módosításait sem elmenteni.
na ez mitől lehet vajon? -
Fferi50
Topikgazda
Szia!
Makró nélkül szerintem csak akkor megy, ha egy harmadik lapon csinálod az adatbevitelt és ahhoz kötöd a két másik lapot - egyiket függőlegesen, másikat vízszintesen.
Egy oszlop transzponálása sorrá és vissza, itt a két makró:Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("A3:A62")) Is Nothing Then Exit SubApplication.EnableEvents = FalseSheets("Munka2").Range("C84:BJ84").Value = Application.Transpose(Range("A3:A62").Value)Application.EnableEvents = TrueEnd Sub
Illetve:Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("C84:BJ84")) Is Nothing Then Exit SubApplication.EnableEvents = FalseSheets("Munka1").Range("A3:A62").Value = Application.Transpose(Range("C84:BJ84").Value)Application.EnableEvents = TrueEnd SubEz minden alkalommal egy az egyben átteszi az egész területet.Az éppen módosított cella értékét a következőképpen lehet áttenni:Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("A3:A62")) Is Nothing Then Exit SubApplication.EnableEvents = FalseSheets("Munka2").Range("C84:BJ84").Cells(Target.Row - 2).Value = Target.ValueApplication.EnableEvents = TrueEnd SubésPrivate Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("C84:BJ84")) Is Nothing Then Exit SubApplication.EnableEvents = FalseSheets("Munka1").Range("A3:A62").Cells(Target.Column - 2).Value = Target.ValueApplication.EnableEvents = TrueEnd SubÜdv.
-
-
Fferi50
Topikgazda
Szia!
Eseménykezelő makróval megoldható.
Mindkét munkalapra kell eseménykezelő, amit az adott munkalap kódlapjára kell bemásolnod:
A Munka1 munkalapra:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" ThenApplication.EnableEvents = FalseSheets("Munka2").Range("C1").Value = Target.ValueApplication.EnableEvents = TrueEnd IfEnd Sub
A Munka2 munkalapra:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$C$1" ThenApplication.EnableEvents = FalseSheets("Munka1").Range("A1").Value = Target.ValueApplication.EnableEvents = TrueEnd IfEnd Sub
Ez a Munka1 A1 cellája és a Munka2 C1 cellája között teremt azonosságot.
A munkalap nevét és a cella címét írd át a sajátodra.
A munkafüzetet makróbarátként (vagy binárisként) kell mentened.
Természetesen tartományt is meg lehet határozni, amin belül a változás egy másik munkalap megfelelő tartományában eltérő helyre másolódik.
Üdv. -
Pá
addikt
Nekem is van kérdésem, bár sejtem a választ...de hátha.
Lehetséges Excelben két cellát összekötni? Olyan módon gondolom, hogy bármelyikbe írok be egy értéket, a másik cella is azt vegye fel. Emiatt nyilván formulával esélytelen, hiszen azt az első érték beírásnál felülírnám. Ide egy beépített feature kéne, ha létezik ilyesmi.
Az már csak hab a tortán, hogy az egészet Transposeolni is kéne, tehát egyik sheeten egy sort szeretnék ilyen módon összekötni egy másik sheeten lévő oszloppal.
-
ny.janos
tag
Sziasztok!
Igazából nem konkrét feladathoz kapcsolódik, csak a kíváncsiságom nem hagy nyugodni: ismer valaki egyszerű módot arra, hogy Power Query-vel egy adott dátumhoz tartozó hét számát az ISO 8601 szabvány szerint határozzuk meg?
Excelben a HÉT.SZÁMA függvény második paraméterének megfelelő megválasztásával (21) simán működik, ugyanakkor Power Query-ben a Date.WeekOfYear függvény csak a január 1-t tartalmazó hét első hétként történő értelmezését ismeri.
-
Fundiego
tag
Kis segítséget szeretnék kérni.
Adott 10 ember akinél van különböző mennyiségű termék amit el kell küldeni másik 10 embernek úgy hogy figyelembe veszi az ő készletét is. Egy ember több embernek is küldhet árut.
Hogyan lehetne ezt makróban leprogramozni? Mert itt konkrétan nem egy függvényt vagy ismétlődő dolgokat, funkciókat kéne bevetni, hanem valamilyen matematikai formulát kéne alkalmazni, hogy ideális mennyiségű legyen az elküldedndő áru
Hogyan kéne nekivágnom?
köszönöm -
Sprite75
tag
Sziasztok
Valaki tapasztalt már olyat, hogy excelben a cellák jobb alsó sarkánál nem jelenik meg a kitöltőjel?
Erre gondolok:Biztos, hogy nem kapcsoltam ki szándékosan, és egy pár napig úgy használtam minden táblázatomat, hogy ez nem működött.
Bosszantó volt nagyonMitől tud ez az opció kikapcsolódni?
-
-szabi-
addikt
Hi
Többször kapok olyan táblázatot ahol a számok szövegként vannak és szóköz, szóközök vannak a számok előtt, mögött.
Próbáltam csere funkcióval a szóközt semmire cserélni.
PróbáltamTRIM(A1);TRIM(CLEAN(A1));SUBSTITUTE(A1," ","").
Egyik sem akar működni.
Mit kellene ellenőriznem, másképp csinálnom?üdv
-
Pá
addikt
Közben meg is lett a megoldás, hasonló esetre. Akit érdekel.
=OFFSET($A$1,0,0,COUNTA($A:$A),1)Ezzel egy dinamikus range-t lehet létrehozni, ami pont olyan hosszú(annyi sor van benne), ahány eleme van az oszlopnak. Elvileg "Defined Name"-ként is működik, szóval elnevezheted, aztán lehet rá hivatkozni bárhol.
-
Pá
addikt
Köszi, de sajnos nem. Ugye alapvetően nem akarom a "blank" cellákat eltávolítani, mivel formulák vannak bennük. Azt szeretném, ha a DATA_VALIDATION funkció ignorálja őket.
A UNIQUE(FILTER) megoldás tökéletes lenne. Ha egy sima cellába beírom, akkor gyönyörűen működik is. De ahogy átmásolom a a formulát a data_validation-be, ott már jön a hibaüzi, hogy hibára fut a formula. Gondolom nem tudja kezelni a SPILL tipusu függvényeket.
-
Pá
addikt
Sziasztok!
Data Validation-t használok egy cellában, drop-down menüvel korlátozva, hogy milyen értéket vehet fel.
A drop-down menühöz az értékeket mondjuk A1:A100 rangeből veszi fel.
Előfordulhat, hogy A1:A100-ban csak 10-20 elem van és emiatt a drop down elég hülyén néz ki, hiszen van felül pár érték, aztán egy nagy üres tömb. Sokszor a user azt hiszi, hogy nincsenek is értékek, hiszen ahogy megnyitja a drop down-t, csak a nagy fehér tömböt látja és nem jön rá, hogy fel kéne scrollozni.Szóval az a kérdésem, hogy lehetne eltüntetni a blank cellákat a drop-downból.
Annyi csavar van még benne, hogy azok a blank cellák, amiket szeretnék eltüntetni, nem teljesen üresek, mert van bennük egy "" a formulák miatt. Emiatt az ignore blanks beállítás nem működik.
-
lenkei83
tag
Sziasztok!
Szumhatöbbnél azonos oszlopon kellene 2 feltételre szűrnöm, de nem jövök rá, hogy hogyan.
A feltétel nagyobb vagy egyenlő mint 400.000 és kisebb vagy egyenlő mint 500.000=SZUM(SZUMHATÖBB(Munka1!$AU:$AU;Munka1!$F:$F;O$10;Munka1!$I:$I;{">="&500000\"<="&400000}))
Segítsen valaki megreszelni.
Köszi
P. -
Fferi50
Topikgazda
Szia!
A sok képletezett cella "természetesen" hatással van a teljesítményre. Ha nem egész sorok/oszlopok szerepelnek a képletekben, akkor azért talán nem kellene nagyon aggódni emiatt. Kérdés viszont, hogy hova hivatkoznak a képletek: másik munkalapra vagy másik/külső fájlra, továbbá milyen gyakran kell újraszámolni azokat.
A legfőbb kérdés igazából az, hogy miért Excelben kell ezt csinálni, ha pedig mégis, akkor miért képletekkel, miért nem lehet pl. lekérdezéssel (ahol feltételeket is lehet megadni).
Tehát jó lenne a feladat jellegét ismernünk, hátha többet (is) tudnánk segíteni.
Üdv. -
Pá
addikt
válasz
Fferi50
#50238
üzenetére
Közben eszembe jutott egy jó paraszt/favágó megoldás is.
A blokkokat oldalra kellene sokasítani. Szóval "lefelé" van helyem. Elvileg meg tudom csinálni, hogy az A1: D200 blokk első szabályának a hivatkozási celláját sokszorosítom A201 : D400-ban. A második szabálynak a celláját kiterítem A401 : D600-ban és így tovább. Így tudnék rájuk $$ nélkül hivatkozni és érvényesek lennének az egész blokkra.Azon túl, hogy nem túlságosan elegáns, az lenne a kérdésem, hogy ilyen méreteknél mennyire kell aggódni performance issuek miatt? Ugye az eredeti 200x200 blokkos tervemből, ami önagában 40,000 képletezett cella. Lenne kb 7-8x ennyi. Szóval bő 300,000 cella. A legtöbben ilyen halmozott képletek vannak, sok IF-vel, VLOOKUP-pal és INDEXMATCH-csel.
Szóval mennyire lehet számítani teljesítmény gondokra egy ilyen setupnál? Illetve mit és hogy lehet ilyenkor optimalizálni, ha egyáltalán. -
-
Pá
addikt
Feltételes formázással szenvedek éppen.
Van egy kb 400 cellás blokkom, ahol 1 cellában lévő blokk alapján változik a többi 400 formázása. Ezt viszonylag könnyű beállítani, hiszen kijelölöm az egész blokkot és a cél cellát beteszem $$ közé.Viszont utána ebből a szépen felsetupolt blokkból szeretnék még 200 másikat copy&pastelni.
Az a bajom, hogy így a $$ jelek miatt az összes copy&paste-t blokk is mind az első blokk cellája alapján fogja változtatni az értékét. Pedig mindegyik önálló egységként kéne működjön.Szóval nagyon leegyszerűsítve A1: D100 blokk formátuma A1 cella lapján kéne változzon.
Aztán E1:H100 az E1 alapján. Aztán I1:L100 pedig I1 alapján stb.A valóságban persze ez jóval bonyolultabb, mert egy blokkban nem egy szabály van, hanem sok. Ez a probléma szempontjából nem is lényeges, csak azért említem meg, hogy tudjátok, hogy a manuális megoldás elég esélytelen.
-
csiak
tag
Sziasztok,
Office 19-es Excelnél (és a többi Office alkalmazásnál is) nagyon zavaró, hogy a mentés menünél a tallózás (filekezelő) elésére 3 felesleges lépésből érhető csak el:
Nem lehet valahogy elérni az Office-ban, hogy ctrl-s, vagy mentés kattintásra egyből a windows-os intéző felület (filekezelő) jöjjön elő?
Nagyon köszönöm előre is!
-
Delila_1
veterán
válasz
RedHarlow
#50224
üzenetére
Úgy látom, minden sorodban szerepel az xyz szövegrész.
A lenti makró az A oszlopban az xyz szöveg után betesz egy sortörést.Sub Sortores()
Dim sor As Integer, b As Integer
sor = 1
Do While Cells(sor, 1) <> ""
b = InStr(Cells(sor, 1), "xyz")
If b > 0 Then Cells(sor, 1) = Left(Cells(sor, 1), b + 2) & Chr(10) & Mid(Cells(sor, 1), b + 3, 100)
sor = sor + 1
Loop
End Sub -
-
-
RedHarlow
aktív tag
Sziasztok,
Van egy 13 ezer soros excelem, sajnos minden sor nagyon hosszú, kb minden sorba 4 sortörésre lenne szükségem, valahogy ezt meg lehet oldani excelben? Az oszlopok szélességének módosítása tök jól megcsinálja amit szeretnék de itt ugye valójában nincsenek sortörések és amint kimásolom egy txt-be megint minden egy soros. :/
-
Antonio
senior tag
-
Antonio
senior tag
Sziasztok feltételes formázás témakörében kérném a segítséget 1000 éve nem csináltam és igencsak megkopott a tudás
Hogyan lehet (ha lehet egyáltalán) megcsinálni/beállítani hogy minden sort külön kezeljen?
A lényeg hogy az utolsó hónap eredményeit összehasonlítva az előzővel jelenleg Novembert az Októberrel (Dec adatok még nincsenek meg) ha csökken az érték előző hónaphoz képest akkor zöld (javulás) a nő akkor piros, stagnálásnál sárga. mert most minden sort az x88 hoz viszonyít.Remélem érthető a kérés (ezt egy rakás platformmal meg kell még csinálnom, és ezután havonta ismételni) majd kirakom az egész nyilazást M oszlopba
köszönöm
-
gyga
senior tag
Sikerült. Összedobni egy gombra ezt kis macrot. Erre kiderül, hogy ahol használni akarják ott nem lehet makrót használni (android).
Van e más lehetőségem?Sub Makró4()'' Makró4 Makró''Sheets(Sheets.Count).SelectSheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)Range("G2").SelectSelection.CopyRange("F2").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseRange("A6").Formula = "=lookup(2,1/(not(isblank(A7:A21))),A7:A21)"Range("A7").SelectApplication.CutCopyMode = FalseSelection.CopyRange("A6").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseRange("A7:B21").SelectApplication.CutCopyMode = FalseSelection.ClearContentsRange("H2").SelectSelection.ClearContentsRange("C4").SelectSelection.ClearContentsEnd Sub -
Delila_1
veterán
-
Pá
addikt
VLOOKUP-ban szeretném a tartományt dinamikusan megadni.
Tehát $A$X:$B$Y formában, ahol X és Y egy-egy cella értéke lenne.
Szóval X értéke mondjuk "C1", Y pedig "C2" cellából jönne, ahogy azokat módosítom, úgy módosulna a VLOOKUP-ban a vizsgált tartomány.Az oszlopok fixek, egyedül a sorokat szeretném mozgatni.
-
-
.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Aranyba kiönteném az ALT+Enter-t ha tudna ilyet. 
Új hozzászólás Aktív témák
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Keresem a Barkács Balázs Játékokat
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- PC Game Pass előfizetés
- Apple Watch Series 9 GPS+Cellular 41mm, 1 Év Garanciával
- LG 39GS95UE - 39" Ívelt OLED / QHD 2K / 240Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
- Apple iPhone 15 Pro - Black Titanium - 128GB - Akku: 87% - Megkímélt állapot!
- Eladó egy Xiaomi 12T pro Töltővel adom
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi