- Milyen billentyűzetet vegyek?
- AMD Navi Radeon™ RX 9xxx sorozat
- Fokozatosan erősít majd a szerverpiacon az Intel
- Projektor topic
- Kiterjesztett valóság ASUS ROG és XREAL recept szerint
- A Linux megnégyszerezte magát a Steamen — a Microsoft ismét ígérget
- Apple MacBook
- Apple asztali gépek
- Azonnali informatikai kérdések órája
- Milyen monitort vegyek?
-
PROHARDVER!
PROHARDVER!
Új hozzászólás Aktív témák
-
Fire/SOUL/CD
félisten
-
-
-
biker
nagyúr
nem... munkalap
de a feladat ugyanaz. -
Fire/SOUL/CD
félisten
megint lenne egy extra kérésem
"a" űrlap o2 mezőjébe szeretném a "b" űrlap l2 és g2 mzőinek szövegét +egy megadott szoveget hivatkozva beilleszteni, és persze másolni amennyiszer kell
tehát ha b.l2=teszt, b.g2=uzenet és default text=lenne
akkor az a.o2=teszt uzenet lenne
Hali!
Tuti hogy űrlap? Ha igen, akkor képet róla...
Fire.
-
köszönöm!
Ez az indirekt függvény működik úgy is hogy nem kell megnyittatnom a hivatkozott munkafüzetet, vagy pedig mindenképp meg kell nyitnom?
leírom inkább miről lenne szó konkrétan: van egy lista fájlnevekkel, ezek közül amit kiválasztok az lenne az adatbázis, abból szeretnék adatokat elérni. -
Fire/SOUL/CD
félisten
-
perfag
aktív tag
Közben megoldottam.
Az azért érdekelne, hogy mi is a pontos különbség Select és Activate metódus között.
-
m.zmrzlina
senior tag
Olyan mintha valamelyik .Select vagy a Selection.ClearContents felülírná a vágólap tartalmát.
Hogyan lehetne lekezelni ezt a problémát úgy hogy ha nem muszáj nem szeretnék formot tenni a munkalapra?
-
m.zmrzlina
senior tag
Egy excel munkalapra szeretném beilleszteni a vágólap tartalmát a következő parancssorral
Sheets("Munka1").Select
Range("A1:O1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
ActiveSheet.PasteMűködik is a dolog abban az esetben ha a vágólapra másolás nem excelből történik. Azonban ha a vágólap tartalma egy másik excel munkalapról kerül a vágólapra akkor a program "Run-time error 1004 A worksheet osztály Paste metódusa hibás" hibaüzenettel elszáll.
Ilyenkor ha megnézem a vágólap tartalmát az nem üres de jobb klikkre a Beillesztés menüpont inaktív, mintha nem lett volna előtte kijelölve semmi. Pedig nagyon is ki lett.
-
m.zmrzlina
senior tag
-
Fire/SOUL/CD
félisten
-
Styleboy
tag
Köszi a segítséget. Valahogy ez 2003ban nem akart működni,de a 2007ben jó.
Ezer hálám.
-
m.zmrzlina
senior tag
Hali mindenkinek.
Egy olyan problémám lenne, hogy mikor felírom egy derékszögű háromszög cosinus szögé a befogó és az átfogó hányadosával akkor eböl szeretnék szöget számítani. De egyszerűen nem találok hozzá függvényt.Olyasmire gondolok mint a számológépen a cos-1.-ön
Pl. adott hogy 3/5= CosAlfa=0,6, na és ebből szeretném megtudni, hogy mennyi az Alfa?
(2003as excel, de ha nincs más a 2007es magyarázat is jöhet,csak azt nem szeretni.Válaszotokat előre is köszönöm.. Remélem tudtok segíteni.
-
m.zmrzlina
senior tag
Hali mindenkinek.
Egy olyan problémám lenne, hogy mikor felírom egy derékszögű háromszög cosinus szögé a befogó és az átfogó hányadosával akkor eböl szeretnék szöget számítani. De egyszerűen nem találok hozzá függvényt.Olyasmire gondolok mint a számológépen a cos-1.-ön
Pl. adott hogy 3/5= CosAlfa=0,6, na és ebből szeretném megtudni, hogy mennyi az Alfa?
(2003as excel, de ha nincs más a 2007es magyarázat is jöhet,csak azt nem szeretni.Válaszotokat előre is köszönöm.. Remélem tudtok segíteni.
-
Fire/SOUL/CD
félisten
-
lackatwo
csendes tag
Hali!
ThisWorkbook.Path vagy
ActiveWorkbook.PathEgy üres és még el nem mentett munkafüzetnél a PATH is üres természetesen...
Fire.
-
Styleboy
tag
Hali mindenkinek.
Egy olyan problémám lenne, hogy mikor felírom egy derékszögű háromszög cosinus szögé a befogó és az átfogó hányadosával akkor eböl szeretnék szöget számítani. De egyszerűen nem találok hozzá függvényt.Olyasmire gondolok mint a számológépen a cos-1.-ön
Pl. adott hogy 3/5= CosAlfa=0,6, na és ebből szeretném megtudni, hogy mennyi az Alfa?
(2003as excel, de ha nincs más a 2007es magyarázat is jöhet,csak azt nem szeretni.Válaszotokat előre is köszönöm.. Remélem tudtok segíteni.
-
lackatwo
csendes tag
Hali!
ThisWorkbook.Path vagy
ActiveWorkbook.PathEgy üres és még el nem mentett munkafüzetnél a PATH is üres természetesen...
Fire.
Koszi, megproszalom a ket meccs ugyis pocsekul all
-
Fire/SOUL/CD
félisten
-
Fire/SOUL/CD
félisten
Értem én ezt valóban frappánsabb megoldás mint az enyém de ez sajnos nem oldja meg a tizedeselválasztó problémáját. Továbbra is #VALUE hibakódot ad a képlet olyan a gépen aminél "." az elválasztó ha benne hagyom a "." "," cserét.
Köszönöm
-
m.zmrzlina
senior tag
-
Delila_1
veterán
Értem én ezt valóban frappánsabb megoldás mint az enyém de ez sajnos nem oldja meg a tizedeselválasztó problémáját. Továbbra is #VALUE hibakódot ad a képlet olyan a gépen aminél "." az elválasztó ha benne hagyom a "." "," cserét.
Köszönöm
Írj egy makrót a cserére, tegyél ki hozzá egy gombot. Amelyik gépen szükség van a cserére, megnyomják, a másikon nem.
A másik fórumon, ahol feltetted ezt a kérdést, már leírtam ugyanezt az választ.
-
m.zmrzlina
senior tag
Hali!
Átírtam a már majdnem jó megoldásod, itt A1-ben van a 12:34 (12.34 %)
=HELYETTE(KÖZÉP(A1;SZÖVEG.KERES("(";A1)+1;SZÖVEG.KERES("%";A1)-SZÖVEG.KERES("(";A1)-2);".";",")*1
Az egyetlen fontos dolog, hogy a százalékos értéknek minden cellában egy szóköz és % jel kövesse, tehát ahogy a példádban is van:
12:34 (12.34szóközszázalék)Fire.
-
Fire/SOUL/CD
félisten
Bocs közben átírtam a hsz-t. Az újban már látszik, hogy hogyan csinálom a darabolást
-
m.zmrzlina
senior tag
Hali!
"Csak mert nagyon nem így van."
Nem is írtam, épp azt írtam, hogy ha az egy cella tartalma, akkor az szöveg.
A cella tartalmát fel lehet dolgozni, adott esetben makró nélkül is, persze ehhez tisztában kell lenni, hogy azok a cellák milyen tartalmakat vehetnek fel. Pl példádnál maradva12:34 (12.34 %)
34:56 (34.56 %)
123:456 (56.78 %)Ebben az esetben a százalék értékek makró nélkül is kiszedhetőek és számmá alakíthatóak (százalékká is)
Ha ennél változatosabbak a cellatartalmak, nem ennyire kötöttek, akkor makró(de akkor sem biztos, csak tudni kellene, hogy mégis milyen tartalmak vannak a cellában)Szerk
Akkor inkább azt kérném, hogy pár cellatartalmat adj meg, meg azt, hogy mit szeretnél csinálni(nem képlet érdekel, hanem feladatleírás). Így látnám mi a probléma...Fire.
UI: Mellesleg ha kijelölnéd az összes ilyen cellát és egy sima csere segítségével lecserélnéd a pontot vesszőre már az is megoldást jelenthetne...
-
m.zmrzlina
senior tag
Hali!
"Csak mert nagyon nem így van."
Nem is írtam, épp azt írtam, hogy ha az egy cella tartalma, akkor az szöveg.
A cella tartalmát fel lehet dolgozni, adott esetben makró nélkül is, persze ehhez tisztában kell lenni, hogy azok a cellák milyen tartalmakat vehetnek fel. Pl példádnál maradva12:34 (12.34 %)
34:56 (34.56 %)
123:456 (56.78 %)Ebben az esetben a százalék értékek makró nélkül is kiszedhetőek és számmá alakíthatóak (százalékká is)
Ha ennél változatosabbak a cellatartalmak, nem ennyire kötöttek, akkor makró(de akkor sem biztos, csak tudni kellene, hogy mégis milyen tartalmak vannak a cellában)Szerk
Akkor inkább azt kérném, hogy pár cellatartalmat adj meg, meg azt, hogy mit szeretnél csinálni(nem képlet érdekel, hanem feladatleírás). Így látnám mi a probléma...Fire.
UI: Mellesleg ha kijelölnéd az összes ilyen cellát és egy sima csere segítségével lecserélnéd a pontot vesszőre már az is megoldást jelenthetne...
-
Fire/SOUL/CD
félisten
De valamiért attól még nem kezd el számként viselkedni, hogy levágtam róla a felesleget. Ha lecserélem a "."-t ","-re és megszorzom az egészet egyel akkor már lehet vele számolni. addig nem.
Azokon a gépeken amelyek "."-t várnak tizedeselválasztónak ott #VALUE hibakódot ad
Nagyjából így néz ki a fv:
=HELYETTE(KÖZÉP('másik munkalap'!D22;SZÖVEG.KERES("(";'másik munkalap'!D22)+1;(SZÖVEG.KERES("%";'másik munkalap'!D22)-1)-(SZÖVEG.KERES("(";'másik munkalap'!D22))-1);".";",")*1 -
m.zmrzlina
senior tag
Hali!
Az hogy az Excel a területi beállításoknak megfelelő karakterrel válassza el a tizedesjegyeket, az a számolási műveleteket nem befolyásolja. Teljesen mindegy hogy 2,00-t avagy 2.00-át szorzol össze 2-vel, az attól még 4 lesz, teljesen lényegtelen, hogy ezt az eredményt 4,00 avagy 4.00-ként jeleníti meg az excel.
Szóval csak ez miatt nincs szükség semmilyen beavatkozásra.
Az a példa, amit írtál az nem szám formátumú 63:37 (21.3 %) (már ha jól értem és ez egy cella tartalma) ergó nincs mit kezdeni a területi beállításokkal.
Fire.
-
Fire/SOUL/CD
félisten
Ettől a választól féltem, nagyjából én is ezt tudtam lederiválni a súgóból, csak gondoltam hátha rosszul néztem.
Az a feladatom, hogy egy ilyen struktúrájú: 63:37 (21.3 %) cellatartalomból (kb 12000 db cella) kell kiválogatnom a százalék értékeket majd azokkal egyszerű matematikai műveleteket végezni. A munkafüzetnek egymástól eltérő területi beállítású gépeken is működnie kell ezért nem mindegy, hogy a tizedeselválasztó "." vagy ","
Mivel az általam beidézett parancsnak nem látszik hogy lenne egyetlen munkafüzetre érvényes változata ezért marad a B terv miszerint a munkafüzet betöltődésekor le kell kérdezni a területi beállítást és az eredménytől függően vagy lefuttatni a cseréldleazösszespontotvesszőre makrót vagy nem.
A kérdés mostmár az, hogy hogyan lehet excelből lekérdezni a gép területi beállítását különös tekintettel a tizedeselválasztóra.
-
m.zmrzlina
senior tag
-
perfag
aktív tag
Az lenne a rövid kérdésem, hogy ezt a parancsot:
Application.DecimalSeparator = ","
ki lehet-e úgy adni, hogy csak egyetlen munkafüzetre legyen érvényes, ne pedig az összes megnyitottra?
Workbooks-nak vagy Worksheets-nek van ilyen vagy ehhez hasonló eszköze?
-
m.zmrzlina
senior tag
Ha már megadtad a feltételben, hogy szám esetén másoljon, mi szükség van a másik két feltételre?
Sheets("data").Select
For b = 1 To 15
If IsNumeric(Cells(b, 2)) = True Then
oszlop = Worksheets("result").Range("IV1").End(xlToLeft).Column + 1
Worksheets("result").Cells(1, oszlop) = Cells(b, 2)
End If
Next -
Fire/SOUL/CD
félisten
-
-
Delila_1
veterán
még egy kérdésem lenne:
az ISEVEN függvényhez be kellett kapcsolnom az Analysis ToolPak-ot. a kérdésem az lenne, hogy ezt majd azoknak is be kell kapcsolniuk, akik használni akarják ezt az excel-táblát?
(vagy ez csak a szerkesztéshez kell, az olvasáshoz már nem?) -
Sziasztok
Két nap után rájöttem a problémára,
ugyanis a forrás file-ban a számok azok nem Number formátumúak, hanem custom #.00 ha ezeket átformázom Number-re, akkor már írja is ki a C oszlopba az értékeket.Kérdés tehát adja magát, 450 file-ban hogyan tudom legegyszerűbben a formátumot?
-
Abi8211
csendes tag
Sziasztok
Két nap után rájöttem a problémára,
ugyanis a forrás file-ban a számok azok nem Number formátumúak, hanem custom #.00 ha ezeket átformázom Number-re, akkor már írja is ki a C oszlopba az értékeket.Kérdés tehát adja magát, 450 file-ban hogyan tudom legegyszerűbben a formátumot?
-
scott_free
senior tag
-
Hali!
Újabb kérdés: van egy könyvtáram amiben van 19 db txt. Ezeket be szeretném úgy importálni, hogy a txt fileok tartalma külön munkalapra kerüljön, és a munkalap neve a txt file neve legyen. Tehát pl. az 1.txt file tartalma kerüljön az "1" nevű munkalapra, a 2.txt file tartalma a "2" nevű munkalapra stb.
Úgy meg tudnám oldani, hogy makrórögzítéssel felveszem a kódot aztán ez copy-paste 18-szor, de nem akarok km hosszú kódot. Meg lehet ezt valahogy odani rövidebben? -
Fire/SOUL/CD
félisten
-
bnorci71
addikt
Hali!
Kijelölöd a (képed alapján) A2 : AI14 cellákat, aztán Adatok/Sorbarendezés. Itt lesz olyan hogy Rendezze és Majd, ennek segítségével megadhatsz több oszlopot rendezési szempontnak. Esetedben elsődlegesnek a pontszám oszlopát, másodlagosnak meg a gólkülönbséget.
Végül is lehet elválasztani az eredményt, de itt talán nem célszerű, hisz 2 cellából könnyebb kiszámoltatni a gólkülönbséget például...
Arra gondolok, hogy (megint csak a képed alapján) az AH2 cellába beírod ezt a képletet és lemásolod ameddig kell.=HA(B2>C2;B2-C2;C2-B2)
Fire.
nem jó a sima sorbarendezés
a függvények teljesen összekeverednek, de érdekes nem minden sornál
-
Delila_1
veterán
köszönöm, fantasztikus vagy!!!
Szívesen.
-
scott_free
senior tag
-
Delila_1
veterán
köszönöm a segítséget!
a legördülő listánál meg lehet azt csinálni, hogy egy másik cella értékétől függően mutassa a választási lehetőségeket?
pl. A1 cellában megadhatok számokat 1-10-ig, és az itteni értéktől függően a B1 cellában a legördülő listában pl. 1-től (11-A1)-ig mutassa a számokat. (vagyis ha pl. az A1=3, akkor a legördülő listában már csak 1-tól 8-ig legyenek a számok, és ne 10-ig)Közben rájöttem. A képlet a forrásnál =OFSZET($F$1;0;0;11-A1;1)
-
Delila_1
veterán
köszönöm a segítséget!
a legördülő listánál meg lehet azt csinálni, hogy egy másik cella értékétől függően mutassa a választási lehetőségeket?
pl. A1 cellában megadhatok számokat 1-10-ig, és az itteni értéktől függően a B1 cellában a legördülő listában pl. 1-től (11-A1)-ig mutassa a számokat. (vagyis ha pl. az A1=3, akkor a legördülő listában már csak 1-tól 8-ig legyenek a számok, és ne 10-ig)Nem egészen értem, hogy jött ki az A1=3-ból az érvényesítés 1-8 listája.
Beteszek egy képet, ahol a megjeleníthető értékek az F1:F10 tartományvan vannak, és az A1 értéke adja a legördülő lista utolsó elemét.
Az érvényesítésben a forrás képlete: =OFSZET($F$1;0;0;A1;1)
-
bnorci71
addikt
Hali!
Kijelölöd a (képed alapján) A2 : AI14 cellákat, aztán Adatok/Sorbarendezés. Itt lesz olyan hogy Rendezze és Majd, ennek segítségével megadhatsz több oszlopot rendezési szempontnak. Esetedben elsődlegesnek a pontszám oszlopát, másodlagosnak meg a gólkülönbséget.
Végül is lehet elválasztani az eredményt, de itt talán nem célszerű, hisz 2 cellából könnyebb kiszámoltatni a gólkülönbséget például...
Arra gondolok, hogy (megint csak a képed alapján) az AH2 cellába beírod ezt a képletet és lemásolod ameddig kell.=HA(B2>C2;B2-C2;C2-B2)
Fire.
Köszi mindenkinek
tényleg ezt már használtam csak attól féltem a képletek összekeverednek.
Pulsar
na ez a megoldás már elkésett
elég sok a képlet a beszúrástól meg elcsúszna minden. Vagy nem?Delila_1
kipróbáltam
köszi -
scott_free
senior tag
Meg lehet oldani a két "pöttyöt" is, de sokkal egyszerűbb az érvényesítés.
A cellán állva (vagy több cellát kijelölve, ha többe is be akarod tenni a két érték közüli válsztás lehetőségét), Adatok/Érvényesítés. A Beállítások fülön a Megengedve legördülőből a Listát választod, a Forráshoz beírod a két lehetőséget, pontosvesszővel elválasztva.
Nézd meg a Figyelmeztető üzenet, és a Hibajelzés füleket is, egyik kiállítása sem kötelező.
köszönöm a segítséget!
a legördülő listánál meg lehet azt csinálni, hogy egy másik cella értékétől függően mutassa a választási lehetőségeket?
pl. A1 cellában megadhatok számokat 1-10-ig, és az itteni értéktől függően a B1 cellában a legördülő listában pl. 1-től (11-A1)-ig mutassa a számokat. (vagyis ha pl. az A1=3, akkor a legördülő listában már csak 1-tól 8-ig legyenek a számok, és ne 10-ig) -
köszi, kipróbálom majd
ezekszerint ha fogom a 3 pivot táblát és egymás alá illesztem mondjuk egy új sheetben, akkor végig fut az egészen?"A makró feltételezi, hogy a kérdéses oszlop minden cellájában van valamilyen adat, ott is, ahol nincs megjegyzés."
ezt nem egészen értem, mármint értem, hogy mit jelent, de magyarra lefordítva akkor bármilyen olyan sort kitöröl a táblázatból, ahol adott oszlop adott sorában semmilyen adat nincs ? ezt akrja jelenteni ?
illetve befolyásolja a makró működését, hogy a commentek nem kézzel beírt kommentek, hanem előre kiválasztható listából legördülő menüvel lehet választani közülük? -
Ez a makró az A oszlopban A1-től figyeli, van-e megjegyzés. Ha nincs, törli a sort.
Sub DelRow()
Dim sor As Integer
sor = 1
Do While Cells(sor, 1) <> ""
If Range(Cells(sor, 1).Address).Comment Is Nothing Then
Rows(sor).EntireRow.Delete
sor = sor - 1
End If
sor = sor + 1
Loop
End SubAz A helyett 2 helyen a Cells(sor,1)-ben írd át az 1-et az oszlopod sorszámára. Ha nem az első sortól akarod a vizsgálatot végrehajtani, a sor=1-et írd át.
A makró feltételezi, hogy a kérdéses oszlop minden cellájában van valamilyen adat, ott is, ahol nincs megjegyzés. -
még 1 kérdés.
Van egy pivot tábla (kb 2-3000 soros) és ehhez a pivothoz jobb oldalra van hozzácsapva 2 oszlop - mindkettő kommentelésre szolgál, de nem a pivot része, csak a pivotnak megfelelő sorba mellév an írva egy megjegyzés
Szeretnék csinálni egy kivonatot summary sheetet a pivot táblázatból, ami ugyanolyan struktúrában mutatja ugyanazokat az adatokat, de csak azokat amiknél van valami a komment fieldben
Erre azért volna szükségem mert 3 tartalmilag és felépítésében azonos pivotból kellene összrakni 1 db kivonatot, és mauálisan kitörölgetni a nem kommentált mezőket (cca 10ezer sorból kb) elég húzós
-
Delila_1
veterán
hi,
Excel 2003-ban lehetséges választógombokat létrehozni?
(egy cellában 2 pötty, amelyiket kiválasztom, a cella annak megfelelő értéket ad vissza)thx!
-
Delila_1
veterán
nem fogalmaztam világosan:
azt szeretném, ha a D1=A1 vagy B1, attól függően, hogy C1=A vagy B.
(tehát a C1 értéke helyettesítené/adná meg a cellahivatkozásban az A vagy B oszlopot).de mindegy, végül megoldottam máshogyan.
viszont egy újabb alapvető dolog, amire a súgóban nem találtam választ: hogyan tudom mozgatni az oszlopokat a táblázaton belül?
tehát mondjuk az F oszlopot szeretném áthúzni, betenni az A és B oszlop közé. (úgy, hogy persze automatikusan tolja el az oszlopokat utána) -
Fire/SOUL/CD
félisten
nem fogalmaztam világosan:
azt szeretném, ha a D1=A1 vagy B1, attól függően, hogy C1=A vagy B.
(tehát a C1 értéke helyettesítené/adná meg a cellahivatkozásban az A vagy B oszlopot).de mindegy, végül megoldottam máshogyan.
viszont egy újabb alapvető dolog, amire a súgóban nem találtam választ: hogyan tudom mozgatni az oszlopokat a táblázaton belül?
tehát mondjuk az F oszlopot szeretném áthúzni, betenni az A és B oszlop közé. (úgy, hogy persze automatikusan tolja el az oszlopokat utána) -
scott_free
senior tag
Hali!
Makróban Range("C1"), hagyományosan meg pl a D1 cellába =C1 & " oszlop" (bár ennek amúgy nem nagy értelme vagyon)
Cellába beírt függvények kötelezően egyenlőségjellel kell hogy kezdődjenek.Fire.
nem fogalmaztam világosan:
azt szeretném, ha a D1=A1 vagy B1, attól függően, hogy C1=A vagy B.
(tehát a C1 értéke helyettesítené/adná meg a cellahivatkozásban az A vagy B oszlopot).de mindegy, végül megoldottam máshogyan.
viszont egy újabb alapvető dolog, amire a súgóban nem találtam választ: hogyan tudom mozgatni az oszlopokat a táblázaton belül?
tehát mondjuk az F oszlopot szeretném áthúzni, betenni az A és B oszlop közé. (úgy, hogy persze automatikusan tolja el az oszlopokat utána) -
Fire/SOUL/CD
félisten
na még egy:
C1 cella értéke "A" vagy "B" lehet, és ennek megfelelően egy másik képletben vagy az "A" vagy a "B" oszlop elemei kerülnének felhasználásra.
de hogyan tudom a C1 cella értékét beletenni egy képletbe?
próbáltam ilyesmit: D1=(C1)1 - sikertelenül.a microfos súgójában pedig semmit sem lehet megtalálni - legalábbis ha nem beszéled a "titkos" excel nyelvet (és nem ismered magadtól az összes függvényt és képletet...)
-
scott_free
senior tag
hi,
Excel 2003-ban lehetséges választógombokat létrehozni?
(egy cellában 2 pötty, amelyiket kiválasztom, a cella annak megfelelő értéket ad vissza)thx!
na még egy:
C1 cella értéke "A" vagy "B" lehet, és ennek megfelelően egy másik képletben vagy az "A" vagy a "B" oszlop elemei kerülnének felhasználásra.
de hogyan tudom a C1 cella értékét beletenni egy képletbe?
próbáltam ilyesmit: D1=(C1)1 - sikertelenül.a microfos súgójában pedig semmit sem lehet megtalálni - legalábbis ha nem beszéled a "titkos" excel nyelvet (és nem ismered magadtól az összes függvényt és képletet...)
-
scott_free
senior tag
-
Szasztok!
készítettem egy excel táblát amibe egy focibajnokság eredményei kerülnek folyamatos féltöltésre, a beírt eredmény alapján számolja a tábla végén a szokásos dolgokat lejátszott mérkőzések gólkülönbség pontszám.
Most ABC sorrendben vannak a csapatok.
A nagy kérdés meg lehet azt oldani, hogy a későbbiek folyamán a pontszám>gólkülönbség alapján rakja sorba a tábla magától a sorokat?
A könnyebb átláthatósághoz itt egy képernyőfotó
Ja még valami az eredmények most 2 cellába vannak írva a 2 cella közé nem lehetne kettőspontot varázsolni?
-
Szasztok!
készítettem egy excel táblát amibe egy focibajnokság eredményei kerülnek folyamatos féltöltésre, a beírt eredmény alapján számolja a tábla végén a szokásos dolgokat lejátszott mérkőzések gólkülönbség pontszám.
Most ABC sorrendben vannak a csapatok.
A nagy kérdés meg lehet azt oldani, hogy a későbbiek folyamán a pontszám>gólkülönbség alapján rakja sorba a tábla magától a sorokat?
A könnyebb átláthatósághoz itt egy képernyőfotóJa még valami az eredmények most 2 cellába vannak írva a 2 cella közé nem lehetne kettőspontot varázsolni?
hát én csak a a kettőspontos kérdésedre tudnák válaszolni. Én az ilyeneket egy harmadik cella bevonásával szoktam megoldani. Ha zavarnak a cella körvonalai egyszerűen a cella hátterét beállítod fehérre, és olyan mintha egy lenne
-
Fire/SOUL/CD
félisten
Szasztok!
készítettem egy excel táblát amibe egy focibajnokság eredményei kerülnek folyamatos féltöltésre, a beírt eredmény alapján számolja a tábla végén a szokásos dolgokat lejátszott mérkőzések gólkülönbség pontszám.
Most ABC sorrendben vannak a csapatok.
A nagy kérdés meg lehet azt oldani, hogy a későbbiek folyamán a pontszám>gólkülönbség alapján rakja sorba a tábla magától a sorokat?
A könnyebb átláthatósághoz itt egy képernyőfotóJa még valami az eredmények most 2 cellába vannak írva a 2 cella közé nem lehetne kettőspontot varázsolni?
-
bnorci71
addikt
Szasztok!
készítettem egy excel táblát amibe egy focibajnokság eredményei kerülnek folyamatos féltöltésre, a beírt eredmény alapján számolja a tábla végén a szokásos dolgokat lejátszott mérkőzések gólkülönbség pontszám.
Most ABC sorrendben vannak a csapatok.
A nagy kérdés meg lehet azt oldani, hogy a későbbiek folyamán a pontszám>gólkülönbség alapján rakja sorba a tábla magától a sorokat?
A könnyebb átláthatósághoz itt egy képernyőfotóJa még valami az eredmények most 2 cellába vannak írva a 2 cella közé nem lehetne kettőspontot varázsolni?
-
Delila_1
veterán
Hali!
Mármint a Címjegyzékre vagy a Fiókokra érted?
Csak azért kérdem, mert a héten 2 emberkének is ilyen gondja volt, mindkét esetben egy szépséges kártevőt sikerült beszerezni...![;]](//cdn.rios.hu/dl/s/v1.gif)
(Mindkét gépet újratelepítettem, formázás után, remélem nálad nem ez lesz a szitu.... )Fire.
-
Fire/SOUL/CD
félisten
Hali!
Mármint a Címjegyzékre vagy a Fiókokra érted?
Csak azért kérdem, mert a héten 2 emberkének is ilyen gondja volt, mindkét esetben egy szépséges kártevőt sikerült beszerezni...
(Mindkét gépet újratelepítettem, formázás után, remélem nálad nem ez lesz a szitu.... )Fire.
-
Egy do-loop ciklussal végignézed a B oszlop tagjait az utolsó sorig. Ha a cella értéke "Resolved", akkor a másolás helye az ofszet(0,1) nevű lap. Innen egy belső do-loop ciklussal menj mindig a következő "Resolved"-ig, és ebben a belső ciklusban legyen a számok átírása az aktuális ország lapjára.
Biztos finomítani kell rajta.én is a do loop ciklusra gondoltam, majd jövő héten folytatom, mára már elég volt
-
zsotesz81
senior tag
Hali!
Ez egy kicsit hosszabb kód, de azért írtam így, hogy más "technikát" is láss benne, amit a későbbiekben tudsz hasznosítani esetleg...
Private Sub CommandButton1_Click()
Dim SrcSheet As Object
Dim DestSheet As Object
Dim My_Range As Range
Set SrcSheet = ThisWorkbook.Sheets("Munka1")
Set DestSheet = ThisWorkbook.Sheets("Munka2")
Set My_Range = SrcSheet.Range("A1:" & Range("A1").End(xlDown).Address)
SrcSheet.Select
My_Range.Select
DestSheet.Select
DestSheet.Range("A1").Select
For Each CurrCell In My_Range
If IsNumeric(CurrCell.Value) Then
ActiveCell = CurrCell.Value
ActiveCell.Offset(0, 1).Select
End If
Next CurrCell
SrcSheet.Select
Set My_Range = Nothing
Set SrcSheet = Nothing
Set DestSheet = Nothing
End SubFire.
köszi, elrakom egy txt-be, hátha egyszer még jól jön
-
Ha már megadtad a feltételben, hogy szám esetén másoljon, mi szükség van a másik két feltételre?
Sheets("data").Select
For b = 1 To 15
If IsNumeric(Cells(b, 2)) = True Then
oszlop = Worksheets("result").Range("IV1").End(xlToLeft).Column + 1
Worksheets("result").Cells(1, oszlop) = Cells(b, 2)
End If
Next -
Fire/SOUL/CD
félisten
Hali!
Újabb gond, az előbbi példában lévő számokat egy másik munkalapra szeretném másolni, úgy hogy az adott sor első üres cellájától kezdve egymás mellé.
Ezzel próbálkoztam:
For b = 1 To 33
If Cells(b, 2) <> "" And (IsNumeric(Cells(b, 2)) = True And Cells(b, 2) <> "Resolved") Then
Worksheets("result").Select
Range("A1").End(xlToRight).Offset(0, 1).Select
ActiveCell.Value = Sheets("data").Cells(b, 2)Tehát a result munkalap első sorába gyűjteném őket egymás mellé. Viszont a fenti kóddal Application defined or object defined error-t ad. Viszont ha kiveszem a Worksheets("result").Select sort, vagyis nem váltok munkalapot, akkor lefut, viszont akkor a számokat arra a munkalapra másolja amelyiken ömlesztve vannak az adatok, ami nem jó.
Van valami megoldás erre? -
Hali!
Újabb gond, az előbbi példában lévő számokat egy másik munkalapra szeretném másolni, úgy hogy az adott sor első üres cellájától kezdve egymás mellé.
Ezzel próbálkoztam:
For b = 1 To 33
If Cells(b, 2) <> "" And (IsNumeric(Cells(b, 2)) = True And Cells(b, 2) <> "Resolved") Then
Worksheets("result").Select
Range("A1").End(xlToRight).Offset(0, 1).Select
ActiveCell.Value = Sheets("data").Cells(b, 2)Tehát a result munkalap első sorába gyűjteném őket egymás mellé. Viszont a fenti kóddal Application defined or object defined error-t ad. Viszont ha kiveszem a Worksheets("result").Select sort, vagyis nem váltok munkalapot, akkor lefut, viszont akkor a számokat arra a munkalapra másolja amelyiken ömlesztve vannak az adatok, ami nem jó.
Van valami megoldás erre?
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Lexus, Toyota topik
- Háztartási gépek
- One otthoni szolgáltatások (TV, internet, telefon)
- Android alkalmazások - szoftver kibeszélő topik
- Milyen billentyűzetet vegyek?
- Elektromos autók - motorok
- Forza sorozat (Horizon/Motorsport)
- Kedvenc zene a mai napra
- AMD Navi Radeon™ RX 9xxx sorozat
- Fokozatosan erősít majd a szerverpiacon az Intel
- További aktív témák...
- Forza Horizon 6 Premium / Standard Pre-Order kódok
- Microsoft és egyéb dobozos és OEM szoftverek
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- HP Omen 17 QHD 240Hz / RTX 4090 / i7-13700HX / 32GB DDR5 / 1TB SSD! BeszámíTOK
- Apple MacBook Pro 16 M1 Max (2021) 32GB/512GB SSD karcmentes állapotú 97% akku 49 ciklus
- Samsung Enterprise PM893 1,92TB/ SATA 2,5" SSD- 6db/ számla-garancia
- MacBook felváráslás!! MacBook, MacBook Air, MacBook Pro
- SONY FULL HD made in Japan profi videókamera HXR-NX5E
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest