-
Fototrend
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
Topikgazda
válasz GrassM@N #5450 üzenetére
A hetet a dátumból a Weeknum függvénnyel tudod előállítani.
=WEEKNUM(A1;2)A második paraméter 1, ha vasárnappal kezdődik a hét, és 2, ha hétfővel.
A függvény akkor alkalmazható, ha az Eszközök/Bővítménykezelőben bejelölted az Alnalysis ToolPak jelölő négyzetét. Érdemes bekapcsolni az Alnalysis ToolPak-VBA-t is, sok új függvényt tudsz utána használni a VBA-ban.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
SAxchivava
csendes tag
Sziasztok!
Én, mint kezdő arra keresek megoldást, hogy:
Adott egy Munka1 lapfül, ami alapba üres és szürke színű. Ha feltöltöm adattal a táblát, ami mondjuk A1-es cellánál kezdődik, akkor a lapfül színe automatikusan változzon meg pld zöld színűre.
Van-e olyan VB kód, amit a Munka1 jobb klikk kód megjelenítés-be be lehet szúrni?Köszi, előre is!
SAX
-
Delila_1
Topikgazda
válasz SAxchivava #5453 üzenetére
Jobb klikk után ezt vidd be:
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Munka1").Tab.ColorIndex = 4
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.
-
félisten
válasz SAxchivava #5453 üzenetére
Hali!
Vagy ezt
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "" Then
Munka1.Tab.Color = RGB(0, 255, 0)
Else
Munka1.Tab.Color = RGB(255, 0, 0)
End If
End SubFire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
kolja
tag
Tisztelt Hozzáértők!
Tudom én vagyok a nagyonlama de nemtom összehozni, hogy az alábbi logikai függvénnyel megadhassam egy adott gépjármű átalánynorma szerint előírt max fogyasztását, üzemanyag típus "D5", és hengerűrtartalom "D4" alapján ....=HA(VAGY(D5="Diesel";D5="Benzin");(VAGY(HA(ÉS(D5="Benzin";D4<1001);8;HA(D4>1500;10;9));HA(ÉS(D5="Diesel";D4<1501);6;HA(D4>2000;8;7))));"NEM ÉRTELMEZHETŐ")
Jelenleg az első HA függvényig minden jó, mert a két beírható lehetőségen kívül mindig a Nem értelmezhető szöveg ugrik fel .... amúgy az IGAZ szó jelenik meg ...
Kérem valaki mondja meg hol hibáztam, esetleg ajánljon más megoldást ...Nem élteni sok fulcsaság ...
-
Delila_1
Topikgazda
A D5-be már eleve érvényesítést vittem be (Adatok/Érvényesítés/Lista, ahol a két érték a Diesel és a Benzin), így azokkal már nem kell foglalkozni a függvényben.
A képlet:
=HA(ÉS(D5="Benzin";D4<1001);8;HA(ÉS(D5="Diesel";D4<1501);6;HA(D4>2000;8;7)))(ha jól értelmeztem az adataidat).
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kolja
tag
válasz Delila_1 #5459 üzenetére
Köszönöm Delila!
De valami nem klapfol .... ilyen viszonylatban kéne működnie:
Benzin
1001 alatt 8 liter
1001-1500 9 liter
1500 felett 10 liter
Diesel
1500 alatt 6 liter
1501-2000 7 liter
2000 felett 8 liter ....A benzin 1000 felett nincs benne .... asszem
[ Szerkesztve ]
Nem élteni sok fulcsaság ...
-
Delila_1
Topikgazda
Igazad van, valami kimaradt. Jó, hogy leírtad a feltételeket szövegesen.
A képlet:=HA(ÉS(D5="Benzin";D4<1001);8;HA(ÉS(D5="Benzin";D4>1000;D4<1501);9;HA(ÉS(D5="Benzin";D4>1500);10;HA(ÉS(D5="Diesel";D4<1501);6;HA(ÉS(D5="Diesel";D4>1500;D4<2001);7;8)))))
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
SAxchivava
csendes tag
Kösönöm a segítséget!
SAX
-
Cuci3
tag
-
félisten
válasz Delila_1 #5468 üzenetére
Hali!
Neked nem jön össze? Húha, akkor már nézem is azt a HSZ-t, mert biztos durva vagy egyszerűen csak lehetetlen...
mod
Nem írtad el a HSZ sorszámát?Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5469 üzenetére
Te biztosan megfejted.
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
Nálatok is akadozik a PH, vagy az én készülékemben van a hiba?
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élisten
válasz Delila_1 #5471 üzenetére
Hali!
Egész nap lassú nagyon, sőt van amikor 503-as hibakóddal meg sem nyílik a PH kezdőlapja...
Még egyszer kérdem, az #5433 sorszámú HSZ-ről van szó?
(Amúgy közel sem biztos, hogy meg tudnám oldani, csak szeretem a "Mission Impossible" témakört... )Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5472 üzenetére
#5433
Egyszerűnek hat, csak valamit nem tudok, amit ismerni kellene hozzá.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
SAxchivava
csendes tag
Sziasztok!
Köszönöm, mindkét megoldás jó (kérés5453, válaszok 5456,57) csak közbe változtak az igények. Annyit megtennétek még, hogy ha ismét üres lesz a Munka1 akkor visszavált alapba a lapfül színe? Illetve ha más a Munka1 neve pld XY akkor elég ezt csak a kódba átírnom?
Köszi!SAX
-
félisten
válasz Delila_1 #5473 üzenetére
Hali!
Egyszerű is, csak valószínűleg Te is abba a "hibába" estél, mint Én is néha, nevezetesen ha bonyolultabb dolgokat ír az ember, akkor hajlamos bonyolultan is megközelíteni a problémákat, holott a megoldás lényegesen egyszerűbb...
Feltételezem, az volt az alapvető probléma, hogy az Autofilter "szűrés" eseményét nem lehet elcsípni, azaz amikor végbe megy a szűrés, akkor nincs milyen event-hez társítani a makrót...
Nos, ha nincs esemény, akkor CSINÁLJUNK...
Egyszerűen csak rakj valahova pl C1-be(most azt vettem, hogy A és B oszlopban vannak az adatok) egy DARAB2 függvényt például, amit a szűrt tartományra állítod.(lehet DARAB, DARABTELI, bármi, csak az a lényeg, hogy SZÁMOLJON)Ugye már nyilvánvaló, hogy most már lesz olyan esemény, ami a szűréskor végbemegy, nevezetesen a Calculate... Innentől kezdve meg azt hiszem nem jelenthet problémát a szűrt tartományon végigmenni és azt máshova átmásolni...
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
SAxchivava
csendes tag
Közbe rájöttem a kérdésem végére. Már "csak" ez lenne aktuális "Annyit megtennétek még, hogy ha ismét üres lesz a Munka1 akkor visszavált alapba a lapfül színe?".
Köszi!SAX
-
félisten
válasz SAxchivava #5476 üzenetére
Hali!
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "" Then
Munka1.Tab.ColorIndex = xlColorIndexNone
Else
Munka1.Tab.Color = vbGreen
End If
End SubFire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Cuci3
tag
válasz Fire/SOUL/CD #5475 üzenetére
Az én felfogóképességem kicsit lassú. Minek kell a darab függvény?
Én változáskor az autofilterből kiszedném a kritériumot, aztán irányított szűrőznék, vagy végiglépkednék a sorokon. Csak ezzzel baromi lassú lesz az Excel. -
félisten
Hali!
Mr. Nagy feladata elég egyértelmű, amit korábban írtam, szerintem az is...De sebaj, akkor kérdésekkel válaszolok.
"Én változáskor az autofilterből..."
Mi változik? Milyen esemény(Event) fut le, amikor valaki lenyitja az autofiltert, kijelöl egy vagy több elemet, majd leokézza?
(mert hogy a Worksheet_Change esemény biztosan nem fut le például)Fire.
UI: az irányított szürés meg kizárja az autofilter-t mellesleg...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Cuci3
tag
válasz Fire/SOUL/CD #5479 üzenetére
Ja, vagy úgy.
Mint pár poszttal korábban írtam, még nem foglalkoztam a gyakorlati megvalósítással, csak gondolatba futottam végig. De akkor már látom, hogy az alapötletem elvethető. -
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5479 üzenetére
Nem ott akadtam el, hanem a kritérium lekérdezésénél. Nem jövök rá a szintaktikára.
A Calculate esemény beindításához a részösszeg függvényt tettem be 3-as függvényszámmal.
Az eredményt nem jó a 2. sorba íratni (mr.nagy a G2-be kérte), mert az a szűréskor "elrejtődhet", érdemesebb a G1-be tenni.
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 Fire/SOUL/CD #5477 üzenetére
SAxchivava kérdése nem az A1-re vonatkozik az én értelmezésem szerint, hanem arra, hogy van-e adat lapon.
sz = Application.CountA(Cells)
if sz>0 then ...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 Fire/SOUL/CD #5479 üzenetére
Ha sikerül lekérdezni a kritériumot, akkor a HOL.VAN és az INDIREKT függvényekkel már egyszerű a hozzá tartozó azonosítót kikeresni.
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élisten
válasz Delila_1 #5481 üzenetére
Hali!
Ha A és B oszlopban vannak az adatok, és van fejléc, akkor azt is tudod, hogy A2 és B2-től kezdődnek az adatok.
Nem kell semmilyen kritérium, egyszerűen csak végig kell menni a szűrt tartományon(ha több elem is megfelelt a szűrésnek, pl több Kovács István is van)
A kezdő pontját tudod(A2 vagy B2, a szűrt lista hossza lekérhető, egyszerűen csak egy ciklussal végig kell szaladni, a LÁTHATÓ cellákon és átrakni valahova.Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5484 üzenetére
Ez jó tipp volt, és még csak végig sem kell menni a sorokon, továbbá függvények (hol.van, indirekt) sem kellenek hozzá. Az egész makró egyetlen sor.
A kérdés feltevése azt sugallja, hogy minden név csak egyszer szerepel a B oszlopban. Ha ez nem igaz, a makró mindenképp az első találat azonosítóját írja a G1-be.Mr. Nagy
Egy (bármelyik) cellába írd be: =MOST()
A laphoz pedig rendelt ezt a makrót:
Private Sub Worksheet_Calculate()
Cells(1, 7) = Cells(Range("A2:A65536").SpecialCells(xlCellTypeVisible).Row, 1)
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.
-
félisten
válasz Delila_1 #5485 üzenetére
Hali!
Erről van szó!
Még esetleg egy info, hogy az Autofilter.Range.Address lekérésével, nem kell az egész táblát a tartományba helyezni...
A ciklusos módszert csak azért említettem, hogy ha valamiért mégis csak végig kell szaladni a szűrt listán..Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Delila_1 #5485 üzenetére
Hali!
Bocs, de már nem tudtam szerkeszteni a HSZ-t(épp gond volt(megint) a PH-val) , a lényeg meg lemaradt...
Mr. Nagy nem ezt kérte, hanem hogy az értékhez tartozó nevet(a B oszlopból) másolja máshova(had gonoszkodjam Veled egy kicsit)
Bár ez legyen házi feladat Mr. Nagy számára, hogy mi az az 1 érték amit meg kell változtatni, hogy "jól" működjön...Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Fire/SOUL/CD #5487 üzenetére
Hali!
Hüleséget írtam, bocsesz, jó az a kód, csak Én szűrtem nem jó oszlopot..
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
SAxchivava
csendes tag
Köszönöm a válaszokat!
SAX
-
adam_
senior tag
Hogyan lehet Excelben (2003-as) -ban olyan kimutatást csinálni amelyben pl.: márka és szín szerinti kategóriákra megjeleníti az autók napi árának legalább 5, tetszőlegesen választott mutatóját (min/max stb.)! Addig eljutottam, hogy létrehozzam a kimutatást, de nem tudom, hogy egy darab kimutatásba hogyan tudom beletenni ezeket a statisztikai mutatókat, mert külön-külön megy, de egy kimutatásba kellene...
-
kp78
addikt
Egy elég bonyolult kérdésem lenne (legalábbis nekem ) az excelből mindent tudók felé
Adott egy tábla, egyelőre 3 lapfüllel.
Az elsőn lenne az összesítés, az összes többin 1-1 tanfolyam adatai, amiből az összesítésnek dolgoznia kellene.
Amit szeretnék, hogy az első lapfülön kiválasztom a lenyíló listából (B oszlop) az adott tanfolyamot, majd kiválasztom, akkor töltse ki az "A" "C" stb. oszlopokat.
Én beírom az "E" oszlopba az adott hónap óramennyiségét, a táblázat pedig számolja a másik füleken lévő adatokból.
Megoldható ez vhogy?
Nagyon szépen köszönöm a segítséget![ Szerkesztve ]
-
Cuci3
tag
Az indirekt nagyon egyszerű függvény. Van mondjuk egy hivatkozás a Munka1 munkalap A1-es cellájára, ami így néz ki: Munka1!A1. Az indirektben ezt a szöveget rakhatom össze darabjaiból, és a függvény ebből készít egy hivatkozást. A szövegeket idézőjelbe kell raknom és a szövegrészek összefűzésésre a & jel szolgál.
Például ez is működne: INDIREKT("Munk"&"a1!"&"A1")Priviben ment a mail címem.
-
cma8
csendes tag
Nekem egy olyan kérdésem lenne, hogyha adott egy sorba rendezett havi egyenleg állomány (pl.: -2000, -1500, -1300, 250, 500), hogyan tudom kiválasztani azt a hónapot (a felette lévő sorban a hónapok szerepelnek), amelynél már a korábbi hónapok kumulált egyenlegei is pozitívak. Tehát a korábbi veszteségek is fedezve vannak.
Köszönöm,
András -
Ribi
nagyúr
Nekem is lenne 1 fix hivatkozásos kérdésem
Egyik cellába be akarom rakni a másik worksheet B2 cellájának tartalmát.
='2'!B2
Ez eddig jó is, csak ha beinzertálok egy sort a 2-es elé akkor követi és ='2'!B3 lesz.
Ezen a $ sem segít (ha jól értelmeztem az lenne a fix hivatkozás módja ='2'!B$2)
Hogy csináljam meg ?
Új hozzászólás Aktív témák
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- MW2 - MW3 játékosok baráti köre
- Új nyomógombos Nokiák érkeztek
- Milyen switch-et vegyek?
- Motorola Edge 40 - jó bőr
- A fociról könnyedén, egy baráti társaságban
- Milyen billentyűzetet vegyek?
- Politika
- OnePlus 7 - magabiztos folytatás
- További aktív témák...
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Eladó PC Játékok Bontott és Bontatlan csomagolásban
- PC játékok 2000Ft/db
- Régi PC Játékok - Rome Total War/Barbarian Invasion/SpellForce/Simcity 4
- Total War: WARHAMMER II - The Warden & The Paunch (DLC) Epic Games Key GLOBAL
- Eredeti Windows 10, Windows 11, Office Akció: Office 2021, Office 2019, Office 2016 csak Retail