Hirdetés
-
GAMEPOD.hu
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
-
#23653
Delila_1
veterán
Mr.Scofield
#23648
Delila_1
veterán
válasz
Mr.Scofield
#23648
üzeneté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.
-
#23654
kriszwells
aktív tag
kriszwells
aktív tag
Üdv! Azt be lehet állítani 2003-as excel-ben, hogy a fájl nevére kattintáskor, elsőnek jelszót kérjen és csak utána nyissa meg? Próbáltam az Eszközök/Védelem funkciókat, de valahogy nem jött össze. Kösz!
Core i5 10400F, Lenovo T32h-20, Nikon Z Fc, Pocketbook Sense 630, GIGABYTE GeForce GTX 1050 Ti OC 4GB GDDR5 , https://www.youtube.com/channel/UC9JycGJu4WSrta7RomJtinA
-
#23655
Fferi50
Topikgazda
kriszwells
#23654
Fferi50
Topikgazda
válasz
kriszwells
#23654
üzenetére
Szia!
A fájl mentésekor lehet beállítani. A mentés másként opciót válaszd a fájl menüből. A párbeszédpanel ha jól emlékszem alul van egy eszközök, arra rákattintva egy beállítások opció, ha ezt kinyitod, akkor ott vannak a védelmi opciók: jelszó kérés betekintéshez, módosításhoz.
Oda beírod a jelszót, megismétled és elmented a fájlt ugyanazon a néven - megkérdezi, hogy kicserélje-e, erre azt mondod, hog igen - vagy adsz egy másik fájlnevet.Üdv.
-
#23656
kriszwells
aktív tag
Fferi50
#23655
-
tgumis
tag
Tud valaki egy olyan makrót prezentàlni amegy mondjuk 411 értékből kiszűri az ismètlődő sorokat?
Manuàlisan meg tudom adni csak egyeszerű felhasznàlóknak szànt tàblàzatba kell ès 2003 as excellen is futnia kellene.
Szóval c2:c700 tartomànyba egy èrtèk kb 6o szor van ès egy kattintàssal a d oszolpba minden èrtkèk csakn1 szer jelenjen meg mundjuk 10 èrtéket làssunk össz vissz
Tudom a 2007 ben màr van az ismètlődő sorok eltüntetèse de azt most nem alkalmaznàm. -
Delila_1
veterán
válasz
tgumis
#23657
üzenetére
Sub IsmTorl()
Dim sor As Integer
sorM = 2
Range("D2:D700") = "=IF(COUNTIF(C2:C$2,C2)=1,C2,"""")"
For sor = 700 To 2 Step -1
If Len(Cells(sor, 4)) < 1 Then Cells(sor, 4).Delete shift:=xlUp
Next
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.
-
Fferi50
Topikgazda
válasz
tgumis
#23657
üzenetére
Szia!
Excel 2007- ben adatok speciális szűrő, Excel 2003-ban adatok, irányított szűrő (makróban advancedfilter metódus.
Ha a c1 cellába tettél egy fejlécet, akkor az irányított/speciális szűrő párbeszéd paneljében csak azt kell beállítanod, hogy C1:C700 az adattartomány, C1 a szűrőtartomány, helyezze át máshova, ide beírod a D1-t, és bejelölöd a csak az egyedi értékeket.Makróval:
range("C1:C700").advancedfilter action:=xlfiltercopy, criteriarange:=range("C1"),unique:=true,copytorange:=range("D1")Ennyi az egész.
Üdv.
[ Szerkesztve ]
-
mr.nagy
tag
Sziasztok!
Azt meg lehet oldani, hogy egy makró csak az autószűrővel leszűrt eredményen fusson végig?
A makró oldaltöréseket csinál megadott kritériumok szerint. Mivel max. 1000 körül lehet a manuális oldaltörések száma, ha a teljes táblázaton fut végig leáll hibaüzenettel (kb. 50000 soros a táblázat), ezért kellene, hogy csak a szűrések után kapott eredményen fusson végig.
Ez a makró ami az oldaltöréseket csinálja:
Sub PrintFormat()
Dim SBar As Boolean
Dim RowCount As Long
Dim Percent As Integer
Dim i As Long, Col As Integer
SBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
With ActiveSheet
Col = Range("D1").Value
RowCount = .UsedRange.Rows.Count
.ResetAllPageBreaks
For i = 5 To RowCount
If UCase(.Cells(i, Col).Value) <> UCase(.Cells(i - 1, Col).Value) Then _
.Cells(i, Col).PageBreak = xlPageBreakManual
If Int(i / RowCount * 100 + 0.5) = Percent + 1 Then
Percent = Percent + 1
Application.StatusBar = Percent & "% kész"
End If
Next
End With
Application.StatusBar = False
Application.DisplayStatusBar = SBar
Application.ScreenUpdating = True
End SubHMNote10Pro
-
Fferi50
Topikgazda
válasz
mr.nagy
#23660
üzenetére
Szia!
Elvileg két lehetőséged is van erre.
Az egyik, hogy amikor végigmész a sorokon, akkor megnézed, hogy az éppen látható-e:
cells(i,col).entirerow.hidden = true akkor a sor el van rejtve, ellenkező esetben látható. Nyilván a nem látható sorokat nem kell beszámolni a nyomtatásnál.A másik a specialcells metódussal kiválasztod a látható sorokat és azon mész végig, de itt vigyázni kell, mert nem lesz összefüggő a területed, tehát minden területet figyelembe kell venned:
set lathato=activesheet.usedrange.specialcells(xlcelltypevisible)
for each terulet in lathato.areas
for each sor in terulet.rows
'ide írod a kódot
next
nextNyilván az oldaltörési kritériumot figyelned kell.
Üdv.
[ Szerkesztve ]
-
#23663
Mr.Scofield
újonc
Mr.Scofield
újonc
Miért van az ha az utolsó sorra navigálok el az 'adatkezelés' munkalapon és kitörlöm a törlés gombbal az utolsó sort akkor az adatok munkalapra visszalépve a "kor" oszlop utolsó értéke beíródik az A oszlop utolsó sora után ??? Please HELP!
-
#23664
Fferi50
Topikgazda
Mr.Scofield
#23663
Fferi50
Topikgazda
válasz
Mr.Scofield
#23663
üzenetére
Szia!
Egyszerű: azért, mert torlo makródban cellánként törölsz és alapesetben ez azzal jár együtt,hogy a törölt cella helyére becsúszik a következő cella, jelen esetben az A helyére a B, a B helyére a C, de ugye Te utána az A-cellát már nem törlöd mégegyszer, csak a B-t és ilyenmódon a C törlése már teljesen felesleges is, mert abban már régen nincs is adat. (Próbáld ki manuális törléssel, hogy lásd, miről is beszélek.)
Megoldás: töröld egyben a 3 cellát, vagy töröld 3 x az A oszlopban levő cellát.
Egyben törlés: Sheets("Adatok").Range(Sheets("adatok").Cells(sorszam, "A"), Sheets("adatok").Cells(sorszam, "C")).DeleteDe még jobb szerintem, ha csak a tartalmat törlöd: cells(sorszam,"A").clearcontents, de ezt is csinálhatod egyszerre mindhárom cellán.
Üdv.
-
Delila_1
veterán
válasz
atesss
#23665
üzenetére
Alakítsd a tartományodat listává (2003-as verzió), ill. tartománnyá (2007-es verziótól). Legegyszerűbben a Ctrl+r bill. kombinációval teheted meg. Ezután a beszúrt sorban is megjelennek a fölötte lévő képletek.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
slashing
senior tag
válasz
Delila_1
#23667
üzenetére
egy bajom van a táblázattá alakított táblázattal
hogy lapvédelemnél a mocsok nem bővül, így meg nem lehet védeni benne az érvényesített oszlopokat a képleteket semmit 
. Van egy ilyen táblázatom amit kb. 10-15-ön töltenek és minden héten javítanom kell rajta valamit. A képletket tartalmazó oszlopkon már macro van hogy ne tudják törölni őket 
de arra még nem jöttem rá hogy a búbánatba tudják a feltételes formázást minden héten tönkrevágni rajta... -
tgumis
tag
válasz
Fferi50
#23659
üzenetére
Köszi de se a Te se a Delila makrója nem működött. Biztos ën vok bal/sz leírnàtok melyik rèsze a makrónak mit jelent hàtha megfejtem.
A spec szűrő viszont jó bàr valamièrt mindig csinàl olyat hogy az eggyik elemet de csak eggyet ²szer rak bele az első elem az. Szóval a szűrendő lista első elemèt 2szer szerepelteti -
opzozi
tag
Halihó!
Következő kérdésem lenne.
Adott egy tartomány, mondjuk A1:A5, amiben különböző értékek vannak. Pl. [1;2;5;5;1]
B1-ben van egy érték, mondjuk 2.
B2-ben hogyan számolom ki azt képlettel, hogy az A1:A5 tartományból számolja össze azokat a cellákat, amelyek B1-től nagyobbak. Tehát ne összeadja, hanem számolja össze, hány ilyen cella van az adott tartományból.Xiaomi Poco X3 Pro
-
#23674
opzozi
tag
m.zmrzlina
#23673
opzozi
tag
-
#23676
opzozi
tag
m.zmrzlina
#23675
opzozi
tag
válasz
m.zmrzlina
#23675
üzenetére
És ha több kritériumot is szeretnék megadni? Pl. mondjuk 2-től nagyobb, de 5- től kisebb.
Vagy ha van egy másik oszlop mellette. Beszúrok mellé egy másik oszlopot.
A1:A5 ugyanaz
B1
5 [igen;igen;nem;igen;nem]
És akkor a C-ben számolnék, hogy azokat számolja meg, amelyik megfelel az adott kritériumnak és mondjuk a mellette lévő oszlopban "igen" szerepel.Xiaomi Poco X3 Pro
-
Fferi50
Topikgazda
válasz
tgumis
#23669
üzenetére
Szia!
Az advanced filternél FONTOS: a szűrni kívánt oszlop első cellája legyen fejléc!!!. Ezért viszi be neked a legelső értéket 2x, mivel azt tekinti fejlécnek. (Anno a fejléc szükségességét jeleztem a hsz-ban.)
Tehát Te is tekintsd a D1 cella értékét "fejlécnek". Ha ezzel együtt tudsz élni, akkor nem kell csinálnod semmit....(bár arra figyelni kell, ha csak egy olyan adat van, mint a fejléc, akkor viszont nem lesz 2x az értéke.)Üdv.
-
#23680
m.zmrzlina
senior tag
opzozi
#23676
m.zmrzlina
senior tag
válasz
opzozi
#23676
üzenetére
C1-ben van a felső küszöb, B1-ben az alsó:
=DARABHATÖBB(A1:A13;">" & B1;A1:A13;"<" & C1)
ugyanez számokkal megadva:
=DARABHATÖBB(A1:A13;>2;A1:A13;<5)
C1-D1-ben van a két küszöb, E1 az igen/nem B oszlopban az igen/nemek
(ha nagyobb C1-nél és kisebb D1-nél és )=DARABHATÖBB(A1:A13;">" & C1;A1:A13;"<" & D1;B1:B13;E1)
[ Szerkesztve ]
-
#23681
opzozi
tag
m.zmrzlina
#23680
opzozi
tag
válasz
m.zmrzlina
#23680
üzenetére
Köszönöm Neked is. Néha egyszerűbb, mint amit beleképzel az ember, hogy ez elég bonyolult.
Xiaomi Poco X3 Pro
-
Agony
aktív tag
Sziasztok!
Egy kis segítségre lenne szükségem, mert nem boldogulok az előbukkant problémával.
- A oszlopban van változó soronként egy dátum
- B oszlopban minden sor egy címEzeket kellene összehoznom C oszlopban, olyan formátumban, hogy: Város,Dátum
A címből sikerült kihámozni a várost függvénnyel és az összefűzés is megoldott, viszont azt nem tudom, hogy lehetne megoldani, hogy minden cím mellé az A oszlopban hozzá legutoljára található dátumot hozza.
INDEX-szel és VKERES-sel próbáltam,de sehogy sem akart működni.
Csatoltam egy képet az elrendezésről:
Előre is köszönöm!
Start with a whisper, end with a scream!
-
Delila_1
veterán
Az A oszlop minden sorába be kell írnod a dátumot. Ez pár kattintással megoldható.
Ha zavar a sok dátum látványa, egy feltételes formázással "eltüntetheted", a háttér színére váltva a karakterek színét ott, ahol a dátum azonos a fölötte lévő sor dátumával.
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
veterán
A feltételes formázást előre megadhatod neki, és rábeszéled, hogy minden sorba írjon ezután dátumot. Nem kell minden alkalommal az irányított ugrást alkalmazni.
Az sem biztos, hogy zavarja, ha soronként látja a dátumot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
HS 2142
őstag
Sziasztok!
Arra lennék kíváncsi, hogy megoldható-e valahogyan, hogy az exceles táblázatot elforgassam 90 fokkal, mint ahogy az képeknél vagy egyéb objektumoknál könnyen megoldható.
Tehát ilyen végeredménnyel, amit így fektetve lehetne másolni tovább, akár wordbe vagy power pointba :
I am...the architect of my own destruction...So this is it. What is written in the timeline cannot be changed.
-
Oly
őstag
válasz
HS 2142
#23688
üzenetére
Transzponálni szeretnéd a táblázatot?
Másolás után a beillesztésnél választhatod a transzponálást, és akkor a sorokból oszlopokat csinál.SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Oly
őstag
Nekem egy olyan kérdésem lenne, hogy adott egy 200k+ soros táblázat, amiben makróval keresek értékeket. Mivel minden bemeneti értékre végig nézi a for ciklus a 200.000 sort, így elég lassan fut le.
Van valami más lehetőség, hogy egy adott listában értéket keressünk?
a VLookup nem jó, mert a listában egy keresési érték többször szerepel, és kell minden érték, amit a makró egymás alá másol ki.Vagyis az alábbi táblázatban
barack - őszi
barack - kajszi
alma - piros
alma - zöldaz alma szóra keresve kreál egy új listát a piros és zöld értékekkel:
piros
zöldEzt korábban szűrővel oldottam meg, de most úgy néz ki a táblám, hogy van egy 30 soros bemenet és a 30 értékhez keresem meg a 200.000-ben a hozzá tartozó 20-20 érteket. Ha ezt mind makróval szűrném, copynám, akkor félek, összeomlana az excel.
Ötlet?
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Fferi50
Topikgazda
Szia!
A makróban is használhatod és nagyon jól működik a szűrés.
Másrészt viszont kereshetsz a range.find metódussal, nézd meg a példát a VBA helpben.
Használhatod match munkalapfüggvényt makróban is, ami a keresett érték helyét adja meg az adott sorban, vagy oszlopban.Ha egy rövid mintát felteszel, akkor még többet tudunk segíteni.
Üdv.
-
HS 2142
őstag
Ezt a megoldást már próbáltam, azonban a végeredmény sajnos nem adta a kívánt formulát. Így ugyanis nem fordult el a táblázat, szimplán csak felcserélődtek a cellák.
I am...the architect of my own destruction...So this is it. What is written in the timeline cannot be changed.
-
Delila_1
veterán
A2-től lefelé vannak a megnevezések, B2-től mellettük az adatok.
D1-től jobbra bevittem a keresendő megnevezéseket, ezek alá írja a makró a találatokat. A példád szerintD1 -> barack
D2 -> őszi
D3 -> kajsziE1 -> alma
E2 -> piros
E3 -> zöldSub kigyűjt()
Dim oszlop As Integer, usor As Long, uoszlop As Integer
uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, "D"), Cells(400000, uoszlop)) = ""
Range("A1").Select
For oszlop = 4 To uoszlop
Selection.AutoFilter Field:=1, Criteria1:=Cells(1, oszlop)
usor = Range("B" & Rows.Count).End(xlUp).Row
Range("B2:B" & usor).Select
Selection.Copy Cells(2, oszlop)
Next
Selection.AutoFilter
End SubÍrhatsz bele képernyőfrissítés tiltást-, engedélyezést.
[ 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
Topikgazda
válasz
tgumis
#23693
üzenetére
Szia!
Természetesen megy 2003-as excelen is.
A fejlécnek a szűrni kivánt adatok (nálad oszlop) első cellájának kell lennie (azért fejléc), nem lehet máshol.
A feltételt teheted máshová is, akkor annak a cellának a címét kell beirni a criterirange paraméter után, az lehet akár a cél cella is. DE: a szűrendő adatok fejlécének meg kell egyeznie a kritériumcellák fejlécével.
Nézd meg lsz. a magyar help-et az excel irányított szűrőre.Üdv.
-
Saua
tag
Köszi a választ
=DARABTELI(E2:E4000;"Budapest")
képlettel megtalálom hogy hányszor szerepel az oszlopban, de van egy kismillió település...tehát be kell gépeljem egy oszlopba a kismillió településnevet és mindegyik mellé a képletet?
a sorszámfüggvénnyel még nem találkoztam, azt hogy kell használni? Tehát lesz egy kb. 100 soros és 2 oszlopos táblázatom (településnév és hogy hányszor szerepel), ezt a második oszlop szerint kellene csökkenő sorrendbe rendezni.
[ Szerkesztve ]
hogy lapvédelemnél a mocsok nem bővül, így meg nem lehet védeni benne az érvényesített oszlopokat a képleteket semmit 
. Van egy ilyen táblázatom amit kb. 10-15-ön töltenek és minden héten javítanom kell rajta valamit. A képletket tartalmazó oszlopkon már macro van hogy ne tudják törölni őket 
de arra még nem jöttem rá hogy a búbánatba tudják a feltételes formázást minden héten tönkrevágni rajta...
5 [igen;igen;nem;igen;nem]
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- AMD Game Bundle: Warhammer 40,000: Space Marine 2 és Unknown 9: Awakening - LEGOLCSÓBB!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
Állásajánlatok
Cég: HC Pointer Kft.
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest