Hirdetés
- Luck Dragon: Asszociációs játék. :)
- gerner1
- Gurulunk, WAZE?!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- MasterDeeJay: ASRock B250M Pro4 coffeetime mod! (DDR4)
- Hieronymus: Pihole + Unbound
-
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
-szabi-
#54721
üzenetére
Szia,
Excel verziótól függően ezekkel lehet próbálkozni:
1) Ha a szöveg végén van a pénznem, akkor egyszerűen levágjuk az utolsó pár karaktert (pl. 3-at)=--BAL(A1;HOSSZ(A1)-3)
2) Ha MS365-ön vagy, akkor van reguláris kifejezés is:=--REGEXKIVONÁS(A1;"[0-9]*[ 0-9]*")
3) Ha Office2021 vagy újabbad van, akkor van SORSZÁMLISTA, REDUCE és LET is. Itt két megoldás amik hasonlóan működnek (a szöveg.keresen belül fel vannak sorolva, hogy mely karaktereket tartsuk meg):=--REDUCE("";KÖZÉP(A1;SORSZÁMLISTA(HOSSZ(A1));1);LAMBDA(a;c;a&HA(SZÁM(SZÖVEG.KERES(c;"0123456789,"));c;"")))=LET(karakter;KÖZÉP(A1;SORSZÁMLISTA(HOSSZ(A1));1);--SZÖVEGÖSSZEFŰZÉS("";IGAZ;HA(SZÁM(SZÖVEG.KERES(karakter;"0123456789,"));karakter;"")))4) Excel 2013-tól van villámkitöltés (Kezdőlap - Szerkesztés - Kitöltés - Villámkitöltés) ami ha egymás alatt vannak az értékek, akkor a mellette lévő oszlopban pár példát megadva kitölti a többit.
5) Power Query is járható.
6) Végső megoldás pedig egy UDF (VBA Macro) ha a fentiek nem tetszenek. Ekkor a 2 vagy 3-as opcióban leírtakat valósítjuk meg VBA-ban.
üdv
-
#51941
Fire/SOUL/CD
félisten
-szabi-
#51939
-
-
Delila_1
veterán
válasz
-szabi-
#51383
üzenetére
Szia!
Ha ezt egyszer kell összeszámolni, akkor szűrd az oszlopot színre, majd a másikat a szövegre. A RÉSZÖSSZEG függvény megadja a darabszámot.
Ha viszont állandó jellegű a feladat, akkor egy oszlopba a színnek megfelelően vigyél be 1; 2; vagy 3 értéket. Akkor a DARABHATÖBB függvénnyel oprálhatsz. -
-
Fferi50
Topikgazda
-
-
Fferi50
Topikgazda
válasz
-szabi-
#49716
üzenetére
Szia!
Úgy emlékszem, itt is van a fórumon olyan képlet, ami többszörös találatot is ad vissza.
Ha kevés keresnivalód van, akkor
1. Darabteli (Countif) függvénnyel megnézheted melyikből hány előfordulás van
2. A HOL.VAN (Match) függvény megadja az első előfordulás helyét
3. Az FKERES (Vlookup) függvény keresési tartományát a 2. pont alapján beállíthatod a következő érték megtalálásához.
Az 1 és 2 pontnál hasznáhatod a számoláshoz, kereséshez használhatod a joker (? és *) karaktereket.
Üdv. -
Fferi50
Topikgazda
válasz
-szabi-
#47508
üzenetére
Szia!
1. lépés: Átmásolod az egész oszlopot a másik oszlopba. Ezután Adatok - ismétlődések eltávolítása
2. lépés: Az új oszlop mellé a képlet: =Darabteli(régioszlop;ujoszlopcellája)
Pl. =Darabteli(A:A;C1)
A oszlop a régi, C oszlop az új, a képlet a D1 cellába kerül és húzható lefelé az oszlopon-
Üdv. -
-szabi-
addikt
válasz
-szabi-
#46011
üzenetére
Hi
Erre még mindig keresem a megoldást.
Van most egy elképzelésem ahogy megcsinálnám de a végén utolsó lépésként szűrőt használnák mert 300 sorból csak az a 100 sor kellene ami csak számot tartalmaz, szöveget nem.
Most csak egyesével tudom kiválasztani ami kell ez 100 sornál nem jó.
Kérdésem szűrőben hogy lehet néhány kattintással a szükséges 100 sort kiválasztani?üdv
szabi -
Pakliman
tag
válasz
-szabi-
#40996
üzenetére
Szia!
Egy lehetőség:
(A wiki oldalát jelöld ki CTRL+A-val, majd CTRL+C, aztán a makró indítása)Sub Olvas()
Dim oClip As Object
Dim arr
Dim db As Long
Dim i As Long
Dim sor As Long
Dim bKód As Boolean
'Ez a Microsoft Forms 2.0 Object Library "késői kötése" (c:\windows\system32\FM20.DLL)
Set oClip = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
On Error GoTo Hiba
oClip.GetFromClipboard
'Beolvassuk egy tömbbe a szöveget...
arr = Split(oClip.GetText(1), vbCrLf)
db = UBound(arr)
bKód = False
sor = 0
For i = 0 To db
If arr(i) Like "### ?*" Then
bKód = True
sor = sor + 1
Cells(sor, 1) = Left(arr(i), 3)
Cells(sor, 2) = Mid(arr(i), 5)
End If
If bKód = True Then
If arr(i) Like " ?*" Then
Cells(sor, 3) = Cells(sor, 3) & IIf(Cells(sor, 3) <> "", vbCrLf, "") & Mid(arr(i), 5)
End If
End If
Next i
Hiba:
End Sub -
#18567
Apollo17hu
őstag
-szabi-
#18566
Apollo17hu
őstag
válasz
-szabi-
#18566
üzenetére
Szia!
Lehet, hogy később rámcáfolnak, de szerintem nincs olyan formátum, hogy perc:másodperc:tizedmásodperc.
Helyette használhatsz ó:pp:mm,00 formátumot, aminél működik az összeadás. Arra figyelj, hogy 77:42,51 helyett 1:17:42,51-et adj meg (tehát az órákat "be kell váltani", a tizedmásodperceket pedig nem kettősponttal, hanem tizedesjelölővel kell elválasztani).
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Tesla topik
- Fejhallgató erősítő és DAC topik
- Samsung kuponkunyeráló
- Projektor topic
- exHWSW - Értünk mindenhez IS
- Red Dead Redemption 2 (PC)
- 2026 - Íme a 18. héten megjelenő játékok listája
- Egyre inkább szoftverrel segítene a Core CPU-k teljesítményén az Intel
- AMD Navi Radeon™ RX 9xxx sorozat
- Diablo II: Classic és Resurrected
- További aktív témák...
- AKCIÓ! Microsoft XBOX Series X 1TB SSD fekete játékkonzol garanciával hibátlan működéssel
- Micron 3400 512GB M.2 PCIe Gen4 SSD! 6600-3600MB/s
- Sosemhasznált! HP OmniBook 5 Flip i5-1334U 16GB 1000GB 14" FHD+ áthajtós-érintős Gar.: 1 év
- Azonnali készpénzes AMD Radeon RX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- LG UltraGear 32G810SA-W 4K AI Monitor! 3840x2160 / 144Hz / 1ms / G-Sync / FreeSync! BeszámítOK
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest