- Huawei Watch GT 2 Pro - egyszerűen gyönyörű
- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Megjelent a Poco F7, eurós ára is van már
- Szerkesztett és makrofotók mobillal
- Samsung Galaxy S21 FE 5G - utóirat
- Samsung Galaxy Watch7 - kötelező kör
- Samsung SmartTag2 teszt
- Mobil flották
- A Galaxy Z Fold7, minden színben és oldalról
-
Mobilarena
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
veterán
=SZÖVEGÖSSZEFŰZÉS(";";IGAZ;HA(Munka1!D7="X";Munka1!D$1;"");HA(Munka1!E7="X";Munka1!E$1;"");HA(Munka1!F7="X";Munka1!F$1;"");HA(Munka1!G7="X";Munka1!G$1;"");HA(Munka1!H7="X";Munka1!H$1;"");HA(Munka1!I7="X";Munka1!I$1;"");HA(Munka1!J7="X";Munka1!J$1;"");HA(Munka1!K7="X";Munka1!K$1;"")) -
-
Delila_1
veterán
válasz
Delila_1
#54382
üzenetére
Módosítás:
Ez a fránya 365-ös a számok elé nem tesz alsó kötőjelet, egyszerűen nem veszi figyelembe a címsoroknál (oszlopoknál) előforduló számokat. A régi verziókban – nem tudom meddig – még megtette.
Billentyűzetről bekopácsolt_számjegyelnevezéseknél működik a szóköz operátor itt is. -
Delila_1
veterán
válasz
Fferi50
#54377
üzenetére
Ha ez tetszett akkor feltehetően egy másik is, ami már egészen régi verziókban is működött, a szóköz operátor. Nem kell a hosszadalmas INDEX-HOL.VAN-nal bajlódni egy érték kikereséséhez.
A területet kijelölve bevisszük a kép szerint a neveket a felső sorból, és a bal oldali oszlopból. Már meg is adhatjuk a keresendő értéket szóközzel, mint a B11 cellában látható.
Vigyázat! Ha a kezdő oszlop, vagy a címsor számokból áll (pl. évszámok), az Excel automatikusan egy alsó kötőjelet tesz elé a névnél. Akkor a képlet=Imre _2025 -
Delila_1
veterán
Sziasztok!
Nézzétek meg ezt a klassz videót:
[Pont a függvényekben] -
Delila_1
veterán
válasz
Héraklész
#54243
üzenetére
Állj a cellára, ami fölött, és tőle balra állandóan látni akarod az oszlopokat, ill. sorokat, majd a panelek rögzítése funkciót kapcsold be. Nem tudom, hol találod ezt a LibreOffice-ban, de biztosan megtalálod.
Ha a 3 első oszlopot akarod rögzíteni, és egyúttal a címsort is, akkor a D2-be állva végezd el.
A 2. kérdést nem értem. -
Delila_1
veterán
válasz
Derron
#54216
üzenetére
Tábázatként formázd az A: C tartományt. A C2 képlete:
=HA(BAL(A2;5)=BAL(B2;5);"OK";"NOK")
A Beállítások/Szerkesztés/Az Enter lenyomására a fókusz áthelyezése menüpontban válaszd a Jobbra opciót.
Az A és B oszlopban szüntesd meg a zárolást (Cellaformázás, Védelem lap), a Zárolt cellák kijelölése elől vedd ki a pipát.
Védd le a lapot (jelszóval vagy anélkül).
Minden bepittyegés után A-ból B-be, majd a következő A-ra áll a fókusz. -
#54168
Delila_1
veterán
Fire/SOUL/CD
#54167
Delila_1
veterán
válasz
Fire/SOUL/CD
#54167
üzenetére
Az eredmény függ attól, hogy kik használják a fájlt.
Abszolút védelem nincs, mint tudjuk. -
#54165
Delila_1
veterán
Fire/SOUL/CD
#54164
Delila_1
veterán
válasz
Fire/SOUL/CD
#54164
üzenetére
Magában a makróban meg lehet adni (pl. egy tömbben), hogy melyik jelszavakat fogadhatja el.
Ha nem jó az input, zárja be a füzetet. -
Delila_1
veterán
válasz
karlkani
#54069
üzenetére
Lehet, hogy le van tiltva a makró futtatása. Az Immediate ablakba (a VBE-ben Ctrl+g-re jön elő) írd be: Application.EnableEvents = True, és enterezd le.
A makrót kibővítheted, hogy pl. az első oszlopra kattintva hajtsa végre a feladatot.Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim usor As LongIf Target.Column = 1 ThenApplication.EnableEvents = Falseusor = Range("A1").End(xlDown).RowActiveSheet.CommandButton1.Top = Rows(usor).TopCells(usor, 1).SelectApplication.EnableEvents = TrueEnd IfEnd Sub -
Delila_1
veterán
-
-
Delila_1
veterán
válasz
andreas49
#53939
üzenetére
Sub Szelesseg_igazitas_1()Dim i As Integer, plusz As Integerplusz = Application.InputBox("Hány ponttal legyen szélesebb az oszlop?", Type:=1)ActiveSheet.UsedRange.Columns.AutoFitFor i = 1 To ActiveSheet.UsedRange.Columns.CountColumns(i).ColumnWidth = ActiveSheet.Columns(i).ColumnWidth + pluszNextMsgBox "Kész"End Sub -
Delila_1
veterán
Három segédoszlopot használok, ideiglegesen (E:G).
Az E:G tartomány képleteit össze lehet vonni a B és C oszlopokban, de így látod, mi alapján készült a B és C.Mikor kész, a két utóbbi oszlopot másolod, és értékként beilleszted a képletek helyére. Az eredeti A oszlopot törölheted.
-
Delila_1
veterán
válasz
tomi_x
#53880
üzenetére
Az Fferi által leírtakon kívül találkoztam olyan fájllal, ahova a felhasználó régebben csatolt egy halom képet, majd az ezeket tartalmazó oszlopokat törölte. Csodák csodája, hogy a képek megmaradtak, de nem látszottak, mert a szélességük 0 pont értékű lett.
Itt is a jó öreg F5-ös ugrás menü segített. Irányított, objektumok. Ez az összeset kijelölte, a Delete billentyű pedig mindet egyszerre törölte. A fájl mérete kicsire zsugorodott, a műveletek villámgyorsak lettek.
-
-
Delila_1
veterán
Kipróbáltam, csak 20-ig írja rendesen. A 21-40 sorokban megint 1-gyel kezdődnek a számok, de zárójelek közé teszi. 41-60 között pontot tesz a számok után, de itt is 1 a kezdő érték. A 61-86 sorokban zárójelek között az ABC kisbetűi következnek, majd kör közepén a nagybetűk.
Érdekes, még nem tudom, mire lehetne használni. -
#53805
Delila_1
veterán
Oryctolagus
#53804
Delila_1
veterán
válasz
Oryctolagus
#53804
üzenetére
A cella formátuma legyen általános, ezután másold be a képletet.
-
#53771
Delila_1
veterán
B.György_2
#53770
Delila_1
veterán
válasz
B.György_2
#53770
üzenetére
Használd egészséggel!
-
#53769
Delila_1
veterán
B.György_2
#53767
Delila_1
veterán
válasz
B.György_2
#53767
üzenetére
A D1 cella képletét láthatod a szerkesztőlécen.
-
Delila_1
veterán
válasz
karlkani
#53760
üzenetére
Egyszerűbb átalakítani a makrót, összegzésről szorzásra. Akkor nem kellenek segédoszlopok.
Function ColorProduct(Mintacella As Range, Tartomany As Range)Dim szorzat As Integer, CV As RangeApplication.Volatileszorzat = 1For Each CV In TartomanyIf CV.Interior.ColorIndex = Mintacella.Interior.ColorIndex Thenszorzat = szorzat * CV.ValueEnd IfNext CVColorProduct = szorzatEnd Function
-
#53424
Delila_1
veterán
animatrix11
#53423
Delila_1
veterán
válasz
animatrix11
#53423
üzenetére
Kijelölöd az oszlopot. A keresésnél beállítod, hogy tartalmazza a keresett szöveget.
A szűrt listában kijelölöd a látható cellákat, majd beírod a szöveget (xyz), és Ctrl+Enterrel viszed be. Ez az összes kijelölt cellában csak a keresett szöveget hagyja meg. -
Delila_1
veterán
válasz
repvez
#53414
üzenetére
EGY cellába bevitt adatot kell egy megfelelő lap megfelelő cellájába másolni a bevitt érték szerint? Ennél SOKKAL konkrétabban kellene leírnod a feladatot.
Makróval meg lehet oldani, de szerintem nem a bevitel végéhez kellene rögzíteni szortírozást, hanem pl. egy gombhoz, mert téves adat megadása esetén keresgélhetsz a lapok és cellák között a módosítás, vagy törlés miatt. -
Delila_1
veterán
válasz
szürke
#53375
üzenetére
Az utolsó lap neve legyen Összegzés.
A makró:Sub Szamlalas()Dim lap As Integer, sor As Integer, CV As Object, WSGy As Worksheet, db As IntegerSet WSGy = Sheets("Összegzés")For lap = 1 To Worksheets.Count - 1Sheets(lap).ActivateFor Each CV In Range("A1").CurrentRegionIf CV.Value > "" ThenIf Application.WorksheetFunction.CountIf(WSGy.Columns(1), CV.Value) = 0 Thensor = WSGy.Range("A" & Rows.Count).End(xlUp).Row + 1WSGy.Cells(sor, 1) = CV.Value: WSGy.Cells(sor, 2) = 1Elsesor = Application.Match(CV.Value, WSGy.Columns(1), 0)WSGy.Cells(sor, 2) = WSGy.Cells(sor, 2) + 1End IfEnd IfNextNextEnd Sub -
-
Delila_1
veterán
Makróval megoldható.
A képen az eredeti tábláról azE:Goszlopokba tettem egy másolatot, az összefűzés láthatósága miatt.
Nálad az A és B oszlopok lesznek összefűzve a C-ben. A makró ezt az oszlopot értékként saját magára illeszti.A makró:
Sub szinez()Dim sor As Integer, usor As Integer, hossz1 As Integer, hossz2 As Integerusor = Range("A" & Rows.Count).End(xlUp).RowRange("C2:C" & usor) = Range("C2:C" & usor).ValueFor sor = 2 To usorhossz1 = Len(Cells(sor, 1))hossz2 = Len(Cells(sor, 3)) - hossz1Cells(sor, 3).Characters(Start:=1, Length:=hossz1).Font.Color = -16776961Cells(sor, 3).Characters(Start:=hossz1 + 1, Length:=hossz2).Font.Color = -65536NextEnd Sub
-
Delila_1
veterán
Több mód is van erre.
Pl. az adataidat táblázattá alakítod. Az adataid között állva a Kezdőlapon a Formázás táblázatként menüponttal egy kattintással elintézheted. Ennek az előnyeiről sokat olvashatsz.
Másik megoldás, hogy a Beállítások, Képletek pontban bejelölöd a Képletek automatikus kiegészítését. -
Delila_1
veterán
válasz
hajbel
#53004
üzenetére
Írtam hozzá egy makrót, amit modulba kell bemásolnod (lásd az Összefoglalóban). A füzetet makróbarátként kell mentened.
Sub Osszefuz()Dim sor As Long, oszlop As Integer, usor As Longusor = Range("AG" & Rows.Count).End(xlUp).RowFor sor = 7 To usorFor oszlop = 15 To 32If Cells(sor, oszlop) = "Yes" ThenIf Cells(sor, 34) = "" ThenCells(sor, 34) = Cells(4, oszlop)ElseCells(sor, 34) = Cells(sor, 34) & "," & Cells(4, oszlop)End IfEnd IfNext oszlopNext sorEnd Sub
Az E:G tartomány képleteit össze lehet vonni a B és C oszlopokban, de így látod, mi alapján készült a B és C.
Új hozzászólás Aktív témák
Hirdetés
- Táp ventilátor csere
- Hardcore pizza és kenyér topik
- Milyen légkondit a lakásba?
- One otthoni szolgáltatások (TV, internet, telefon)
- Kazy Computers - Fehérvár - Megbízható?
- Szeged és környéke adok-veszek-beszélgetek
- BestBuy topik
- PlayStation 5
- Huawei Watch GT 2 Pro - egyszerűen gyönyörű
- AI-aranykort jósolnak, tarol az NVIDIA
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Gyermek PC játékok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Telefon felvásárlás!! Huawei P20 Lite/Huawei P20/Huawei P30 Lite/Huawei P30/Huawei P30 Pro
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- Csere-Beszámítás! Intel Core I9 14900KS 24Mag-32Szál processzor!
- Lenovo Yoga Pro 9 (16IMH9) - Intel Core Ultra 9 185H, RTX 4060, 32GB, érintős ELKELT
- Bomba ár! HP ProBook 450 G7 - i5-10GEN I 16GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gar
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: PC Trade Systems Kft.
Város: Szeged