Hirdetés
-
OnePlus Pad 2 helyett OnePlus Pad Pro
ma Állítólag a OnePlus idei táblagépe nem a második generáció lesz, hanem az első modell Pro változata.
-
Nagy fordulat jöhet az OpenAI-n belül
it Profitorientált céggé válhat az OpenAI, erősítette meg Sam Altman.
-
Olcsó USB WiFi AC adapter
lo Egy olcsó WiFi AC USB adapter jó szolgálatot jelenthet, ha az új router csak elvileg támogatja a 2,4 GHz-es átvitelt.
-
PROHARDVER!
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
-
spe88
senior tag
Hello!
Van arra ötlet, hogy ha van 30000 sorból álló Excel-fájlomban egy oszlop, aminek a tartalma NOK vagy OK, akkor egy makró szűrjön rá az OK-okra és az összes ilyen sort törölje? (Ne a tartalmát, hanem az egész sort.)
Spóroljunk! Kerül, amibe kerül!
-
edari
őstag
Csak egy példa, átírod a tartományt (A1: BZ1), illetve a Field értékét, és a munkalapot (Munka8).
With Munka8
.AutoFilterMode = False
.Range("A1:BZ1").AutoFilter 'Filter bekapcsolása
.Range("A1:BZ1").AutoFilter Field:=1, Criteria1:="OK" 'Kritérium megadása
.Range("A2:BZ100000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Kritériumnak eleget tevő cellák törlése
Cells.AutoFilter 'Filter törlése
Range("A1").Select 'Alap kiindulópont beállítása
Application.CutCopyMode = False 'Kijelölés megszüntetése
MsgBox ("Ok")
End With[ Szerkesztve ]
-
repvez
addikt
online google excelben meg lehet azt oldani valahogy , hogy egy táblázat fejlécét egy lenyiló menüben kiválasztani az aktuális hónapot és annak megfelelően a kijelölt tartományban (15x31 cella c3:AC15) a megfelelő oszlopok elszineződjenek a hétvégéknek megfelelően , szombat zöld, vasárnap és ünnepnap piros.
ÉS a beirt jelek késöbb is visszanézhetöek egy korábbi dátumra?
A sima excelbe több eszközt találtam ezekhez itt nem nagyon találom . és azt hogy vagy hol tudom beállitani, hogy csak az láthassa és szerkeszthesse akinek a link megvan más ne.
Ha az, akinek megvan a link és van is gmailos fiokja az tud szinkronizálni a saját naptárjával vele és beirni a megfelelö értesitést hozzá? -
p5quser
tag
Sziasztok!
Azt meg tudnátok mutatni hogy ezt;Selection.AutoFilter
ActiveSheet.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlOr, Criteria2:="<-1"hogy tudom kiterjeszteni az összes munkalapra, kivéve az elsőt?
Előre is köszönöm! -
Delila_1
Topikgazda
válasz p5quser #36955 üzenetére
A ThisWokrbook laphoz rendelve
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name > "Munka1" Then
ActiveSheet.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlOr, Criteria2:="<-1"
End If
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz #05304832 #36957 üzenetére
Igen macroval lehet olyat.
Szerintem rakd össze a fejedben mit hogyan képzelsz és utána egy minta és kérdések jöhetnek.
Nem feltétlenül lesz átláthatatlan hiszen szűrőkkel meg lehet oldani hogy mit láss kiadás bevétel vagy egy adott időtartomány összes dolga.[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
p5quser
tag
válasz Delila_1 #36956 üzenetére
Szia!
Először is köszönöm.
Nem igazán tudom beszúrni, vagy nem ilyen formában kellene utasítani, vagy passz...
Az első munkalapon lévő gombhoz van rendelve ez a makró. Lefut, de csak azon a munkalapon, amelyiken futtatom a "debug" ablakból. Valamint az első munkalapon elszáll hibával, mert nem úgy néz ki mint a többi.Sub CommandButton2_Click()
'Kijelölés
ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlAnd
ActiveSheet.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.ShowAllData
ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:="<-1", _
Operator:=xlAnd
ActiveSheet.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
ActiveSheet.ShowAllData
ActiveSheet.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlOr, Criteria2:="<-1"
End SubEnnek a makrónak kéne lefutnia az összes munkalapon (kivéve az elsőt) a munkafüzetben, ha klikkelnek a gombra.
[ Szerkesztve ]
-
repvez
addikt
válasz repvez #36954 üzenetére
Eddig jutottam eddig :[kép]
Hiába probálom átmásolni a modositott értékekkel amit még régeben delila1 csinált nekem táblázatot nem akar müködni.
Van valami általánosan használható függvény arra ha egy egész évben a szombatot és a vasárnapot át akarom szinezni a kijelölt tartományban a cellákat plusz az ünnepnapok és a ledolgozandó szombatokkal?Addig eljutottam, hogy a feltételes formázásban a szombat vasárnapok elszineződnek, de csak a fejléc ahogy látszik a hozzá tartozó tartományon belüli oszlopok nem csak az egész tartomány.
ÉS ha tartalom kerül a cellába akkor eltünik.
A1ben van a kezdődátum 2018.01.01 a többi meg látszik a képen, hogy mi hol van. -
Pakliman
tag
válasz p5quser #36959 üzenetére
Szia!
Nem próbáltam ki, mert dokinál vagyok, de mennie kellene:Sub CommandButton2_Click()
'Kijelölés
Dim ws as worksheet
Dim act as worksheet
Set act=activesheet
For each ws in worksheets
If not ws is act then
Ws.activate
Ws.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlAnd
Ws.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Ws.ShowAllData
Ws.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:="<-1", _
Operator:=xlAnd
Ws.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Ws.ShowAllData
Ws.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlOr, Criteria2:="<-1"
Endif
Next ws
End Sub
(Baromi nehéz telefonon írni )[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz p5quser #36959 üzenetére
A laphoz rendelt gomb csak a saját lapján tud dolgozni. Helyette tegyél a lapra (mondjuk az elsőre) egy alakzatot, pl. a lekerekített téglalapot.
Modulba másold be a makrót:
Sub Szures()
Dim lap As Integer
Application.ScreenUpdating = False
For lap = 2 To Sheets.Count
Sheets(lap).Select
ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1"
ActiveSheet.AutoFilter.Range.Select
Selection.Interior.Color = 5296274
' ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11 'összes sor mutatása
Next
' Sheets(1).Select 'első lapra állás
Application.ScreenUpdating = True
End SubAz alakzathoz rendeld hozzá a Szures makrót. Ez a másodiktól az utolsó lapig halad, és mindenhol végrehajtja a szűrést, színezést.
Nézd meg, kell-e a két sor a makróban, amikhez megjegyzést fűztem.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
RAiN91
őstag
Sziasztok
Melyik az a függvény, ami hasonló mint a KERES, csak kicsit fordítva:
Van egy adott sor, számokkal. Megadok neki egy számot, amit keressen ki abból a sorból, és adja meg, hogy pl. balról hányadik oszlopban található.
Pl. 2 5 9 8 10 5
Keresem a 9-est, eredményül tehát a 3-as számot szeretném kapni.
-
p5quser
tag
#36961 Pakliman
#36962 Delila_1
Mindkettőtöknek köszönöm, mindkettő jól működik!
Ráadásul minkettő tanít, ami jól jön a következő lépésekhez.
Mégegyszer köszönöm!Pakliman, remélem kódolgatsz a dokinál, nincs baj.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz RAiN91 #36969 üzenetére
"Néhány függvény az utolsó celláig le van húzva, 1048576 sorig"
Ilyent még az öregapám sem hallott! Mi az -nek másolod végig? Mikor lesz 10^6 sorod?!
Készíts az adataid felső 2 sorából táblázatot (Beszúrás menü), majd a jobb alsó sarokban megjelenő kis kék jelet húzd le addig, ameddig kitöltött sorod van. Az alatta lévő TELJES sorokat töröld.
Új adatsor bevitelekor automatikusan nő a táblázatod mérete, és az új sor örökli a fölötte lévő képletet (cellaformázást, érvényesítést).
A milliós nagyságrendű képlet kiszámításához idő kell. A képletek törlésével feltűnően felgyorsul a számolás.
[ 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.
-
RAiN91
őstag
válasz Delila_1 #36970 üzenetére
Sajnos lesz annyi adat, legalábbis elméletben lesz, de már most 50 Mb a fájl, és lassú az egész, és még alig van benne valami
1 évnyi sportfogadás statisztika adatai.
#36972: akkor ezzel kapcsolatban még egy kérdés. Akkor inkább VBA-ban érdemesebb a képleteket írogatni, egy For-Next ciklussal?
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz RAiN91 #36971 üzenetére
Mivel sok statisztikai adatról van szó, el tudom képzelni, hogy a felső sorokban (amik már nem változnak) a képletek helyére beillesztheted a az értéküket.
Például a HOL.VAN függvény eredménye az említett példában 3, és ez év végén is annyi lesz. Kijelölöd ezeknek a képleteknek a tartományát, Ctrl+c-vel másolod. Marad a kijelölés, ahogy volt. Jobb klikk, Irányított beillesztés, Értéket.
Csak néhány utolsó sorban hagyd meg a képleteket, a többit írd felül az értékükkel. Jelentősen nő a sebesség, és csökken a fájl mérete. Az értékbeillesztést időről időre végrehajthatod az újabb képleteknél.
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 RAiN91 #36971 üzenetére
Egy makró akár az adat beírásakor is írhat eredményt anélkül, hogy a lapra képlet kerülne. Tudni kell hozzá, hova, milyen adatokból, és milyen eredményt kell képezni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Sziasztok!
Kerestem a megoldást mindenfelé, de nem sikerült rájönnöm a megoldásra... Hogyan lehetséges a kritérium mezőben (pl.: az
AB.DARAB2()
képlet esetében) értékeket, s nem tartományt megadni? Tehát olyasformán, hogy ne kelljen "segédcellákat" használnom. Próbáltam tömbként megadni:{"UserType"\"premium"}
Illetve ugyanezt traszponálva, hátha úgy megy:
{"UserType";"premium"}
De nem, úgy látszik nem szereti a tömb formátumot.
Köszönök minden megoldási ötletet!
Eleinte angol billentzuyetet akartam. De aztán megismerkedtem a nagy 'Ő'-vel!
-
p5quser
tag
#mithittem
Sziasztok!
Ismét.Dim rngA As Range
Dim rngB As Range
Dim intI As Integer
Set rngA = ws.Range("B1:B400")
Set rngB = act.Range("A1:A400")
For intI = 400 To 1 Step -1
If Application.WorksheetFunction.CountIf(rngB, rngA.Cells(intI)) = 0 Then
rngA.Cells(intI).Delete Shift:=xlUp
End If
Next intIEzt az izékét hogyan kell úgy módosítani, hogy ne törölje a cella tartalmát, hanem hogy másolja ki B-ből és szúrja be A-ba, egy sor "letolással", megegyező sorba?
Köszönöm![ Szerkesztve ]
-
p5quser
tag
#nevergiveup
Sziasztok!
=INDEX('rakat1'!$A$1:$N$400;HOL.VAN(A2;'rakat1'!$A$1:$N$400;0);11)
Ez miért "hiányzik"-kal dobál engem, amikor mindkét táblában ott vannak az adatok?
Az első munkalap A2-es cellájában van a keresési érték megadva (szöveg) és a rakat1-ből szeretném kikeresni az ehhez az értékhez tartozó sor 11. oszlopának metszetét.
Ctrl-F-re behozza mindkét lapon, tehát a keresési érték helyes.
Köszönöm. -
Delila_1
Topikgazda
válasz p5quser #36979 üzenetére
Lehet, hogy látszatra egyforma a két érték, de a keresett érték számként-, a 11. oszlopban pedig szövegként van megadva.
Ha mindegyik szöveg, gyakori hiba, hogy az egyik tartalmaz (többnyire a végén) egy szóközt. A TRIM függvénnyel levághatod a szöveg elején, és végén lévő szóközöket egy új oszlopban a keresés előtt, majd értékként beilleszted az eredeti helyére.
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 #36980 üzenetére
Persze egyszerűbb az FKERES-sel, de az sem találja meg, ha a típusok nem egyeznek meg. Az Excel keresője megtalálja, akkor is, ha a keresett szöveg előtt-után láthatatlan karakter, pl. szóköz van.
[ 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.
-
föccer
nagyúr
válasz Delila_1 #36984 üzenetére
Így van, de itt érzésemre más volt a gond.
Szoktam olyan "csalást" alkalmazni,m hogy ha kevés elemből kell keresni, hogy a keresési oszlop értékeire listás érvényesítést állítok be az adatbeviteli cellában, így ki van zárva bármiféle gépelési vagy egyéb user erroro.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
-
föccer
nagyúr
-
Delila_1
Topikgazda
-
p5quser
tag
Esetleg arra nincs valakinek tippje, hogy ezt;
For i = 2 To Sheets.Count
Cells(2, i).Formula = "=INDEX('" & Sheets(i).Name & "'!$A$1:$N$400,MATCH(A2,'" & Sheets(i).Name & "'!$B$1:$B$400,0),11)"
Next ihogyan házasítsam egy autofill-lel, hogy a cellát végighúzza az oszlopon?
Köszönöm! -
repvez
addikt
válasz Delila_1 #36978 üzenetére
Köszi ezt a képet le is mentem ha legközelebb szükség lesz rá.
Egy annyi kérdésem Lenne még,ha ezt felteszem google excel be vagy oda az online felületére akkor meg tudom addni , hogy ki láthassa és ki szerkeszti?
Vagy ha a nevek helyre a google emailcimüket irom akkor a google naptárukba be fog állitani nekik értesitést ha változás történik?[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz #05304832 #36995 üzenetére
A mai dátum bevitele Ctrl+0.
A helyedben a Jelentésszűrőbe tenném a 3 kategóriát, az Oszlopcímkékhez a kiadás-bevételt, a Sorcímkékhez a ügyfelet, a megnevezést és a dátumot, végül az Értékekhez az összeget.
Kiadás esetén negatív legyen a bevitt összeg, bevételnél pozitív, másképp hamis eredményt kapsz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
harkhon
tag
Sziasztok,
A segítségeteket szeretném kérni:
Ha van egy táblázatom, aminek egy oszlopában ilyesmik vannak:
A1: "WALTER FS1368 SEALING DISC (TOMITO TARCSA)"
és nekem pl az FS1368 - as adat alapján kell keresni, és ha megtalálta, akkor adja eredményül pl az E1 cellában lévő szöveget eredményül, erre lehet függvényt használni?
Én Vlookup-pal próbálkoztam, de ha jól vettem ki akkor azért adott rossz értéket, mert teljes egyezést keres.
Előre is köszönöm,
Egészség legyen és térerő!
Új hozzászólás Aktív témák
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Eladó Steam kulcsok kedvező áron!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.