- sziku69: Fűzzük össze a szavakat :)
- bitpork: Augusztus 2- szombat jelen állás szerint.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sh4d0w: Csak a profit - emberélet nem számít
- Kempingezés és sátrazás
- sziku69: Szólánc.
- Gurulunk, WAZE?!
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- eBay-es kütyük kis pénzért
-
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
-
oke
senior tag
Sziasztok!
A fenti segítséget kaptam anno egy duplikáció vizsgálattal kapcsolatban, viszont újabb kritériumra lenne szükség benne vagy lehet csak az új is elég lenne:
Azt kellene most vizsgálni, hogy az a+e+f+g+n oszlopok összefűzése esetén ha több azonos is van, akkor a Q oszlopba rakjon a 2. 3, stb... előforduláshoz egy X-et, az első előfordulás meg maradjon üresen.
Van egy kimutatás és azon csak azokat a tételeket számolom meg, ahol a Q oszlop az üres, így kiszűröm a duplikációkat.Itt a tábla minta, az N (nap) oszlop nem dátumként szerepel, hanem így :
=TNÉV(SZÖVEG(C2;"hh.nn"))
-
feco99
csendes tag
Sziasztok! Egy olyan kérdésem volna,hogy egy kémiai laborban a kiértékelésnél a kapott mérési pontjaimat ábrázolva és azokat összekötve az adott pontokban érintő egyenest kéne húznom,de fogalmam sincs hogyan tudom ezt excelben megcsinálni. Valaki nem tudja esetleg ez hogy lehetséges?
-
atyca
senior tag
Sziasztok!
A beosztás készítő táblázatom Munka 2 lapja a Munka 1 lap adataiból merítkezik.
Létezik olyan megoldás,hogy a Munka 2 lap adatai megmaradjanak, ha az 1 lap adatait törlöm?
A következő havi beosztásnál szükségem lenne rá (pl. átvitt órák)
Köszi előre is! -
Delila_1
veterán
Sheets("Napi GY").Columns("AT:BG").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=ActiveSheet.Range("A1:A2"), CopyToRange:=ActiveSheet.Range("AQ3"), Unique:=FalseLátod, csak a kritérium, és a szűrés helyének a pontosítása szükséges. Mindkettőnél az aktív lapra kell hivatkoznod.
-
Ideg
aktív tag
Sziasztok!
Irányított szűrést szeretnék csinálni egy új munkalapra. Tegyük fel egy munkatárs rövid nevére szeretnék szűrni, tehát egy új sheeten felveszem A1 -be azt, hogy "Dolgozó" és A2-be azt, hogy "PISZ". Ha szépen végigkattintgatom irányított szűrésben, hogy mi a lista amiből szűrök, mi a szűrőtartomány és mi a cél ahova másolni szeretném az adatokat, akkor nagyon szépen meg is csinálja. Na már most ebből a szűrésből kellene egy, minden dolgozóhoz, mindig egy új sheeten. Én mint amatőr Excel-es azt találtam ki, hogy megcsinálom ezt egy makróra, így csak a makrót kell mindig lefuttatni ha létrehoztam egy új dolgozónak egy sheetet. Tehát van egy Etalonom ahol az A1-be be van írva, hogy "Dolgozó" és ezután a kolleginának már csak az A2 -be be kell írnia a rövid nevet, majd lefuttatni a makrót.
A problémát az okozza, hogy mi is legyen a makróban a Szűrőtartomány. Nekem azt kellene elérnem, hogy a szűrőtartomány mindig az éppen aktív sheet A1:A2 tartománya legyen. A makróm jelenleg így néz ki:
Sub Szuro3()
'
' Szuro3 Makró
'
' Billentyűparancs: Ctrl+q
'
Sheets("Napi GY").Columns("AT:BG").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("AQ3"), Unique:=False
End SubTehát a CriteriaRange-be szeretném azt elérni, hogy mindig az éppen aktív sheet A1:A2 cellája legyen az szűrőtartomány és a kollégának csak be kell írnia az A2-be a rövid nevet, majd lefuttatnia a makrót.
Bocsi ha kicsit hosszú lett, próbáltam elmagyarázni konyhanyelven a problémám.
Előre is köszi, ha tud valaki segíteni! 
-
Fferi50
Topikgazda
válasz
bozsozso
#40286
üzenetére
Szia!
Szerintem működik a dolog tömbképlettel is: A gyümölcsneveket az ismétlődések eltávolítása után transzponálod, hogy egy sorban legyenek.
Amint látod, az E2 cellába került az alábbi tömbképlet:
=HAHIBA(INDEX($A$2:$A$1000;HOL.VAN(KICSI(HA(E$1=$B$2:$B$1000;SOR($B$2:$B$1000);"");DARABTELI($B$2:$B$1000;E$1)-(DARABTELI($B$2:$B$1000;E$1)-SOR($A1)));SOR($A$2:$A$1000);0);1);"NINCS TÖBB")
Ezt Ctrl+Shift + Enter billentyű kombinációval kell lezárni. Az Excel pedig kapcsos zárójelbe teszi.
A tartomány végét tetszőlegesen határozhatod meg, de egész oszlopokat nem javaslok, mivel akkor nagyon lassúvá válik (gondolj a cellák számára).
A NINCS TÖBB szöveg helyébe tehetsz akár üres szöveget is, vagy bármi mást.Üdv.
-
bozsozso
őstag
Az előző megoldás jobbnak tűnik, mert 1 gyümölcshöz tartozhat jelenleg max 30 szám, de ez változhat és ha emelkedik akkor már nem jó. Az alap táblázatom az folyamatosan bővül számokkal és hozzátartozó gyümölccsel.
Jelenleg kb.150 sor és kb 50-60oszlop. Ezekből akarok kimutatással külön munkalapokon mindig megfelelő adatot megmutatni ami folyamatosan frissülne. Amit kérdeztem az csak egy fajtája a kimutatásoknak. Eddig ezek külön táblázatokban voltak most 1 nagyot akarok csinálni amiben minden adatot megtalálok a megfelelő munkalapon. Fontos még az is, hogy az adatoknál amit módosítok az minden munkalapon módosuljon ezért is akarok 1 táblázatot használni.
Még egyszer köszönöm.
-
Mutt
senior tag
válasz
bozsozso
#40280
üzenetére
Ha tudod, hogy maximum egy gyümölcshöz mennyi szám lehet, akkor Power Pivot-os lépések (szintén Excel 2010 felett csak).
1. Alakítsd át táblázattá a listát.
2. Beszúrás -> Kimutatás opció és pipáld be az adatmodellhez hozzáadást.
3. Jobb klikk az adatforráson és Új mérték hozzáadása.
4. Mérték űrlapot így töltsd ki.
5. Egy újabb mértéket kell felvennünk mint a 3-as lépésben. A képlete ennek:
=PATHITEM([Lista];1;0)
A PATHITEM függvény a lista adott elemét adja vissza, a fenti képletben az első elemet kértük le.
Itt jön a feltételezés, hogy tudod hány szám lehet egy gyümölcshöz, mert az 5-ös lépést legalább ennyiszer kell ismételni. A képletben mindig csak növelni kell eggyel számot, vagyis a második elemnek a képlete:=PATHITEM([Lista];2;0)A harmadiknak pedig:
=PATHITEM([Lista];3;0)A példában 5x megcsináltam és a kimutatást összeraktam.
6. Már csak meg kell fordítani a kimutatást, ebben a TRANSZPONÁLÁS függvény tud segíteni.
Itt arra kell figyelni, hogy ahány sort és oszlopot kell egy másik helyre vinni, ott ugyanakkora területet kell kijelölni (egész pontosan annyi oszlopot mint ahány sor van a másik helyen és annyi oszlopot mint amennyi sor van a másik helyen). A példámban 5 sor és 5 oszlop van (nem kell a fejlés és totál sor sem).Javasolt lépések:
7. Írd be a végső hely első cellájába TRANSZPONÁLÁS függvényt, kapni fogsz egy hibát.
8. Ezen a cellán állva jelölj ki egy 5x5-ös tartományt.
9. Nyomd meg az F2-öt, ekkor az első cellában látható képlet megjelenik és ekkor Ctrl + Shift + Enter-t nyomj. A kijelölt terült egy összefüggő tömb része lesz, módosítani a cellákat benne egyesével nem fogod tudni.
A végeredmény egy kis formázás után pedig ilyen lesz:
Ha zavarnak a nullák, akkor egy számformátummal el lehet tüntetni őket.
üdv
-
Mutt
senior tag
válasz
bozsozso
#40280
üzenetére
Szia,
Excel 2010-től fölfelé a Power Query-vel megoldható. A lépések:
1. A listádat alakítsd át táblázattá.
2. Adatok fülön beolvasás Táblázatból/Tartományból.
3. Gyümölcsök oszlop kijelölése után Csoportosítás opció.
4. A megjelenő ablakot töltsd ki így:
5. Oszlop hozzáadása fülön Egyedi oszlopot válaszd és így töltsd ki. A [Lista] az előző lépésben megadott név, a [Számok] pedig az eredeti oszlop neve ahol vannak a számok.
6. Kattints az új oszlop jobb felső sarkában lévő ikonra, és válaszd az Értékek kinyerése opciót. A megjelenő ablakban válassz egy elválasztó karaktert, én a kettőspontot használtam most.
7. Jobb klikk a Lista oszlopon és eltávolítás.
8. Jelöld ki a Szám oszlopot és Átalakítás menüben Oszlop felosztása opció elválasztó karakter alapján.
9. Átalakítás menűben Transzponálás opciót használd.
10. Kezdőlapon használd az Első sor használata fejlécként.
11. Utolsó lépés kirakni egy munkalapra, Bezárás és betöltés -> ..adott helyre.
Egymás mellett az eredeti és a végső állapot:
üdv
-
-
bozsozso
őstag
Sziasztok,
Lenne egy olyan táblám, hogy az A oszlopban pl. számok vannak felsorolva(mind különböző) a B oszlopban gyümölcsök(lehetnek azonosak). Szerettem volna egy olyan kimutatást csinálni egy másik munkalapon, hogy a gyümölcsök megjelennek 1 sorban és alatta pedig a hozzá tartozó számok.
Nekem nem sikerült, de hátha tudtok valami megoldást.
-
#40279
Pityke78
őstag
dellfanboy
#40278
Pityke78
őstag
válasz
dellfanboy
#40278
üzenetére
Szuper, köszi!
-
#40276
Mutt
senior tag
South Velen
#40252
Mutt
senior tag
válasz
South Velen
#40252
üzenetére
Szia,
Pivotnál van olyan lehetőség, hogy két különböző sheetről gyűjtse be az azonos jellegű adatokat?
Nézd meg ezt a leírást.
Alternatíva lehet még Power Query használata.
üdv
-
Mutt
senior tag
válasz
p5quser
#40270
üzenetére
Szia,
Előbb próbáld ki ezt a cserét:
Selection.Value = Application.InputBox("Darabszám", Type:=1)Ha ez nem jó, akkor a Selection.Value helyébe tedd ezt:
vresult = InputBox("Darabszám")
If InStr(1, vresult, ",") Then
Selection.Value = CDbl(Left(vresult, InStr(1, vresult, ",") - 1) & Application.DecimalSeparator & Right(vresult, Len(vresult) - InStr(1, vresult, ",")))
Else
Selection.Value = vresult
End Ifüdv
-
p5quser
tag
válasz
Delila_1
#40268
üzenetére
Pedig úgy megpróbáltam beilleszteni...
Szóval ez egy tableten futkározó "leltár" excel. Amennyire lehetett, automatizáltam a bevitelt. Így néz ki a teljes kód;Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ide As Long
If Target.Value = "" Then Exit Sub
If Sheets.Count = 1 Then
MsgBox "KEZDJ ÚJ ÍVET"
ElseIf Sheets(Sheets.Count).ProtectContents = True Then
MsgBox "OLDD FEL A LEZÁRT ÍV LAPVÉDELMÉT, HA HOZZÁ AKARSZ ÍRNI, VAGY KEZDJ ÚJ ÍVET"
Else
If Not Intersect(Target, Range("A:B")) Is Nothing Then
Ide = Sheets(Sheets.Count).Range("A" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy
Sheets(Sheets.Count).Range("A" & Ide).PasteSpecial xlPasteValues
Sheets(Sheets.Count).Select
ActiveCell.Offset(0, 2).Select
Selection.Value = InputBox("DARABSZÁM")
Selection.NumberFormat = "0.00"
ActiveSheet.Range("B:B,C:C").EntireColumn.AutoFit
Sheets(1).Select
With TextBox1
.Activate
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End If
Cancel = True
End SubNézd el kérlek fércmunka jellegét. Ebben kéne elérnem, hogy a tizedes jel bevitelt vesszővel lehessen megoldani. Nem tudom hogy illesszem be az általad leírtakat.
Köszönöm! -
Mutt
senior tag
Szia,
Excelben és nagyon sokszor kell a szavak és/vagy a karakterek (leütés) száma.
Nem igazán szöveg szerkesztő az Excel, de meg lehet oldani ezt is.
1. Szavak száma: szóközöket kell megszámolni igazából. Erre a régi megoldás az, hogy a szövegből a töröljük HELYETTE függvénnyel a szóközöket és megnézzük mennyivel csökkent a szöveg hossza:
=HOSSZ(A2)-HOSSZ(HELYETTE(A2;" ";""))+12. Karakterek száma: itt ha élünk azzal hogy csak a SZÓKÖZT nem vesszük leütésnek, de a kódtábla többi karakterét - még a nem nyomtathatókat is - igen, akkor ez a képlet segít:
=SZORZATÖSSZEG((KÓD(KÖZÉP(A2;SOR(INDIREKT("A1:A"&HOSSZ(A2)));1))<>32)+0)Ha csak adott karakterek érdekelnek, akkor kell egy kicsit játszani. pl. csak számokat ez adja vissza:
=SZORZATÖSSZEG((((KÓD(KÖZÉP(A2;SOR(INDIREKT("A1:A"&HOSSZ(A2)));1))>=48)+(KÓD(KÖZÉP(A2;SOR(INDIREKT("A1:A"&HOSSZ(A2)));1))<=57))=2)+0)3. Ha szöközökkel együtti karakterek száma kell, akkor pedig a HOSSZ képlet tud segíteni:
=HOSSZ(A2)
üdv
-
-
p5quser
tag
Sziasztok!
Azt hogy lehet megoldani egy vba inputboxnál, hogy a bevitt számérték tizedesjelét vesszővel lehessen beütni?
Ha a.Numberformat = "0.00"-ot használom, akkor csak ponttal választva jelenik meg számként. Ha generalt használok, akkor egy későbbi fázisban a szumha nem adja össze. Jó lenne vba-ban megoldani, nem pedig a munkafüzetben kattintgatni, vagy újabb oszlopban "értékesíteni".
Egy csak numerikus billentyűzetről visznek fel adatokat, ezért a kétségbeesés.
Ha lehet, nem távoli asztaloznék a beviteli nyelv átállításával sem.
Előre is köszönöm! -
Mutt
senior tag
Szia,
Makró nélküli megoldások erre a problémára:
1. Tömbfüggvény: az E-oszlopba előbb fel kell vinned ami alapján csoportosítani akarsz.
=TEXTJOIN(", ";TRUE;IF($A$1:$A$3000=E1;$B$1:$B$3000;""))3000 soron is gyorsan lefut, előnye hogy automatikusan frissül, viszont a duplikációkat nem szűri.
2. Power Pivot: ezt kézzel kell frissíteni, képes a duplikácókat is kiszűrni ha szükséges.
a. Kell egy fejléc az első sorba és táblázattá kell alakítani az adatsort.
b. Beszúrás -> Kimutatás (Pivot) de itt fontos hogy legyen bepipálva alul az adatmodellhez hozzáadás.
c. Az A-oszlop kerül a sorok részbe.
d. Jobb klikk a kimutatás tervezőben az adatforráson (nekem Table1-nek hívja) és Add measure (Új mérték)
e. Az ablakot így töltsd ki:
A CONCATENATEX függvényben az első paraméter a forrás neve (jelen esetben Table1-ben vannak az adatok), a második a mező amit összekell fűzni (ez a Table1-en belüli Érték oszlop), a végén pedig hogy mivel legyenek az értékek elválasztva.
Ha az ismétlődéseket nem szeretnéd listázni, akkor a forrást előbb vagy a VALUES vagy a DISTINCT függvényen kell végig pörgetni:
=CONCATENATEX(VALUES(Table1[Érték]);Table1[Érték];", ")=CONCATENATEX(DISTINCT(Table1[Érték]);Table1[Érték];", ")f. Az új mértéket húzd be a values / értékek részbe.
g. Formázd az eredményt szükség szerint.3. Power Query: ez sem fog automatikusan frissülni, de itt is tudsz ismétléseket kivenni vagy akár sorrendet módosítani.
a. Kell egy fejléc az első sorba és táblázattá kell alakítani az adatsort.
b. Data -> From table (Adatok -> Beolvasás táblázatból) opciót használd.
c. Ha szeretnéd az ismétléseket kiszűrni, akkor jelöld ki mindkét oszlopot és Home -> Remove rows -> Remove duplicates.
d. Ha szeretnéd, hogy növekvő/csökkenő sorrendben legyenek az értékek kiíratva, akkor pedig.jelöld ki a második oszlopot és Home menű alatt válaszd a megfelelő sorbarendezést.
e. Jelöld ki az első oszlopot és Home -> Group by opciót használd így:
f. Add column -> Custom column opcióval kell egy új oszlopot beszúrni.
g. Az új oszlop jobb sarkában lévő ikonra kattints és válaszd az Extract values opciót.
h. Add meg az értékek közötti elválasztó jelet.
i. Töröld a felesleges középső oszlopot. Jobb klikk rajta és Remove.
j, Jelöld ki az első oszlopot és rendezd ABC sorrendbe ha szükséges.
k. Végül Home menűben a Close & Load gomb alatt válaszd a Close & Load to opciót és add meg hol jelenjen meg az eredmény.
Ha frissíteni kell ezt lekérdezést, akkor pl. a Data fülön a Refresh All-al tudod megtenni.
üdv.
-
Delila_1
veterán
-
ny.janos
tag
válasz
Dolphine
#40253
üzenetére
Az általad felvázolt elképzelésnek pont a fordítottja logikus (nem beszélve arról, hogy sokkal egyszerűbb fájlt eredményez).
Az egyszerűbb kitöltés és tévesztési lehetőségek minimalizálása szempontjából mindenképpen az lenne a célravezetőbb, ha Delila_1 által javasolt soros elrendezésben vinnéd fel az adatokat (nevezzük ezt adattáblának). Attól függően, hogy azonos nevek előfordulhatnak-e érdemes lehet az osztályt is feltüntetni a nevek mellett.
Az űrlap felület maradhat egy új lapon excelben, vagy akár lehet word fájl is körlevél formátumban.Ha az excelt preferálod, akkor az űrlapon egy legördülő választéklistát lehetne létrehozni a nevekhez (és az osztályhoz), mely alapján a HOL.VAN függvénnyel meg tudod határozni az adattábládból, hogy annak hányadik sorában szereplő adatok tartoznak az adott tanulóhoz. A részeredményeket az űrlap lapodon az INDEX függvény és a HOL.VAN függvény kombinációja fogja kiírni az adott cellába. Az összeredményt pedig a SZUM függvény. A kérdés, hogy nyomtatva szükséged van-e az űrlapokra. Ha igen, akkor minden egyes nevet külön-külön ki kell választanod a választéklistából és egyenként nyomtatni (a nálam okosabbak tudnak erre neked makró megoldást is javasolni).
Ha word körlevélben gondolkodsz, akkor csak az űrlap kinézetét / formátumát kell elkészítened, majd az adattáblát tartalmazó excel fájlod alapján elkészíted a körlevelet. Így excelben mindössze a SZUM függvényre lesz szükséged. A wordben pedig a körlevél funkció utolsó lépését követően minden egyes tanulóhoz rendelt űrlap létrejön, és együtt tudod nyomtatni őket.
-
#40252
South Velen
addikt
South Velen
addikt
Sziasztok!
Pivotnál van olyan lehetőség, hogy két különböző sheetről gyűjtse be az azonos jellegű adatokat?
Két sheetem van, egyiken is van egy A, B, C oszlopnév, másikon is van egy A, B , C oszlopnév, ezekből kellene pivotot csinálnom.
Azt szeretném, hogy úgy kezelje a pivot, mintha egy sheeten lenne és teljesen összetartozna.
Ha simán kijelölöm az adatokat mindkét sheeten, úgy nem fogadja el...
Alternatívaként egy új sheetet is beiktathatnék ami mindig real time összegyűjti az adatokat a két sheetről egy X, egy Y, egy Z oszlopba. Majd erről menne a pivot. Ezt makróval biztos meg lehet oldani, de én nem tudom megírni.
De gondolom a pivotra is van megoldás.Vizuálisan is itt van, hogy mit szeretnék:
És persze mindig egyre több adat lesz az oszlopokban, szóval teljes oszlop kell legyen a forrás mindig.
Gondolom amúgy tök egyszerű, legalábbis remélem.
Előre is köszi!! -
wwhy
veterán
Egy újabb segítségre van szükségem: fordítóként nagyon sok anyagot kapok Excelben és nagyon sokszor kell a szavak és/vagy a karakterek (leütés) száma. Évek óta a megoldás az hogy átrakom Wordbe és ott megnézem. Fapados, tudom.
Megoldható _pofonegyszerűen_ Excelben? A fordítók társadalma áldani fogja neveteket -
Delila_1
veterán
válasz
Dolphine
#40249
üzenetére
Igen, ez a lényeg. Az Excel alapvetően rekordokat (sorokat) tud úgy értelmezni, hogy azokból különféle statisztikákat, kimutatásokat lehessen létrehozni.
Ezzel a módszerrel a sok tanuló adatai áttekinthetőek lesznek.
Szűrőket is alkalmazhatsz, pl. hány tanuló teljesített a K1-ben maximálisan. -
Dolphine
addikt
válasz
Delila_1
#40244
üzenetére
Azt hiszem rosszul fogalmaztam.
Ezta diákok nem láthatják, ez nekem kell.
Teszek be képet inkább
Na ilyenből kellene nekem most 50 db. Ez legyen egy fájlon belül 50 külön munkalappal, a diákok nevével?
Vagy legyen egy oldalon több, egy munkalapon belül egy egész osztály? -
-
Dolphine
addikt
Sziasztok!
Ötletre van szükségem.
Az írásbeli érettségin eddig papír alapon nyomtatott anyagokat használtam a javításhoz. Ezt szeretném most Excelben megoldani. (nem kell a sok nyomtatott anyag!)
Eddig úgy volt, hogy minden diáknak volt nyomtatva egy lap és azokat töltöttem ki.
A kérdés, hogy most Excelben minden diákhoz rendeljek egy munkalapot? Nem lesz ez sok egy kicsit? Nem lesz átláthatatlan? Érthető, hogy egyáltalán mit szeretnék? -
Ala
tag
Szeretnék segítséget kérni azzal kapcsolatban, hogy készülök egy pár file-ból álló csokor összeállítására, aminek az lenne a lényege, hogy a különböző file-ok különböző feladatokra lennének:
-1. időszerűen néha változó adatok
-2. bemeneti adatok
-3. feldolgozó motor
-4. kiértékelő motor.Ebből az 1-nek a helye mindig fix marad (a feladat ezen része igazából meg van oldva, mert amit hivatkozásként be tudok építeni a képletbe az a filera mutat, amikor pedig legördülő listára van szükségem, akkor azt ugyanebből a file-ból készített TXT csatolásával oldom meg), viszont a 2,3,4 file folyamatosan másolva lenne. Ebben az esetben milyen lehetőségek vannak? Alapvetően képletekkel szeretnék dolgozni. A topikban találtam egy hozzászólást, ami alapján sikerült elérnem a célom, viszont ez alapján meg kell nyitni az összes file-t. Van arra lehetőség, hogy ne kelljen megnyitni a filet? Amúgy ez Indirekt FGV-t használ.
Segítségeteket előre is köszönöm. -
Delila_1
veterán
Makróval:
Sub Vesszo()
Dim sor As Long
sor = 1
Do While Cells(sor, 1) > ""
If Cells(sor, "A") = Range("E1") Then
If Cells(1, "F") = "" Then
Cells(1, "F") = Cells(sor, "B")
Else: Cells(1, "F") = Cells(1, "F") & ", " & Cells(sor, "B")
End If
End If
If Cells(sor, "A") = Range("E2") Then
If Cells(2, "F") = "" Then
Cells(2, "F") = Cells(sor, "B")
Else: Cells(2, "F") = Cells(2, "F") & ", " & Cells(sor, "B")
End If
End If
sor = sor + 1
Loop
End SubA csatolt képen nem látszanak a sorszámok.
Ha az adatok nem az első sorban kezdődnek, a sor=1 sorban az 1 helyett a kezdő sorszámot add meg.
A két feltételnél is a Cells(1,"F") és aCells(2,"F")hivatkozásokat, no meg a Range("E1") és Range("E2")-t kell átírnod. -
Simivok
senior tag
Sziasztok
Nagyon alap kérdés, ms excel 2016. Le szeretném húzni az eredményt a cella jobb alsó sarkára kattintva. Ez menne reflexből (100 milliószor csináltam), csak a kurzor nem vált át a nagy fehér pluszjelről arra a kicsi fekete pluszjelre, amikor odaviszem az egeret.
Én lennék ekkora balfék, vagy ez valami bug? -
ny.janos
tag
válasz
tgumis
#40222
üzenetére
Szia!
Ha A1 igaz-hamis értéke egy logikai vizsgálat eredménye, akkor a logikai vizsgálatot végző képletet az adatérvényesítés - egyéni - képlet-tel megadva meg tudod valósítani, hogy ne engedjen adatot bevinni, ha a logikai vizsgálat eredménye hamis. (Részletesen a súgóban - érvényesítés - megtalálod a tartalom utolsó pontjában.)
Viszont az A1 cellára úgy vizsgálni, hogy az szövegesen tartalmazza az igaz-hamis értéket vagy a logikai vizsgálat képletét nem tudsz. -
Delila_1
veterán
válasz
tgumis
#40222
üzenetére
Egy laphoz rendelt, eseményvezérelt makrót javaslok. Nem írtad, melyik cellába írásakor változik az A1 IGAZ, vagy HAMIS értékre. A makróban ez a D3. Az írható cellák védelmét a makró indítása előtt le kell venned.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="tgumis", UserInterfaceOnly:=True
If Target.Address = "$D$3" Then
If Range("A1") = True Then Range("C1").Locked = False Else Range("C1").Locked = True
End If
End SubOke: szívesen.
-
ny.janos
tag
válasz
EmberXY
#40220
üzenetére
Youtube-on van több oktatóvideó is a tabulátor használatáról. Aki a dokumentumot készítette, annak érdemes lehet megmutatni egy ilyet. Nem csak az export problémája miatt, hanem egyébként is. Egyszerűbb sokkal, ha megfelelő módon van használva. De ez már nem e fórum témája.
-
EmberXY
veterán
válasz
ny.janos
#40219
üzenetére
Köszönöm a gyors választ, tökéletesen eltaláltad, hogy mi volt a probléma és a megoldás is nagyszerűen működött, hatalmas köszönet érte.
Igen, valóban több tabulátorjel volt az adatok között, az adatok szélességétől függően itt-ott több tabulátorra volt szükség ahhoz, hogy a következő adat pontosan a helyére kerüljön, vagy legalábbis erre tudok gondolni. -
ny.janos
tag
válasz
EmberXY
#40218
üzenetére
Szia!
A leírásod alapján a probléma valószínűleg az, hogy a word fájlban sem tökéletesen van használva a tabulálás, hanem az előre beállított érték alapján vannak olyan sorok, ahol az egyes adatok között nem egy, hanem több tabulátor jel van.
Megoldás:
Word-ben menj a csere menübeCtrl + H. Kattints az egyebekre. A speciális gombra kattintva aB. Tabulátorjel-t válaszd. A keresett szövegbe kétszer, a csere erre mezőbe egyszer kell írnod. Aztán az összes cseréje gombra kattintasz. Addig ismétled a folyamatot, amíg nem írja azt, hogy 0 csere történt. Ezt követően már másolhatod excelbe. -
EmberXY
veterán
Sziasztok!
Ismét van egy érdekes problémám, amivel nem tudok dűlőre jutni.
Adott egy táblázathoz hasonló lista, ami egy word dokumentumban van, a sorokban az adatok tabulátorral vannak rendezve, így tulajdonképpen 5 oszlop van és temérdek sor.
Ezt szeretném én Excel-be átrakni, de akárhogy próbálkozom, az lesz az eredménye, hogy össze-vissza illeszti az adatokat, a sorok még csak-csak stimmelnek, de az oszlopok elcsúsznak, változó mennyiségű üres cellák kerülnek az adatok közé.
Hogyan tudnám megoldani, hogy az üres cellákat feltöltse?
Próbálkoztam az "Ugrás" menüponttal, azon belül az "Irányított" opcióval az üres cellákat kijelölni, de ez csak oszloponként működik, valahogy soronként nem.
Próbáltam az egészet irányított beillesztéssel transzponálni, de ott meg az a baja, hogy nem ugyanakkora a másolt rész mint a terület ahova tenné...
Hogyan tudnám vízszintesen feltölteni az üres cellákat, és ezáltal összepofozni az adatokat?
Köszönöm előre is, ha valakinek van megoldása. -
Hannibhál
őstag
Sziasztok!
Hiperhivatkozásokkal kapcsolatban lenne problémám, ugyanis a megadott fájlokat 1 nappal vagy pár órával később nem nyitja meg a hivatkozáson keresztül, hanem azt írja, hogy az appsdata/roaming mappában van és hogy a nem biztonságos mappa miatt meg akarom-e nyitni? Rámegyek, hogy igen, ezután pedig kiírja, hogy a fájl nem nyitható meg. Miért állítja át az Excel a helyét a fájlnak?
Verzió: 2007, magyar nyelvű
egyéb: Céges meghajtón van tárolva az xls és meleltte mappákban a fájlo kamiket hivatkozni akarok
Köszi előre is ha valaki tudna segíteni! -
#40215
pero19910606
csendes tag
pero19910606
csendes tag
Sziasztok,
Egy Dashboard-ot szeretnék létrehozni több különböző adathalmazból és ehhez szeretnék segítséget kérni.
4-6 Pivot táblára van szükségem és egy Slicer-t szeretnék hozzájuk rendelni.
Azt szeretném, hogy adatok "Osztályonként" tudjam rendezni a Slicer segítségével. Az összekapcsolást abban az esetben meg is tudtam oldani, amikor egy Sheet-ről készítek két darab Pivot-ot, azonban ha 3-4 vagy akár több sheet-ről készítek Pivot-ot és ugyan úgy csak azzal az egy Slicer-el szeretnék szűrni akkor így ez már nem megoldás.
Hogyan tudnám a többi pivot-ot is hozzákapcsolni a Slicer-hez?
Ide feltölttem egy minta file-t:
Nagyon köszönöm előre is!
Üdv!
-
Fferi50
Topikgazda
Szia!
Ha jól értettem a feladatot, akkor nézd meg ezt a képletet a B1 cellába:
=INDIREKT("A" & SOR()+50*(OSZLOP()-1))
Ezt aztán húzhatod oldalra és lefelé is, amíg el nem érsz a végére az információidnak.
Az 50 helyére azt a számot írd, ahány cellát szeretnél kitölteni egy-egy oszlopban.
Amikor végeztél, jelöld ki az egész képletes részt - majd másolás - irányított beillesztés értéket.
Ezután az 50 alatti cellákat törölheted. (De csak miután a képleteket átalakítottad értékké!)Üdv.
-
oke
senior tag
Sziasztok!
Egy oszlopdiagramnál hogy tudnék egy adott szintre egy vízszintes vonalat beilleszteni?
Pl.: A tengely mondjuk 0 és 100 között van és én szeretnék a 80-as értékhez egy vízszintes vonalal, de nem trendvonalat. Jelenleg úgy oldom meg, hogy beszúrok egy vonalat és azt megpróbálom a megfelelő helyre beilleszteni, de nem mindig tudom a pontos értéket eltalálni, illetve ha változtatom a diagramm méretét, akkor elúszik. -
sztanozs
veterán
VBA megoldást találtam hirtelen:
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub -
wwhy
veterán
Srácok, egy (alap?) segítség kellene, nagyon zöldfülű vagyok excelségben.
Adott egy nagyon hosszú A oszlop, amiben van kb. 1000 cella, cellánként 1 szó. Ezt kellene nekem "többhasábosra" változtatni, azaz mondjuk oszloponként 50 (vagy XY) szó. A lehető legegyszerűbben. Köszönöm.
. Nem vonal lesz a 80-as szintnél.
Új hozzászólás Aktív témák
Hirdetés
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Gigabyte B450 R7 5700X 16GB DDR4 512GB SSD RTX 3060Ti 8GB Zalman Z1 Seasonic 650W
- BESZÁMÍTÁS! ASRock B550M R7 5700X 32GB DDR4 512GB SSD RTX 3070 OC 8GB NZXT H400 fekete Enermax 750W
- Microsoft Surface Pro 7 - Újszerű, dobozban, gyári töltővel, billentyűzettel
- Zebra ZP505 EPL - Hőpapíros címkenyomtató
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged