Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bambano: Bambanő háza tája
- Toomy: FOXPOST: régen jó volt, de már jobban jársz, ha elfelejted
- Real Racing 3 - Freemium csoda
- sziku69: Szólánc.
- gerner1
- Pajac: Windows XP még mindig letölthető
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
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
-
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.
-
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.
-
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.
-
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.
-
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?
-
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 :
-
-
-
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.
-
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!
-
#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.
-
#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)
-
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.
-
#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. -
#23674
opzozi
tag
m.zmrzlina
#23673
opzozi
tag
válasz
m.zmrzlina
#23673
üzenetére
Köszönöm szépen.
-
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. -
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 -
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... -
#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.
-
#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!
-
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.
-
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 Sub -
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.
-
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. -
#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.
-
#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!
-
#23653
Delila_1
veterán
Mr.Scofield
#23648
Delila_1
veterán
válasz
Mr.Scofield
#23648
üzenetére
-
wwhy
veterán
Egy kis SOS segítségre lenne szükségem:
Adott 8-10 oszlop , 70-80 sor, csak számok.
Mindegyiket ugyanazzal a számmal kellene megszorozni, és az a lényeg, h minden cella értéke természetesen az új értéket kapja meg, a régit felülírva.
Hogyan lehet/lehet-e ezt valahogy megoldani, hogy ne kelljen minden cellát egyesével átírni
-
#23648
Mr.Scofield
újonc
Mr.Scofield
#23647
Mr.Scofield
újonc
válasz
Mr.Scofield
#23647
üzenetére
Már megvan.
-
#23646
Mr.Scofield
újonc
Mr.Scofield
újonc
Makróval kell mindenféleképpen megoldanom.
Delila_1 - szuper neveket sikerült alkotnod!
Köszönöm szépen mindenkinek a segítséget, így már meg fogom tudni oldani! 
-
#23644
Fferi50
Topikgazda
Mr.Scofield
#23641
Fferi50
Topikgazda
válasz
Mr.Scofield
#23641
üzenetére
Szia!
Akkor ez így mégis makró lesz a Userformhoz. és a törlést is meg kell valósítanod.
Üdv.
-
#23643
Delila_1
veterán
Mr.Scofield
#23641
Delila_1
veterán
válasz
Mr.Scofield
#23641
üzenetére
3 féle választ kaptál, amiből már az újonnan feltett két gomb makróját kikövetkeztetheted.
Módosításnál a textboxok (cellák?) értékeit beviszed az adatokat tartalmazó cellákba
Sheets("Munka1"). Range("A" & sor)=TextBox1Törlésnél sheets("Munka1").Rows(sor).Delete Shift:=xlUp
-
#23642
Fferi50
Topikgazda
Mr.Scofield
#23637
Fferi50
Topikgazda
válasz
Mr.Scofield
#23637
üzenetére
Szia!
Még egy lehetőség makró nélkül:
A második munkalapnak azt a celláját, ahová a nevet szeretnéd látni, kijelölöd, majd az Adatok- érvényesítés menüpont alatt az érvényesítés legyen lista, a forrása pedig az első munkalap név oszlopának értékes cellái. (még jobb, ha ezt a cellatartományt elnevezed és csak a nevet írod be).
A két másik adatot tartalmazó cellát fkeres függvénnyel tudod kitölteni.
Ennek is az a hátránya, hogy magától nem fordul vissza. Viszont a listát akár egészében is láthatod a kiválasztás során.Üdv.
-
#23641
Mr.Scofield
újonc
Mr.Scofield
újonc
Máris nézem a dolgokat amiket írtatok !
Itt a userform.
Ezeknek a gomboknak kellene működnie értelem szerűen.
-
#23640
Delila_1
veterán
Mr.Scofield
#23637
Delila_1
veterán
válasz
Mr.Scofield
#23637
üzenetére
Harmadik megoldás, nem userform, de nem is makró nélkül.
Nem írtad az Excel verzióját, ezért 2003-ban írtam meg, azt mindegyik érti.A Kiírás lapon a kitöltendő mezők nem textboxok, csak formázott cellák.
-
#23639
slashing
senior tag
Mr.Scofield
#23637
slashing
senior tag
válasz
Mr.Scofield
#23637
üzenetére
Makró nélkül is majdnem meglehet csinálni csak nem teljesenolyan lesz olyan mint ahogy leírtad. (elején végén nem fog visszaugrani)
A második lapra beszúrsz egy léptetőnyílt űrlapvezérlő elemet. Cellacsatolásnak megadsz egy olyan cellát amit biztosan nem fogsz használni kezdőértéknek meg 1-et adsz.
Oda ahova nevet szeretnéd megjeleníteni oda meg csinálsz egy indirekt hivatkozást:
=INDIREKT("Munka1!A"&F19)
Ebben a képletben az F19 az a cella amit megadsz a léptetőnyíl cellacsatolásának. Így az alapértéke a celládnak a Munka1 A1 lesz a nyilakkal lépkedve meg változik a Név. A másik két oszlopra meg elég egy sima fkeres függvény is...
valahogy így: [link]
-
#23638
Fferi50
Topikgazda
Mr.Scofield
#23637
Fferi50
Topikgazda
válasz
Mr.Scofield
#23637
üzenetére
Szia!
A formot már megvan? Akkor tegyél fel legalább egy képet róla, hogy lehessen látni, mi van benne.
A makró elvi vázlata:
a rekordokat számolja egy változó
amikor megjeleníted a userformot (activate exemény), a rekordszámláló változó legyen egy, utána meghívsz egy olyan eljárást amelyben kitöltöd az első szövegmezőt az A oszlop rekordszámlálónak megfelelő sorú cellája értékéve, a másodikat a B oszlop ugyanazon cellája értékéve, a harmadikat a C oszlop ugyanazon cella értékével (rekordbetöltő).
amikor a következő gombot megnyomják (gomb_click esemény) megnézed, hogy a rekordszámlálód elérte-e a huszat. Ha igen, egyre állítod, ha nem növeled eggyel. utána meghívod a rekordbetöltő eljárást.
amikor az előző gombot megnyomják (gomb_click esemény) megnézed, hogy a rekordszámláló érte egy-e, ha igen, húszra állítod, ha nem, akkor csökkented eggyel. utána meghívod a rekordbetöltő eljárást.A rekordsorszámot megadhatod egy publikus változóban, akkor minden eljárás használhatja, amelyik a form kódlapján van.
Üdv.
-
#23636
Fferi50
Topikgazda
Mr.Scofield
#23635
Fferi50
Topikgazda
válasz
Mr.Scofield
#23635
üzenetére
Szia!
A második oldalra tegyél fel egy userformot a megfelelő vezérlőkkel (cimkék, parancsgombok, spinbutton) és írj hozzá megfelelő megjelenítő makrót.
Üdv.
-
#23635
Mr.Scofield
újonc
Mr.Scofield
újonc
Hali mindenkinek!
Lenne egy olyan problémám, hogy van egy 2 munkalapból álló munkafüzetem és az első munkalapon csak az adatok szerepelnek 20 db Név (A oszlop),Kor(B oszlop),Foglalkozás(C oszlop).
A második munkalapon pedig csak egy panel 3 szövegmezővel (Név,Kor,Foglalkozás).
Na már most azt szeretném elérni, hogy az első munkalapon lévő adatok a második munkalapon lévő megfelelő szövegmezőben megjelenjenek.
Kezdetben az első rekord adatai legyenek láthatóak ezekben.
Legyen Következő és Előző gomb, amelyekkel értelemszerűen navigálhatunk! Ha elérjük az utolsó rekordot a Következő gombra nyomva a legelső rekord mezői jelenjenek meg! Hasonlóan, az első rekordnál az Előző gombra nyomva a legutolsó rekord mezői jelenjenek meg!Valakinek van valamiféle megoldása?
Válaszaitokat előre is köszönöm! -
#23634
m.zmrzlina
senior tag
m.zmrzlina
#23633
m.zmrzlina
senior tag
válasz
m.zmrzlina
#23633
üzenetére
Az "A" munkafüzet két eseményében lévő makró. Természetesen lehet cizellálni őket (főleg az _Open-t) de az elv az ez.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim wb As Workbook
mappa = ThisWorkbook.Path & "\"
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
wb.SaveAs Filename:=mappa & wb.Name
wb.Close
End If
Next wb
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
Workbooks.Open ThisWorkbook.Path & "\B.xlsx"
Workbooks.Open ThisWorkbook.Path & "\C.xlsx"
End Sub -
#23633
m.zmrzlina
senior tag
samfishR
#23632
-
Fferi50
Topikgazda
válasz
vigyori78
#23620
üzenetére
Szia!
Az egérrel való húzás letiltása lehetséges a beállítások között is, makró nélkül. Excel 2010-ben a speciális beállítások között (a kitöltőjel használatának és a cellák egérrel húzásának engedélyezése.
De az egérklikkeket csak makróval lehet tiltani, ezért makróbarát (xlsm) formában kell menteni.
Üdv.
-
slashing
senior tag
válasz
csferke
#23622
üzenetére
Érvényesítéssel lehet játszani hogy csak nagybetűs szöveget engedjen beírni mondjuk, egyéni cellaformátummal nem tudom hogy megolható-e....
excel 2013, valószínű hogy 2007-ben is jó
érvényesítés
pl.: =AZONOS(A1;NAGYBETŰS(A1))de valami munklaphoz rendel eseménnyel elvileg megolható lehet hogy automatikusan nagybetűs legyen
csak elképzelés:target = UCase(target.Value)
-
#23621
Delila_1
veterán
m.zmrzlina
#23619
Delila_1
veterán
válasz
m.zmrzlina
#23619
üzenetére
Ez teljesen korrekt, ám a kérdezőnek a képlet másolásával is gondja van.
-
#23619
m.zmrzlina
senior tag
Delila_1
#23618
m.zmrzlina
senior tag
válasz
Delila_1
#23618
üzenetére
Én tudom, hogy olyan vagyok mint Móricka akinek mindenről AZ jut az eszébe de ez tényleg csak pár sor makró. Feltéve ha nincsen képlettel előállított cellaérték mert a képletet felül fogja írni a cellaértékkel. Bár ha a Word-ös megoldás működött akkor ez is fog.
Sub nagybetu()
For Each cella In Selection.Cells
If Not IsEmpty(cella) Then
cella.Value = UCase(cella.Value)
End If
Next
End Sub -
Delila_1
veterán
Az Excel nem szövegszerkesztő, azért nem az ilyen formaságokra van kihegyezve.
Vegyük, hogy a kisbetűkkel írt szövegeid az A2:A10 tartományban vannak.
Egy üres oszlop 2. sorába, pl. B2-be beírod a képletet: =NAGYBETŰS(A2)
Ezen a cellán állva keret látszik a cellán, a jobb alsó sarkában egy kis fekete négyzettel. Az egérrel erre a négyzetre mutatsz, ekkor az egérmutató kereszt alakú lesz. A bal gombbal "megfogod", és lehúzod a B10 celláig. Végig lemásoltad a képletet az adataid mellé. -
mexel
veterán
Na jól van, nem foglakoztama dologgal. Oszloponként átmásoltam a Word-be és ott beállítottam a nagybetűt majd visszamásoltam. Gyors volt és egyszerű. Ettől függetlenül még megpróbálom megcsinálni excelben mert nem hagy nyugodni a hülyeségük. ( miért kell függvénnnnyel ezt megvalósítani. Akkor ennyi erővel a dőlt betű vagy a félkövér is lehetne függvénnyel
Rendben hogy legyen függvény, ha módosítjuk a szöveget a cellában akkor jó lehet, de egy sima átalakításhoz elég feleslegesnek tűnik, ugyanolyan kis állítási lehetőség kellene mint a word-ben, nem hiszem hogy nehéz lett volna átrakni.) -
mexel
veterán
-
mexel
veterán
Nem megy. Ha kijelölöm a nagybetűs függvénnyel a cellát amiben kisbetűs szöveg van, az eredmény az lesz hogy körkörös hivatkozás, stb, majd 0 lesz az eredmény, vagy éppen akármi mást csinál. Valamiért nem tudom használni. Beírom hogy pl "=NAGYBETŰS(I69)" akkor nem jó.
Csak egy cellával tudom úgy megcsinálni, hogy beírom hogy "=NAGYBETŰS(ezt kellene átalakítani)" akkor ez az egy cella nagybetűs lesz, de a többire ha ráhúzom vagy másolom akkor mindenhová ezt írja be. -
Delila_1
veterán
A függvény neve NAGYBETŰS.
Van egy másik, a TNÉV, ami a hivatkozott szöveg minden szavának első betűjét nagyra-, a többit kicsire állítja. Ez neveknél hasznos.
A függvényeket "lehúzva" tudod az összes cellában nagybetűsre cserélni a szöveget. Ezután irányított beillesztéssel rámásolhatod a függvényt tartalmazó cellák értékét az eredeti cellákra.
-
slashing
senior tag
a nagybetű függvény úgy működik hogy megadod a képletben melyik cellát akarod nagybetűsre alakítani, ennyi. Ha van egy kész táblázatod és minden kisbetűs cellát át akarsz alakítani nagyra akkor Macró kell hozzá, ez a Microsoft példája ráhttp://support2.microsoft.com/kb/291323
Miért nem lehet? Szerintem azért mert mindenki be tudja írni eleve naggyal is. Vagy ha mondjuk véletlen átalakítasz mindent nagyra de aztán mégis kicsi kell vissza alakítod de akkor meg minden mondat vagy minden első szó is kicsit lesz akkor meg az a baj hogy azt nem lehet megcsinálni és miért nincs arra is egy kapcsoló...
-
mexel
veterán
Sziasztok! Már elolvastam párszor amit itt írtatok, de mégsem sikerül: Excel 2007-ben a táblázatomban szeretnék mindent nagybetűre állítani. Hiába próbálom a Nagybetű függvénnyel, nem sikerül. Pontosan leírná valaki hogyam csináljam hogy jó legyen?
( vajon miért nem lehetett a többi sok ezer beállítás közé egy olyan kapcsoló hogy "kisbetű<>nagybetű"?
) -
slashing
senior tag
válasz
Fferi50
#23608
üzenetére
Én ezt vagyis 2013 már a sorok függvényt használom a sorszámozáshoz ha olyan táblázat van amit mondjuk rendszerszeresen úgy kell bővíteni hogy sorbeszúrással.
=SOROK(A$2:A2) itt kezdődik mondjuk a sorszámozás lehúzom amíg kell aztán ha közben be kell szúrni egy új sort akkor az alatta lévők automatikusan egyel nagyobbat fognak kapni és csak a beszúrt sorra kell lehúzni a képletet, nem kell a teljes oszlopon A4-től indulva újra képletezni.
-
Fferi50
Topikgazda
Szia!
Nézd meg a sorszám függvényt. Ha azt beírod a B oszlopba, megmondja neked, hogy az A oszlopban levő szám hanyadik a sorrendben, növekvő vagy csökkenő sorrendet is választhatsz.
=sorszám(A1; $A$1:$A$100;0) növekvő sorrend szerinti helyet mutatja, ha az utolsó paraméter 1 akkor csökkenő sorrend szerinti helyet.
Figyelj rá, hogy a második paraméter dolláros legyen.Üdv.
-
D5
aktív tag
Sziasztok!
Nekem egy olyan függvény kellene, ami egy számokat (lehet azonos tartalmú) tartalmazó oszlopot rangsorol.
Pl.: A1: 3; A2: 3; A3: 1; A4: 2, és ekkor a függvény a B oszlopban a következőket adja: B1: 1; B2: 1; B3: 3; B4: 2.
Sorba rendezni azért nem szeretném, mert több oszlop van egymás mellett, és és nekem csak a sorrend kellene mindegyikből, vagyis ne változzon a cellák helye. Remélem, sikerült érthetően leírnom...
Előre is köszönöm a segítségeteket!
Üdv.:
D. -
Fferi50
Topikgazda
válasz
vigyori78
#23602
üzenetére
Szia!
Húzás kikapcsolása: Application.CellDragAndDrop = False
Az egérkattintás kikapcsolása:
A munkafüzet eseménykezelőjében:
dupla kattintás
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel =True
End Subjpbb egérgomb
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel=True
End SubÜdv.
-
#23604
Delila_1
veterán
m.zmrzlina
#23600
Delila_1
veterán
válasz
m.zmrzlina
#23600
üzenetére
Egyszerűbben is meg lehet oldani az oszlopok törlését.
Sub OszlopTorles()
Dim oszlop As Integer
For oszlop = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Cells(1, oszlop) >= "S01" And Cells(1, oszlop) <= "S099" Then
Columns(oszlop).Delete Shift:=xlToLeft
End If
Next
End SubSorok, oszlopok törlésénél mindig az utolsó helytől indulunk az első felé.
-
Delila_1
veterán
válasz
Carasc0
#23585
üzenetére
Gondolom, a rengeteg adat hosszú időn át gyűlt fel. Az egyes sorokban lévő képletek frissülése hosszú időt vesz igénybe. A helyedben azokat a képleteket, függvényeket szüntetném meg, amiknek az eredménye már biztosan nem változik, például az előző évi adatoknál.
Ezt az irányított beillesztéssel szüntetheted meg, ahol a képleteket tartalmazó cellákat másolod, és irányítottan, értékként ugyanoda beilleszted.
-
vigyori78
őstag
Sziasztok!
Ebben tudna valaki segíteni ?
( Office 2007 )
Köszönöm -
#23601
Hyper84
csendes tag
m.zmrzlina
#23600
Hyper84
csendes tag
válasz
m.zmrzlina
#23600
üzenetére
Nagyon szépen köszönöm a segítséged
örök hálám 
5 [igen;igen;nem;igen;nem]
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...
Új hozzászólás Aktív témák
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok : (12.20.)
- Eladó Steam kulcsok kedvező áron!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Gyermek PC játékok
- Apple iPhone 16e 128GB, Kártyafüggetlen, 1 Év Garanciával
- Fujitsu LIFEBOOK E449 i3-8130U 12GB 512GB 14" FHD 1 év garancia
- Targus DOCK423A - USB-C Dual HDMI 4K HUB - 2 x HDMI (120Hz)
- iKing.Hu - Apple iPhone 15 Pro Max Black Titanium Titán stílus, 5 optikai zoom 256 GB- Gari
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600X / 16GB DDR4 / RX 6600 8GB / 512 SSD!
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest