-
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
-
ROBOTER
addikt
Szia!
Továbbra is gondom van ezzel az implicit intersectionnel.
Időnként hibát dob, nem tudom elkapni/beazonosítani az okot.
Létrehozok egy sheetet, történik rajta egy esemény (az első oszlopban kiválasztok egy elemet egy listából), ekkor jön ez a sor:
Range("KÖLTSÉG").Cells(rowID, 1).Formula = "=EGYSÉGÁR*MENNYISÉG"
Application-defined or object-defined error jön a fenti sorra, majd az Excel bezáródik és újraindul Majd kitöltök utána 10 sort alá, és tökéletesen működik, sőt az első sornál ha újra meghívódik a képlet beíró Sub, az is működik.
Ki lehet kerülni? Lehet úgy képletet tölteni a formula tulajdonságba, hogy az névvel ellátott oszlopokra hivatkozik, de tartalmaz sor-koordinátát? Vagy maradhatna, de mi lehet a gond?
-
zsolti_20
senior tag
-
zsolti_20
senior tag
Szia, Azta... Ez valahol az excel istenszint környékén van. Az én megoldásommal kb 40-50 perc volt 30 ezer sor közül kikeresni a dolgokat. Ezzel pedig kevesebb mint 1 perc. Rettentő gyors, rugalmas a megoldás amit kitaláltál. Minden tiszteletem ezért. Ha bármi változó van, akár egy új lista vagy másra kell szűrőt használni, mindenhogy megfelel. Ez az amit szerettem volna kezdetek óta. Eddig fogalmam sem volt, hogy lehetséges ilyesmi.
Fferi50:
Neked is nagyon szépen köszönöm a segítséget. Még nem volt időm tesztelni amit kaptam tőled, de este megnézem és össze hasonlítom melyik megoldást lenne a megfelelőbb ehhez a dologhoz.
Köszönöm szépen a sok segítséget! Hihetetlen hogy milyen magas szinten álltok ebben. -
-
zeeland66
tag
Szia, nincs jelenleg táblázat mivel nem sikerült még megoldanom. De csatolom a a képet amin látható, hogy miként szeretném megoldani. Előre is köszönök minden segítséget.
Szóval a példa kedvéért: 500 Ft egy szappan(de lehetne bármi más is) eladok belőle 3 db-ot, beírom az A3-ba, a C3-ban megjelenik a 3 db eladott szappan után a bevétel összege.A D3-ban logikusan a C3 értéke jelenik meg. Fél óra múlva ( vagy holnap) eladok még 5 db szappant. Az A3-ba beírom ismét a 5 db-ot. A C3-nak 2500 lesz az értéke, a D3-nak meg 1500+2500 vagyis 4000 lenne , ha működne és így tovább.
[ Szerkesztve ]
-
Guitar14
senior tag
Kipróbáltam a /x kapcsolót és semmi változás nincs, altal pedig csak megnyílik a tulajdonságok panel az exe-ről. Ugyanúgy egy ablakosban fut és ha bekapcsolom a DDE-t akkor magában megnyílik az excel de ha PL total commanderből nyitnék meg egy fájlt akkir a fentebb írt hibaüzenet jelenik meg.
Stick around. I'm full of bad ideas. - Isaac Clarke | Xbox:GuitarXIV | PS:guitarxiv
-
adDis
csendes tag
Sziasztok!
Nagyon szépen köszönöm lappy [link] és Fferi50 [link] tippeit is, egyelőre Mutt [link] javaslatát próbáltam ki és remekül működik!
(Jut eszembe, régen át tudtam írni ezt a link szócskát is bármire, most azt sem látom már , hogyan kellene )Most "már csak" azt kellene még beépíteni valahogy ebbe a képletbe, hogy ugyanezt a 3 vizsgálatot (A=1, A=2 és A=3 esetét) akkor is végezze el, ha van mondjuk van még előtte két olyan kritérumtartomány (legyen X és Y) amely között egyébként mindig ÉS kapcsolat van.
Azaz, ha pl.:
X=1 és Y=1 és A=1, akkor a C mező értékeit adja össze +
X=1 és Y=1 és A=2 akkor a D mező értékeit adja össze +
X=1 és Y=1 és A=3 akkor a C-t szorozza D-vel.Azért nem reagáltam még eddig, mert ezen ügyködöm most, h valahogy belerakjam
üdv[ Szerkesztve ]
-
Zenebohoc
tag
Bocs a megkésett válaszért. Megpróbáltam mindent.
Nem vezettek eredményre mit írtál. Végül el kezdtem kitörölgetni egyenként a lapokat és közben próbálgattam a makrót. Tegnap ki is bukott egy hibás lap a fájlban, melyben volt néhány hivatkozás, egy grafikon, de nem ezek voltak a bűnösök. Az egész lapot törölnöm kellett és akkor gyorsult vissza a makró.
Ma gondoltam folytatom tovább és elemzem ezt a hibás lapot a fájlban. Sajnos nem vezetett eredményre, már törlést követően sem javult a helyzet.
Feladtam.
Marad a fájl bezárása, makró futtatás a másik fájlban, majd visszanyitás és adatmásolás.
Köszi még egyszer a segítséget!Nincs szebb, mint mikor az alázat csendje zenére lázad....(LGT)
-
mulli86
tag
Szia,
1- ok
2- ok
3- amint látod a mintát a hibakódok számot és szöveget is tartalmaznak azért a variant.
4-5 ha látod a teljeses progit, láthatod hogy kell-e szerintünk oda kell rakni, de hát logikai felfogás kérdés ki hogy írja meg a programot asszem
6. Úgy rémlett hogy tettünk bele ilyet, de úgy látom mégse, csak akartunk.Egyébb észrevétel így hogy átlátjátok?
Egyébként nem találtam infót róla, mi az a karakter, amivel inaktívvá lehet tenni a két karakter közé zárt szövegrészt. C++-ban ez a {} volt. Itt micsoda?
Jobb félni, mint áldozatául esni egy hirtelen Ninja támadásnak!
-
pentium4
senior tag
Sziasztok,
Az alábbi feladatot hogy tudnám megoldani:
A 2. sorban egy másik tábláról kerülnek beolvasásra az adatok, ha függvénnyel, ha a másik lapon pl PÁRIZS van akkor 'p' betüt ir ezen a lapon, azt kéne megoldani, ha 2db nál több 'p' van akkor a 'p' helyett 'n' betű legyen az eredmény, és a p számolását a sor elejéről kell kezdeni, vagyis ebben a példában az első 2 marad 'p' nek, és a többinek 'n'-nek kéne lennie.
KösziP4
-
szricsi_0917
tag
Szia
Köszönöm a segítséget, nem gondoltam volna, hogy a VBA nem tudja kezelni a MAX képlettel.
Sajnos én olyan verziót használok amiben nincs MAXHA függvény pedig már rég kész lenne.
AB.MAX-ot vagy kimutatást azért nem akartam, mert ez egy userformhoz tartozik és ezután még lesz pár számítás így az csak plusz lépés lett volna és nem tudom mennyire lenne lassabb mikor már több ezer sor van, a másik pedig, hogy így elegánsabb. -
szricsi_0917
tag
Szia
Sub kmfrissites_auto()
Dim auto As Worksheet
Dim utnyilvan As Worksheet
Dim szerviz As Worksheet
Dim lastrow
Dim lastrow1
Dim lastrow2
Dim i As Long
Dim a As Long
Dim vMax As Double
Dim xMax As Double
'On Error GoTo kmfrissites_auto_Error
Set auto = Sheets("Autó")
Set utnyilvan = Sheets("Útnyilvántartó")
Set szerviz = Sheets("Szerviznyilvántartó")
lastrow = auto.Cells(Rows.Count, 1).End(xlUp).Row
lastrow1 = utnyilvan.Cells(Rows.Count, 1).End(xlUp).Row
lastrow2 = szerviz.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
For a = 10 To 21
auto.Range("V" & i) = Evaluate("=SumProduct(Max((Szerviznyilvántartó!B2:B" & lastrow2 & " = Autó!B" & i & ") * (INDIRECT(""'Szerviznyilvántartó'!"" & address(2," & a & ",4) & "":"" & INDIRECT(address(" & lastrow2 & "," & a & ",4)) = ""Motorolajcsere"") * Szerviznyilvántartó!G2:G" & lastrow2 & "))")Átalakítottam az általad javasolt megoldásra viszont újabb probléma merült fel.
Több feltételt szeretnék hozzárakni. A probléma, hogy a 2. feltétel más méretű tömb mint a többi így ugye hibára fut a képlet.
For ciklussal oldottam meg, hogy a 2. feltételnél oszloponként megy újra végig és mindig az utolsó legnagyobb értéket hagyja meg így a végén megkapom majd a maximum értéket.
A probléma, hogy az indirect megoldással mindig érték hibára fut. Mi lehet a probléma?[ Szerkesztve ]
-
-
mckay
aktív tag
Mutt,
zseniális! És ez már az a szint, amit nem is értek.
Ahogy az előző hozzászóló írta: elképesztő!
Ha estig gugliztam és próbálkoztam volna, ezt a tömbképletet akkor sem hozom össze!
És működik!
Persze, megpróbálom felfogni, de még a rácsodálkozásnál tartok, és teszem át a valódi táblába.
És máris kérdésem van... :-)
Az van a függvényben, hogyC$2:C$100=igen
Ezt hogyan lenne elegáns módosítani, ha nekem a valóságban több ezer sorom van? Írjak be egy nagy számot, hogy mindig elég legyen?[ Szerkesztve ]
-
csferke
senior tag
Szia Mutt!
Csak most jutottam oda, hogy megnézzem amit küldtél. Sajna nem boldogulok vele.
Eddig így használtam. Az E19-be csak 1-2 féle adatot kellet bevinni és azt is csak pár szavat.Range("E19").Select
Default = ActiveCell.Value
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
ActiveCell = MyValueMivel időközben az E19 cellába írandók igencsak kibővültek és hosszabbak is lettek azt szeretném elérni, hogy egy legördülő listából (AC1:AC12) válasszam ki a fix részt. Azonban ehhez a fix-hez többször még hozzá is kellene fűzni valami szöveget.
Az AC1:AC12 listából egy Form-al kérném az adatot BeviteliForm.Show de így mindjárt beírja a kiválasztott fix részt és nem tudok hozzáírni.
Valahogy/valahol itt be szeretnék kérni/írni szöveg-et is InputBox-al és a végén
ActiveCell = MyValue & " " & szovegköszi
-
-
csferke
senior tag
Szia.
Siker
2. Ha igen, akkor kell egy szövegdoboz a formra, ahova tudja a felhasználó a szöveget gépelni és ezek után lehet visszamenteni az összefúzött szöveget a lapra.
Ezt a megoldást nem tudom használni mert a kérdéses Form-ot több helyen is használom. Úgymond egy univerzális Form. Nem volt kedvem minden egyes bevitelre külön-külön Form-ot készíteni
Ezt megcsinálod a mutatott makrórészlet előtt, majd jöhet amit mutattál. Ezzel a cella értéke a kiválasztott lesz - mivel pedig ezt használod Defaultként, az Inputboxban hozzá tudod írni a szükséges részt.
Így összejött és működik.Köszönöm
-
Mutt
aktív tag
Annyi pontosítás, hogy ahogy nézem a sort könnyebben el lehet érni, vagyis a a kód rövidebb tud lenni.
illetve annyit finomítottam, hogy csak akkor frissít ha a linkedcell értéke nem jó.
Sub UpdateLinkedCells()
Dim sp As Shape
Dim rng As Range
Const sorEltol As Long = 0
Const oszlopEltol As Long = 7
For Each sp In ActiveSheet.Shapes
'az aktív lapon talált objektumok közül csak a jelölőnégyzeteket keressük meg
'hiba esetén menjünk tovább
On Error Resume Next
If sp.DrawingObject.progID Like "*CheckBox*" Then
'a jelőlőnégyzet a TopLeftCell.Column oszlopban található, a sort pedig TopLeftCell.Row adja meg
'a sor és oszlop azonosítókat csal akkor toljuk el a megadott értékkel ha ráférnek még a lapra
If sp.TopLeftCell.Row + sorEltol <= Rows.Count And sp.TopLeftCell.Column + oszlopEltol <= Columns.Count Then
Set rng = Cells(sp.TopLeftCell.Row + sorEltol, sp.TopLeftCell.Column + oszlopEltol)
'frissítsünk ha az új hely máshol van
If Intersect(rng, ActiveSheet.Range(sp.DrawingObject.LinkedCell)) Is Nothing Then
'mentsük át az új helyre az eddigi értéket
rng = ActiveSheet.Range(sp.DrawingObject.LinkedCell)
'töröljük a korábbi hely tartalmát
ActiveSheet.Range(sp.DrawingObject.LinkedCell).ClearContents
'linkeljük be az újat
sp.DrawingObject.LinkedCell = rng.Address
End If
End If
End If
On Error GoTo 0
Next sp
End SubA tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Slowman
aktív tag
Szia,
Köszi a választ. A kimutatást táblázat formázás megtartását azt megtaláltam Microsoft support leírás alapján, de ez nem oldott a meg a teljes gondot csak az, hogy nem ugrál az oszlop minden frissítésénél/szeletelő használatnál.
A probléma a kimutatásdiagram formázásával van. Sajnos a diagram veszíti el a formátumot nem a táblázat. Az összes beállított adatfelirat szín stb.
Készítettem sablont, hogy ha ezt csinálja egy mozdulattal betöltsem, de azt meg valamiért nem tolerálja a gép 100% produkálja a hibát ha a sablont betöltöm bezárja az excelt azonnal. -
Slowman
aktív tag
Szia,
gyakorlatilag minden olyan beállítás/formázás amit egyénileg állítok be. Tehát adat feliratok/diagramcím legyen vagy ne, szín stb.
Amit itt kvázi beállítok:
Ebből a legbosszantóbb az adatfelirat, mert minden egyes szeletelő használatnál a kördiagram feliratai elvesznek és fogalmad sincs mi az és mekkora értéket képvisel, holott előtte beállítottam, hogy legyen százalékos érték és kategórianeve minden cikknek. -
karlkani
aktív tag
Szia!
Majdnem jó, de az Ünnepnapok között nem csak az adott év szerepel, így az összes azonos hónap, hétköznapra eső ünnepnapjait összegzi. Átírtam a következőképp a képletet, látszólag működik is. Jó így?
=SZORZATÖSSZEG((HÉT.NAPJA(Ünnepnapok;11)<6)*(ÉV(Ünnepnapok)=ÉV(C$szám)*(HÓNAP(Ünnepnapok)=HÓNAP(C$szám))))
Új hozzászólás Aktív témák
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Canva Pro előfizetés - 1 éves
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Norton 360 Prémium 1 éves előfizetés 10 eszköz 75GB
- Eladó bontatlan Fallout S.P.E.C.I.A.L. Anthology
- Keresem ARK: Survival Ascended (PC) játékot.
- GameStar / PC Guru játékmellékletek tokkal és borítóval 500Ft/db
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen