- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Geri Bátyó: Agglegénykonyha 3 – Paradicsomos káposzta (amit amúgy utálok)
- Luck Dragon: Asszociációs játék. :)
- ldave: New Game Blitz - 2025
- sh4d0w: Vigyázz a háttértáradra...
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
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
-
#47800
Delila_1
veterán
[CS]Blade2
#47799
Delila_1
veterán
válasz
[CS]Blade2
#47799
üzenetére
Írd vissza az eredeti tartományt a feltételes formázásnál, utána jó lesz.
-
#47799
[CS]Blade2
addikt
Delila_1
#47798
[CS]Blade2
addikt
válasz
Delila_1
#47798
üzenetére
Na ez már majdnem jó lenne, de valami még mindig sz*r. Rányomom, úgy néz ki, mint neked, majd amint becsukok vagy kinyitok egy hónapot, utána már csak az A oszlopnál színezi.
Egy olyan verzión próbáltam, amin nincs ott a "nap." oszlop.
Ezeket adtam meg:
=VAGY(HÉT.NAPJA($A4;2)>5;)
=A4: K80
és kinyitok egy jan-t, és átírja magától:
=$A$4:$A$80
Újra megpróbáltam, 2.-ra erre írta át:
=$A$66:$K$80;$A$4:$A$65 -
#47798
Delila_1
veterán
[CS]Blade2
#47797
Delila_1
veterán
válasz
[CS]Blade2
#47797
üzenetére
A feltételes formázás tartománya
A4:C...
Az I2:I15 tartomány neve Ünnepek, ide vittem be az év ünnepnapjait. -
#47797
[CS]Blade2
addikt
lappy
#47776
[CS]Blade2
addikt
Ha oda rakom, akkor össze-vissza elmegy ahogy ki-be vannak csukogatva a hónapok. Az adat oldalra segédként megcsinálva csináltam a HÉT.NAPJA-t ami a nap. oszlop a kimutatásban:
Így beszínezi a 6-os és 7-es értékű cellákat, de, ha az első sort megadom az érvényességhez, akkor ezt a hibát dobja.Ja, és annyit kellett gányolnom, hogy a nap. oszlop az minimumra vagy maximumra van állítva, mert azon a lapon, amin beviszik az adatot, ott sok dátumból 2 vagy több sor is van, de ez lenne a legkevesebb, ha így színezné azokat a 6-ost és 7-est tartalmazó sorokat A-tól L-ig.
-
-
#47793
ReSeTer
senior tag
Dark Archon
#47774
ReSeTer
senior tag
válasz
Dark Archon
#47774
üzenetére
Köszönöm, ezt kerestem.
-
lenkei83
tag
Sziasztok!
Elakadtam tömbképlet témában, segítsetek kérlek.
"A" fül egy alapadatok tábla, minden eleme kézi bevitel. "B!A1" értéke alapján szeretnék szűrni úgy, hogy a cellában kiválaszott értékhez tartozó, "A" munkalapon lévő oszlop alapján szűrje a "A" munkalap "A" oszlopát.
Hol.van és index kombinációval megy a dolog, de most SZŰRŐ-vel szeretném megoldani, viszont nem jövök rá, hogy a "B!A1"-ben kiválasztott érték alapján az oszlop eltolást hogyan tudom berakni a SZŰRŐ képletbe.Tábla itt: [link]
Köszi
P. -
#47789
Fire/SOUL/CD
félisten
moma
#47784
1. Notepadd++ letöltjük (van Portable változata, Én is azt használtam)
2. Excel és Notepadd++ elindítjuk, Excelben terület kijelöljük és CTRL+C, Notepad++ ba átmegyünk és CTRL+V
3. Elindítjuk a makrórögzítést
4. Duplaklikk az egy szóközön (így kijelöli az összeset a szavak közt), majd CTRL+H
5. Lecseréljük a szóköz csoportokat | karakterre
6. Minden sor elejére beszúrjuk a | karaktert
7. Minden sor végére is beszúrjuk a | karaktert
8. Megállítjuk a makrórögzítést és elmentjük későbbre (valami beszédes néven ill. bill. kombót rendelünk hozzá), hogy legközelebb már egy kattintással végigjátssza a 4.-7. pontokat automatikusan. (értelem szerűen már csak a Excel-ből copy-paste-l kell csak az adatokat átvinni és a makrórögzítést sem kell indítani) -
VGYke
addikt
Bocsánat, most látom lemaradt a kérdésem: az adott feladatra tud valaki egyszerűbb megoldást?
1-munkalapon a "szájbarágós" képletekkel, 2-munkalapon az egymásba másolt képletekkel mutatom be a saját megoldásomat, ami túl bonyolultnak tűnik számomra.
Van egyszerűbb megoldásod?
-
-
#47784
moma
őstag
Fire/SOUL/CD
#47781
moma
őstag
válasz
Fire/SOUL/CD
#47781
üzenetére
A Notepad++ irány is jó lenne! leírod esetleg nekem egy offban?(vagy privátban, de lehet másokat is érdekelhet itt) Ha a makrót is akkor már szuper hálás lennék, vagy ha sok, akkor azért is ha valami irányt mutatsz.
Fferi50: akkor ez a gond. mert az egész szám több mint 15. És ez nem csak a megjelenítésre vonatkozik, hanem ténylegesen a cella tartalma nem lehet több, mint 15 számjegy sehogy sem?
-
-
#47781
Fire/SOUL/CD
félisten
moma
#47778
-
VGYke
addikt
Sziasztok!
Következő a feladat:
Egyik oszlopban növekvő sorrendben DÁTUMOK szerepelnek.
A másik oszlopba egy olyan dátum sort kellene előállítani az előzőkből, hogy:
* Minden hónap 01-el kezdődjön (függetlenül attól hogy van e DÁTUMOK-ban érték)
* Minden hónap a hó vége dátummal végződjön (függetlenül attól hogy van e DÁTUMOK-ban érték)
* A fenti két dátum között jelenjenek meg a DÁTUMOK értékeiKészítettem erre egy megoldást, ami innen letölthető.
(1 munkalapon a „szájbarágós” megoldás, 2 munkalapon már összevontam a képleteket)Nem vagyok abban biztos hogy a legegyszerűbb az elgondolásom, így várom a javaslatokat, makrók alkalmazása nélkül.
Megoldásom kibírja azt, hogy ha 1. sor alá beszúrunk egy sort, de nem bírja ki, ha az 1 sor „fölé” szúrunk be egy sort….. megmondom őszintén, ennek megoldására már nem volt erőm.
Szóval van egyszerűbb megoldásotok a feladatra?
-
#47776
lappy
őstag
[CS]Blade2
#47775
lappy
őstag
válasz
[CS]Blade2
#47775
üzenetére
Az L oszlopba beírod az alábbi képletet
=HÉT.NAPJA(A5;2)
majd feltételes formázásban a képletes megadásnál
=HA($L5>=6;IGAZ;"") mehet a szinezés
az érvényesség pedig:
=$A$5:$K$5;$M$5:$S$5
és ezt kell formátummásolóval átadni -
#47775
[CS]Blade2
addikt
lappy
#47772
[CS]Blade2
addikt
Nem akar összejönni. Így néz ki a két kimutatás:
1. Kijelölöm az A oszloptól a K-ig. (Érvényesség: =$A:$K)
2. Feltételes formázás
3. Új szabály
4. Formázandó cellák kijelölése képlettel
5. Meg kellene adni a képletet, hogy mikor legyen igaz, vagyis mikor színezzenNekem az kellene a képletbe, hogy: a sor elején az A oszlop cellája hétvégi nap.
-
#47774
Dark Archon
addikt
ReSeTer
#47771
-
#47772
lappy
őstag
[CS]Blade2
#47770
lappy
őstag
válasz
[CS]Blade2
#47770
üzenetére
=HA($O9>=6;IGAZ;"")
valahogy igy néz ki -
-
#47768
lappy
őstag
[CS]Blade2
#47767
lappy
őstag
válasz
[CS]Blade2
#47767
üzenetére
ha függvénybe berakod a hét najpa függvényt ( a típus 2 legyen mert ekkor a vasárnap 7 számot kap, de maradhat alapon is csak akkor 1 lesz)
ennek vizsgálata és az érvényesség két tartományát ; elválasztva meg tudod adni -
#47767
[CS]Blade2
addikt
[CS]Blade2
addikt
Van egy táblázat, amiről egy másik oldalon két Kimutatás készül. A táblázat A oszlopában dátumok vannak, amik így néznek ki: 12.jan. Az I oszlopban van egy név, és az utána levő 7 oszlopban vannak órában megadott adatok. Aztán jön a másik név, és még 7 oszlop adat.
A kimutatásnál az A oszlop alapján szedi dátumok szerint, és rá van nyomva egy Hónapok és Napok csoportosítás. Így lehet +- bezárni havonta.
A-tól K oszlopig az egyik, és M-től W-ig.
dátum, 7 oszlop érték, 3 oszlop összesítő, aztán M oszloptól megint ugyanilyen.Ehhez kellene nekem egy olyan, hogy megoldható-e valahogy, hogy a két kimutatásban, ami egymás mellett van ugye, feltételesen formázza, színezze be azokat a sorokat, ami olyan dátummal kezdődnek, ami szombati és vasárnapi nap.
Szóval pl. első kimutatásban kibontom a jan-t a pluszjelnél, ott vannak a sorok, hogy 07.jan, 08.jan, 13.jan, stb.
és ha pl. 08.jan egy vasárnapi nap volt, akkor színezze be azt a sort A oszloptól K oszlopig.
A másiknál M oszlop-tól W-ig ugyanígy. -
ReSeTer
senior tag
Köszönöm az eddigi válaszokat.
Egyszerűnek tűnő problémánál akadtam el.Van egy word dokumentumom, benne egy táblázattal, amit excelből makróval töltöttem ki.
Szeretnék a lap végére egy oldaltörést tenni, hogy majd utána a következő lapra beillesszem az első oldal teljes tartalmát.Eddigi próbálkozásaim mindig a lap elejére raktak egy oldaltörést.
-
#47764
Fire/SOUL/CD
félisten
Imy
#47762
-
-
eszgé100
őstag
válasz
Fferi50
#47752
üzenetére
köszönöm szépen, az első megoldás a befutó egyelőre, viszont még gondolkozok fire/SOUL/CD formuláin is.
fire/SOUL/CD: köszönöm neked is, adtál egy extra ötletet, a "nem hétfő van éppen" kiegészítéssel. A feladat, hogy egy, a korábbi hsz-emben található munkalap variációi minden 4. hétfő reggelre ki legyenek nyomtatva, a megfelelő dátumokkal és hét számozással. Ez a valóságban leggyakrabban úgy néz ki, hogy valamelyik korábbi hét folyamán ki vannak nyomtatva (ez általában a közvetlen korábbi hét, de lehet, hogy 2 vagy akár 3 héttel korábbi is) és aztán a péntek éjjeles mikor teljesen kitöltötte az összes mezőt az aktuális lapon, bekészít egy új lapot hogy a hétfő reggeles már tudja használni, a régit pedig archiválja. A nem hétfő van éppen kifejezés akkor jönne jól, ha valami oknál fogva csak hétfő kora reggel lennének kinyomtatva, és az már a nagyon sürgős pillanat, mert addigra már mindenkinek kell egy friss.
Tehát a cella értéke, amit keresek, ha pl 01/01/2022-től indulok, akkor az év első hétfője, majd az azt követő minden 4. hétfő. Ha a dátum már túlment rajta, akkor a cella frissüljön a következő 4. hétfő dátumára.
-
#47755
Fire/SOUL/CD
félisten
eszgé100
#47751
válasz
eszgé100
#47751
üzenetére
C3
=HA(HÉT.NAPJA(B3)=2;B3;B3+(7-HÉT.NAPJA(B3;2)+1))=IF(WEEKDAY(B3)=2,B3,B3+(7-WEEKDAY(B3,2)+1))D3
=C3+28E3
=ISO.HÉT.SZÁMA(HA(HÉT.NAPJA(B3)=2;B3+28;(B3+(7-HÉT.NAPJA(B3;2)+1))+28))=ISOWEEKNUM(IF(WEEKDAY(B3)=2,B3+28,(B3+(7-WEEKDAY(B3,2)+1))+28))Már, ha jól értettem a feladatot (ha nem, akkor is így marad)
-
ReSeTer
senior tag
Sziasztok!
Szeretnék kettő szöveget beilleszteni egy cellába. A probléma az, hogy az egyik szövegnek félkövérnek kellene lennie.
A következő megoldással illesztek be jelenleg:ameret = Range("G" & talalatsorszama) & " " & Range("I" & talalatsorszama) ' String az ameretwDoc.Tables(1).Cell(aktivsorszam, 2).Range.Text = ameretMilyen módszerrel lehetne ezt megoldani?
-
Fferi50
Topikgazda
válasz
eszgé100
#47751
üzenetére
Szia!
Több lehetőség is van. A képen látható elrendezés esetén E2 képlete:=MAX(ROUNDUP(ISOWEEKNUM(D2)/4,0)*4,ISOWEEKNUM(D2))*7+C2
Másik ötletem:
Az év elején (vagy akár most) felrakod egy segéd táblázatba a negyedik hétfőket:
Ne kavarjunk bele, legyen I2=C2, majd I3 képlete =I2+28
Lehúzod, ameddig szükséges, majd az így létrejött képletes részt átalakítod értékké (másolás, irányított beillesztés értéket) - csak a biztonság kedvéért, nehogy megváltozzon valami miatt. Akár el is nevezheted a táblázatot.
Ezután az E2 képlete:=IFERROR(VLOOKUP(D2,$I$1:$I$29,1,0),INDEX($I$1:$I$29,MATCH(D2,$I$1:$I$29,1)+1))
Üdv. -
eszgé100
őstag
válasz
Fferi50
#47747
üzenetére
köszönöm, eddig jutottam a dologgal:
A következő 4. hétfőt egy egyszerű makróval számoltam ki:Sub weekcomupdate()
Dim start As Date
Dim weekcom As Date
Dim today As Date
start = Range("C2").Value
today = Range("D2").Value
weekcom = start + 28
Do While weekcom < today
weekcom = weekcom + 28
Loop
Range("E2").Value = weekcom
End SubA hét számát pedig isoweeknum-mal. Meg lehetne oldani, hogy a makró tartalmát formulává tudjam konvertálni és beilleszteni az E2-es cellába?
-
Fferi50
Topikgazda
válasz
eszgé100
#47746
üzenetére
Szia!
Nézetem szerint az alábbi módon lehetne megoldani a problémát:
A1 cellában van a január 1.
B1 cellában van meghatározva az év első hétfője, ezzel a képlettel:=HA(HÉT.NAPJA(A1;2)>=5;A1+8-HÉT.NAPJA(A1+7;2);A1-HÉT.NAPJA(A1;2)+1)
Ezek után a megfelelő hétfő meghatározása szerintem már egyszerű, csak az első hétfőhöz hozzá kell adni a kívánt hét számát 7-tel szorozva.
Remélem ezzel tudtam segíteni.
Az ISOWEEKNUM függvény és a mai dátum csak illusztráció. Ha tudjuk hanyadik hétről van szó, akkor elég azzzal szorozni.
Üdv. -
eszgé100
őstag
01/06/2021-nél szintén bukik a dolog, mert májusban 5 hétfő volt, de legalább a januári problémát megoldja.
Egy munkafüzetem, aminek az alkotója valamiért úgy gondolta, hogy 4 hetes periódusban legyen vezetve, viszont csak a sz.pás van vele mind az update-kor, mert nem lehet egyszerre letudni a többivel, amikkel 1-2-3-6-12 havonta kell csak foglalkozni, mind pedig az archiváláskor, mert minden dosszié ugyanígy havi-12 havi rendszerességre van kitalálva.
Szóval e bizonyos munkafüzet miatt muszáj tartani a 4. hétfőket. Ez csak a master, ennek van kb. 80 különböző verziója, de mindegyik ugyanígy működik.
-
eszgé100
őstag
Week és Week commencing-et szeretném meghatározni.
First Monday of CY =DATE(YEAR(F4),1,8)-WEEKDAY(DATE(YEAR(F4),1,6))
1st of next month =EOMONTH(TODAY(),0)+1Week értéke egyenlő minden 4. hétfővel, az év első hétfőjétől kezdve, ezesetben 04/01/2021=1, 01/02/2021=5, 01/03/2021=9, 29/03/2021=13
Week commencing, lenne a dátuma az előzőleg meghatározott 4. hétfőknek
Ideális esetben Week mindig páratlan szám lenne (1-5-9-13...), de =DATEDIF(B1,B2, "d")/7 nem alkalmas, nem beszélve a januárról, ahol az első hétfő általában később esik 01/01/yyyy-nál, ahol hibát okoz.
Van ötletetek mit használjak helyette?
-
ny.janos
tag
válasz
ny.janos
#47741
üzenetére
Ha az oszlopaidra nem igazak az általam feltételezettek, akkor az én megoldási javaslatom az alábbi:
1. A táblázatod munkalapját (neve az én példámban eredeti) másold le egy új munkalapra (neve az én példámban masolat).
2. Minden adat kijelölése utánCtrl+G, irányított, állandók-at pipálod csak be, majd delete gomb.
3.Alt+.
4. Teljes tartományt kijelölöd, Ctrl+H, az egyenlőségjeleket cseréled valami olyan karaktersorozatra (az én példámban ###, ami garantáltan nem fordul elő egyik képletedben sem.
5. Új munkalapon A1 cella képletének megadod a következőt (szintén kell a végére egy speciális karakersorozat, ami nem szerepel a képleteidben - én másikat használtam - &&&& -, mint előbb, de akár azonos is lehet):=HA(ÜRES(masolat!A1);eredeti!A1;"=HAHIBA("&HELYETTE(masolat!A1;"###";"=")&";&&&&)")
6. A teljes tartományt kijelölöd ezen a munkalapon és csere funkcióval cseréled az utóbbi karaktersorozatot - &&&& - két darab idézőjelre (így lesz a hiba esetén üres a cellád).
7. Kijelölöd a teljes tartományt, másolást követően beilleszted egy jegyzettömbbe, majd onnan kimásolva visszailleszted az eredeti munkalapodra.
8. A segéd munkalapokat törlöd. -
Fferi50
Topikgazda
válasz
Dilikutya
#47740
üzenetére
Szia!
Egy kicsit körülményes, de szerintem megéri kipróbálni.
1. lépés: Kijelölöd az eredeti munkalapon az A1 cellát. Majd képletek - Névkezelő - új név. A név nálam jokeplet. A hivatkozás pedig:=HAHIBA(HA(BAL(KÉPLETSZÖVEG(A1);5)="=HAHI";KÉPLETSZÖVEG(A1);"=HAHIBA(" & KÖZÉP(KÉPLETSZÖVEG(A1);2;HOSSZ(KÉPLETSZÖVEG(A1))) & ";"""")");"")Bezárod mentéssel a párbeszédpanelt. Ha visszanézed, akkor látni fogod, hogy a hivatkozásban szerepel a munkalap neve is.
2. lépés: beszúrsz egy új üres munkalapot.
Az A1 cella képlete:=jokeplet
Itt kell egy ellenőrzést csinálni a következőképpen: Az A1 cellán maradva (de nem belelépve!)
Képletek - képletkiértékelő - aláhúzva látod a jokeplet szöveget -belelépés - ekkor kibontja a képletet - itt azt kell látnod, hogy az eredeti munkalap A1 cellájára hivatkozik. Ha nem ezt látod, bezárod a kiértékelőt. Átmész az eredeti munkalapra és a Névkezelőben a hivatkozásban ismételten az A1 cellát kell megadnod.
Ezután már az új munkalapon is az A1 cellát kell látnod a képletkiértékelőben.
Ez azért fontos, mert így a képleted húzható oldalra és lefelé is!
3. lépés: Végighúzod a képletet a szükséges területre.
4. lépés: A végighúzott képletet másolod, majd irányított beillesztés - értéket erre a területre - így megkapod a szükséges képletet!
5. lépés: Az így kapott képleteket az eredeti munkalapodra másolhatod - de nem az értékeket fogod megkapni, hanem a szöveges képletet látod. Innen már csak türelem és gyorsaság kérdése a valódi képletté alakítás:
SAJNOS minden cellán végig kell menned F2 - Enter lenyomásával, hogy érvényre jusson az új képlet.
Természetesen a próbád egy másolaton és 1 oszlopon hajtsd végre - nehogy károsodjanak az adatok (és a hangulatod).
Annyira azért nem bonyolult, mint a leírás mutatja, könnyebb lesz végrehajtani, de nagyon fontos a név pontos megadása. Erre azért van szükség, hogy ne kelljen a képletet mindig teljesen kiírni.
Üdv. -
ny.janos
tag
válasz
Dilikutya
#47740
üzenetére
Ha egybefüggő területet alkotnak a képletezett cellák (azaz nincs közöttük olyan, hogy 10 oszlop képleteket tartalmaz, majd 3 nem stb.), akkor a következőket tenném:
1.
Alt + .-al átváltanám excelben a cellékat értékről képletre,
2. átmásolnám a képleteket wordbe,
3. csere funkcióval cserélném az alábbiakat,
a)^t=csere;"")^t=-re
b)^pcsere;"")^p-re
c)=csere=HAHIBA(-re
4. wordből visszamásolnám az adatokat excelbe,
5. (a word idézőjel sajátossága miatt) bármely cellából kijelölve már excelben cserélném valamennyi cellában a”„-t""-re,
6.Alt+.Remélem működik, és nem írtam el / hagytam ki semmit.
-
-
Dilikutya
félisten
Hello!
Van egy jókora táblám, további feldolgozásra adatokat szed más táblákból. Iszonyat sok hivatkozás és cella, jelenleg 25000. Na most ezeket lenne jó egy HAHIBA függvénybe tenni. Amikor jött a kérés, első gondolatom az volt, hogy les****m magam, a második, hogy eret vágok. Van értelmes harmadik alternatíva?
-
#47735
Dark Archon
addikt
sztanozs
#47733
-
#47734
Fferi50
Topikgazda
Dark Archon
#47732
Fferi50
Topikgazda
válasz
Dark Archon
#47732
üzenetére
Szia!
Itt találod az MS leírást a VBA-hoz
Üdv. -
#47733
sztanozs
veterán
Dark Archon
#47732
válasz
Dark Archon
#47732
üzenetére
igen, ha
1) átadod a funkciónak;
2) funkcióból is elérhető objektumban (pl. Application, Selection, Current*) vannak;
3) az értéket nem egy lokális, hanem egy globális változóba rakod.Kb ugyanaz, mint a JS amúgy.
-
#47732
Dark Archon
addikt
Üdv!
Szintén Excel VBA. Van olyan beállítás, amivel egy funkció "látja" a sub-ban definiált paramétereket? Hogy ne kelljen átadni, ha már egyszer definiálva, és meghatározva lett funkción kívül.
Vagy hogyan lehet gyorsan és fájdalommentesen átadni olyan adatokat, mint pl. kiválasztott tartomány, aktív munkalap, stb.?
Bocs, ha amatőr kérdések, de hétfőn kezdtem a VBA-t
JavaScriptben használtam utoljára funkciókat (függvényeket), tehát van némi fogalmam a működésükről, de ez egy másik programnyelv.Előre is köszi!
-
#47730
Dark Archon
addikt
Fferi50
#47726
-
milu
aktív tag
A feltett kérdésemre Delila adott jó választ!
Mivel a múltkor feltett kérdésemben a táblázat felépítését rosszul adtam meg, a jelenlegi minta szerint néz ki valóságban a táblázat.
A sorszámhoz tartozó utolsó összeg az "Összeg" alatti cellába ("B2") helyesen bekerül.
-----------------------------------------------------------------------------------------
A jelenlegi kérdésem az, hogy a keresett sorszámhoz tartozó utolsó dátumot a "C2" cellába milyen függvénnyel lehet kiíratni?
(pl: 825061502 sorszámhoz a 2021-01-01 dátum kerüljön a "C2" cellába)
-
Attas
aktív tag
Sziasztok!
Szeretnék kérni tőletek egy kis segedelmet.
Olyan makróra lenne szükségem, ami a futtatásakor, egy mappa tartalmát (pdf fájlok és excel fájlok kb 15db) átmásolja illetve felülírja a hálózaton lévő más mappák tartalmával. Leheteséges ez? Igazából hetente kb 2-3 fájl jön hozzá a régiekhez csak kb 30 hálózati mappába kell bemásolgatni..Nagyon köszönöm a segítséget előre is!!
-
#47726
Fferi50
Topikgazda
Dark Archon
#47722
Fferi50
Topikgazda
válasz
Dark Archon
#47722
üzenetére
Szia!
A VBA-ban a nemzetközi formulát és függvényneveket kell használni ilyen esetben, ami azt jelenti, hogy angol függvényneveket és vesszőt a képletekben. Így hordozható a program.
Lehetséges helyi - pl. magyar - formulákat is megadni a FormulaLocal, FormulaR1C1Local tulajdonságokkal, ebben az esetben viszont más nyelvi környezetben vagy más beállításokkal nem fog futni a program, hibát fog okozni.
Üdv. -
#47723
sztanozs
veterán
Dark Archon
#47722
válasz
Dark Archon
#47722
üzenetére
:thumbsup:
-
#47722
Dark Archon
addikt
sztanozs
#47721
-
#47721
sztanozs
veterán
Dark Archon
#47720
válasz
Dark Archon
#47720
üzenetére
Három ötletem van:
1) a FormulaR1C1 nem fér össze az "$A$11" nevezékkel
2) ha egy helyen full notation-t használsz, akkor mindenhol az kell
3) próbáld meg pontosvessző helyett veszzővel beadni a formulátPlusz egy javaslat: ha úgy is makróval húzod össze a sheeteket, akkor kézzel fűzd össze a szövegeket és csak rakd bele az eredményt a cellába.
-
#47720
Dark Archon
addikt
Hali!
Mi ebben a VBA kódban a hiba? Egyszerűen nem tudok rájönni, és Application-defined or object-defined errorral leáll, mert nem tudja értelmezni a cellába írt képletet.
OpenedWb.Worksheets(DestinationSheet).Range("E23:I23").FormulaR1C1 = "=CONCATENATE([" & mainFilename & "]" & mainSheet & "!" & SelectedData.EntireRow.Cells(1, "U").Address(ReferenceStyle:=xlR1C1) & ";$A$11" &")"A végén levő
& ";$A$11"-et elhagyva működik, csak egy cellát nem sok értelme van összefűzni, többet szeretnék. Akárhogy próbálom, nem sikerül, egy sima"_"-ra is leáll. Bármi ötlet? Előre is köszi! -
spe88
senior tag
Sziasztok!
Egy régi, mégis sokszor előforduló problémám van, talán ti tudtok segíteni.
Egy táblában, akarok hivatkozni cellákra.Azt akarom hogy a C oszlop cellái a kép szerint hivatkozzanak A oszlop értékeire. Lehúzni nem tudom, hiszen A-ban vannak üres sorok.
Mi erre a megoldás?
-
#47713
sztanozs
veterán
MostaPista
#47712
válasz
MostaPista
#47712
üzenetére
Ha a zöld jelet a 0 fokra forgatod, akkor kelet pontosan 90, dél 180, nyugat pedig 270 fok irányában lesz.
Vagy téged az érdekel, hogy a 18 fok és 221 fok között van 157 fok?
Akkor a válasz:
=ABS(ABS(ABS(A1-B1)-180)-180)Ahol az A1 az egyik B1 a másik irány cellája (fokban)
-
#47712
MostaPista
tag
lappy
#47711
MostaPista
tag
Meg sehogy, de mondjuk egy ilyen lehet:
A pont az Eszak-EszakKelet 18fok
B pont DelNyugat 221 fok
C pont Nyugat 279 fok(bar az egyszeruseg kedveert el lehet hagyni az Eszak, stb. megnevezeseket, azokat lehet kodolni, pl. Del az kb. 170-190 fok korzete, stb. de kicsit trukkos, mert 360 fok van es 8 egtajkod.)
Az iranytu igy nez ki, a pontos leolvasashoz a zold jelet N 0 fokra kell forgatni, es akkor lehet leolvasni a tobbit:
-
#47711
lappy
őstag
MostaPista
#47710
lappy
őstag
válasz
MostaPista
#47710
üzenetére
szia
hogy néz ki a táblázat? -
#47710
MostaPista
tag
MostaPista
tag
Udv, tudna valaki segiteni, hogyan lehet excel-ben iranytu alapjan fokokat szamitani?
Leolvassak, hogy A pont az Eszak-EszakKelet 8fok, B pont DelNyugat 221 fok, C pont Nyugat 279 fok es kiirja mindegyik kozotti foktavolsagokat?
Felteteleztem, hogy van ra excel peldaprogram, de webes keresessel nem talaltam.
-
#47709
eszgé100
őstag
Fire/SOUL/CD
#47708
eszgé100
őstag
válasz
Fire/SOUL/CD
#47708
üzenetére
annyiban kellett módosítanom, hogy a 2 feltételre keressen.
Előző példánál maradva az itthon gépen "nyomtatóinak" listája:
viszont a kulcsszavam, amit keresek "Microsoft" -> BW nyomtató
"Microsoft Print" -> Col nyomtató
Mivel a Microsoft mindkét esetben előfordul, ezért a két változó egyforma eredményt hozott.Így már tökéletes:
Sub Testprinters()
Dim Printers() As String
Dim N As Long
Dim S As String
Dim Col As String
Dim BW As String
Printers = GetPrinterFullNames()
For N = LBound(Printers) To UBound(Printers)
S = Printers(N) 'S & Printers(N) & vbNewLine
If InStr(S, "Microsoft") <> 0 And InStr(S, "Print") <> 0 Then Col = S
If InStr(S, "Microsoft") <> 0 And InStr(S, "Print") = 0 Then BW = S
Next N
MsgBox Col, vbOKOnly, "Colour Printer"
MsgBox BW, vbOKOnly, "BW Printer"
End SubNagyon szépen köszönöm a segítséged
-
#47708
Fire/SOUL/CD
félisten
eszgé100
#47707
-
#47707
eszgé100
őstag
Fire/SOUL/CD
#47705
eszgé100
őstag
válasz
Fire/SOUL/CD
#47705
üzenetére
írtam is, hogy ezt az itthoni gépemen próbáltam, ezért nem ugyanaz a telepített nyomtatók listája, de ha az elv jó, akkor csak a "XPS" és "PDF"-et, mint keresési feltételt kell kicserélnem majd a megfelelő kulcsszavakra.
-
#47705
Fire/SOUL/CD
félisten
eszgé100
#47702
válasz
eszgé100
#47702
üzenetére
Az elv, amit felvázoltál, az rendben van, csak korábban 2 telepített hálózati nyomtatóról volt szó, az meg nem látszódik a listában, pedig kellene (nálad biztosan nincs telepítve ez a 2 nyomtató)
-
#47704
Fire/SOUL/CD
félisten
Brain75
#47700
válasz
Brain75
#47700
üzenetére
Értem...
Annyit tudok mondani (aztán lehet, hogy valaki rájön a rejtélyre), hogy HA
1. Mindkét gépen ugyanazon OS fut és azok területi beállításai is megegyeznek
2. Mindkét gépen ugyanazon Office fut és azok beállításai is megegyeznek
3. Mindkét gépen ugyanazzal a fájllal van gond (ami tökéletesen megegyezik a másikkal)akkor lehet, hogy ez egy bug az Office-ban, ami abból is adódhat, hogy az egyik gépen le van frissítve (uptodate) az Office, míg a másikon meg nem, ezt le kellene ellenőrizni, és ha így van, akkor frissíteni.
Végső esetben, meg a CSV fájlban lecserélni a vessző elválasztót (mert alapban a vessző, az egyben tizedes elválasztó is) pl. pontosvesszőre. Sajnos azt nem tudom (nem írtad), hogy hány soros CSV-ről van szó, mert akkor nem olyan egyszerű a dolog, hisz a vesszőket könnyen le lehet cserélni pl. pontosvesszőre, de akkor az összes tizedes számban (amik macskakörmök közt vannak) is megy a levesbe, és azokat egyenként vissza kell írni vesszőre...
Vannak speciális szövegszerkesztők, amik speciális csere funkciókkal vannak felvértezve (pl. az ingyenes Notepad++), amikkel (megfelelő hozzáértéssel) könnyen kivitelezhető a feladat.Ha esetleg úgy gondolod, az email címemre átküldheted az érintett CSV fájlt és "ha tudom", akkor átalakítom (tőlem nem publikus adatokat tartalmazó fájlok sosem mennek/kerülnek ki, ezt többen meg is tudják erősíteni, nem csak itt, más topikokban is), nem Te lennél az első, aki nyugodtan megbízhat bennem. (Héten semmi extra meló nincs, van időm rá)
-
#47702
eszgé100
őstag
Fire/SOUL/CD
#47661
eszgé100
őstag
válasz
Fire/SOUL/CD
#47661
üzenetére
Itthoni gépen ez az eredmény:
Amennyiben az XPS... on Ne00: szeretném beállítani színesre és a PDF on Ne01:-et fekete-fehérre, akkor elég az alábbiak szerint módosítanom a kódot, vagy van még valami, amire külön oda kellene figyelnem?
Sub Testprinters()
Dim Printers() As String
Dim N As Long
Dim S As String
Dim Col As String
Dim BW As String
Printers = GetPrinterFullNames()
For N = LBound(Printers) To UBound(Printers)
S = Printers(N)
If InStr(S, "XPS") Then Col = S
If InStr(S, "PDF") Then BW = S
Next N
MsgBox Col, vbOKOnly, "Colour Printer"
MsgBox BW, vbOKOnly, "BW Printer"
End SubCol és BW lesz a két nyomtató teljes neve.
Megnézem, hogy S tartalmazza-e az XPS vagy PDF kifejezést az adott ciklusban majd a végén kiíratom, hogy talált-e egyezést, ha valamelyik MsgBox üres, akkor sz.r van a palacsintában.
A cilkus elejéről még módosítottam az S-t, hogy mindig csak az aktuális nyomtató neve legyen benne, és ne adódjanak össze a ciklus végére. -
milu
aktív tag
válasz
Delila_1
#47699
üzenetére
Kedves Delila!
Mint oly sok alkalommal, ismét támogattál a gyors megoldással, gyors javaslatoddal! Nagyon köszönöm!
----------------------------------------------------------------------------------
Az ismerősöm táblázata így néz ki ("A" oszlopban a kártyák sorszáma) a "B" oszloptól jobbra az időpontok. Nem értem, hogy miért nem az "A" oszlopban vannak az időpontok, az lenne a logikus! (Mert időpontból több lesz, mint kártya sorszám)
(Az itt bemutatott táblázat, példa, valós adatokat nem tartalmaz)
Hogy tudok bepastelni egy számot ahol 6nál több tizedes van, hogy megtartsa az összeset? Kipróbáltam kézze sem enged berni hatnál többet. És nagyon nehéz ezt meggooglözni, mert mindenféle mást ad.
Az elejét még megoldom. 
Új hozzászólás Aktív témák
- Szünetmentes tápegységek (UPS)
- Synology NAS
- Formula-1
- Mibe tegyem a megtakarításaimat?
- iPhone topik
- Víztisztító berendezések - kancsók - szűrőbetétek
- Android alkalmazások - szoftver kibeszélő topik
- Windows 11
- Samsung Galaxy Felhasználók OFF topicja
- Sütés, főzés és konyhai praktikák
- További aktív témák...
- GYÖNYÖRŰ iPhone 12 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3195, 95% Akkumulátor
- Új Lenovo 14 Ideapad 5 FHD IPS i5-1235U 4.4Ghz 10mag 16GB 512GB SSD Intel Iris XE Win11 Garancia
- BESZÁMÍTÁS! MSI B450 R5 5600X 16GB DDR4 512GB SSD 1TB HDD RX 5700 XT 8GB ZALMAN S3 TG Chieftec 600W
- HIBÁTLANiPhone XR 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3267, 96% Akkumulátor
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest