Hirdetés
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- GoodSpeed: Márkaváltás sok-sok év után
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- Gurulunk, WAZE?!
- gban: Ingyen kellene, de tegnapra
- Magga: PLEX: multimédia az egész lakásban
- MaxxDamage: -TongFang- Medion Erazer Beast 16 X1 - induló teszt így kora délután..."CB R23"
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
-
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
Fferi50- BestBuy topik
- Okosóra és okoskiegészítő topik
- Kerékpárosok, bringások ide!
- HiFi műszaki szemmel - sztereó hangrendszerek
- LG LCD és LED TV-k
- Bloomberg: Az iOS 27 a stabilitásra és az AI-ra fókuszál majd
- Futás, futópályák
- Elektromos cigaretta 🔞
- PlayStation 5
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- További aktív témák...
- Bomba ár! Lenovo ThinkPad L390 - i5-8GEN I 8GB I 256SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Apple Watch Ultra 2 49mm Cellular okosóra garanciával hibátlan működéssel
- Samsung Galaxy S25 Ultra 256GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Lenovo IdeaPad V14-IIL: i5-10GEN I 8GB I 256SSD I 14" FHD I Cam I W11 I Garancia!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest