- Aliexpress tapasztalatok
- Kiderült, hogy hol veszik a legtöbb kínai EV-t
- Az EU szerint a ChatGPT még mindig nem felel meg a szabványoknak
- SkyShowtime
- Mikrotik routerek
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Windows 11
- Bejutott az európai 5G-be az Amazon
- Linux kezdőknek
- Újabb robottaxis balesetekre derült fény
-
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
-
ulrik19
tag
válasz Delila_1 #6617 üzenetére
Én igen
Próbáltad irányított szűrővel, ezzel egy megadott helyre lehet kiírattatni a találatokat. De nekem valamiért nem sikerült a jó megoldást kicsiholnom belőle.
A megadott feltétel:
=HA(HIBA(SZÖVEG.KERES($B$1;A5));HAMIS;SZÖVEG.KERES($B$1;A5)>=1)ahol B1-be lehet írni a keresendő kifejezést, a lista, amiben keresni kell: A5-től indul
Sosem használtam még ezt a funkciót, a súgó alapján próbálom csinálni, de nem jó a végeredmény... Gyanítom, hogy a feltétel a rossz. Szerinted?
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #6626 üzenetére
igen-igen, ez oké. De - a súgóból kiindulva - lehet képletet is megadni. Ott azt írták, hogy vagy ne adjunk a feltételnél nevet az első sorban, vagy ha adunk is, semmiképp ne legyen azonos a lista mezőneveivel... (ezért lett nálam szöveg ill. kód)
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
gege71.hu
addikt
válasz Delila_1 #6632 üzenetére
Köszi, de egyelőre ez még nem okés.
=INDIRECT("F"&MATCH(MAX(D7336);D7336;0))
itt ugye nem smileyk vannak hanem kettőspont és "D".
Ha igy irom be mint fentebb:
F oszloban vannak a termékleírások.
D7-D336 közt az árak. Akkor hibás a függvény. Nem ad vissza értéket csak általános hibaüzenete.Annak a cellának a tartalma kell nekem az F oszlopból ahol a D oszlopban megtalálja a maximum árat a függvény.
Tehát ha D55-ben van a legmagasabb ár akkor a visszaadott szöveg az F55 cellában levő leírás kell.[ Szerkesztve ]
-
félisten
válasz Delila_1 #6659 üzenetére
Hali!
Jó munkaközösség lehet ott felétek is...
Ilyen "viccet" én is már elkövettem annó, csak egy "apró" hiba csúszott a számításba, nevezetesen hogy másnap kórházba kerültem vesekővel és a vizsgálatok, meg fetrengés közepette nem tudtak elérni az akkori kollégák, ezért 2-3 napig nem használták a táblázatokat, nem tudták mi törpént az Excel-el.Na azóta nem viccelődöm ilyennel...
Azért nem gondoltam volna, hogy ilyen "gonoszka" is tudsz lenni, de roppant mód díjazom
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)
-
Fehér Mancs
tag
válasz Delila_1 #6667 üzenetére
Ez is jó, de a desktopra gondoltam első körben, viszont meg is találtam a megoldást.
(Ha valakit érdekel:
Option Explicit
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_SENDWININICHANGE = &H2
' Enter the following Declare as one, single line:
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uparam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer
Private Sub Command1_Click()
Dim filenm As String
Dim x As Long
filenm = "c:\winnt\Bgt.bmp"
' Enter the following two lines as one, single line:
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, filenm, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub -
zsotesz81
senior tag
válasz Delila_1 #6674 üzenetére
Hát ez nekem nem jött be, azt írta, hogy körkörös hivatkozás. Mondjuk lehet én csesztem el valamit. Úgy van a táblázatom, hogy A oszlopban nevek, C oszlopban a pénzük, és egy külön táblában szeretném sorba rendezni őket pénz szerint. A pénzt sorba rakom a nagy függvénnyel és melléjük keresném ki a neveket.
-
félisten
válasz Delila_1 #6697 üzenetére
Hali!
Az sajnos nem kerekít 40-re. Ez igen =KEREKÍTÉS(A1;-1)
zsotesz81
Az ablak alatt Form-ot értesz és a nevek száma(és ebből adódóan a jelölőnégyzetek száma is) változó?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 Delila_1 #6699 üzenetére
Hali!
Sebaj én sem vagyok biztos, hogy teljesen megfelel Lackó86-nak, mivel ez a megoldás ugyebár kétírányba kerekít, azaz 35,44445-t 40-re, míg 34,44445-t meg 30-ra.
Ha az a cél esetleg, hogy mindig felfelé kerekítsen, akkor nyílván még kell egy kis módosítás, de majd talán megtudjuk...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)
-
zsotesz81
senior tag
válasz Delila_1 #6705 üzenetére
Csak az a bajom, hogy már ezt nem tudom hova rakni, ennek nem akarok külön munkalapot sem. Egyébként ez arra kéne, hogy pókerben döntetlennél a kasszát azonos arányban ossza szét a döntetlent elérők között. Ez mondjuk elég ritka, ezért akarom úgy megcsinálni, hogy gombnyomásra feljöjjön egy form, ott bepipálni azokat a játékosokat akiknél döntetlen van, majd a formon megnyomni egy gombot és a lóvé eloszlik. A formot már megcsináltam csak nem tudom hogy kell meghívni. Az előbb próbáltam egy active x parancsgombbal, alapból be volt írva a kódba, hogy load userform1 (nem változtattam meg a form nevét), de nem történik semmi.
-
félisten
válasz Delila_1 #6707 üzenetére
Hali!
Bocs, hogy megint "beleugatok", de ez nem a megfelelő megoldás, azaz ez így ahogy leírtad, úgy látszólag megy, de True értéknél hiba lesz.(Nem vagyok otthon, nem tudom kipróbálni, csak emlékezetből írok)
Szóval egy parancsgombról így lehet meghívni a Form-ot.
Helytelen
Private Sub CommandButton1_Click()
UserForm1.Show True
End SubA modal paraméter az vbModal vagy vbModeless értéket vehet fel.
zsotesz81
vbModal esetén amíg az ablak(Form) be nem csukódik, addig nem lehet a munkafüzethez férni, vbModeless esetén meg igen.Helyesen
Private Sub CommandButton1_Click()
UserForm1.Show vbModal
End SubFire.
[ 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 #6709 üzenetére
Hali!
Igen, de ez ebben az esetben nem bevett szokás, hogy megnyitott form mellett lehessen módosítani a munkafüzetben..
Akkor szokás ezt alkalmazni, ha pont az a cél, hogy a form pl információkat jelenít meg folyamatosan a munkafüzet változásait követve.Szóval nem katasztrófa a False használata(De mint megerősítettek a True hibát dob), ezért inkább akkor vbModeless a False helyett... Ez ilyen programozástechnikai elv(hogy ilyen rondán fogalmazzak) és nem csak Excel hanem más programnyelvek területén is teljesen alap eljárás)
Fire.
UI: Nálatok sem működik a PH helyesírás ellenőrzése HSZ írásakor?
[ 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 #6715 üzenetére
Hali!
Igen ez valós probléma néha, ezt elkerülendő mindig azt a konstanst/típust stb kell/célszerű használni, ami úgymond a nagykönyvben meg van írva és itt nem a súgóra gondolok, mert a súgóban is lehet találni olyan leírást, amivel biztosan nem működik egy adott függvény pl.
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)
-
zsotesz81
senior tag
válasz Delila_1 #6746 üzenetére
Szia!
Ez sajna csak részben működik úgy ahogy szeretném. Azt vettem észre, hogy akkor fut le jól a kód ha rögtön az első játékosnál szerepel az all in. Ha mondjuk a 2. és 3. játékos között van döntetlen (all in mellett) akkor olyan mintha símán kihagyná a for ciklust és számolna úgy ahogy egyébként akkor kell ha nincs all in. Így néz ki a kód:
For i = 5 To 14
If Cells(i, 16) = "All In" Then
Call döntetlenallin
Unload Me
Exit Sub
Else
Cells(1, 9) = Cells(1, 8) / pipaszam
Call döntetlenszamolasEnd If
NextValami 5let?
-
félisten
válasz Delila_1 #6783 üzenetére
Hali!
Jól van, akkor ha Te sem érted "kristálytisztán", akkor nem csak az én "készülékemben" van a hiba.
Szóval Badb0y, egy kép sokat segítene...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 #6807 üzenetére
Hali!
VBA-ban igen, mert "átkonvertálja" Windows szabvánnyá. A sima chr(10) linux/unix rendszereknél a sordobás, Win esetében chr(13) + chr(10).
Msgbox esetén valóban mindegy, hogy chr(13) vagy chr(10).
Windows esetében az új sor(return/enter) az mindig is hexa 0xD azaz 13 volt és most is az(Win esetén pl egy szöveges fáljban az új sor az mindig 13,10 (0xd,0xa) "végződik", linuxnál csak 10(0xa). Weben erre oda kell figyelni, amikor szöveges állományt dolgozol fel, vannak direkt erre a célra függvények pl PHP-ban, amik ezeket a konverziókat(sorvége/újsor) elvégzik, oda-vissza)
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)
-
ulrik19
tag
válasz Delila_1 #6860 üzenetére
vagy írsz egy cellába 0.5-öt (50%-ot) és csak azzal szorzás
Bár a kérdés szerintem nem ez volt.
Makróval meg lehet oldani. Figyelni kell a munkalap change eseményét, és ha a módosult cella a figyelt tartományban van, akkor lefuttatni egy rövid kódot, miszerint a most beírt számot ossza le egy előre definiált és rögzített cellában lévő értékkel, majd lecseréli erre a módosult cella tartalmát. Amire figyelni kell, hogy ez a felülírás is módosítási eseményt hoz létre, ami könnyen végtelen ciklusba fut... Sajnos most nincs időm megírni, de biztosan lesz rá válasz valakitől
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz Delila_1 #6862 üzenetére
Én ezt egy globális (sub-on kívül deklarált) boolean változóval szoktam megoldani. Alapban mondjuk IGAZ értékre van állítva. Amikor a felhasználó beüt egy új értéket, elindul a hozzá kötött esemény, melynek az elején megnézem, hogy ez a változó IGAZ-e. Ha igen, akkor továbbfut, ha nem, akkor IGAZ-ra állítom és kilépek a sub-ból. Ha fut tovább a kód, akkor rögtön HAMIS-ra állítom a változót, megváltoztatom a cella értékét. Mivel HAMIS, nem fog lefutni még egyszer ez a kódrészlet. De biztosan van rá szebb megoldás is
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
félisten
válasz Delila_1 #6862 üzenetére
Hali!
Pedig elég egyszerű és szerintem már Te is használtad korábban ezt a megoldást, nevezetesen hogy le kell tiltani az eseményeket. Vagy rosszul tévedek?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
MsgBox "Ez a cella módosult: " & Target.Address
MsgBox (Range(Target.Address))
Range(Target.Address) = Range(Target.Address) * 0.05
Application.EnableEvents = True
End SubFire.
UI: Persze most hibakezelés nincs, nem nézem meg hogy üres-e az adott cella, vagy ha nem üres, akkor lehet-e értelmezni számként stb stb, de a lényeg benne van...
[ 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)
-
Csakénvagyok
őstag
válasz Delila_1 #6881 üzenetére
Köszönöm, valami hasonlót akartam elérni. Sajna az ithoni gépemen nem 100%osan tudom letesztelni, mivel OOo van Ubuntu alatt (a formátumok nem igazán passzolna). Majd holnap lecsekkolom
szerk: Ha eggyenlő akkor sárga lesz, viszont nem lesz sárga az üresen hagyott mező is?
[ Szerkesztve ]
-
félisten
válasz Delila_1 #6884 üzenetére
Hali!
Nem vagyok benne biztos, de szerintem minden feltétel meg lesz vizsgálva, függetlenül attól, hogy igaz avagy hamis. Pont ezért került be pl a 2007-esbe, hogy meg lehet "állítani" a feltételek feldolgozását. Leállítás, ha igaz
De még1x mondom, nem vagyok benne 100%-ban biztos...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 #6886 üzenetére
Hali!
És a 2003-ban hány darab feltétel lehet max? Úgy rémlik, hogy talán 3 a maximum...
2007-ben sem tudom a max-ot, de az biztos, hogy 5-6 feltétellel már dolgoztam.#6888
Thx az infó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)
-
félisten
válasz Delila_1 #6889 üzenetére
Hali!
Öööö, bocs de ma adóbevallásokat töltögettem szinte egész nap, egy kissé meg vagyok zakkanva.
Ezt most úgy szájbarágósan leírnád még1x, mert egy kukkot nem fog fel az agyacskám belőle...Fire.
UI: De lehet, hogy ma ne is írd le, holnap reggel inkább elolvasom még1x, addigra talán javulást mutatok...
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 #6891 üzenetére
Hali!
Oksa, így érthető(korábbi HSZ-ed is biztosan, csak nem ma)
Úgy lehetne ezt letesztelni, ha lenne olyan feltétel, hogy kisebb vagy egyenlő/nagyobb vagy egyenlő. Magyarul csinálsz(én ma biztosan nem ) 3 feltételt1. ha egyenlő
2. ha kisebb egyenlő
3. ha nagyobb egyenlőTermészetesen 3 különböző színre "festenék" a cellát. Mivel az egyenlő mindháromban benne van, ezért mindegy lenne a feltételek közti sorrend, mert mindig a legalsó/legutolsó feltétel teljesülne, hisz ott is megvizsgálod az egyenlőséget. Ha ez igaz, akkor bizonyítottuk, hogy az összes feltételen végigmegy, még akkor is, ha a legelső igaz is.
Na remélem, ezt meg én nem fogalmaztam túl bonyolultan... (meg jó az okfejtésem és egyáltalán kivitelezhető)
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 #6894 üzenetére
Hali!
Igen, ma már "lőn világosság"... Csak ez meg egy másik kérdést vetett fel bennem, nevezetesen, akkor miért van/mi értelme a 2007-ben fellelhető Leállítás, ha igaz lehetőségnek, a feltételes formázások listájában?
A válasz egyszerű: [link]
A "A szabályértékelés leállítási idejének ellenőrzése a Leállítás, ha igaz jelölőnégyzet használatával" résznél van a lényeg...Egyszerűen kompatibilitási okokból vezették be a 2007-től, részletek a linkben.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)
-
veterán
válasz Delila_1 #6904 üzenetére
ahha, i see. akkor már cska egy olyan otromba kérdésem van, hogy egy makrót hogyan tudok egy másik fájlra is alkalmazni?
amúgy egy vicc, hogy a mérnökképzésben ilyen alap excel programozást nem tanítanak...
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
veterán
-
tag
válasz Delila_1 #6925 üzenetére
Működik nagyon szépen és jól, köszönöm.
#6926 Fire/SOUL/CD: ezt a felvetést is köszönöm, majdnem így van, ipari és mezőgazdasági épülettervezőként épp egy leendő telep kihasználtságához a telepítendő állomány átlagos heti életkorához kell. Sajnos ehhez is konyítani kell, nem elég, ha maga az épület szép/jó/költséghelyes/célszerű, ilyenekkel vegzálnak.
#6927 WildBoarTeam: majdnem így van, csak mint fentebb írtam, itt nem a dátum a lényeg, hanem a letelepítési periódus hetei, amik csak maximum tájékoztató jelleggel függnek össze a tényleges naptári hónapokkal.
Mindentől függetlenül köszönöm még egyszer, hogy ennyire alaposan foglalkoztatok a kis hülyeségemmel.
-Houston van egy kis problémánk. - Aham, és akarsz beszélni róla?
-
zsotesz81
senior tag
válasz Delila_1 #6943 üzenetére
2007-es verzióban sajna ezt nem találtam meg, megoldanám akkor úgy, hogy a 3 munkalapból kettőt elrejtek, az elsőre meg teszek parancsgombot. Az a baj, hogy valamiért nem vált rá az elrejtett munkalapra (ha nincs elrejtve a munkalap akkor működik).
Ezt írtam:
Private Sub Cmdsúgó_Click()Sheets("Súgó").Activate
End Sub
Próbáltam select-tel is de arra hibaüzenetet kaptam (Worksheet osztály select metódusa hibás).
Új hozzászólás Aktív témák
- Filmvilág
- Nők, nőügyek (18+)
- Futás, futópályák
- Konzolokról KULTURÁLT módon
- Kerékpárosok, bringások ide!
- Huawei Watch GT 3 Pro - korlátolt szépség
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- SSD kibeszélő
- Senua’s Saga: Hellblade II teszt
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Lemezes Retro PC Játékok
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen