Keresés

Részletes keresés

Törölt nick Creative Commons License 2007.02.06 0 0 5000
bakker... :)
Koszonom
Fogalmam sincs holhogyan irtam at az 1-et l-re (ott szinte egyformak)
Előzmény: Törölt nick (4999)
Törölt nick Creative Commons License 2007.02.06 0 0 4999
Criterial helyett próbálj meg Criteria1 -et írni.
Előzmény: Törölt nick (4998)
Törölt nick Creative Commons License 2007.02.06 0 0 4998
ezt próbáltam, de azt gondoltam, hogy nem jó, mert kiakad futás közben, valószínűleg nem illik ebbe a környezetbe:


Selection.AutoFilter Field:=ActiveCell.Column, Criterial:=ActiveCell.Value

(A cél az volt, hogy az aktív cella értékét kiválassza az autoszűrő)

csak hangosan gondolkodva, lehetséges, hogy a Field után kizárólag számot lehet megadni? Próbáltam változóval, de azt sem engedi)
Ámbár ha a kritikus ActiveCell.Comumn fölé viszem a kurzort soronkénti futtatásnál, ki is írja az értékét...

...tapogatózom mint vak a sötétben...

Előzmény: Törölt nick (4997)
Törölt nick Creative Commons License 2007.02.06 0 0 4997

 

aktiv cella oszlopának száma: ActiveCell.Column

 

A count azt mondja meg hány oszlopa vagy sora van mondjuk az éppen kijelölt tartománynak, az aktív cellának nyilván egy lenne:

Selection.Columns.Count

Előzmény: Törölt nick (4996)
Törölt nick Creative Commons License 2007.02.06 0 0 4996
elvileg a ActiveCell.Columns.Count lenne az - de így beágyazva nem eszi meg:

Selection.AutoFilter Field:=ActiveCell.Columns.Count, Criterial:=ActiveCell.Value
Előzmény: Törölt nick (4995)
Törölt nick Creative Commons License 2007.02.06 0 0 4995
bocs,
es azt, hogy az aktiv cella oszlopanak a szama?
kiserletezgetek...
Előzmény: Törölt nick (4994)
Törölt nick Creative Commons License 2007.02.01 0 0 4994

Pl.

...

Dim b as range

Range("A1").EntireRow.Hidden = True

 

For Each b In Range("A1:B10")

 If b.EntireColumn.Hidden Or b.EntireRow.Hidden Then '.....

next

 

....

Előzmény: Törölt nick (4993)
Törölt nick Creative Commons License 2007.02.01 0 0 4993
hogy lehetne azt definialni egy makroban, hogy:

Ha van rejtett cella(Sor v. oszlop, szürt tartomany, stb)
(talán :Selection.EntireRow.Hidden = True?)

Akkor

Minden latszik
(ActiveSheet.ShowAllData)


Ha nincs rejtett cella,
Akkor
Nem történik semmi


Az a gondom, hogy beillesztettem egy makroba a "ActiveSheet.ShowAllData" sort,
de kiakad, ha nincs rejtett (v. szűréssel rejtett) sor (esetlegoszlop)
(Mert ugyebár ilyenkor az "adatok/szűrő/minden látszik menüpont" is inaktív...)
terra700 Creative Commons License 2007.02.01 0 0 4992

Sztár született, és végre működik!

 

HÁLÁS KÖSZÖNETEM. Tapsot mindenkitől.

 

Megyek és leiszom magam. Jővök eggyel!

Előzmény: Törölt nick (4991)
Törölt nick Creative Commons License 2007.02.01 0 0 4991
Jól adtad meg a tartományokat? Ha kimarad két oszlop, akkor az osszegzendő tartomány két oszloppal arrébb van mint eredetileg, külön megadható mind a keresési, mint az összegzési tartomány.
Előzmény: terra700 (4990)
terra700 Creative Commons License 2007.02.01 0 0 4990

Ezaz, MŰKÖDIK!

 

Egy utolsó kérdés/kérés! A táblázat tervezése sajnálatos körülmények miatt úgy alakult, hogy az azonosító szám és az összeadandó számok között 2 oszlop kimarad és szöveg lesz ott. Ahogy teszteltem, kipróbáltam ezt is és nem működött megfelelően. Meg lehet azt oldani, hogy az azonosítószámtól számított, vele egy sorban lévő 2 oszlopnyi részt, szöveget, számot ne vegye figyelembe csak az azutáni részt?

Előzmény: Törölt nick (4989)
Törölt nick Creative Commons License 2007.02.01 0 0 4989
Igen.
Előzmény: terra700 (4988)
terra700 Creative Commons License 2007.02.01 0 0 4988
Akkor amit küldtél, az a lenti elv alapján működik??? Még nem teszteltem!
Előzmény: terra700 (4987)
terra700 Creative Commons License 2007.02.01 0 0 4987
Ez megvalósítható?
Előzmény: terra700 (4986)
terra700 Creative Commons License 2007.02.01 0 0 4986

Akkor véglegesítve, hogy a függvénynek hogyan is kéne működnie.

 

A függvénynek tudnia kéne:

 

- egyszerre 31 lapon egyidejüleg működni

- a #HIÁNYZIK értéket ne vegye figyelembe (vagyis ne akadjon ki rajta)

- A 31 db azonos lap egy előre meghatározott oszlopában keresse a függvénynek megadott számot (pl.: 10211)

- A 31 db azonos lap egy előre meghatározott cellatartományában (pl: C1:D20) lévő (utólag beírt) számokat adja össze.

- És végül csak a keresett szám sorában lévő számokat adja össze (de csak az előre meghatározott oszlopokban, fenti példa alapján a C és D oszlopban lévőben számokat, az E-ben lévőt nem.)

 

- Előfordulhat:

 

     - hogy egy lapon nincs a keresett szám

     - hogy egy lapon kettő, vagy annál többször van a keresett szám (pl.: 4 sorban

       is van 10211, akkor ezekben is össze kell adni a számokat)

     - hogy, a 31 db azonos lap nem mindegyikében ugyan ott van ugyan az az

       azonosító szám

 

Példával:

 

Mivel fentről lefelé folyamatosan lesznek feltőltve a kombi panelok, ezért nem biztos hogy egy termék azonosítója egy helyre (sorba) kerül 2 adat lapon/munkalapon.

 

4-es munkalap:

 

          A

1     10211

2     10213

3     10211

4     10218

5     10222

 

 

5-ös munkalap:

 

          A

1     10216

2     10213

3     10218

4     10211

5     #HIÁNYZIK

 

Ez mind, aminek örülnék, ha tudná a függvény.

 

 

Előzmény: Törölt nick (4985)
Törölt nick Creative Commons License 2007.02.01 0 0 4985
Persze át lehet írni úgy is, hogy csak azt vegye be az összegbe ahol stimmel az az onosító. De azt írtad korábban hogy olyan sorban is összegezzen, ahol valamelyik lapon megtalálta ugyan az azonosítót ebben sorban, de egy másik lapon ebben a sorban nincs kiválasztva semmi. Ha viszont ellentmondó az azonosító megadás azaz eltérő lapokon ugyanazon sorban eltérő azonosítók vannak megadva , akkor az ilyen sorokkal nem egyértelmű hogy mit kell csinálni. Át kell gondolnod.
Előzmény: terra700 (4984)
terra700 Creative Commons License 2007.02.01 0 0 4984
Nem lehetne, hogy csak egyszerűen a keresett és megtalált azonosító sorában lévő számokat adja össze a meghatározott oszlopokig, persze úgy, hogy az azonosítók elhelyezkedése leponként eltérhet?
Előzmény: Törölt nick (4983)
Törölt nick Creative Commons License 2007.02.01 0 0 4983
Megnéztem, a küldött fájlt. a 19-es sorban ellentmondó a megadás, mert az egyiken lapon  a 19 -es sorban A a másikon B van álasztva. Az a kérdés ilyenkor mit kéne szerinted csinálni a függvénynek?
Előzmény: terra700 (4982)
terra700 Creative Commons License 2007.02.01 0 0 4982
Ok, majd holnap. Későn vettem észre, amit írtál. Betettem és számol, de van más probléma, elküldtem. Jó éjt.
Előzmény: Törölt nick (4981)
Törölt nick Creative Commons License 2007.01.31 0 0 4981
De ha az  a gond, hogy nagyon lelassítja az automatikus újraszámolás akkor módosítani kell, pl. egy gombra számolja. De ezt már csak holnap.
Előzmény: Törölt nick (4980)
Törölt nick Creative Commons License 2007.01.31 0 0 4980
Most akkor mi is a gond?  Újraszámolja automatikusan, ha módosul valami, vagy ez éppen nem jó? Ha beteszed az  Application.volatile -t akkor automatikusan mindig újraszámolja.
Előzmény: terra700 (4979)
terra700 Creative Commons License 2007.01.31 0 0 4979
Amúgy így nagyon jó lesz. Megnéztem a küldütt filet. Pont erre gondoltam, már csak ezt a fránya újraszámolást kéne valahogy kiküszöbölni.
Előzmény: terra700 (4978)
terra700 Creative Commons License 2007.01.31 0 0 4978
Nem lehet a függvénynek egy olyan parancsot adni, hogy számoljon újra bizonyos ciklusonként. Pl.: minden másodpercben. Vagy ez nagyon lassítaná?
Előzmény: terra700 (4976)
Törölt nick Creative Commons License 2007.01.31 0 0 4977

Megvan, kimaradt valami a programból: írd be a függvénybe pl. az on error goto hiba sor után:

Application.Volatile

Előzmény: terra700 (4973)
terra700 Creative Commons License 2007.01.31 0 0 4976
Köszönöm
Előzmény: Törölt nick (4975)
Törölt nick Creative Commons License 2007.01.31 0 0 4975
Valamiért nem számolja automatikusan újra, de ha belekattintasz a függvénybe enterezel átszámolja, de persze nem ez igazimegoldás. Majd holnap megnézem.
Előzmény: terra700 (4973)
Törölt nick Creative Commons License 2007.01.31 0 0 4974

De hát az egyszerű. Pl. a küldött munkafüzetben az A lapon, a  D5-ös cellába

=osszegzo(10212;D8:D27;E8:J27;4;8) kerüljön, ekkor a hűtötteket összegzi itt, a fagyasztottakhoz E%-be is értelemszerűen megadni a függvényt a megfeleő összegzési tartománnyal.... stb. Az ÖSSZ-be meg pedig egy sum függvény kell. Én nem néztem olyan részletesen a példát azért írtam rossz helyre a fügvényt. 

Előzmény: terra700 (4972)
terra700 Creative Commons License 2007.01.31 0 0 4973

Beírtam modulba, megírtam a függvényt. Kiszámolta, de ha a függvény megírása után beírok a megcímezett oszlopba egy számot (a megcímezett azonosító számhoz tartozó sorba), akkor nem adja hozzá az ÖSSZEGZŐ függvény. Vagyis hiába helyezem el előre a függvényeket, ha utána lesz kitöltve a táblázat, akkor nem számol.

Előzmény: terra700 (4972)
terra700 Creative Commons License 2007.01.31 0 0 4972
Ok működik. Ott hibáztam, hogy a függvény 3. adatánál több oszlopot is megadtam (C1:D20). Tehát, amit írtál az jó, és működik, de ahogy az általam küldött (e-mail) táblázatban is láthatod, 3 "részre" van osztva a beviteli tábla.  Vagyis az oszloponkéni összeadás még nem az igazi.
Előzmény: Törölt nick (4971)
Törölt nick Creative Commons License 2007.01.31 0 0 4971
Ez a megoldás azt feltételezi, hogy a figyelembe vett munkalapokon azonos helyen vannak az összegzendő tartományok, én így értettem a feladatot.
Előzmény: Törölt nick (4970)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!