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.
Gyorskeresés
Legfrissebb anyagok
- Bemutató Spyra: akkus, nagynyomású, automata vízipuska
- Bemutató Route 66 Chicagotól Los Angelesig 2. rész
- Helyszíni riport Alfa Giulia Q-val a Balaton Park Circiut-en
- Bemutató A használt VGA piac kincsei - Július I
- Bemutató Bakancslista: Route 66 Chicagotól Los Angelesig
Általános témák
LOGOUT.hu témák
- [Re:] [GoodSpeed:] Windows 11 PRO FPP (Full Packaged Product) - Retail, Box, dobozos
- [Re:] [sziku69:] Fűzzük össze a szavakat :)
- [Re:] [D1Rect:] Nagy "hülyétkapokazapróktól" topik
- [Re:] [Luck Dragon:] Asszociációs játék. :)
- [Re:] [gban:] Ingyen kellene, de tegnapra
- [Re:] eBay-es kütyük kis pénzért
- [Re:] [sziku69:] Szólánc.
- [Re:] [bb0t:] Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- [Re:] Spyra: akkus, nagynyomású, automata vízipuska
- [Re:] [Mr Dini:] Mindent a StreamSharkról!
Szakmai témák
PROHARDVER! témák
Mobilarena témák
IT café témák
Téma összefoglaló
- Utoljára frissítve: 2023-11-13 08:31:56
LOGOUT.hu
Hozzászólások
azopi74
addikt
Carasc0:
Igen, ez a másik megoldás, valamiért Delila irtózik a körkörös hivatkozásoktól, jobban szereti a VBA-t
Nálad ugyanezt így írd át :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$V$3" And Target > "" Then Range("D7") = Range("D7") + Target
End Sub
Elmentettem neked ide makrós munkafüzetként :
Delila_1
Topikgazda
Jól írod, irtózom tőle.
Aki nem használja sűrűn az iteráció átállítását, annál hibát okozhat, aminek a forrását nehéz később megtalálnia. Szerintem sokkal célszerűbb az 1 soros makró.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
azopi74
addikt
Ez most egy újabb feladat?
D1-be írd be: =HA(VAGY(A1="Bkny";A1="Kfny_Bkny");B2)
Mivel, azt nem adtad meg, mi legyen, ha nem teljesül a feltétel, FALSE (HAMIS) értéket fog adni abban az esetben. Ha teljesül, a B2-t (1*B2 ugyanaz )
csongi
veterán
Igen ,
Egy táblát csinálok, de a függvényekbe gyenge vagyok mint a kígyó lába.
Tudom nektek ez nem feladat . Köszönöm!!
Lesz még pár ilyen ha vagy és meg társai, de a végefele járok már szerencsére
azopi74
addikt
Az igaz, oda kell figyelni, mert sajnos globális beállítás, nem lehet munkalaponként vagy munkafüzetenként állítgani és ha úgy marad véletlenül a beállítás, akkor annak nem várt hatása lehet más munkafüzetekre ...
Makrót nem lustaságból kerülöm, ha lehet, nekem a VBA-val csak az a bajom, hogy makróképes munkafüzetként kell elmenteni, ami nem minden környezetben járható . Ja meg, az, hogy nem kedvelem a VB szintaktikáját, C#-on nőttem fel, de persze ez egyéni szoc probléma
[ Szerkesztve ]
Delila_1
Topikgazda
Kényelmetlen füzetenként (vagy akár laponként) átállítgatni az értéket, szerintem egyhamar hibát okoz valahol.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
csongi
veterán
Újabb agyszüleményem
Ha G6 Bkny vagy Nyíló akkor E6=h6 ha G6 Kfny_ny vagy Kfny_Bkny akkor E6=h6*2
Másik:
Ha G6 "nyíló" vagy "Bkny" és g9 "natúr" vagy "Ezüst F1" akkor =H6 értékével, ha G6 "Kfny_bkny" vagy "Kfny_ny" és és g9 "natur" vagy "Ezüst F1" akkor legyen H6*2
Más esetekben az érték legyen 0-a
azopi74
addikt
első:
=HA(VAGY(G6="Bkny";G6="Nyíló");H6;HA(VAGY(G6="Kfny_ny";G6="Kfny_Bkny");H6*2))
másik:
=HA(ÉS(VAGY(G6="nyíló";G6="Bkny");VAGY(G9="natúr";G9="Ezüst F1"));H6;HA(ÉS(VAGY(G6="Kfny_bkny" ;G6="Kfny_ny");VAGY(G9="natur";G9="Ezüst F1")),H6*2;0))
Jól elszórakozol
[ Szerkesztve ]
csongi
veterán
Ha lehetne megmaradnek makronal valahogy, de csak 2003 xls formatumot tudok a vegen bekonvertalni egy programba, es az fuggvenyek alajan kell kigyujtenem egy csomo feltelbol adatokat, ezt eddig kezzel, fejben csinaltam.
poffsoft
addikt
ha látnánk egy forrást, meg egy outputot, elég egyszerű lenne.
de így, 3 nap után még semmi használható.
teoretikus kérdésre teoretikus vàlasz: olyan nincs, hogy nincs.
[ Szerkesztve ]
poffsoft
addikt
+1 a vba mellett.
ott làtom, mi volt/van/lesz...
mondjuk a makrobarát munkafüzet probléma jogos...
Amúgy hogyan lehet ledumálni 2013-at a "körkörös hivatkozás" hibaüzenetről? főleg, hogy nem is az a panaszolt képlet...
[ Szerkesztve ]
Carasc0
őstag
Sziasztok!
Na valahogy sikerült működésre bírni! Először Azopi féle megoldás működik de én szerintem bugos! Tehát valóban működik az hogy ha beírok egy számot, akkor a csík megmozdul. Ha kitörlöm akkor is marad a csík a helyén. Új érték beírása esetén a csík a legutóbbi pozíciojától kezdve szintén elmozdul. Na eddig tök jó.
BUG: Tegyük fel benne hagyom a cellába mondjuk a 10-es értéket. Ha belekattintok 2x egy tetszőleges üres cellába, majd kikattintok belőle, akkor a csík megmozdul 10 értékkel. És ezt ahányszor eljátszom, annyiszor mozdul meg a csík. Nagyon picit zavaró! Nem is értem mi köze teszem azt az A1 és A2-höz ha mondjuk belekattintok a ZZ88-as cellába 2x, majd ki katt és akkor a csík megmozdul... Ritka hülye ez az Excel.
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
poffsoft
addikt
pl. ezért nemnem az iterálással játszanék.
szerkesztettél egy cellát, így a lap újraszàmolódik.
Delila féle VBA-nàl csak az adott cellád szerkesztésére reagálna...
[ Szerkesztve ]
azopi74
addikt
Egyszerűen megoldható egy IF függvényel, hogy csak akkor kalkulálódjon újra, ha a kritikus cella értéke változik.
De jó, legyen igazatok, tisztább és biztonságosabb érzés Delila VBA-s megoldása.
Carasc0
őstag
Csak lassan a testtel! Hogy is van az az IF függvény? Érdekelne Mester!
Gondolkodj globálisan és tegyél lokálisan!
azopi74
addikt
Ma pihenek, nem vagyok gépnél, de annyit segítek, hogy kelleni fog hozzá egy segédcella, és talán meg kell emelni az iterációk számát 1-ről 2-re
Ha nem sikerül ez alapján, akkor holnap megadom a megoldást
jevi05
újonc
Sziasztok, olyan kérdésem lenne, hogy miért csinálja az excel, hogy nem írja ki a függvény eredményét csak magát a függvényt? (a függvényvaráslónál pedig kiírja a eredményt, azonban a cellákban csak a képlet jelenik meg :/ )
Köszönöm!
Delila_1
Topikgazda
Valószínű, hogy szöveg formátumú a cellád. Ha átállítod általánosra, megszűnik 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.
jevi05
újonc
Átállítottam, de így se írja ki csak a képletet, pedig kiírja hogy szám formátum
Delila_1
Topikgazda
Az átállítás után a szerkesztőlécen újra enterezd le a képletedet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
gdodi
csendes tag
Sziasztok!
Az a problémám, hogy egy csomó lapon kell megcsinálni ugyanazt a kimutatást. Az első 13 oszlopból (A-M) kell ugyanarra a lapra a kimutatás, a 14. oszlop 1. cellájába (N1). A kimutatás megcsinálása nem probléma, de csak laponként tudom elvégezni. Meg lehet oldani ezt valahogy egyszerűbben? Esetleg egy a vizsgált lapról indítható makróval? A lapfülek neve változik, előre nem definiálható.
Előre is köszönöm, ha valaki segít!
poffsoft
addikt
a nézet menüben véletlen nem kapcsoltad át?
[ Szerkesztve ]
Delila_1
Topikgazda
Igen, megoldható.
Rögzíts egy makrót, amin előállítod 1 lapon a kimutatást, majd ezt másold be ide a topikba.
Írd meg, hány lapon kell ezt megismételni, ezek a lapok egymás után vannak-e, vagy van közöttük olyan, ahol nem kell kimutatás.
Az is számít, hogy az egyes lapokon azonos sorszámú-e az A:M tartomány, vagy le kell majd kérdezni az utolsó sort.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Melyik az a függvény, amely összeadja a kijelölt cellákban azt amelyikbe van valamilyen érték? Mindegy, hogy szöveg vagy szám, de nem üres.
Ha van ilyen, mi az angol megfelelője?
Létezik olyan táblázat, amely összehasonlítja a magyar és angol függvényneveket?
Egy kicsit meg lettem lőve. A gépemen angol nyelvű verzió van. Bár gondolom nem árt, ha így is megtanulom, csak el kellene indulni valahonnan.
[ Szerkesztve ]
Delila_1
Topikgazda
Biztosan a darabszám érdekel, nem az összeg, mivel szövegeket nem lehet összegezni.
A függvény a DARAB2, avagy COUNTA.
Itt a segítség a fordításhoz.
[ 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.
Köszönöm szépen a gyors választ. Afüggvény tökéletes, és a táblázat is nagy segítségemre lesz.
Bár a linről letöltve, megnyitásnál ezt írta ki.
A Numbers megnyitotta, majd visszamentettem .xlsx-be, így OK.
Delila_1
Topikgazda
Szívesen.
Végül sikerült.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Carasc0
őstag
A VBA script a legjobb megoldás tényleg! Tökéletesen működik minden. Nagyon sokat segítettetek nekem! Hálás köszönetem mindazoknak akik segítettek! A projektem nem jöhetett volna létre ezek nélkül.
Gondolkodj globálisan és tegyél lokálisan!
Törpella
csendes tag
Sziasztok,
Tudna nekem valaki abban segíteni, hogy miért jelez a VBA Runtime-errort, ha a ComboBoxban kitörlöm ami ott van (kijelölés-Enterrel, Del-lel vagy backspace-szel, teljesen mindegy :/ ) és hogyan lehet ezt orvosolni?
Köszönöm
poffsoft
addikt
a debug nem mutatja, melyik sorban van az érvénytelen név, hivatkozás?
esetleg a vizsgálat előtt tegyél bele ellenőrzést, van-e valami a comboboxban...
[ Szerkesztve ]
[ Szerkesztve ]
Törpella
csendes tag
De igen, mutatja, vlookup függvényre hivatkozik. Az viszont rendesen működik, kivéve, ha kézzel törlöm a comboban levő értéket :/
A tartományban, ahol a függvény keres beszúrtam egy üres sort a tetejére, de asszem nem ez a megoldás
Így vagy ezt a beállítást kellene megtalálnom, hogy ne jelezzen hibát, vagy a kézzel történő belenyúlást tiltani :/ Egyik se megy egyedül
poffsoft
addikt
a vlookup keresett paramétere nem lehet üres.
ezt mondtam, a meghívása előtt ellenőrizd, hogy van-e benne érték.
[ Szerkesztve ]
Törpella
csendes tag
Igen, ez értelemszerűen blokkolt minden továbbit
Köszönöm
Delila_1
Topikgazda
A ComboBox AfterUpdate eseményében az
if combobox="" then exit sub
sor megszünteti a hibára futást törlés esetén.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Törpella
csendes tag
Tökéletes megoldás
Köszönöm
Delila_1
Topikgazda
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
#75654912
törölt tag
Sziasztok,
az egyszerűség kedvéért megosztok egy Excel fájlt amiben leírtam a problémám egy példán keresztül:
https://drive.google.com/file/d/0B0YF0YnBZ0ZlSnZnNkV2RS1fYlU/view?usp=sharing
Röviden: termeléshez kapcsolódó feladat... norma kiíratás. Adott "egy" gyártmány, megmunkálható több berendezésen is (más-más a teljesítménye az egyes gépeknek)
és nekem a megadott géphez tartozó elvárt teljesítményt kellene megtudnom.
Előre is köszönöm a segítséget!
Fferi50
őstag
Szia!
Megpróbálhatnád a SZUMHATÖBB függvényt.
=SZUMHATÖBB($D$10:$D$20;$B$10:$B$20;$B5;$C$10:$C$20;$C5)
Mivel a termék - gép kombináció egyedi, ezért az adott gép - termék kombináció eredménye kerül a cellába.
(Természetesen a tartományokat saját magadra adaptáld - az összegtartomány az, ahol az elvárt teljesítmények vannak, az egyik feltételtartomány az ehhez tartozó termék oszlop, a másik a gépek oszlopa.)
Üdv.
#75654912
törölt tag
Szia,
először is köszönöm, hogy foglalkoztál a feladattal. Biztosan én vagyok a probléma de lenne még kérdésem:
https://drive.google.com/file/d/0B0YF0YnBZ0ZlY19VR2owR05hSms/view?usp=sharing
feltöltöttem újra a fájlt: az értéket az "egyszerűsített adattáblából" választaná ki a függvény és tenné a helyére. Na most ez nekem nem sikerült, megnézed hol írtam el vmelyik kritériumot, tartományt ecetera. Köszönöm.
Fferi50
őstag
Szia!
Az ilyen szerkezetű táblában az INDEX HOL.VAN függvény páros a "nyerő":
=INDEX($G$13:$I$16;HOL.VAN($B5;$G$13:$G$16;0);HOL.VAN($C5&"*";$G$13:$I$13;0))
A SZUMHATÖBB akkor működik, ha a termék és a gép egymás melletti oszlopokban van és mellé van írva a norma, ahogyan az első mintában a lenti táblában volt.
Üdv.
#75654912
törölt tag
Nagyon jó, köszönöm! Működik úgy ahogy szeretném!
gael
tag
Sziasztok!
A következőben kérném a segítségetek: van egy excelben két lap fülem, és azt szeretném ha az egyikbe beszúrok sorokat, a másikba is megtörténjen ugyanoda a sorok beszúrása.
gael
tag
Megtaláltam...
rii
nagyúr
sziasztok
a legújabb excel teljesen más a kinézet, nincs dialógusablak, ctrl-p-re is egy full screen fogad ... töréspontokagt nem lehet kiszedni ...
nem lehet átváltani valami classikus nézetre?
kb. egy új ecxelt meg kell tanulni ...
piros-kapszula: https://www.youtube.com/watch?v=oW-VZVYohRg
KaliJoe
csendes tag
Sziasztok,
Visszatértem... és rögtön egy kérdéssel.
Készítettem egy formot Excel2010-ben. Tartalmaz egy kiegészítést a CalendarManagerPlugin Class nevűt, amiből használtam a MonthView - lásd alább a képen - kontrollt. Ezt a számoló programomat most Office365 alatt (Excel2013-nak mutatkozik be a táblázatkezelő) szeretnék használni. Már betöltéskor reklamál, h nem tudott minden elemet betölteni.
Kérdés: Ki tudja, és aki tudja kérem, mondja meg, hogy Office365 alatt hol lehet megtalálni ezt a bővítményt? Hogy tehetném közvetlenül alkalmassá az ilyen formokat tartalmazó számolótáblámat más környezetben való futtatásra?
Válaszotokat előre is köszönöm.
Ui.: Azt ne válaszoljátok, h keressem meg az azonos Bedolgozó osztályt az Office365-ben, mert kerestem, de ott ilyet nem találtam.
Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)
#20368384
törölt tag
Sziasztok!
Egy viszonylag bonyolult táblázattal való ismétlődő műveletek ültettem át makróra és elakadtam a VBA-an és már mindenhol szétnéztem a válasz után:
Van egy oszlopom, amiben vannak értékek, szeretném a második cellától az utolsóig amiben még vannak adatok kijelölni és művelet csinálni velük.
Range("A2").End(xlDown).Select
Ámde vannak olyan sorok melyek üresek, még mielőtt tényleg véget érne az adott tábla és ott megáll a szkript, illetve csak azt az egy cellát jelöli ki.
1. a végéig kellene, hogy menjen
2. az összeset ki kellene egyben jelölnie
Előre is köszönöm
A többi már megvan, utána egy szöveget számmá alakító szkript jön, azt csak extraként másolom ide:
Selection.Replace What:="Ft", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Dim rng As Range
Dim arr As Variant
Dim i As Long
Set rng = Selection
'removes character 160
'non-breaking space
'from selected cells
If rng.Cells.Count = 1 Then
ReDim arr(1 To 1, 1 To 1)
arr(1, 1) = rng.Value
Else
arr = rng.Value
End If
For i = 1 To UBound(arr, 1)
arr(i, 1) = Replace(arr(i, 1), Chr(160), "")
Next i
rng.Value = arr
For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell
Delila_1
Topikgazda
Próbáld így:
Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Select
A Range("A" & Rows.Count).End(xlUp).Row adja az A oszlop utolsó sorát.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
csongi
veterán
Van egy ilyen kis rövidke függvényem.
=HA(ÉS($D$11>=280;$D$11<=500;VAGY($E$6="Nyíló bal";$E$6="Nyíló jobb";$E$6="Kfny_Bkny_bal";$E$6="Kfny_Bkny_jobb";$E$6="kfny_ny_bal";$E$6="kfny_ny_jobb"));1;0)*$F$6
Azt szeretném, hogy ha a függvényből ez a két feltétel teljesül $E$6="kfny_ny_bal";$E$6="kfny_ny_jobb"));1;0)
, akkor ne 1 legyen a végeredmény hanem 2
#20368384
törölt tag
WoW! Hatalmas köszönet!
Még csak most kezdem ismerkedni a VBA-val, de akkor ezek szerint egymásba lehet ágyazni az utasításokat zárójelekkel, úgy, mint excelben... szuper
Törpella
csendes tag
Sziasztok,
Tudna valaki egy életmentő segítséget adni? Lehet, hogy van megoldás Excelben is és nem kell VBA, de nem jöttem rá...
Van egy táblázatom, sacc 130 oszlop és 1000 sor. A oszlopban tömény szöveg cellánként, B oszloptól az oszlopnevek azokat a kulcsszavakat tartalmazzák, amiket az A oszlop celláiban keresek. Minden egyes eredményt 1 jelöl.
Eddig simán ment minden, de nem tudom kigyűjteni, hogy melyik szöveghez mely kulcsszó tartozik, mert van olyan sor, ahol több darab találat is van (vagyis a szövegben több kulcsszó van).
Akár Excel akár VBA adná a megoldást, nem sikerült rájönnöm :/
Valaki ötlet...?
Mai Hardverapró hirdetések
prémium kategóriában
- EDIFIER R1700BTS hangfal pár makulátlan, új állapotban, 2 év hivatalos garanciával, alkalmi áron
- LG OLED55B23LA 2 Év GYÁRI GARANCIA
- Apple iPhone XR 128GB, Kártyafüggetlen, 1 Év Garanciával
- Gamer PC , i7 12700KF , RTX 3080 Ti , 64GB DDR5 , 960GB NVME , 1TB HDD
- Intel PC , i5 8500 , 1660 6GB , 32GB DDR4 , 512GB NVME , 500GB HDD