- Windows 11
- Van, ahol lesz összecsomagolt Disney+ és Max
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Vírusirtó topic
- Windows Insider Program
- HBO Max & OD topic
- Milyen routert?
- Ausztrália lecsap a kriptós adócsalókra
- Linux - haladóknak
- Több stúdiót is bezár költségcsökkentésként a Microsoft Xbox részlege
-
IT café
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
-
RaZroX
addikt
válasz föccer #37345 üzenetére
Na 2 youtube videó és a microsoft leírása alapján oda jutottam, hogy nem tudom megcsinálni
Ez lenne a cél:
De nekem úgy tűnik, hogy a színezendő cella értéke határozza meg. Szóval a színezendő cellától független cellákra lehet-e szabályt létrehozni, azt nem tudom.
This is the way
-
cheeka
tag
válasz föccer #37362 üzenetére
Biztosan félreérthető voltam, nagyon egyszerűnek írtam le, de nem az. Tervezek 3 témakört, témánként teljesen eltér a számítási módszer. Minden témakörben több márka van, egy márkának 5-10 típusa, ezen típusoknak esetenként akár 100 kapcsolódó kiegészítője. Ez nem egy formátum, de nem is igazán tudom leírni magamtól (hány lapot használjak adatfeltöltésre, mit melyik lapra írjak, azon belül milyen logika szerint stb.). Szerintem a több lépcsőben elért végeredmény lehet akár 30-40mb-os file is, ha ez egyáltalán lehetséges? Egy hasonlóan működőt használok, az 11mb (ez adta az ötletet, ez egy márkának a sajátja, nekem lenne benne kb. 30 márka).
-
Fferi50
őstag
válasz föccer #37807 üzenetére
Szia!
Sajnos az üres cellát "egyenlő" feltételként értelmezi a függvény.
Ha azt szeretnéd, hogy "ne vegye figyelembe", akkor az "üres" cellába ezt kell beírni <>.
Ezt úgy értelmezi, hogy nem üres a vizsgált tartomány.
(Azt ne kérdezd, hogy miért, talán Redmondban tudják.... )Üdv.
-
Fferi50
őstag
válasz föccer #37877 üzenetére
Szia!
"Ez gyönyörű szépen is működik minden esetben, kivéve a dátum esetében."
Mint bizonyára te is ismered, az Excel a dátumot számként értelmezi. Ha tehát a "dátumot tartalmazó cella" valóban dátum formátumú, bármit is látsz ott, amögött szám van (!).
Ezért a feltételekben is számként kell megadni a dátumot.Sheets("Tulajdonságok").Rows("7:7").AutoFilter Field:=1, Criteria1:=">=" & Format(Sheets("Segédszámítások").Range("C3").Value,"###") stb.
Üdv.
-
tpeter77
addikt
válasz föccer #37879 üzenetére
sziasztok,
Pár napja eltűnt a fájl betekintő előnézeti képe. Vajon mi lehet a gond?
Itt írtam róla bővebben.Win 10 education verzió, és Tisztaszoftveres Office 2016 hun változat van a gépen.
Múlt hétig rendben működött minden, majd feltűnt, hogy az Excel előnézeti kép nem jön be az Outlookban, és megnyitni sem engedi az xls fájlokat,
olyan mintha az Outlookhoz nem lenne társítva program, amivel az xls fájlokat meg tudná nyitni, ezért olyan üzenetet küld, hogy mentem le a fájlt és úgy nyissam meg.
Feltűnt, hogy a fájlkezelőben sincs már betekintési (előnézeti) kép.
Frissítési bug, vagy valami más hibával állok szemben?köszönöm!
-
dellfanboy
őstag
válasz föccer #38469 üzenetére
koszi, kozbe este megalmodtam es a data-text to columns-al mukodott ( angol excelem van)
tehat kijeloltem a nemjo formatumu sorokat (szurovel) aztan data text to columns fixed with date m/d/y es finish
mukodik (csak azert irtam le hogyha a jovoben vki rakeres akkor meglelje)eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz föccer #38495 üzenetére
Szia Föccer!
A szűrt adatok másolásáig
Sheets("Munka1").Select
Range("A:B,J:J").ClearContents
Range("K1:K150") = "=Countifs(A:A,J1)"
Sheets("Mintavételek").Range("E7:E" & Range("E7").End(xlDown)).Copy
Sheets("Munka1").Range("B1").PasteSpecial xlPasteValuesInnen már azt hiszem, nem volt problémád az ismétlődések eltávolításával, és másolásával.
Azért csak 1 sort másolt, mert a For-Next ciklusban csak másoltad a memóriába az egyes sorokat, de nem illesztetted be sehova.
Az első For ciklusod végére Next helyett End került, itt nyilván kiakadt a makró, ill. el sem indulhatott.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz föccer #38495 üzenetére
Szia!
Egyrészt a For ciklusokhoz nincs Next. Az End utasítás befejezi a makró végrehajtását.
Másrészt a For ciklusban megtalált első nem rejtett cella után ki kell ugrani a ciklusból a másoláshoz:
For sor = 7 To 100000
If Rows(sor).Hidden = False Then
Range("E" & sor).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Exit For
End IfMert egyébként a ciklus végigmegy az összes nem rejtett soron és az utolsót fogja neked bemásolni.
Amúgy pedig a Range SpecialCells(xlCellTypeVisible) hasznos a szűrőknél, mert "egyben" visszaadja a nem rejtett cellák tartományát. Azért írtam idézőjelbe az egybent, mert természetesen ez a tartomány több területből is állhat, az így kapott objektum tartalmazza mindet. Arra figyelj, hogy természetesen a fejléc is látható, ezért azt kihagyva kell használni.
Üdv.
-
Winner_hun
félisten
válasz föccer #38543 üzenetére
Ahhoz olyan billentyűzet kéne. Egérre be van programozva több dolog, azon kevés is a gomb
A több soros beszúrás megvan, azt megcsináltam, de gyanítom nem lesz elég (a kérdés felvetése óta már alakítottam sokat (nem szoktam excellel dolgozni, most meg annyit kell hogy jajj))► "Kicsit olyan webcaritas" ◄ ヅ
-
Delila_1
Topikgazda
válasz föccer #39131 üzenetére
Egy egysoros makró kell hozzá.
ActiveSheet.PageSetup.CenterHeader = Sheets("Munka1").Range("C3")
A cellatartalom megjelenítési helyét az élőfej-élőláb területén módosíthatod, a CenterHeader helyett másik területet megadva (LeftHeader, RightHeader, LeftFooter, CenterFooter, RightFooter).
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
dabgergo
őstag
válasz föccer #39210 üzenetére
Köszi nagyon a választ! Ez az indirekt dolog nem teljesen tiszta, így utánaolvasva ez nem arra lenne jó ha egy lista alapján változtatnám az értéket?
Az offset ugrott még be, de nem tudom ott sem megvalósítani egyelőreCsatolok egy képet h mi a gond.
Tehát az alaptáblában minden hónapnál fentről az ötödik sorban van az amit az összesítő táblába egymás alá akarok gyűjteni. Ezt szeretném valahogy lehúzni az összesítőben, hogy ne egyenként keljen beírni.
-
marec1122
senior tag
válasz föccer #39393 üzenetére
egy kicsit átalakítom a kérdést. van egy oszlop tartalma a következő. Megoldható e makró nélkül hogy kiszűrjük hogy hány időpont van 6-8 óráig, 8-12 óráig és 12 óra után. ha megoldható akkor pontosan hogyan ?
2018.09.03 6:12
2018.09.03 7:11
2018.09.03 9:02
2018.09.03 8:30
2018.09.03 7:59
2018.09.03 8:35
2018.09.03 10:19
2018.09.03 9:18
2018.09.03 9:37
2018.09.03 11:07
2018.09.03 11:30
2018.09.03 12:54
2018.09.03 12:32
2018.09.03 12:59
2018.09.03 13:41
2018.09.03 13:12
2018.09.03 13:20
2018.09.03 14:06
2018.09.03 14:24
2018.09.03 16:05
2018.09.03 16:01Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane
-
Fferi50
őstag
válasz föccer #39721 üzenetére
Szia!
Bocsánat, hogy bele vau-vau. De a szűrések, összesít függvény helyett nem lenne célszerűbb Adatbázis függvényeket, netán kimutatást használni. Ott nagyobb szabadság van ilyen téren szerintem. Esetleg szóba jöhetne az Advanced Filter amivel egyből lehet másolni másik helyre, sőt az ismétlődések is figyelmen kívül hagyhatók.
Üdv.
-
Delila_1
Topikgazda
válasz föccer #39719 üzenetére
Az F-be átmásoltam az A oszlop adatait, majd eltávolítottam az ismétlődéseket.
A G oszlop képlete szűrt állományban is működik. A kapott érték az a sorszám, ahol az A oszlopban először jelenik meg az F értéke. Látod, tömbfüggvény.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz föccer #39740 üzenetére
Ha esetleg dátumot, időt tartalmazó oszlopod is van, akkor nem szükséges sorszámos segédoszlopot felvenned. Az utolsó paraméter a dátumos oszlop hivatkozása lehet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
escsé
tag
válasz föccer #39745 üzenetére
Nem ez az. Ez táblázaton belül is jó lehet, de a formázás már elveszik.
Pontosítok: a táblázat a munkafüzet, lap a munkalap. <nálam
"A" munkafüzetből a "B" munkafüzetbe másolva kell nekem egy munkalapot áthelyeznem. A munkalapfüzet lapfülre kattintva "áthelyezés vagy másolás"-sal helyezném. Ebben az esetben a forrás táblázatban, ha szerepel link, akkor azt viszi és kiegészíti a a munkafüzet nevével.[ Szerkesztve ]
-
Wasquez
senior tag
válasz föccer #39806 üzenetére
A teljes feladat úgy nézne ki, hogy generálok egy táblát böngészőből excelbe. Nyitok egy másik böngészöt, akol hivatkozok a generált táblára, innen átveszi az adatokat. Majd egy új munkalapon a második excel-ben megírom az fkeres függvényemet. És # hiv érték jön vissza. Ha azt a cellát átírom amit keresek, tehát egy fix értéket adok bele nem az első generált excelt hivatkozom, akkor jön az érték akeresésben. Így én arra gongoltam, hogy nem az fkeres-em rosz. De nem vagyok nagy excel-ben.
PC
-
-
Fferi50
őstag
válasz föccer #46796 üzenetére
Szia!
A GET.CELL függvény nevét magyarították (mint a többit is), ezért a magyar nevét kell beírni:
CELLÁT.VESZ
A többi stimmel. (Ez még a régi Excel4-es függvények egyike, amelyek egyébként most is használhatóak ilyen trükkel - névkezelőben megadott új névvel.)
Egy kis info hozzá
Üdv.[ Szerkesztve ]
-
andreas49
senior tag
-
Mutt
aktív tag
válasz föccer #49346 üzenetére
Szia,
Mivel ez egy tömb-képlet (az új, előfizetéses változatban minden képlet tömb-képletként került feldolgozásra) azért a Formula2 tulajdonságot kell használni.
Itt a példa:
Sub ArrayFormula()
Dim rngSzuro As Range
Dim rngAdatok As Range
Dim rngCel As Range
Set rngSzuro = Range("A1:A10000")
Set rngAdatok = Range("B1:B10000")
Set rngCel = Range("G2:G4")
'kézzel van megadva minden tartomány a képleten belül
rngCel.Formula2 = "=TRANSPOSE(FILTER(B1:B10000,A1:A10000=F2))"
'változókból jönnek a tartományok
rngCel.Formula2 = "=TRANSPOSE(FILTER(" & rngAdatok.Address & "," & rngSzuro.Address & "=" & rngCel.Range("A1").Offset(, -1).Address(RowAbsolute:=False) & "))"
'R1C1 változatban
rngCel.Formula2R1C1 = "=TRANSPOSE(FILTER(" & rngAdatok.Address(ReferenceStyle:=xlR1C1) & "," & rngSzuro.Address(ReferenceStyle:=xlR1C1) & "=RC[-1]))"
End SubMicrosoft365 verzió esetén javasolt csak a Formula2-t használni, a korábbiaknák pedig a Formula vagy FormulaArray-t attól függően hogy sima vagy CSE képletről van szó.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Fferi50
őstag
válasz föccer #49353 üzenetére
Szia!
Nem tudom, milyen formátumban kapod az adatokat. De ha text, akkor textként beolvasva megadhatod, hogy milyen legyen az adat formátuma, illetve ha egy oszlopba olvasódik be, akkor a szövegből oszlopba varázslóval is megadható az oszlopok típusa.
Ha gondolod, priviben beszélgessünk róla.
Üdv. -
Delila_1
Topikgazda
válasz föccer #49523 üzenetére
Makrós megoldást tudok, a ThisWorkbook laphoz kell rendelned. A G1 helyett azt a cellát add meg, ahova a felhasználó nevét szeretnéd biggyeszteni.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim v
Set v = ActiveWorkbook.BuiltinDocumentProperties
ActiveSheet.Range("G1") = v(3)
End SubAz
ActiveSheet.Range("G1") = v(3)
helyett megadhatod, hogy az élőfejben legyen a felhasználó neve, itt a jobb szélen.ActiveSheet.PageSetup.RightHeader = "Felhasználó: " & v(3)
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Windows 11
- E-roller topik
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Wise (ex-TransferWise)
- Genshin Impact (PC, PS4, Android, iOS)
- Nyaralás topik
- BestBuy topik
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Mobil flották
- eMAG/edigital vélemények - tapasztalatok
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen