-
GAMEPOD.hu
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
-
Grodd
tag
Egy fontos dolgot nem írtál: excel verziószáma?
CSak mert Excel 2016-tal vagy 365-tel (korábbi verziókon Power Query bővítménnyel) ezt viszonylag gyorsan és fájdalommentesen össze lehet dobni, ha viszont egyik sincs, maradnak a sima worksheet függvények (esetleg pivottal kombinálva, de csak pivottal nem fog menni), Úgy viszont eléggé agyrém lenne. (bár megoldható)Egyébként egy dolgot árulj el: ez mire jó? CSak mert az életben nem nagyon tudok elképzelni olyan helyzetet, ahol ilyesminek értelme lenne, (bár biztos az én képzelőerőmmel van gond). Mintha egy betépett excel oktató írta volna a "feladványt" kínjában
[ Szerkesztve ]
-
Delila_1
Topikgazda
Nálam az első táblázatod a Munka1 lapon van, az alatta lévő a Munka2-n.
A Munka2 lap D2 cellájának a képlete
=INDEX(Munka1!$A$1:$AY$20;HOL.VAN($A2;Munka1!A:A;0);HOL.VAN($B2;Munka1!$2:$2;0))
Az INDEX függvényben a tartomány (Munka1!$A$1:$AY$20) mérete az igazi tartományod legyen.
[ 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.
-
EmberXY
addikt
Van egy ötletem:
Kijelölsz egy segédoszlopot, szöveg formátumot adsz neki, oda bemásolod a %-os értékeket.
Ezután ahová végül kerülne, azt az oszlopot is először szöveg formátumúvá teszed, majd az első cellától kezdve alkalmazod a =HELYETTE(A1;"%";"") függvényt, ahol értelemszerűen az A1 helyére a segédoszlop első cellája kerül, ahol érték van, majd ezt végigmásolod az oszlopon, ekkor minden érték végéről lekerül a %, majd ezután szám formátumúvá teszed az oszlopot, a segédoszlopot meg törlöd. Kicsit talán körülményes, de szerintem működik, más nem jut eszembe.(Innen vettem az ötletet...)
[ Szerkesztve ]
Up the Irons!
-
Delila_1
Topikgazda
Eléggé összetett a feladat.
Jó lenne, ha ki tudnád tenni a 3 táblázatot tartalmazó füzeteket egy elérhető helyre (a nem publikus adatok helyére valamit beírva), jelezve, hogy melyik a fő-, az egyes és kettes táblázat.
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
Az INDEX és a HOL.VAN függvényekkel tudod összehozni.
Kellene azt is tudni, hogy a többi "excelben" (ez különböző füzeteket, vagy azonos füzetben más lapokat jelent?) mi az egyes lapok neve. Esetleg a hét, vagy a dátum?
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
A gyűjtő füzet Január!B6-os cellájának képlete, ami a Munkafüzet2.xlsx Január lapjáról behivatkozza az adatot
=INDEX([Munkafüzet2.xlsx]Január!$A$1:$AD$17;HOL.VAN($A6;[Munkafüzet2.xlsx]Január!$A:$A;0);HOL.VAN(B$5;[Munkafüzet2.xlsx]Január!$5:$5;0))
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
Azt az oszlopot keresi ki a másik füzet adott lapjának 5. sorában, ahol a dátumok megegyeznek a két füzetben.
Az INDEX tartományának a $A$1:$AD$17 helyett $A:$AD-t is adhatsz.
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
Mert biztosan elnéztem.
Ha oszlopokat nem szúrnának be a júzerek, akkor az oszlop-kereső részhez az indexes függvényben elég lenne annyi, hogy OSZLOP(), mert ez a függvény így hivatkozás nélkül az aktuális oszlop számát adja, ami elméletileg azonos a mindegyik fájlban.
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
Töröld ki a feltételes formázást.
A kimutatásban jelöld ki a végösszeg oszlopot.
Feltételes formázás, szabályok kezelése, új. Fent, a szabály hatókörénél megjelenik a kijelölt tartomány. Alatta A kijelölt cellák opció legyen érvényes. Ezután a többi beállítás már megy.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
Szia!
Kicsit munkásan meg lehet csinálni néhány lépésben.
1. Kijelölöd az oszlopot - adatok - szövegből oszlopok - a megjelenő párbeszédpanelbe elválasztójelnek kiválasztod a szóközt. A cél legyen egy-két oszloppal arrébb ugyanazon a munkalapon.
2. Az így létrejött oszlopokat egymás alá másolod - lehet kivágás beillesztés is, hogy ne maradjon a helyén semmi - a cél első oszlopát folytatva. (Legyen ez az Y oszlop)
3. Átmásolod ezt az oszlopot ismét új helyre (legyen ez most az AA oszlop) majd
- adatok - ismétlődések eltávolítása ebből az új oszlopból.
4. Az új oszlopot sorbarendezed - így látni fogod, hogy olyan szavak benne maradtak, amelyek végén írásjel volt - ezeket ki kell törölnöd (vagy ha egyedül van, akkor nem fontos).
5. A mellette levő oszlop első cellájába beírod a képletet : = darabteli(hosszú oszlop; előző oszlop első cellája & "*") azaz a fenti jelölésekkel az AB1 cellában a képlet =darabteli(Y:Y;AA1 & "*")6. Ezt a képletet végighúzod az oszlopon.
Üdv.
-
lappy
őstag
-
föccer
nagyúr
Én felvennék egy segédtáblát, amibe a beillesztendő szöveget írnám amibe simán fkeressel keresnék. A keresési értéket az adott számból csonkolással szedném mi.
a segédtábla D15:E18 tartományban, de elvileg bárhol lehet, csak a képlet hivatkozás értelem szerűen rá mutasson.
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
sztanozs
veterán
2003-ban is van ilyen. Beállítod, hogy mutassa az értékeket az oszlopok felett és egyesével belekattintva meg tudod változtatni annak az értékét.
Makróval:
Sub Feltolt()
Sheet1.ChartObjects(1).Activate
ertekek_tabla = "B8:E11"
sor = Range(ertekek_tabla).Row
oszlop = Range(ertekek_tabla).Column
Dim c As Range
For Each c In Sheet1.Range(ertekek_tabla)
ActiveChart.SeriesCollection(c.Row - sor + 1).Points(c.Column - oszlop + 1).DataLabel.Text = c.Value2
Next
End Sub[ Szerkesztve ]
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...
-
sztanozs
veterán
gondolom nem Sheet1 a munkalap objektum neve.
Ehelyett ez kell:
Worksheets("Munkalap neve").ChartObjects(1).Activate
Ha több chart is van a sheet-en akkor lehet, hogy a ChartObjects(1) helyett (2) vagy nagyobb szám kell.De ugye az is megvan, hogy a következő sorban is a helyes referenciát kell adni. Oda mutasson, ahol a felirat értékek vannak és pontosan annyi legyen (és olyan felosztásban), amennyi sor és oszlop van:
ertekek_tabla = "B8:E11"[ Szerkesztve ]
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...
-
Delila_1
Topikgazda
Próbáld ki ezt:
Sub mm()
Dim sor As Long, usor As Long, WF As WorksheetFunction
Dim ter As Range, CV As Range
Set WF = Application.WorksheetFunction
If WF.CountIf(Columns(7), "Alma*") + WF.CountIf(Columns(7), "Körte*") _
+ WF.CountIf(Columns(7), "Narancs*") > 0 Then
usor = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=10, Criteria1:="-"
usor = Range("J" & Rows.Count).End(xlUp).Row
Set ter = Range("G2:G" & usor).SpecialCells(xlCellTypeVisible)
For Each CV In ter
If CV <> "Alma*" And CV <> "Körte*" And CV <> "Narancs*" Then _
Rows(CV.Row).Delete Shift:=xlUp
Next
usor = Range("J" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=10
End If
End SubProgramozó: 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
Nem az a baj, hanem az, hogy nem vettem figyelembe a sortörlések alapszabályát. Eszerint a törlési ciklust az alsó sortól felfelé kell indítani.
Sub Torles()
Dim sor As Long, usor As Long
Application.ScreenUpdating = False
usor = Range("A" & Rows.cunt).End(xlUp).Row
For sor = usor To 2 Step -1
If Cells(sor, "J") = "-" And Cells(sor, "G") <> "Alma*" And _
Cells(sor, "G") <> "Körte*" And Cells(sor, "G") <> "Narancs*" Then _
Rows(sor).Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub[ 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.
-
Delila_1
Topikgazda
A D2 cella képletét látod a szerkesztőlécen, a formátum itt hh:nn. A kimutatásba a B1:D18 tartományt vettem be. Sorcímke dátum_1, érték az összeg. A kimutatás F oszlopában állva a jobb klikk előhoz egy gyorsmenüt, ebben állíthatod a cellaformátumot, és szintén itt rendezheted az oszlopot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Pakliman
tag
Szia!
Ha ez egy folyamatosan bővülő lista és nem olyan, amivel csak most az egyszer kell bármit is csinálni, akkor a C oszlopba beírod: =A2 & " " & B2, a D oszlopba kerül az általam jelzett függvény (átalakítva):
=HA(DARABTELI(INDIREKT(CÍM(SOR();3)):$C$1000;C2)=1;C2;"")Ha csak most kell vele számolni, akkor lásd: [(#36485) Fferi50]
-
Fferi50
őstag
Szia!
"de "szebb" lenne. ha a felesleges oszlopok/cellák nem lennének."
Ugye tudod, hogy cellát önmagában nem lehet "eltüntetni", csak a cellát tartalmazó egész sort vagy oszlopot?
Ha jól értem, akkor a példádban szereplő C-H oszlopok adatait szeretnéd áttenni egy db oszlopba, illetve a többi oszlopot szeretnéd "láthatatlanná" tenni.
Ez makróval biztosan megoldható. Nem tudom, Google Excel mit szól ehhez.
Szóba jöhet még az Index - Hol.Van függvény páros (angolban Index - Match), már ha egyáltalán van ilyen lehetőség benne.Üdv.
-
ThoLy
csendes tag
Szia!
Én úgy csinálnám, hogy létrehoznék egy "segédtáblát" egy másik munkalapon ahol összefűzném az "E" és az "N" oszlop tartalmát, majd kivenném belőle a duplikálásokat (Data fül ismétlődések eltávolítása), majd darabtelivel megnézném, hogy melyikből van több mint 1.
Azután ráeresztenék egy makrót, ami ha a darabteli függvény értéke >1 akkor megkeresi a "duplikált" sorokat, és átszinezi a cella tartalmát.A makrós formázás kódja szerintem valami ilyesmi lenne:
for i=1 to segédtábla vége
if darabtelifüggvényértéke > 1 then
keresési érték = összefűzott érték
for j=1 to adatok_vége
if worksheets("adatok").cells(j,összefűzött adat oszlopszáma)=keresési érték then
worksheets("adatok").range("A"&j&":"#"N"&j).font.color=vbRed
worksheets("adatok").range("A"&j&":"#"N"&j).interior.color=RGB(255,0,0)
end if
next j
end if
next iA range kijelölésben nem vagyok biztos, hogy így jó, de ha szükséges este utána tudok nézni (és nem mond valaki okosat addig)
Ui.: A kód valoszínűleg elég hosszan futna, de hirtelen ez jutott eszembe.
Uui.: A segédtáblát is meg lehetne csinálni makróval. (esetleg próbáld a makró rögzítése funkciót a Fejlesztői fülön)Kérdés esetén állok rendelkezésedre.
Üdv,
ThoLy -
Delila_1
Topikgazda
-
oke
senior tag
Már annyi is elég lenne, ha azonos munkafüzetbe meg lehetne oldani a nyíllal való jelölést:
Így kellene az összehasonlítás
B6 --> M6 ---> B6-ba kerüljön a nyíl
B7 --> M7---> B7-be kerüljön a nyíl
.
.
B40 --> M40Illetve
C6 --> N6
C7 --> N7
.
.
C40 --> N40Sajnos az nem működik, hogy megcsinálom 1x feltételes formázással, majd formátumot választok. Nem enged relatív hivatkozást. Megpróbáltam név megadással "átverni", kijelöltem a M6-M40-ig a cellákat, Az abszolút hivatkozást átállítottam relatívra és feltételes formázásnál képletként behívtam, úgy tűnt működik is, de a nyilak össze vissza vannak, ha valahova belekattintok, átállítódnak .
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- Suzuki topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Milyen cserélhető objektíves gépet?
- Milyen routert?
- Motorola Edge 40 - jó bőr
- ZIDOO médialejátszók
- Kerékpárosok, bringások ide!
- Békéscsaba és környéke adok-veszek-beszélgetek
- További aktív témák...
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- World of Warcraft Shadowlands Collectors edition EU EN