- Újabb államok perelik az Apple-t, mert sok pénzt szed ki a vevőkből
- Windows 11
- SUSE Linux
- Meggyőző arcjátékkal reagál a kínai humanoid robot
- Milyen routert?
- Alternatív kriptopénzek, altcoinok bányászata
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Otthoni hálózat és internet megosztás
- Max
- Béta iOS-t használók topikja
-
IT café
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
-
lappy
őstag
válasz macilaci78 #18432 üzenetére
Szia!
Ha jól értem akkor az egyik munkalap1 A oszlopát szeretnéd egy másik munkalap 1-es sorába rendezni.
Ha igen akkor a munkalap1 A oszlopára kell egy szűrő ott kiveszed az üres cellákat. Ha ez megvan akkor másolás. A munkalap2 1 soránál pedig irányított beillesztés transzponálással.Bámulatos hol tart már a tudomány!
-
Mutt
aktív tag
válasz macilaci78 #18432 üzenetére
Hello,
...Ami a 1-ben külön oszlopban van, azt a 2.-ban egymás alá szeretném kérni...
(A példád pont a fordítottját mutatja, mint a leírásod, ezért a szövegben leírtakat vettem alapul, vagyis
az első lapon az első sorban egymás melletti oszlopokban lévő értékeket akarsz a második lapon
egy más alá, sorokba szedni.Transponálásnak hívják, több megoldás is van rá. Sheet2!A1-be írd vmelyik képletet és húzd le:
1. TRANSPOSE függvény használata a második lapon (csak az A1-C1000 tartományt írtam a példába:
=IFERROR(TRANSPOSE(Sheet1!$A$1:$C$1000);"")
2. INDEX függvénnyel:
IF(ISBLANK(INDEX(Sheet1!$1:$1;0;ROW()));"";INDEX(Sheet1!$1:$1;0;ROW()))
3. OFFSET függvénnyel:
=IF(ISBLANK(OFFSET(Sheet1!$A$1;0;ROW()-1));"";OFFSET(Sheet1!$A$1;0;ROW()-1))Ha csak egyszer kell megcsinálnod, akkor pedig javaslom a speciális beillesztést. Home-> Paste -> Paste Special -> Transpose opció.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz macilaci78 #18464 üzenetére
Hello,
Ha 20 oszloponkent uj sorbol akarod kezdeni, akkor ez fog mukodni:
=INDIRECT("Sheet1!R"&COLUMN()&"C"&ROW();0)
A kepletet az A1:D20 tartomanyba masold be.Ha pedig csak egy oszlopba akarod a listat, de 20 oszloponkent az elso lap ujabb sorabol induljon, akkor ezt hasznald:
=INDIRECT("Sheet1!R"&INT((ROW()-1)/20)+1&"C"&MOD(ROW()-1;20)+1;0)Udv
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz macilaci78 #21349 üzenetére
=HA(SZÁM(E8);KEREKÍTÉS((E8*I5*I6+2000)/500;0)*500;"")
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz macilaci78 #21351 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Sasos
senior tag
válasz macilaci78 #21349 üzenetére
Vagy: =HA(SZÁM(E8);TÖBBSZ.KEREKÍT((E8*I5*I6+2000); 500);"")
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz macilaci78 #21485 üzenetére
A címsoron állva bekapcsolod az autoszűrőt, pontosan erre találták ki.
Kezdőlap | Szerkesztés | Rendezés és szűrés | Szűrő.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
válasz macilaci78 #34915 üzenetére
Nincs előttem excel, de kb ilyesmi lesz a megoldás.
B1-be:
=JOBB(A1;HOSSZ(A1)-4)D1-be pedig simán =B1&C1
Ha valahol szám formátumba kerül, akkor =SZÖVEG(B1;"0") függvénnyel tudod szöveggé konvertálni. Szövegként működik az ÖSSZEFŰZ függvény is.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz macilaci78 #34920 üzenetére
Írtam rá egy CsakSzam nevű függvényt. Modulba másold. A füzetbe beírod
=csakszam(A1) – ha az A1-ben lévő adatból akarod kiíratni a számjegyeket.Function CsakSzam(cella As Range)
Dim b As Integer, szam
For b = 1 To Len(cella)
If IsNumeric(Mid(cella, b, 1)) Then szam = szam & Mid(cella, b, 1)
Next
CsakSzam = szam * 1
End FunctionProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz macilaci78 #34926 üzenetére
Olvasd el a téma összefoglalót.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
0P1
aktív tag
válasz macilaci78 #34920 üzenetére
Ha mindenképpen függvénnyel akarod, akkor ez működhet:
Ha A1 cellában az adatod:
=SZORZATÖSSZEG(KÖZÉP(0&A1;NAGY(INDEX(SZÁM(--KÖZÉP(A1;SOR($1:$40);1))*
SOR($1:$40);0);SOR($1:$40))+1;1)*10^SOR($1:$40)/10)Ez kiszedi a szám karaktereket , és összefűzi őket egy decimális számmá. Ha 40-nél hosszabb is lehet a karaktersorozat, akkor $40 -et módosítsd ennek megfelelően. (ha elegendő kevesebb, akkor csökkentheted, ha hosszabb kell, akkor növeld, de feleslegesen túl nagy értéket ne adj meg, mert ez minél nagyobb, annál lassabb lesz.
Az excel számkezelési limitjét viszont ne lépd át, a számpontosság 15 számjegy, efelett elkezd normál alakban tárolni és kerekíteni ! Szóval nem lehet 15-nél több számjegy a karakterláncban. Ha ennél több számjegy van a
sztringben, akkor csak Delila makrós megoldása a járható út. -
Fferi50
őstag
válasz macilaci78 #35259 üzenetére
Szia!
Az M oszlopot mindenestől átmásolod egy új oszlopba (mondjuk X). Ezután az X oszlopot kijelölöd, adatok - ismétlődések eltávolítása. Ezzel megkapod az egyedi értékeket.
Y2 cellába képlet: =Darabteli($M:$M;X2) Ezt lehúzod az oszlopon.De ha nem zavar, hogy minden szám mellett ott lesz az érték, akkor az N oszlopba, vagy az első üres oszlopba írhatod a Darabteli képletet =Darabteli($M:$M;M2) és lehúzod a számok mellett.
További lehetőség kimutatás.
Üdv.
-
Delila_1
Topikgazda
válasz macilaci78 #37434 üzenetére
Az Fkeres függvényt alkalmazhatod erre.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz macilaci78 #37437 üzenetére
Akkor itt az INDEX-HOL.VAN függvény párosra van szükséged. A másik lap elrendezése olyan, mint a képen levőé? Nem mindegy.
Ha azonos a 2 elrendezés, az A2 képlete
=HAHIBA(INDEX(Munka2!A:B;HOL.VAN(B2;Munka2!B:B;0);1);"")
A Munka2 helyett írd be a saját lapod nevét. Ha a lapnév szóközt, vagy számot tartalmaz, akkor aposztrófok közé kell írnod. 'Másik lap neve'!A:B stb.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
PistiSan
addikt
válasz macilaci78 #37885 üzenetére
Jól értem hogy védővel van elválasztva minden egyes adat?
Adatok lap Adateszközök csoportjában kattintsunk a Szövegből oszlopok gombra.
Bővebben: [link] -
0P1
aktív tag
válasz macilaci78 #37885 üzenetére
Vagy, ha jól olvasom, mivel Excel 2016 is van:
Adatok -> Beolvasás és Átalakítás /Táblázatból. -> Oszlop felosztása > Elválasztó alapján
Add meg a vesszőt elválasztónak, majd Bezárás és betöltés. -
Fferi50
őstag
válasz macilaci78 #37910 üzenetére
Szia!
Szerintem akkor is érdemes megpróbálni a szövegből oszlopok varázslót. Legfeljebb többször is végre kell hajtani. Úgy gondolom, még mindig gyorsabb, mint egyenként végigmenni a tételeken.
Üdv.
-
Mutt
aktív tag
válasz macilaci78 #37910 üzenetére
Szia,
Egy ötlet részemről, hogy kellene egy kulcsszó készlet, hogy miket várnál el a találatként (pl. kapupántcsavar, lakatcsavar, facsavar stb.) a leírásban és azt megnézni hogy megvan-e a szövegben vagy sem.
Ehhez lehet egy UDF-t készíteni.
Egy nem tökéletes változat.Function Talalat(szoveg As Range, kulcsszo As Range, elvalaszto As Range) As String
Dim c, i As Long
Dim kezdete As Long, vege As Long
Dim cell
Dim txelvalaszto As String
For Each cell In elvalaszto
txelvalaszto = CStr(cell) & txelvalaszto
Next
Talalat = ""
For Each cell In kulcsszo
c = InStr(1, szoveg, cell) 'keressük a kifejezést a szövegben
If c > 0 Then 'ha van találat
For i = c To 1 Step -1 'menjünk visszafelé az első elvalasztó jelig
If InStr(1, txelvalaszto, Mid(szoveg, i, 1)) > 0 Then
kezdete = i + 1
Exit For
End If
Next i
If kezdete = 0 Then kezdete = 1 'ha esetleg nem lenne előtte semmi
For i = c To Len(szoveg) 'most keressük meg a szöveg utáni első elválasztójelet
If InStr(1, txelvalaszto, Mid(szoveg, i, 1)) > 0 Then
vege = i
Exit For
End If
Next i
If vege = 0 Then vege = Len(szoveg) + 1 'ez esetben pedig nincs semmi már utána
Talalat = Mid(szoveg, kezdete, vege - kezdete) 'az eredmény
Exit For
End If
Next cell
End FunctionHa az adathalmaz nincs egységes szerkezetben, akkor tökéletes végeredmény nem fog összejönni.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
sztanozs
veterán
válasz macilaci78 #40379 üzenetére
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
Új hozzászólás Aktív témák
- Eladó Steam kulcsok kedvező áron!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Steam kulcsok - UTALÁS/REVOLUT