-
PROHARDVER!
PROHARDVER!
Új hozzászólás Aktív témák
-
Delila_1
veterán
-
![[CS]Blade2](//cdn.rios.hu/dl/faces/m09.gif)
[CS]Blade2
addikt
-
Delila_1
veterán
A feltételes formázás tartománya
A4:C...
Az I2:I15 tartomány neve Ünnepek, ide vittem be az év ünnepnapjait. -
[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.
-
ReSeTer
senior tag
-
Fire/SOUL/CD
félisten
-
moma
őstag
-
Fire/SOUL/CD
félisten
-
lappy
őstag
-
[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.
-
Dark Archon
addikt
-
lappy
őstag
-
[CS]Blade2
addikt
-
lappy
őstag
-
[CS]Blade2
addikt
-
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.
-
Fire/SOUL/CD
félisten
-
Fire/SOUL/CD
félisten
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)
-
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?
-
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
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?
-
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. -
-
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?
-
Dark Archon
addikt
-
Fferi50
Topikgazda
-
sztanozs
veterán
-
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!
-
Dark Archon
addikt
Szia! Értem, köszi
-
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)
-
Fferi50
Topikgazda
-
sztanozs
veterán
-
Dark Archon
addikt
A 3-as pont volt a nyerő. Álmomban sem gondoltam volna, hiszen itt ebben a programnyelvben a pontosvessző nem jelent sor véget, de valami másra ezek szerint használja a program.
Úgy dél óta szenvedek vele, szóval hálás köszönet és megy a virtuális sör cU
-
sztanozs
veterán
-
Dark Archon
addikt
-
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?
-
MostaPista
tag
Ah, abs fuggveny, hogy erre nem gondoltam.
Nagyon koszonom!
-
sztanozs
veterán
-
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:
-
lappy
őstag
-
MostaPista
tag
-
eszgé100
őstag
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
-
Fire/SOUL/CD
félisten
-
eszgé100
őstag
-
Fire/SOUL/CD
félisten
-
Fire/SOUL/CD
félisten
É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á)
-
eszgé100
őstag
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. -
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)
![[CS]Blade2](http://cdn.rios.hu/dl/faces/m09.gif)
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
- E-roller topik
- Luck Dragon: Asszociációs játék. :)
- Videós, mozgóképes topik
- Fogyjunk le!
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Saját fejlesztésű processzort kaphat a Xiaomi 18 Ultra egyik változata
- sziku69: Szólánc.
- Kormányok / autós szimulátorok topikja
- MuziX blog: Kipróbáltuk a GGMM multiroom rendszerét
- Futás, futópályák
- További aktív témák...
- 27% - ÚJ ASUS ROG Strix 27" XG27AQDNG OLED Monitor! 2560x1440 / 360Hz / 0.03ms / G-Sync / FreeSync
- 27% - ASUS ROG Strix XG27ACS Monitor! 2560x1440 / 1ms / 180Hz / G-Sync / FreeSync
- Lenovo ThinkPad L14 Gen 1 Ryzen 5 pro 4650U, 16GB RAM, 256-512GB SSD, jó akku, számla, gar
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Honor 400 Lite 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest