- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy A55 - új év, régi stratégia
- iPhone topik
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Android alkalmazások - szoftver kibeszélő topik
- Samsung Galaxy Z Flip5 - ami kint, az van bent
- Motorola Moto G24 Power - hol van az erő?
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
Hirdetés
-
A Colorful "fagyosan kompakt" alkatrészekkel megy elébe a nyárnak
ph A vállalat többek között egy slim profilos léghűtővel, egy helytakarékos táppal és egy ITX-es házzal adott magáról életjelet.
-
Egyre közelebb a Poco F6 startja
ma Újabb ár/érték csatát nyerhet a Xiaomi almárka.
-
Nyár végén jön az idei THQ Nordic Digital Showcase
gp Az új bejelentések mellett újabb részleteket kapunk a Gothic Remake-ről és a Titan Quest II-ről is.
-
Mobilarena
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
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig