Hozzászólások
-
SzerzőBejegyzés
-
A kr1 és kr 2 alapján meg lehet határozni a sort.
HA átalakítod a táblát több apró táblára, onantól az FKERES(;;;1) függvénnyel intervallumkeresés, itt van fent róla cikk.adj egy sorszám oszlopot, annak ki tudod olvsni s msx értékét, fkeressel, vagy hol.vannal meg tudod keresni az értéket, és a köv lapra átvinni.
Amúgy egy példa mindig segítség…Ha összerakja a hivatkozást szövegként, utána ráenged egy egyszerű makrót, akkor abból lesz hivatkozás. pl:
c = Cells(1, 1).Value
Cells(1, 1).Formula = cDe ha még nem makrózik, meg egyszerűbb szinten van, akkor csinálja meg egy hónapra meg egy évre a hivatkozást, lökje végig, és évenként cserélje az évet, majd hónaponként a hónapokat. Ez kb 12+x csere, ahol x az év. Lehet, hogy előtte érdemes megnyitni minden fájlt.
Nem tudom, mi értelme van ilyennek, de legördülőből, rejtett cellával, lapvédelemnél ilyesmit lehet csinálni. Annyi, hogy a szöveged a c oszlopban lesz, maga a szám a b-ben, de a C oszlophoz nem férsz hozzá. Jelszó nincs rajta.
Attachments:
You must be logged in to view attached files.2020-02-26-10:25 Hozzászólás: [Resolved] Táblázatként formázva, azonos oszlopok(rovatok) sorszámozása #6812Egyébként van: Beszúrsz egy oszlopot, és két darab táblázatot csinálsz, majd törlöd az oszlopot közöttük.
De ennek persze semmi értelme a továbbiakban…Attachments:
You must be logged in to view attached files.Egyszerű. Azt akartad, hogy ha „műa” szerepel a szövegben, akkor az egyik, egyébként a másik táblában keresse.
A HAHIBA() azért kellett bele, hogy ha a SZÖVEG.TALÁL() nem fut eredményre, akkor hibát ad vissza.
Ha a bővítés horizontális lesz (pl. acélajtók), akkor is hasonló az elv, csak két hibakezelés kell bele.Az Fkeres része a bruttó árnál beírtam. Ez hiányzott?
Attachments:
You must be logged in to view attached files.Szia!
Ha háttér, akkor minek vezérlő???
2019-12-18-15:19 Hozzászólás: [Resolved] Dátum szerint szűrt értékek összeadása és ennek végösszegének a hivatkozása #6582Jobb egérrel klikk a Pivot táblára, és frissítés 🙂
Google-ba üsd be:
cella színe vba prog.huLesz egy rakat találat, tele kódokkal, egyéb infókkal.
ujnev= „bla”&”bla”&”bla”@”.xlsm”
ActiveWorkbook.SaveAs ujnevOtthon egy mintatáblával még kipróbálhatod, hogy nem Te nyomtál-e valamit félre, a biztonság kedvéért.
Meg hátha Imi is tud valamit ehhez kapcsolódóan.prog.hu-n olvastam, hogy a frissítés után most lehalnak a fájlkezelőhöz kapcsolódó funkciók. Javítás még nincs.
Szóval nem tudod kipróbálni ugyanezt megcsinálni egy régebbi verziójú gépen? (Ha ott megy, akkor ez a baja, ha nem megy, akkor más a baja)Win 10?
Most volt frissítve?Ha havonta kell, akkor javaslom a sima irányított szűröt. Másik lapra megcsinálod a beállításokat és kész
Melékelem.
Adatok/Irányított szürő.
Kijelölöd a szürös lapon az első két sornyit (de nem is kell)
Megadod az előző munkalap oszlopait.
És lám.Attachments:
You must be logged in to view attached files.Szerintem sima Fkeres némi porhintéssel elég:
Attachments:
You must be logged in to view attached files.Itt nézted a sok lehetőséget?
https://www.google.hu/search?sxsrf=ACYBGNSaQjgTlpLN1HSpWMRKX8VNE6I25A%3A1571750882127&source=hp&ei=4gOvXYDbBZeDk74PjZ2v6AI&q=datamatrix+in+excel&oq=datamatrix+in+excel&gs_l=psy-ab.3..0i10i203j0i13i30j0i22i30j0i22i10i30l5j0i13i5i30l2.1304.7777..8258…0.0..0.244.2957.0j18j1……0….1..gws-wiz…….35i39j0j0i131j0i10j0i203j0i13.8sLH66nEA7c&ved=0ahUKEwiA1IKo_K_lAhWXwcQBHY3OCy0Q4dUDCAk&uact=5#spf=1571750891585
Csak egy szakmai megjegyzés:
Én az idézőjelbe azt írnám, hogy „Árazd befele!” 🙂Szia!
Lehet, hogy a nyomtatás részét át kell írni a saját nyomtatódra.
Írtam is, hogy a pld-t ne felejtsd átírni, ha kell.
Mentsd le a fájlt csak 2 boltra, és 2 ill. 3 példányra, ez 5 oldal. Ha jó, akkor fog menni másképpen is.
Felmerült, depiroslila részéről hogy véletlenül nem Címkét akarsz nyomtatni?Csináltam egy egyszerű makrót.
Ha anyomtatás nem menne, akkor rögzíts egy nyomtatást, a példányt írd át pld-nek, és menni fog.
Nem engedi feltölteni.
Bemásolom ide akkor:Sub Makró1()
‘
‘ Makró1 Makró
‘‘
Sheets(„Munka1”).Selectutolso = Cells(Rows.Count, „A”).End(xlUp).Row
For i = 2 To utolso
Sheets(„Munka1”).Select
uz = Cells(i, 1).Value
pld = Cells(i, 2).Value
Sheets(„Munka3”).Select
Cells(3, 4).Value = uzApplication.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = „”
.PrintTitleColumns = „”
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = „”
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = „”
.CenterHeader = „”
.RightHeader = „”
.LeftFooter = „”
.CenterFooter = „”
.RightFooter = „”
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = „”
.EvenPage.CenterHeader.Text = „”
.EvenPage.RightHeader.Text = „”
.EvenPage.LeftFooter.Text = „”
.EvenPage.CenterFooter.Text = „”
.EvenPage.RightFooter.Text = „”
.FirstPage.LeftHeader.Text = „”
.FirstPage.CenterHeader.Text = „”
.FirstPage.RightHeader.Text = „”
.FirstPage.LeftFooter.Text = „”
.FirstPage.CenterFooter.Text = „”
.FirstPage.RightFooter.Text = „”
End With
‘pld a példányszám
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=pld, Collate:=True, _
IgnorePrintAreas:=FalseNext i
End Sub
Attachments:
You must be logged in to view attached files.Szevasz!
Ha jól értem, a termék neve és a darabszám határozza meg az árat.
Nyílván van Egy listád a termékekről. ú
űNyílván van olyan táblád, ahol a fejléc a termék neve, alatt ameg egyik oszlopban a termék db-ja, és ehhez az ár.
Ha így van, akkor akkor Index()ho.Van() függvénnyel megkeresed a termék nevét a fejlécben, majd ebben Fkeres(;;;1) fv-nyel tudsz kategorizált árat keresni.
Azért egy egyszerű de értelmes példa általában többet szokott itt segíteni, mint a a gondolatolvasási gyakorlatunkra hagyatkozni.Igazi tipp-mix 🙂
delila!
Hogy zöld-sárga igen, de lila ne legyen, egy ötlet: máskor valami hülye karaktert írj be zs helyett pl zđ-t (AltGr+s)Nálunk mindig probléma, hogy az sql-be valaki a „-” rakta be elválasztó karakternek. Így a makróba külön csererészt kell berakni, mert előre cserélni kell (darabolás előtt) pár megnevezést (Munkabér-technikai /Fzs/, FUNDAMENTA-TECHN. /Fzs/, Fogyasztó-Elszámolási, Non-profit stb).
Én például a ß-t szoktam használni összefűzésre, mert ezt a karktert nálunk semmire se használják (még)delila!
És itt hol állítom be, hogy
átaláhúzza a szavakat?Ilyen nincs.
F7-re ellenőrzi a helyesírást, képletekben nem vizsgálódik.Van megoldás mindenre szinte, kivéve a klimakatasztrófát. Mert még ha aerosol is fújnak az égre, vagy megy a porhintés a világűrben, attól még a szemét és a szennyezés ugyanúgy megöl mindenkit.
Na de az Excel témánál maradva:
Nyílván ha nem túl hosszú, vagy végtelen hosszú törtrésszel rendelkeznek a számok. akkor felszorozni, összeadni, visszaosztani.
Beraktam példának az Imi nyerő számait, azokkal is működik.
Tömbképlettel csináltam, de nyílván lehet simán csak egy cellába kiolvasni a törtrész max hosszát.Attachments:
You must be logged in to view attached files.Remélem van valami személyazonosító is ezekhez az adatokhoz.
Nekem az furi még, hogy az utolsó kettő tök más formátum, mint az előtte levők. (van másodperc is)
A mintában túl sok sztahanovista nem látszik egyébként 🙂Hadd tanuljon D. Ani! 🙂
Létrehozol egy fájlt, beírod a makrók közé ezt a kódod, majd mentés másként/ bővítményként (.xlam).
Utána fájl menü/ Beállítások/Bővítmények ott hozzáadod a fájlodat. Utána bemész az excelbe, és ha el kezded beírni, hogy =Lo…
Akkor feldobja ezt a függvényt. első 5 a számsorod, 6. szám amit keresel benük.Gondolom véletlenül nem Ctrl gombot nyomsz (ki vanak jelölve).
Windowsnál sokszor segít a ki/be kapcsolás.
Esetleg nem lehet, hogy az egész cella értékét vizsgálod a cserében?‘ha ugyanabba a mappában van:
wb = ActiveWorkbook.Path
wbn = wb & „\Celfajl.xlsx”
‘ha máshol van írd be, hogy wbn=”X:\valami\valami\Celfajl.xlsx”
‘Megnyitod a fájlt:
Workbooks.Open Filename:=wbn
‘élesíted a lapot:
Sheet(„Céllap”).select
‘Megkeresed az utolsó sort az A oszlopban:
utolso = Cells(Rows.Count, „A”).End(xlUp).Row
‘beadod a célcellát egy változónak:
celcell=”A” & (utolso+1)
‘most kimásolod a cellát az alapfájlodból:
Windows(„Alapfajl.xlsx”).Activate
Cells(i,j).select
Selection.copy
‘ visszagyalogolsz a célfájlba:
Windows(„Celfajl.xlsx”).Activate
Bemásolod értékként:
Range(celcell).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
‘mented a fájlt
ActiveWorkbook.SaveAs wbn
‘Bezárod a fájlt
ActiveWindow.Closevagy 10 éve írtam egy ilyen függvényt:
Function Lottó_szám_kereső(szam1, szam2, szam3, szam4, szam5, keresszam)
If szam1 = keresszam Or szam2 = keresszam Or szam3 = keresszam Or szam4 = keresszam Or szam5 = keresszam Then Lottó_szám_kereső = 1 Else: Lottó_szám_kereső = „”
End FunctionA makró végére beírod, hogy nyissa meg a célfájlt
vélassza ki a célsheet-et
keresse meg az utolsó sort/sört/bort
utolsó+1-be írja be az adatokat.
Mentse a fájlt,
zárja be a fájltMi történt a jó működés és a hibás működés között? Jelszavaztad?
Egyébként ahhoz hogy megjegyezze, nem az kellene, hogy a BeforeClose eseménybe beírod, hogy írja be valahová a focusban lévő gombot, és utána pedig a Open-be beírod, hogy vegye ki és állítsa be azt a kiválasztott hónapot, nem?Fájl/Nyomtatás/Oldalbeállításnál margó 0 cm, méret 7×5 cm
Mindent meg lehet csinálni, de azért itt is a méret a lényeg, mint a nászéjszakán.
Query-t ismered az Excelben? Mert akkor a méret sem kérdés.
Ha nem akkor – legalább a jövőre gondolva – 2 út van:
vagy munkalapokon egységesen tartod az adatokat, valami okos kódolással, vagy külön fájlokban tartod az egyes cégek adatait.
Ha külön fájlokban tartod, akkor külön cégspecifikus kódtáblákat is tudsz gyártani, ami persze egységes az összes fájlban.
Pl dolgozó ID-hoz lesznek adatok.
A könyvtár tartalmát ki tudod listáztatni makróval, abból a listából meg lehet csinálni az előválasztást, majd a megnyitott fájl alapján lehet kutakodni. (munkalapneveket is lehet listázni, cvsak akkor külön fájlban kell tartanod a kód táblákat.
Persze jó lenne tudni pár dolgot:
kb hány cég?
max dolgozói látszám egy cégen belül.
egy dolgozóhoz mennyi adat kapcsolódik? (Nem mindegy, hogy pár azonosító adata van csak, vagy több évtizedes havi bérjegyzék/munkabeosztás is van mögötte.
Kérdezni csak okosan és szépen, mint ahogy csillag… Kiszel Tünde szokott.Úgy látom írás közben beelőztelek Imi, bocs! 🙂
De a konklúzió legalább ugyanaz…Nem.
Komoly ember nem szinezgeti az Excelt, és pláne szigorúan tilos cellákat egyesítgetni.
Segédoszlopot csinálj a színekhez (nyílván valami szabály szerint vannak szinezgetve).
Akkor Pivotba is használhatodOszlop kijelölése, Formátum: Dátum, majd: Adatok/Érvényesítés, Engedve: Dátum
Kezdőérték:
1900.01.01
Befejező:
2050.12.31 (Az emberiség vége publikáltan a klimakatasztrófa miatt)Meg összehúzni valamilyen időközökre, akkor átlátható. itt most kb 20 oszlop van. Ha percenként akarnád, akkor lenne 600. Az nem átlátható, meg nem is ez lehet a célod, hanem a nagyobb üresjáratokat könnyen meglelni naponként.
A dátumot azért variáltam, mert mindenáron havonként akarta csinálni, de biztos lehet ezt másképpen is. Diagrammal is megpróbálhatod, de ez elég szemléletes.nincs olyan makród, amelyik lemneti neked a fájlt, de utána be is zárja? Mert mintha rémlene, hogy ilyenkor kell bele valami ilyesmi: workbook(blbla).close savechanges:=true
Korlátozott képességű ez az oldal is, így kiszedtem a PIVOT táblát, de az értéket és formátumot meghagytam.
A 2. sorban van csak képlet az első sheeten. A feltételes formázás alakítható kedv szerint. Csináld meg a pivot táblát, akkor tudsz majd szűrni is.Attachments:
You must be logged in to view attached files.Fél óránkénti összehúzással felteles formázással gányoltam egy ilyentet.
Ezt nézd meg, be van-e pipálva.
Attachments:
You must be logged in to view attached files.HA a Fájl/Beállítások/Mentés 4. sorában nem adsz meg könyvtárat, akkor is akar helyreállítani?
Ez még jól jöhet:
http://excel-bazis.hu/tutorial/a-valaszt-choose-fuggvenySzia!
Nézd meg a Segéd fület, nem ilyesmi lenne az első lépés?
Ha átirod az időszakot pl 2 órára, akkor 2 órás intervalumokkal dolgozik.
Azért kérdeztem, mennyit akarsz látni, mert talán csak 254 db ha függvényt lehet egymásba ágyazni. Ennél több felttétel esetén már makrózni kellene egy Select..Case utasításhoz.
Innetől már kivariálhatod, hogyan akarsz színezni.
Szerintem.
De ha van még kínod, nyugodtan nyígjál!Attachments:
You must be logged in to view attached files.Kérdések:
Mekkorra időszakot akarsz egyszerre megjeleníteni? (heti bontás pl?)
Hány dolgozó van kb?
Hány gép lehet kb?
Hány termék lehet egy hét alatt gyártás alatt?
(Színezés miatt lehet ez érdekes)
Én lehet, hogy kétféle grafikát csinálnék.
Egyet dolgozónként, ahol idősorban látszik, mikorra van beosztva, a gép száma lenne a színezés, és beírva a termékkód a saját időintervallumába.
Egy másik a gépen mutatná színnel hogy melyik termék megy éppen, és beírva a dolgozó neve.
A kettőt nyílván pariba hozva.Lennék itt Dolgozó 4-5-6 🙂
Excelben van Gannt projecttervező sablon.
Excel/Új sablonok közt. Nézd meg azt legelőször.
Utána csinálhatsz sajátot is az alapján.Attachments:
You must be logged in to view attached files.Nem nagy a kép a háttérben? Mekkora fájl mérete?
Van valami beforeClose esemény is excelben emlékeim szerint, ott beállíthatod, hogy bezárás előtt aktiválja a kezdőlapot.
Valamit nem jól kapcsoltál össze, így a tény táblád valamelyik mezője és a naptár táblád egyik mezője nem tud mit kezsdeni egymással. AZért írja, hogy vagy a kapcsolat iurányán változztass, vagy töröld a kapcsolatot. nézd át a kapcsolt mezőket, valahol túlkapcsolhattál valamit. Attól hogy valami logikailag összekapcsolható, nem biztos hogy kell oda-vissza kapcsolni.
PP-ben így nem annyira látszik, hogy mik vannak kapcsolva, azért nézd át őket és írd le magadnak egyesével, akkro meg fogod találni a bibit. vagy tribit azaz 3bit.Múltkorában segített valaki egy jó ötlettel. Makróban is jól működik, de Excelben is:
=JOBB(„0″&HÓNAP(A1);2)
Ugyanígy jó NAP()-hoz is. És így szöveg lesz!Egy kis segítség: =ÉV(Ax)*100+HÓNAP(Ax) 🙂
Tudjuk milyen jó az Excel dátumkezelése…
Tehát ha kaarsz segíteni magadon, akkor csinálj 201812,201901,201902 számsorokat, mint dátumokat, az jó lesz mindig.Rakd be két egymás melletti cellába. A szöveget balra, és jobbra ütköztetve, a számot jobbra és balra ütköztetve. A számot úgy állítod be innentől kezdve, ahogy akarod. Ha ahátteret kiszínezed fehérre, nem látszik majd a cellaválasztó vonal sem.
2019-03-21-13:04 Hozzászólás: [Resolved] Egy mindig változó táblában egy adott eredmény keresése #5741Vagy ha nagyon nem akar makrózni, akkor csináljon pl egy 131. oszlopot (az már nem lesz zavaró a másik 130 mellett), és abban soronként keresse a HOL.VAN fügvénnyel az értéket.
Onna meg HAHIBA ,meg CELLA(„sor”;) meg egyéb függvényekkel már ki is tudja szedni a cella címét.2019-03-21-10:56 Hozzászólás: [Resolved] Egy mindig változó táblában egy adott eredmény keresése #5739Bocs, az előző nem fut, így lesz jó:
a = InputBox(Message, Title, Default, 100, 100)
With Worksheets(1).Range(„A1:AAA60000”)
Set c = .Find(a, LookIn:=xlValues)
firstAddress = c.Address
End WithMsgBox firstAddress
2019-03-21-10:54 Hozzászólás: [Resolved] Egy mindig változó táblában egy adott eredmény keresése #5738a = InputBox(Message, Title, Default, 100, 100)
Worksheets(1).Range(„A1:AAA60000”)
Set c = .Find(a, lookin:=xlValues)
firstAddress = c.Address
msgbox firstAddress2019-03-21-10:07 Hozzászólás: [Resolved] Egy mindig változó táblában egy adott eredmény keresése #5736Ctrl+F?
ThisWorkBook-ban Workbook_SheetActivate
Ott be tudod programozniVan egy HAELSŐIGAZ() függvény is már, azt is nézd meg, lehet, hogy elég lesz neked annyi.
Ha nem nézed meg, neked annyi! 🙂Megint nem enged csatolni…
Attachments:
You must be logged in to view attached files.=HA(A1=”piros”;INDIREKT(„D2”)*INDIREKT(„E2″);HA(VAGY(A1=”kék”;B1=”kék”);INDIREKT(„G2”)*INDIREKT(„E2”);0))
Plusz oszlop. (Pl a dátum A oszlop, az érték B oszlop, akkor C oszlopba beírod:
=HAHIBA(FKERES(A2,TartományA:B!,2,0),B2)
Vagyis ha nem leli az új adatok között, akkor beírja az eredeti értéket. A vessző pontosvessző, csak ebbe a szarba már megint eltünt.NA, egy kis továbbfejlesztés, saját függvény, 2 paraméteres (bár lehetne fejlesztgetni még:
Public Function Datum_szoveg(a As Long, b As Long) ' ' Makró1 Makró ' Dátuméték; Második paraméter: ha 0, akkor XXXXYYZZ formában, ha nem 0, akkor XXXX.YY.ZZ.formában adja vissza SZÖVEGként a dátumot ' ' c = Year(a) d = Month(a) e = Day(a) If d * 1 < 10 Then d = "0" & d If e * 1 < 10 Then e = "0" & e If b = 0 Then Datum_szoveg = c & d & e Else Datum_szoveg = c & "." & d & "." & e & "." End Function
És ha így:
If ho*1<10 then ho = “0” & hoSzóval a Format(Now(), „yyyymmdd”) sem megy?
Persze.
ho=Month(Now())
If ho<10 then ho = „0”&ho
nap = day(Now())
If nap<10 then nap = „0”&nap
strTime= Year(Now())&ho&nap
De ezek szerint a formatban megadott formátumot nem ismeri fel, az az alaphiba.VBA-ban nincs pontosvessző, csak ha cellába akarsz képletet beíratni, akkor a képlet szövegébe ” között lehet.
Én nem látom a pontosvesszőket, valami szar beállítás miatt.
Azok ott veszzők lesznek.
De hol is van neked pontosvessződ?Sheeva fájlja néven nyitottam egy topicot a prog.hu-n, gyorsan töltsd le onnan!
Valami baj van az oldallal.
Privát címet itt neküldj.
Prog.hu-*n nem vagy fent?
Tedd fel a kérdést, elküldöm ott.drtdrtdrdtrtdtd
NA most?
Upload Errors:
1.Kampány.xlsx: Elnézést, ennek a fájltípusnak a használata – biztonsági okból – nem engedélyezett.Ez mi?
Mellékelek egy példafájlt.
A jelszó kamp mindenhol.
Nézd meg aképleteket.
De ha komolyabb védelem is kellene, lehet, hogy egy makróba kellene beállítani az egyedi értékeket. De így is jó lehet.Egy ötlet:
MsgBox Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now())
Ha msgbox Now()-t írsz, azt kiírja?
(mert ha jól értem, akkor strTime=”2222.13.32.25:61:62″ esetén (ha nem függvénnyel veszed ki az értéket) jól menne)A formátumkód lesz rossz, azért áll meg. Amíg nem tudod kiiratni a dátumot, addig ne fog menni.
Próbálkozz pár variációval.Így ?
Msgbox Format(DateTime.Now, „yyyy-MM-dd hh:mm:ss”)Mit ír ki egy MsgBox Format(Now(), “yyyymmdd\_hhmm”)
???Az adott cégre jellemzőket jelszóval védett munkalapra másolod.
A munkafüzetet szintén levéded.
Minden cégnek adsz egy jelszót, ami elég erős. Ha azt beírja, akkor egy Fkeressel megkeresi az adot jelszóhoz tartozó alapadatokat. A cellavédelemnél a lapra való hivatkozást rejtsd el!
cellaformázás/Véedelem/Rejtett.
A munkalapot is rejtsd el. A munkafüzetet is védd le!=HAHIBA(KÓD(A1),””)
Vessző helyett pontos vessző kell, csak már meghint eltünt a gépemről…
Format(Now(), “yyyymmdd\hhmm”)
Vagy
Format(Now, „yyyymmdd hhmm”)
https://www.ms-office-forum.net/forum/showthread.php?t=357598Igen, a total ÉS is jó megoldás (ugyanaz).
Ráadásul rövidebb is.
Most látom, hogy a címből kimaradt a <>, pedig beleírtam!Persze, létezik az a sörmennyiség a (0, 1) intervallumban 🙂
Kiegészítés:
Ha előfordul (ahogy írtad), hogy egy napon többször szerepel az ID, az sem baj, mivel a HUF összeg az adott napon az adott ID-ra összeadódik!
(Egyébként ez pénzváltóknál kell nézni, hogy ha 7 napon belül valaki többet vált 300.000-nél (kb 1000 EUR), akkor azt be kell azonosítani vagy mifene)Szia!
Szia!Így csináltam meg:
1) Alaptáblában NONAME nevű ID felvíve minden napra 0 HUF-tal.
2) Pivot tábla sorok az ID, oszlopokban dátum, érték a HUF.
3) Pivot táblaát kimásoltam (mert a dátumokat mindenképpen akarta hónapokra össztesíteni) másik munkalapra értékként
4) „Oszlopbarendeztem”, kitöröltem a havi összesítő oszlopokat.
5) A tábla végén (NC oszlop) beírtam, hogy SZUM(B2:H2), majd 359 oszlopnyit elhúztam (AAW oszlopig), aztán legurítottam.
6) AAX oszlopba beírtam, hogy MAX(NC2:AAX2), legurítottam.
7) Szűrő az AAX oszlopra, 300.000 nél nagyobb értékekreAttachments:
You must be logged in to view attached files.Igen, de itt 7 naponta kell (jan1-jan7, jan2-jan8…)
De a pivotos jó lesz, a végére meg ott a MAX(függvény)
Azért köszi!
Ahogy leírtam, meg is lett a megoldás.
Más is járt már így:A pap panaszkodik a helyi rendőri szervnek:
– Biztos úr! Ellopták a biciklimet, mit tegyek?
– Hát tiszteletes úr, nem sokat tudok magának segíteni. Tudja mit? Ha holnap misét tart, sorolja fel a Tízparancsolatot, és nézzen körül a hívei közt, amikor odaér, hogy ne lopj! Biztos látni fogja a tettest, ahogy behúzódik a padba.
– Köszönöm, biztos úr, megfogadom.
Másnap újra felkeresi a rend őrét a pap.
– No atyám, bevált?
– Bevált, de még mennyire. Amikor odaértem, hogy ne paráználkodj, rögtön eszembe jutott, hogy hol hagytam a biciklit!Megvan!
berakok egy fiktív ID-t, hogy minden egyes nap benne legyen a listában.
Ezután Pivot tábla sorai: ID, Feje: DATE, SZUM HUF a belseje.
Utána meg csak a végén összesítem 7 naponként, és ahol van 300.000-nél nagyobb elem, ott azt megjelölöm.
Vagy van nagyszerűnn megoldás is?A sört majd Imrének küldd! 🙂
Szövegként kell megadni a kritériumot. Az & jellel kapcsolsz össze két valamit, ami utána szöveg lesz.
Pl 1+1=2, de 1&1= 11, szövegként.
Azért nem jó a „<=M7” mert az <=M7 lesz, míg a „<=”&M7 (=FŰZ(„<=”;M7) ) az <=VALAMI (VALAMI= M7 cella értéke). -
SzerzőBejegyzés