- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Hálózati / IP kamera
- Facebook és Messenger
- Mikrotik routerek
- Milyen NAS-t vegyek?
- Kínában túl sok az EV, fokozódik az árháború
- Van, amit nehéz lett megtalálni a Google keresőjével
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Crypto Trade
- OpenWRT topic
-
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
-
detroitrw
addikt
válasz user112 #21232 üzenetére
F2 cella értéke:
=HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");F$1);SOR($A$1:$A$10);0);2);"")J2 cella értéke:
=ÖSSZEFŰZ(E2;" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");F$1);SOR($A$1:$A$10);0);2);"");" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");G$1);SOR($A$1:$A$10);0);2);"");" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");H$1);SOR($A$1:$A$10);0);2);""))ezek ctrl+shift+enter kombinációval használhatók/aktiválhatók
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz user112 #21232 üzenetére
Szia!
Bár kaptál már választ, adok egy makrós megoldást, ami 3-nál több változat esetén is működik.
A makró lényege, hogy az A oszlop adatait az F oszlopba másolja, majd ebből eltávolítja az ismétlődéseket.
Egy ciklusban az F mellé, az első üres oszlopba írja a hozzá tartozó B értéket.A makró végén ***-os sorok közé írt rész törli az eredeti A és B oszlop tartalmát, helyére írja a kigyűjtött adatokat, majd a kigyűjtött részt is törli. Ha erre nincs szükséged, töröld a makróból ezeket a sorokat.
Azért javasolom a makrós megoldást, mert az összetett képletekkel nem terheli a memóriát, és nem növeli a fájl méretét ezekkel.
Sub valami()
Dim sor As Long, usor As Long, ertek As String, jel As String
Dim sor1 As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
'A oszlop adatainak másolása az F oszlopba
Range("A1:A" & usor).Copy Range("F1")
'Ismétlődések eltávolítása az F oszlopból
ActiveSheet.Range("$F$1:$F$" & usor).RemoveDuplicates Columns:=1, Header:=xlNo
For sor = 1 To usor
ertek = Cells(sor, "A")
jel = Cells(sor, "B")
sor1 = Application.WorksheetFunction.Match(ertek, Columns(6), 0)
Cells(sor1, Cells(sor1, Columns.Count).End(xlToLeft).Column + 1) = jel
Next
'**************************************************
Range("A1:B" & usor) = ""
Range("F1").Select
Selection.CurrentRegion.Copy Range("A1")
Range("F:Z") = ""
'**************************************************
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
válasz user112 #21248 üzenetére
A Munka1 lapon elvégzi a makró a kigyűjtést a K oszloptól kezdődően, majd a kigyűjtött tatrományt áthelyezi a Munka2 lap A2 cellájától kezdve. A Munka2 lap címsorát egyszer kell beírni.
A makróban többször szerepel a két lap neve, ezeket írd át a saját lapjaid nevére.
Sub valami()
Dim sor As Long, usor As Long, ertek As String, jel As String
Dim sor1 As Long
Sheets("Munka1").Select
usor = Range("A" & Rows.Count).End(xlUp).Row
'A oszlop adatainak másolása az K oszlopba
Range("A2:A" & usor).Copy Range("K1")
'Ismétlődések eltávolítása a K oszlopból
ActiveSheet.Range("$K$1:$K$" & usor - 1).RemoveDuplicates Columns:=1, Header:=xlNo
For sor = 2 To usor
ertek = Cells(sor, "A")
jel = Cells(sor, "F")
sor1 = Application.WorksheetFunction.Match(ertek, Columns(11), 0)
Cells(sor1, Cells(sor1, Columns.Count).End(xlToLeft).Column + 1) = jel
Next
'Munka2 lapon előző adatok törlése
Sheets("Munka2").Range("A2:Z5000") = ""
'Kigyűjtött adatok kivágása és másolása a Munka2 lap A2 cellájába
Range("K1").Select
Selection.CurrentRegion.Cut Sheets("Munka2").Range("A2")
Sheets("Munka2").Activate
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.
-
lappy
őstag
válasz user112 #32011 üzenetére
Kezdőlap > Formátum.
A Láthatóság csoportban kattintson az Elrejtés és felfedés pontra, és válassza a Munkalap felfedése parancsot.
A Felfedés párbeszédpanelen kattintson duplán a megjelenítendő rejtett munkalap nevére.
MEGJEGYZÉS : Egyszerre csak egy munkalapot fedhet fel.
MEGJEGYZÉS : Az xlSheetVeryHidden tulajdonságot hozzárendelő VBA-kód által elrejtett munkalapok megjelenítéséhez nem használhatja a Felfedés gombot. Ha VBA-makrókat tartalmazó munkafüzetet használ, és a rejtett munkalapok használata során hibákat tapasztal, további információért forduljon a munkafüzet tulajdonosához.
Bámulatos hol tart már a tudomány!
-
lenkei83
tag
válasz user112 #32011 üzenetére
Szia!
Olyan nincs hogy egy lap sem látszik, helyesebben elrejteni nem lehet mindet. Ilyet tudomásom szerint még a VBA sem tud.
A munkalapok láthatóságát viszont ki lehet kapcsolni, viszont az excel beállítás.
Beállítások/speciális/beállítások megjelenítése ehhez a munkafüzethet csoport / munkalapfülek megjelenítésébe pipa.
üdv
P. -
Delila_1
Topikgazda
válasz user112 #32018 üzenetére
A munkalapfülek megjelenítése:
Az Excel beállításai | Speciális | Beállítások megjelenítése ehhez a munkafüzethez | Munkalapfülek megjelenítése elé pipa.
Szer.: Most vettem észre, hogy már megkaptad a választ.
[ 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.
-
RedHarlow
aktív tag
válasz user112 #32261 üzenetére
Sziasztok!
Az alábbi feladatban szeretnék segítséget kérni, a képen látható táblát kellene úgy átalakítanom, hogy a személyek annyi sort kapjanak, ahány adat található a G-BN tartományban.
Tehát:
Dávid Márk - CDE oszlop - 2012 ápr - 100
Dávid Márk - CDE oszlop - 2012 aug - 100
Dávid Márk - CDE oszlop - 2012 dec - 100
Dávid Máté - CDE oszlop - 2012 feb - 100Ma délig kellene valahogy megoldanom a feladatot. Nagyon megköszönném ha tudnátok segíteni.
-
Fferi50
őstag
válasz user112 #34355 üzenetére
Szia!
Feltételes formázás képlettel. A képlet pl. =A1<>Munka1!A1 és beállítod a háttérszínt. Ezt a második munkalap egész hasonlítani kívánt területére érvényesíted. Értékre működik a képlet.
A betűszin eltérést csak makróval lehet megoldani:Sub hasonlit()
Dim cl As Range, sh As Worksheet
Set sh = Sheets("Munka1") ' ide írd a saját első munkalapod nevét
For Each cl In ActiveSheet.UsedRange.Cells ' legyen aktív a második munkalap
If cl.Font.Color <> sh.Range(cl.Address) Or cl.Value <> sh.Range(cl.Address).Value Then cl.Interior.Color = vbYellow
Next
End Sub
A makró az érték eltérést is figyeli.Üdv.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz user112 #38912 üzenetére
Jelöld ki a táblázat sorát úgy, hogy a törlendő sor első oszlopa fölé mutatsz. Mikor fekete, jobbra mutató nyíl alakú lesz a kurzor, kattintasz. A Ctrl és a mínusz billentyű együttes lenyomására törlődik a sornak az a része, amelyik a táblázatodban van. Tehát ha a táblázatod például az A:F tartományban van, akkor a következő oszlopokban megmaradnak az adatok a törölt sorban.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív tag
válasz user112 #41922 üzenetére
Szia,
Nem lehet. Másik diagram típust kell használnod.
https://www.excelrush.com/xy-scatter-chart-x-axis-labels-solution/üdv
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 user112 #43656 üzenetére
Sub Automatika()
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row ' az A oszlop alsó sora
Range("A2").AutoFill Destination:=Range("A2:A" & usor)
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
válasz user112 #50974 üzenetére
A NAGY függvény változik az O, Q és S oszlopban, az INDEX.HOL-VAN páros P oszlopának képletét másold az R és a T oszlopokba. A Teljes 2. sor lemásolható a többi sorba.
[ 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
válasz user112 #50978 üzenetére
Ha 3× szerepel a maximum a sorban akkor az jelenik meg a Max1, Max2, és Max3 oszlopban. Sajnos a hónap mindegyik esetben az első találati hely lesz.
A Második táblázatban írd át a fejlécet, a P, R és T oszlopokban pl. Találat1, Találat2, ésTalálat3 szerepeljen.
[ 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.
-
Mutt
aktív tag
válasz user112 #50980 üzenetére
Szia,
Excel változattól függően 2 megoldás.
O2-ben a képlet:
=INDEX(SORBA.RENDEZ(FÜGG.HALMOZÁS($B$1:$M$1;B2:M2);2;-1;1);1;{1\2\3})
R2-ben a képlet:
=INDEX(SORBA.RENDEZ(FÜGG.HALMOZÁS($B$1:$M$1;B2:M2);2;-1;1);2;{1\2\3})A függőleges halmozással a fejlécet és az aktuális sorban lévő értékeket egy tömbbe fogjuk össze. Ezt aztán csökkenő érték szerint sorba rendezzük. Az INDEX-el az első 3 sort (ezt a {1\2\3} rész csinálja) kiiratjuk.
B) Ha Office 2010 vagy újabban Power Query-vel (PQ) pár lépés. Itt annyi megkötés van, hogy az eredmény nem frissül automatikusan NEKED kell frissítened vagy beállítanod hogy adott időközönként, vagy esetleg a fájl megnyitásakor frissüljön.
A lépések:
1. PQ szerkesztőbe beolvastatni az adatokat, Adatok -> Adatok beolvasása -> Táblázatból/tartományból.
2. Első oszlopot kijelölöd, majd Átalakítás -> Többi oszlop elemi értékre alakítása.
3. Első oszlop továbbra is kijelölve és Kezdőlapon -> Csoportosítás szempontban a minden sor müvelet legyen.
4. Ezek után Oszlop hozzáadása -> Egyéni oszlop. A képlet pedig ez: =Table.AddIndexColumn(Table.Sort([Adatok], {{"Oszlop1", Order.Ascending}, {"Érték", Order.Descending}}),"Index",1,1)
Itt két dolgot csinálunk: csökkenő sorba rendezzük az értékeket és beszúrunk egy új oszlopot ("Index") az eredménybe, ami 1-től indulva egyesével növekszik.
5. Az új oszlop jobb felső sarkában kibontás ikonra kattinunk és kibontjuk sorokba az eredményt.
6. Az Index oszlop jobb felső sarkába kattintva beállítjuk a szúrőt, hogy csak a 3 vagy annál kisebb értékek érdekelnek minket.
7. Töröljük a felesleges oszlopokat.
8. Visszatöltjük Excelbe az eredményt.üdv
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- Debrecen és környéke adok-veszek-beszélgetek
- LG LCD és LED TV-k
- OLED TV topic
- Kerékpárosok, bringások ide!
- Napelem
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Hobby elektronika
- Androidos tablet topic
- Háztartási gépek
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!