- Red Magic 10 Air - gaming telefon is lehet kecses
- Xiaomi 14T Pro - teljes a család?
- Betiltották a Pixel 7-et Japánban
- Bemutatkozott a Fairphone 6
- Xiaomi 15 - kicsi telefon nagy energiával
- Samsung Galaxy A35 5G - fordulópont
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Milyen okostelefont vegyek?
- One mobilszolgáltatások
- Bemutatkozott a Poco X7 és X7 Pro
-
Mobilarena
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
-
#18434
Mutt
senior tag
macilaci78
#18432
Mutt
senior tag
válasz
macilaci78
#18432
üzenetére
Hello,
...Ami a 1-ben külön oszlopban van, azt a 2.-ban egymás alá szeretném kérni...
(A példád pont a fordítottját mutatja, mint a leírásod, ezért a szövegben leírtakat vettem alapul, vagyis
az első lapon az első sorban egymás melletti oszlopokban lévő értékeket akarsz a második lapon
egy más alá, sorokba szedni.Transponálásnak hívják, több megoldás is van rá. Sheet2!A1-be írd vmelyik képletet és húzd le:
1. TRANSPOSE függvény használata a második lapon (csak az A1-C1000 tartományt írtam a példába:
=IFERROR(TRANSPOSE(Sheet1!$A$1:$C$1000);"")
2. INDEX függvénnyel:
IF(ISBLANK(INDEX(Sheet1!$1:$1;0;ROW()));"";INDEX(Sheet1!$1:$1;0;ROW()))
3. OFFSET függvénnyel:
=IF(ISBLANK(OFFSET(Sheet1!$A$1;0;ROW()-1));"";OFFSET(Sheet1!$A$1;0;ROW()-1))Ha csak egyszer kell megcsinálnod, akkor pedig javaslom a speciális beillesztést. Home-> Paste -> Paste Special -> Transpose opció.
üdv.
-
Mutt
senior tag
Hello,
Mas nyelvu Excelben a fuggveny adott nyelvu valtozatat kell hasznalni. Vagyis a magyarul beírt kepletek csak akkor fognak mukodni, ha a nemet nyelvi valtozata is ugyanugy nez ki. Ilyenek pl. MAX, MIN, AVG, de a fontosabbak mar teljesen mashogy neznek ki. Pl. HA helyett WENN kell.
Az viszont mukodik, hogy egy letezo fajlt nyitsz meg, mert ilyenkor az Excel a nyelvi valtozatnak megfelelo fuggvenyeket fog hasznalni.
Office 2007 es felette vannak nyelvicsomagok, amelyek a menusorral egyutt a fuggvenyeket is forditjak. Ezek fizetos kiegeszitok. Az interneten vannak weboldalak, ahol az adott nyelvnek megfelelo fuggvenynevek fel vannak sorolva. A csere paranccsal a fuggvenyneveket tomogesen is ki lehet cserelni.
http://easy-excel.com/excel-in-other-languages/excel-formulas-in-german/udv.
-
Mutt
senior tag
válasz
swoody
#18398
üzenetére
Hello,
Nézd meg hogy van-e SUBSTITUTE (HELYETTE) függvény. Ezeket lehet egymásba ágyazni, pl.
=HELYETTE(HELYETTE(HELYETTE("alma";"a";1);"l";2);"m";3)Igazából a szöveges dolgokkal a táblázatkezelőkben nem lehet olyan sokat kezdeni, makróval lehet rásegíteni.
Ha 10 vagy annál kevesebb betüd van, akkor nyögve ez is működhet Excelben.
=SZORZATÖSSZEG(KERES(A1;SOR(INDIREKT("A1:A"&HOSSZ(A1)));1);E1:E3;F1:F3);10^(HOSSZ(A1)-SOR(INDIREKT("A1:A"&HOSSZ(A1)))))
Az E oszlopban Abc sorrendben vannak a cserélendő betük és az F oszlopban a hozzájuk párosítandó 1-jegyű szám.
Udv.
-
Mutt
senior tag
válasz
lalakov
#18397
üzenetére
Hello,
az angol megfelelője a következő speciális beállításnak?
"Megjelenés szerinti pontosság beállítása"..."Set precision as displayed" File-Options-Advanced settings, When calculating this workbook group.
A beállítással meg lehet adni, hogy ne az alapértelmezett 15 jegy pontosággal számoljon az Excel.
udv.
-
Mutt
senior tag
Hello,
Tehát akkor D4-ba megy az induló érték, akkor D5-be mehet ez a képlet:
=HAHIBA($D$4-HÉT.NAPJA($D$4;2)+(INDIREKT("C"&SOR()-MARADÉK(SOR()-4;7))-1)*7+HOL.VAN(E5;NapokListája;0);"")
A függvény azon elven működik, hogy a dátumok is számok, vagyis lehet kivonni és összeadni bennük.
Tehát D4-ben az induló érték, a C-oszlopban pedig van a sorszám (egyesített mezőkben, ami miatt kell az INDIREKT képletet), E4-ben a kívánt nap és NapokListája-ban felsorolás):1. Első lépésként a D3-ból lévő dátumnak a napját nézzük meg, HÉT.NAPJA rész és levonjuk a dátumból a számot. Ekkor a hét 0. napját kapjuk meg.
2. A 0. naphoz hozzáadjuk a hetek szerint eltelt napok számát, vagyis 1*7, 2*7, 3*7 stb. (mivel az első hét a 0. hét, ezért valójában 0, 7, 14 kerül hozzáadásra). A sorszám a C-oszlopban egyesített cellákban van, vagyis nem C4, C5, C6 stb, hanem csak C4, C11, C18-ban. Ezt az INDIREKT képlet számolja ki.
3. A végén már csak a hét napjának sorszámát kell hozzáadni, vagyis hétfő esetén 1-et, vasárnap esetén 7-et.
4. Az egész képlet egy HAHIBA függvényben van, vagyis csak akkor ír ki vmit, ha ki van választva egy nap az E-oszlopban.Javítva: D3 helyett D4-ben kezdesz.
üdv.
-
-
Mutt
senior tag
Hello,
...Egy másik cellában szeretnék létrehozni egy érvényesítést ebből, de úgy, hogy a többszörözött elemek csak egyszer látszódjanak...
CSE képlettel megoldható, ha az eredeti dinamikus listád "Lista" névvel van akkor a C2-be ezen képlet kell:
{=HAHIBA(INDEX(Lista;HOL.VAN(0;DARABTELI($C$1:C1;Lista);0));"")}Húzd le a fenti képletet legalább addig amennyi nevet vársz és a C-oszlopra mehet egy újabb dinamikus lista
=ELTOLÁS($C$2;0;0;DARABTELI(C:C;">""")-1)
üdv.
-
Mutt
senior tag
válasz
rita7107
#18335
üzenetére
Hello,
...rákattintok a gombra akkor átvigye a táblázatot pdf-be....
A 2010-es Excel már tud menteni pdfbe, esetleg az elhasaló kódot cseréld le erre:
Sheets("lapneve").PageSetup.PrintArea = "$A$1:$G$17"
Sheets("lapneve").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\mentes.pdf", _
IgnorePrintAreas:=False
Sheets("lapneve").PageSetup.PrintArea = ""A "lapneve" munkalap A1:G17-es tartományát menti ki, mentes.pdf-be.
üdv.
-
#18350
Mutt
senior tag
ElemiKoczka
#18333
Mutt
senior tag
válasz
ElemiKoczka
#18333
üzenetére
Hello,
A második sorban lévő időnél azonban nem számol megfelelően...
Javított képlet a nappali műszakra angol Excelhez (vagy töltsd le újra a fájlt):=((B2>C2)*MEDIAN(0;C2-1/4;1/4)+MAX(0;MIN(3/4;C2+(B2>C2))-MAX(1/4;B2)))*24
A munkalap nevét Delila_1 megválaszolta.
Ha változik a cella neve akkor változik a munkalap neve?
Nem, a cella egy kis része a munkalapnak, így ilyen módon nincs rá hatással. Ha a munkalap neve változik, akkor a cella elérése megváltozik, de a többi értéke nem.üdv.
-
#18330
Mutt
senior tag
ElemiKoczka
#18327
Mutt
senior tag
válasz
ElemiKoczka
#18327
üzenetére
Hello,
A ,második képlet angol nyelvű Excelben:
=MOD(C2-B2;1)*24-D2Az eredmény számformátumú lesz. Feltettem ide a példádat.
üdv.
-
Mutt
senior tag
válasz
nimmy001
#18299
üzenetére
Hello,
...ami a csv-ben egy cella volt, az az xlsx-ben is egy cella legyen...
A 17823-es postban található megoldást próbáld ki.
Szöveg fájlként olvastatom be a fájlt és utána a TAB-al elválasztott mezőket cellákba dobom be.
Ha CSV-ben más mezőhatároló van, akkor aConst chrDelimiter = vbTab
sort kell javítanod, pl. vbTab helyett ";"
üdv.
-
#18309
Mutt
senior tag
ElemiKoczka
#18291
Mutt
senior tag
válasz
ElemiKoczka
#18291
üzenetére
Hello,
Amit nem tudok az az, hogyan lehet külön venni a délelőttös bérrel számolt időtartamot (6tól 18ig) és az éjszakás bérben számolt időtartamot (18tól 6ig).
Nappali órák: =(MAX(0;MIN(3/4;C2+(B2>C2))-MAX(1/4;B2)))*24
Éjszakai órák: =MARADÉK(C2-B2;1)*24-D2
üdv.
-
Mutt
senior tag
válasz
kvoaksz
#18243
üzenetére
Hello,
Delila_1 megoldása mellett csak függvényeken alapuló megoldásomat innen tudod letölteni.
A színes naptár valójában egy feltételes formázást tartalmazó táblázat. Az adott napokhoz vagy 0, vagy 1-et iratok ki attól függően hogy a név a vizsgált dátummal szerepel-e a beviteli listán vagy sem. Ha szerepel akkor 1 a függvény értéke és ekkor van pirossal kitöltve a cella. A függvény pedig egy sima DARABHATÖBB.
A 0 és 1 értékeket elrejtettem egy egyedi számformátummal így nem látszanak, de az Excel tud számolni velük.Próbáltam interaktívvá tenni ezért van még pár plusz számítás is és formázás is, ezek főleg a számítás lapon vannak. Ezzel csak a beviteli lista első 1000 sorát figyelem és csak az első 25 nevet rakom ki a naptár oldalra.
Egy igazán profi megoldást a http://chandoo.org/wp/2013/01/24/employee-vacations-tracker-dashboard/ oldalról tudsz letölteni.
üdv.
-
Mutt
senior tag
válasz
bozsozso
#18188
üzenetére
Hello,
A "Keresés és csere" opción keresztül függvényneveket is ki lehet cserélni. Itt van bemutatva:
http://chandoo.org/wp/2009/02/17/spreadsheet-formulas-edit/A gond viszont, hogy ha szintaktikailag hibás az eredmény akkor a cserét nem csinálja meg és sajnos a
HAHIBA(FKERES();"Nincs eredmény") képletből 1 db cserével nem tudod a helyes formátumú HA(HIBÁS(FKERES();"Nincs eredmény";FKERES()) változatot előállítani.A http://www.professionalexcel.com/2011/06/replace-iferror-with-ifiserror/ oldalon van egy makró, amely megcsinálja a konverziót.
üdv.
-
Mutt
senior tag
válasz
Tompkins
#18176
üzenetére
Szia,
A tükörszámos feladványra az én megoldásomat innen tudod letölteni.
Nem UDF-el, hanem a SZORZATÖSSZEG függvénnyel állítom elő a tükörképet és utána már csak
simán összeadás és összehasonlítások vannak benne.A tükörkép képlete ami összetett egyedül (A2-ben van az eredeti szám):
=SZORZATÖSSZEG(KÖZÉP(A2;1+HOSSZ(A2)-SOR(A$1:INDIREKT("A"&HOSSZ(A2)));1)*10^(HOSSZ(A2)-SOR(A$1:INDIREKT("A"&HOSSZ(A2)))))Ez a képlet 2 részből áll:
- az első része a számot egy karakter hosszúságra bontja és megfordítja, tehát pl. a 1766-ból a {6;6;7;1}
tömböt adja vissza. A fordítás egyszerűen úgy műkődik hogy hátulról kezdem el olvasni a karaktereket.
- a második része (10^HOSSZ...) pedig a helyiértéknek megfelelő szorzószámot állítja elő, vagyis {10^3;10^2;10^1;10^0}.A többit a szorzatösszeg magától teszi vagyis a számokat összeszorozza (6*1000+6*100+7*10+1*1).
A tükörszám ismeretében már lehet számolni az összegét az eredetinek és tükrének (C-oszlop), majd a kapott számot tükrözni (D-oszlop). A két számot összehasonlítva pedig lehet eldönteni, hogy kell-e további tükrözéseket végrehajtani (E-oszlopban 1-et íratok ha kell, 0-t ha már nem). Az E-oszlopban lévő ciklusok száma megadja, hogy hányszor tükröztünk. Max. 300 tükrözést hajt végre a fájlom, de ha többet akarsz akkor másold le a képleteket.
üdv.
-
Mutt
senior tag
Hello,
...van két dátumom ilyen formátumban: 09.10.2012 12:09.
A hibaüzenet azt jelenti, hogy a dátumnak látszó érték szöveg formátumban van.
Megoldás hogy szöveg függvényekkel darabokra szeded és átalakítod őket.
A PowerPivot az alap Pivot kibővítése; csak sokkal több adatot tud kezelni, több számításra képes.
A Pivot pedig egy kimutatás készítő vagyis a megadott adathalmazból kivonatot tud készíteni a beállítások alapján.
pl. Egy lap tartalmazza napi szinten az üzletkötők által eladott termékek megnevezését, árát, mennyiségét stb. Pivot-tal tudsz készíteni egy összesítést, hogy melyik üzletkötő adott termékbő mennyit adott el.Ha kiismered magad a Pivotban, akkor a PowerPivot sem lesz gond.
üdv.
-
Mutt
senior tag
válasz
cserma
#18146
üzenetére
Hello,
Hát nem voltunk ott a "megbeszélésen" ezért anélkül erre jutottam.
Feladat 1: paraméter 4 direkt nem volt?
Function SajatFuggveny(P1, P2, P3, P5)
SajatFuggveny = P1 * P2 * P3 - P5 * 10 - 100.05
End FunctionVagyis majd így tudod használni: =SajatFuggveny(3,3;4;5;7)
Nincs benne semmi hibaellenőrzés, azért érdemes lenne a bemenő paramétereket legalább egy ISNUMERIC-re ellenőrízni.Feladat 2: itt feltételezem, hogy a narancssárga mező helye B7.
Sub SajatNegyzet()
If IsNumeric(ActiveCell) Then Range("B7") = ActiveCell ^ 2
End SubEzt is lehet bővíteni azzal hogy szóljon ha nem jó az éppen kijelölt cella vagy esetleg több cella van kijelölve.
üdv.
-
Mutt
senior tag
válasz
motinka
#18145
üzenetére
Hello,
Itt vannak a kész változatok.
Szóval ahogy írtam több megoldás is lehetséges.
1. Írtam egy makrót, amely minden egyes adatbevitelkor megnézi hogy van-e mit mozgatni és ilyenkor az egészet átviszi és sorbarendezi. A beviteli lap Change eseménye hívja meg. A beviteli lap tartalma az adat2-n jelenik meg.
Sub Adatmasolas()
Const wsEredeti = "adat"
Const wsCel = "adat2"
Dim vLastRowEredeti As Long
Dim vLastRowCel As Long
'megnézzük az eredeti lapon az utolsó sor helyét
vLastRowEredeti = ThisWorkbook.Sheets(wsEredeti).Range("B" & Rows.Count).End(xlUp).Row
'megnézzük az cél lapon ahova másolunk az utolsó sor helyét
vLastRowCel = ThisWorkbook.Sheets(wsCel).Range("B" & Rows.Count).End(xlUp).Row - 1
'ha több sor van az eredeti lapon akkor lehet másolni a másikra
If vLastRowEredeti > vLastRowCel Then
'képernyőfrissítés kikapcsolása
Application.ScreenUpdating = False
With ThisWorkbook.Sheets(wsEredeti)
'naptár kód másolása
.Range("X2:X" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("A3")
'dátum másolása
.Range("B2:B" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("B3")
'munkalapszám másolása
.Range("C2:C" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("C3")
'munka kezdete másolása
.Range("T2:T" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("D3")
'munka vége másolása
.Range("U2:U" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("E3")
'munkakód másolása
.Range("I2:I" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("F3")
'lezáró kód másolása
.Range("W2:W" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("G3")
End With
'sorbarendezés dátum szerint
Sheets(wsCel).Activate
With ThisWorkbook.Sheets(wsCel)
.Columns("A:G").Select
.Columns.AutoFit
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("B2:B" & vLastRowEredeti), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange Range("A2:G" & vLastRowEredeti)
.Sort.Header = xlYes
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With
Sheets(wsEredeti).Activate
'képernyőfrissítés visszaállítása
Application.ScreenUpdating = True
'kijelölés megszüntetése
Application.CutCopyMode = False
End If
End Sub2. A másik megoldás pedig beépített függvényeket tartalmaz, kell hozzá egy ségédtábla és a függvényeket legalább addig le kell másolnod amennyi lesz a várható adatsor (én csak az első 300 sorba másoltam őket).
A megoldás a 3. lapon van.3. A Kimutatás is használható lehet, azonban a megadott mintában nem volt elegendő egyedi érték, így az ismétlődéseket nem tudja kezelni.
üdv.
-
#18144
Mutt
senior tag
Apollo17hu
#18143
Mutt
senior tag
válasz
Apollo17hu
#18143
üzenetére
Hello,
Hivatalosan a tömbképletet úgy kell bevinni, hogy előbb kijelölöd a tartományt ahova a képletnek kell mennie,
majd beírod a képletet és jön a CSE billentyűkombináció. Ezzel csak az a gond, hogy a relatív hivatkozások nem fognak módosulni. Tehát itt nem fog műkődni ez a módszer.Marad a hagyományos, vagyis 1 db cellába viszed be a tömbképletet, és onnan lehúzással/másolással töltöd fel a többi cellát. Ekkor a relatív hivatkozások módosulni fognak.
üdv.
-
Mutt
senior tag
válasz
motinka
#18132
üzenetére
Hello,
...egy rengeteg adatból álló adat tábla, ami naponta frissül.
Ebből kellene nekem oszlopokat kiszedni rendezni, sorba rakni...Több megoldás is lehetséges, de esetleg egy mintát meg tudsz osztani velünk?
1. Makró létrehozása (egy Worksheet.Change eseménnyel teljesen automatikus lesz).
2. Ha a sorbarendezés oszlopa EGYEDI SZÁMOKAT tartalmaz (nincs ismétlődés és nem szám), akkor a Kimutatás (Pivot) is segít és a többi oszlopot FKERES-sel mellé lehet tenni. A kimutatást be lehet állítani, hogy a fájl minden megnyitásakor automatikusan frissüljön.
3. Végső megoldás pedig segédoszlop és a KICSI + FKERES függvények használata.üdv.
-
Mutt
senior tag
-
Mutt
senior tag
válasz
hallgat
#18101
üzenetére
Hello,
A nevesített cellákra makróban az alábbi módokon tudsz hivatkozni:
Range("ALPHA_2X2")
[ALPHA_2X2]A lenti makró az ALPHA_2X2, 2X3 és 2X4 nevű cellák tartalma alapján vagy adja a felugró ablakot, vagy futtatja a kódodat. Ha legalább az egyik cella üres, akkor leáll, vagyis csak akkor enged tovább ha minden mezőben van vmi (hogy az szám, szöveg, képlet stb. nem nézi).
Sub Elagazas()
Dim blnUres As Boolean
Dim cell As Range
blnUres = False
For Each cell In Range("ALPHA_2X2, ALPHA_2X3, ALPHA_2X4")
If IsEmpty(cell.Value) Then blnUres = True
Next cell
If blnUres Then
MsgBox "Hiányzó értékek!", vbOKOnly, "Hiba"
Else
'ide jön az eredeti kódod
End If
End SubEbből tudsz építkezni ha nem lenne elég.
üdv.
-
Mutt
senior tag
Szia,
Csináltam én is egy változatot rá, amely segédoszlopokat használ és dinamikus tartományokat.
A minta felkerült ide.
A lényeg, hogy ha meg van az első két szűrés akkor már az utolsó listát egyszerűen elő lehet állítani ezzel a képlettel:
=ELTOLÁS($C$4;HOL.VAN(L2;B:B;0)-1;0;DARABTELI(B:B;L2))Az ELTOLÁS függvénnyel lehet ún. dinamikus tartományt létrehozni, amely lehet egy cella, vagy egymás melletti cellák sora ugyanazon sor vagy oszlopon belül. A C4-es mezőből indul el mindig és attól függőn hogy éppen almát vagy szilvát választottak ki lemegy az odaillő első sorba és kijelöli a szükséges elemeket.
Ami viszont nem megy ilyen egyszerűen az a megadott formátumod alapján kiválasztani a lehetséges típusokat (pl. gyűmölcs) és az ahhoz tartozó altípusokat. Ehhez vagy makró vagy segédoszlopok kellenek.
Az első segédoszlopok (D és E) megjelenítik a kiválasztható elemeket, az F és G ahhoz kell hogy ABC sorrendbe rendezhetőek legyenek a választható elemek. A H és I oszlopok pedig ABC sorrendben és üres sorok nélkül tartalmazzák a végleges választható elemeket.
A D-I oszlopban a képleteket legalább másold le addíg, amíg van A-C oszlopban adatod. Én csak az első 17 sorba írtam be őket. A többi képlet univerzális, tehát ha bővíted a listát akkor is műkődni fognak.
üdv.
-
Mutt
senior tag
válasz
A_ScHuLcZ
#18123
üzenetére
Hello,
...ha pl be kell vinnem 74 perc 13 mp-et, akkor ne kelljen számolgatnom, hogy az 1:14:13, mert abba rövid úton bele fogok zavarodni...
Simán számformátummal ahogy látod nem fogod tudni elérni, hogy 1:14:13 helyett 74:13-at jelenítsen meg az Excel. Alternatív megoldás lehet, hogy mondjuk A oszlopba viszed be csak a percet (pl. 74) és B oszlopba a másodpercet (13). Utána C-oszlopban az összefűz függvénnyel meg tudod jeleníteni a kívánt formátumban (azonban ezzel számolni nem vagy csak nehezen fogsz tudni).:
=A1&":"&B1
Ezzel a móddal az összegzést simán az A és B-oszlopra el tudod végezni (B-nél természetesen az eredményt 60-al osztod hogy a percekhez hozzá tudd adni).
üdv.
-
Mutt
senior tag
válasz
elmouse
#17845
üzenetére
Hi,
Makró nélküli változat (ha 50-él kevesebb érték van az oszlopban, akkor is műxik):
=ÁTLAG(ELTOLÁS(A$1;DARAB2(A:A)-1;0;-MIN(50;DARAB2(A:A))))Még több hibakezeléssel pedig ez megy:
=ÖSSZESÍT(1;6;ELTOLÁS(A$1;DARAB2(A:A)-1;0;-MIN(50;DARAB2(A:A))))Illetve m.zmrzlina függvénye is jó.
üdv.
-
Mutt
senior tag
válasz
koxkids
#17813
üzenetére
Hello,
Ő ugye bármilyen változásra lefut, hogy lehetne, hogy csak akkor fusson le, ha lent átváltok a Munka2-re?
Ahogy írod is a Workbook_SheetChange esemény minden alkalommal lefut, amikor bármelyik lapon változás történik.Neked a Munka2-es lap Activate eseményére kell tenned a kódot.
Private Sub Worksheet_Activate()
<kódod>
End Sub
üdv.
-
Mutt
senior tag
Hello,
Szeretném valahogy levizsgálni, hogy a kézi rögzítés a bal oldali táblázatnak megfelelő oszlopba/oszlopokba történik-e.
Hogyan kerülnek be az adatok a bal oldaliba? Mindegyik cella ki lesz ott töltve?
Egyszerre több sor is kerülhet be a bal oldaliba?Ha realtime (vagyis ahogy a balba egy cella bekerül) szeretnéd ellenőrízni, akkor a makróval ezt tudod kezelni, pl:
Private Sub Worksheet_Change(ByVal Target As Range)
'ha az első 5 oszlopban változik adat (kivétel az első sor)
'akkor a cella kitöltése után jobbra ugrunk 7-et
If Target.Row > 1 And Target.Column <= 5 Then
Cells(Target.Row, Target.Column).Offset(, 7).Activate
End If
End SubHa utána akarod összehasonlítani a bal és jobb táblázatot, akkor pedig egy sima = vagy <> összehasonlítással tudod megtenni. Pl.
=(A2<>H2)+(B2<>I2)+(C2<>J2)+(D2<>K2)+(E2<>L2)
Ha ez a függvényt 0-t ad, akkor a sorban azonos a két táblázat, különben pedig annyi helyen van eltérés.
üdv.
-
#17823
Mutt
senior tag
Bocimaster
#17803
Mutt
senior tag
válasz
Bocimaster
#17803
üzenetére
Hello,
Ha tényleg 35GB-os a text fájl akkor szerintem Excel-t felejtsd el, vagy előbb PowerPivot kiegészítőd rakd fel. Ezt inkább adatbáziskezelővel kellene feldolgozni.
A lenti makró megcsinálja azt amit kérsz, egy 70MB-os 400.000 soros text fájlon nekem kb. 5 perc kellett neki. Egy 35 GB-oson 41 óra lenne a beolvasás, szóval mielőtt ráereszted egy kisebb szeleten is próbáld ki.
Saját felelősségre itt a kód.
Sub ImportTxtFile()
Dim myFileName As String
Dim myLine As String
Dim FileNum As Long
Dim sor As Long
Dim splitLine
Dim i As Long
Const chrDelimiter = vbTab
'fájl hozzárendelése
myFileName = "C:\test.txt"
FileNum = FreeFile
Close FileNum
Open myFileName For Input As FileNum
'képernyő frissítés kikapcsolása
Application.ScreenUpdating = False
sor = 1
'fájl beolvasás kezdete
Do While Not EOF(FileNum)
Line Input #FileNum, myLine
'sorok felszabdalása
splitLine = Split(myLine, chrDelimiter)
'sorok cellákba mentése
If UBound(splitLine) > 0 Then
For i = 1 To UBound(splitLine)
ActiveSheet.Cells(sor, i) = splitLine(i - 1)
Next i
End If
sor = sor + 1
'új munkalap nyitása - ha már nincs több sor
If sor > Rows.Count Then
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Activate
sor = 1
End If
Loop
Application.ScreenUpdating = True
End Subüdv.
-
Mutt
senior tag
válasz
koxkids
#17797
üzenetére
Hello,
Tehát amint írok be az első munkalapon új céget, a 2. munkalapon amint bekerül a sorok közé az új adat, automatikusan csökkenő sorrendben jelenjen meg.
Ha érdekel, akkor makró nélkül is meg lehet oldalni a NAGY (LARGE) függvény és vmilyen kereső függvény (FKERES, ELTOLÁS stb.) eltolásával is meg lehet oldalni.
Felraktam ide egy egyszerű példát, az első táblázatba felvitt értékeket a másodikban csökkenő sorrendben jeleníti meg.
üdv.
-
Mutt
senior tag
Hello,
A létező xls-ben van-e már workbook open event?
Ha tőled függetlenül már van, akkor meg van az indok hogy miért hasal el.
Ha azt nem tudod/mered változtatni, akkor Auto_Open névvel kell egy module-ba a kódódat beszúrni.'új module beszúrása
Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
VBComp.Name = "NewModule"
Set CodeMod = VBComp.CodeModule
'Auto_Open sub létrehozása
With CodeMod
LineNum = .CountOfLines + 1
.InsertLines LineNum, "Sub Auto_Open()"
LineNum = LineNum + 1
.InsertLines LineNum, Code3
LineNum = LineNum + 1
.InsertLines LineNum, "End Sub"
End WithEsetleg az Auto_Close sub-ba pedig tehetsz egy olyat, hogy az Auto_Open-t törölje ha az már lefutott.
üdv.
-
Mutt
senior tag
válasz
csferke
#17759
üzenetére
Hello,
Szerintem ez a képlet megteszi B4-ben:
=INT(B3)+HA((B3-INT(B3))>0,5;1;HA((B3-INT(B3))<1/3;0;0,5))
B3-ban gondolom egy sima B2-B1 van egyéni számformátummal.
Az első fele megadja a napok számát, a második fele pedig attól függően, hogy a napból hány óra telt el 0; 0,5 vagy 1-et ad még hozzá.
üdv.
-
#17793
Mutt
senior tag
dellfanboy
#17760
Mutt
senior tag
válasz
dellfanboy
#17760
üzenetére
Hello,
Delila_1 mintájára építve ez a CSE függvény is műkődik erre:
{=MAX(HA(A2:A7=E2;B2:B7))}
üdv
-
Mutt
senior tag
Hali,
Ugyanarra jutottunk.
Az egyetlen gondom az, hogy a sub nem fut le automatikusan...
Mivel a Sheet1 Change eseményébe szúrod be ezért nem fut le, Workbook Open esemény kell, de meg kell oldanod hogy ne minden megnyitáskor, hanem csak változáskor fusson le.
LineNum = .CreateEventProc("Open", "Workbook")
Esetleg csinálhatod azt hogy
If Thisworkbook.Sheets("Sheet1").Range("A1") = "" Then
<ide az eredeti kód>
Thisworkbook.Sheets("Sheet1").Range("A1") = 1
End ifüdv.
-
Mutt
senior tag
Hello,
A hibát a
LineNum2 = .VBE.MainWindow.Visible = False sor okozza.
Mivel ez egy parancs a VBA editornak ezért csak így lesz jó:Application.VBE.MainWindow.Visible = False
Nekem így már lefut .xls-en is, látszólag .xlsx-en is megcsinálja, de mivel az makrómentes ezért mentéskor eldobja.
üdv.
-
Mutt
senior tag
válasz
kordasb
#17738
üzenetére
Hello,
45k-nál a 10 575 USD a jó érték vagy nem?
A leírásod alapján annak kellene kijönnie, mivel 0-10k között kap 2000-et, 10-20k között 2250-et, majd 20-42k között 5500-at és a maradékra 825-öt. Ez összesen 10575.
A SUMPRODUCT-os képlet szépen és jól van megcsinálva szerintem.
A MIN/MAX rész is ugyanígy jónak tűnik.üdv.
-
Mutt
senior tag
válasz
Delila_1
#17720
üzenetére
Hali,
Egy kicsivel rövidebb megoldás:
=HA(DARABTELI(A1;"*T*")>0;1;HA(DARABTELI(A1;"*A*")>0;2;HA(DARABTELI(A1;"*P*")>0;3;HA(DARABTELI(A1;"*M*")>0;4;HA(DARABTELI(A1;"*B*")>0;0;"")))))Ha a B-re nem 0-át, hanem mondjuk 5-öt kellene visszaadni és a szövegben mindig csak az egyik karakter van, akkor ez is működne:
=ELŐJEL(DARABTELI(A1;"*T*"))*1+ELŐJEL(DARABTELI(A1;"*A*"))*2+ELŐJEL(DARABTELI(A1;"*P*"))*3+ELŐJEL(DARABTELI(A1;"*M*"))*4+ELŐJEL(DARABTELI(A1;"*B*"))*5üdv.
-
Mutt
senior tag
Hello,
A ELTOLÁS($E3;0;0;1;JOBB($E3:$XFD3)) részben van 2 hiba.
1. A JOBB függvénynek az ELTOLÁS-sal kapott tartományt kellene megadnod (pl. E3:X3), és nem pedig az ELTOLÁS-nak a JOBB függvényt.
2. Mivel az utolsó 5 karakterben keresed az "/azon" értéket ezért kell a JOBB-nak a második paramétere is. Vagyis JOBB(E3:XFD3;5) kell.Ezek alapján ez fog működni:
{=SZUM(HA(JOBB(ELTOLÁS($E3;0;0;1;DARAB2($E3:$XFD3));5)="/azon";ELTOLÁS($F3;0;0;1;DARAB2($E3:$XFD3))))}Van egy másik, nem CSE változat is:
=HA(SZORZATÖSSZEG(--(JOBB(ELTOLÁS($E$3;0;0;1;DARAB2($E$3:$XFD$3));5)="/azon"))>0;SZUM(ELTOLÁS($F$3;0;0;1;DARAB2($E$3:$XFD$3))))üdv.
-
Mutt
senior tag
Hello,
Itt az én változatom (E2-be):
1. Ha az ID minden esetben szám és a BOM-ok között nincs ismétlődés:
=SZORZATÖSSZEG(--(BOM!A:A=A2);--(BOM!B:B=B2);--(BOM!C:C=C2);--(BOM!D:D=D2);BOM!E:E)2. Ha az ID alfanumerikus és a BOM-ok között nincs ismétlődés:
=INDEX(BOM!E:E;SZORZATÖSSZEG(--(BOM!A:A=A2);--(BOM!B:B=B2);--(BOM!C:C=C2);--(BOM!D:D=D2);SOR(E:E)))üdv.
-
Mutt
senior tag
válasz
wolfman
#17662
üzenetére
Hali,
Automatikus szűrővel meg tudom csinálni, hogy ... csak azok szerint lehessen szűrni, ami szerint van is értelme
Erre beépített funkció nincs, mivel az Excel nem tudja megkülönböztetni, hogy mely adat értelmes és melyik nem az. A megoldás egy userform készítése, ahol te tudod felvenni, hogy mi fontos és a mőgé rakott kóddal listázod/módosítod az adatokat.
Ha javasolhatom, akkor az adatokat inkább adatbázisba tedd (pl. Access), mert ott már sokkal jobban tudsz szűrni és saját űrlapot készíteni, Accesshez vannak ingyenes személyes adatokat kezelő sablonok.
üdv.
-
Mutt
senior tag
Hello,
...megkrealni a pivot tablat es ujranevezni az aktiv tabot, ami mar ugye letezik
Mielőtt futtatnád a makrót nézd meg, hogy van-e már Pivot a lapon.
If ThisWorkbook.Sheets("munkalap neve").PivotTables.Count = 0 Then
'ide jön az eredeti makró
End Ifvagy ahogy m.zmrzlina írta ellenőrízheted a munkalapok nevét is.
üdv.
-
Mutt
senior tag
válasz
Gandalf80
#17669
üzenetére
Hali,
Delila_1 megoldása mellett itt van egy másik megközelítés.
Az eredeti koncepcióban én úgy értelmeztem hogy 5-20 sorok közötti értékeket kell összeadni, amelyet meg lehet szimplán így csinálni:
=SZUM(INDIREKT("C"&F2&":C"&H2))vagy flancosan így:
=SZORZATÖSSZEG(C:C;--(SOR(C:C)>=F2);--(SOR(C:C)<=H2))Aztán nézve, hogy inkább dátum oszlop alapján akarsz összegezni jött ez ki:
=SZUM(INDIREKT("C"&HOL.VAN(F2;A:A;0)&":C"&HOL.VAN(H2;A:A;0)))Itt a lényeg, hogy a HOL.VAN (MATCH) függvénnyel megkeressük, hogy melyik sorban van a dátum.
Majd ezt felhasználva előállítjuk az INDIREKT-el a cella hivatkozást és összegzünk.
üdv.
-
Mutt
senior tag
válasz
elmouse
#17657
üzenetére
Hi,
...hogyan lehet az utolsó 50-ből számolni, ha mindig máshol van ez az utolsó 50?
m.zmrzlina tökéletes megoldása mellett itt egy másik is.
=ÁTLAG(ELTOLÁS(A1;DARAB2(A:A)-1;0;-50))Ez az ELTOLÁS (OFFSET) függvényt használja, az A1 cellából indulva elmegyünk a végéig és onnan 50-et visszalépve létrehozzuk a tartományt amelyen az ÁTLAG függvény tud számolni.
üdv.
-
Mutt
senior tag
válasz
alfa20
#17656
üzenetére
Hello,
Makró tanuláshoz (alapoktól) milyen tudnátok könyvet ajánlani?
Mr. Excel - VBA and Macros: Microsoft Excel 2010 (ISBN 978-0-7897-4314-5)
John Walkenbach - Excel 2007 VBA Programming For Dummies (ISBN 978-0-470-04674-6)Online pedig: http://www.functionx.com/vbaexcel/index.htm
illetve számos fórumot: prohardvare, ozgrid, mrexcel stb.Amit tanácsolnék, hogy jól ismerd meg a függvényeket, mivel előfordulhat, hogy egy létező függvény is megoldja a problémádat.
Erre a legjobb fórum természetesen itt van, meg Chandoo-nál.
üdv.
-
Mutt
senior tag
válasz
Melorin
#17567
üzenetére
Hello,
De józan ésszel és gyakorlatilag is 12 nem?
Nem, mert csak 2013.09.01-én tellik el igazán 12 hónap. Aug. 31-én csak 12 hónap -1 nap + aktuális idő, vagyis aznap délben 11,98387 hónap tellik el.
Megoldás, hogy a végdátumhoz előbb adjál egyet és úgy számold a hónapokat.
üdv.
-
#17580
Mutt
senior tag
atillaahun
#17552
Mutt
senior tag
válasz
atillaahun
#17552
üzenetére
Hello,
3534 Miskolc Kossuth utca 13.
És ebből szeretnék egy oszlopot folytonosan egymás alá név, város, utca, irányítószám,A kapott minták alapján lehet azt mondani, hogy az első szóközig van az irányítószám, a másodikig a város és a többi a cím. Tehát
Ir. szám = BAL(input;első szóköz helye-1)
=BAL(B2;SZÖVEG.KERES(" ";B2)-1)
Város = KÖZÉP(input; első szóköz helye; első és második szóköz közötti karakterek-1)
=KÖZÉP(B3;SZÖVEG.KERES(" ";B3)+1;SZÖVEG.KERES(" ";B3;SZÖVEG.KERES(" ";B3)+1)-SZÖVEG.KERES(" ";B3)-1)
Cím = KÖZÉP(input;második szóköz helye; maradék karakterek)
=KÖZÉP(B2;SZÖVEG.KERES(" ";B2;SZÖVEG.KERES(" ";B2)+1)+1;HOSSZ(B2))Ezek után már csak össze kell fűznöd a kívánt sorrendben őket, sortörést a KARAKTER(10) függvény ad.
Szöval: =Város & KARAKTER(10) & Cím & KARAKTER(10) & Irszám
üdv.
-
#17545
Mutt
senior tag
atillaahun
#17532
Mutt
senior tag
válasz
atillaahun
#17532
üzenetére
Hello,
Üdv, szükségem lenne valami nyerő ötletre hogy rakok sorba Dr.-okat, Prof. Dr.-okat, meg sima nevű embereket, egy kb. 500-as táblába, úgy hogy a rendezési elv ugye mindenkinek a normál vezetékneve, címzések nélkül.
A szűk keresztmetszet itt, hogy hogyan tudod eltávolítani a nevekből a titulusokat.
Excelben sok szöveg függvény van, a HELYETTE például ezt csinálja, de egyszerre csak 1 cserét csinál meg.
Ezért készítettem egy UDF-et amely egyszerre több cserél csinál csak sorold fel vhova azokat amiket le kell cserélni.Itt a kód:
Function HelyetteTobb(Eredeti, rngKereses As Range)
Dim szoveg_regi As Range
Dim szoveg
HelyetteTobb = "N/A"
szoveg = Eredeti
For Each szoveg_regi In rngKereses
szoveg = Replace(szoveg, CStr(szoveg_regi.Value), "", compare:=vbTextCompare)
Next szoveg_regi
HelyetteTobb = Trim(szoveg)
End FunctionLépések:
1. A fenti függvényt használva megkapod a sima neveket.
2. DARABTELI függvénnyel meghatározod hogy a név ABC-sorrend szerint hanyadik helyre kerül.
3. Az elöző függvény eredményét felhasználva ABC-sorrendbe kiíratod a listát. Itt sok megoldás lehet, pl. ELTOLÁS, INDEX, FKERES.
üdv.
-
Mutt
senior tag
válasz
Melorin
#17529
üzenetére
Hello,
Delila_1 és m.zmrzlina megoldása tökéletes.
Esetleg ha nem akarsz az FKERES-nek segédtáblát, akkor az értékeket a képletben is megadhatod:
=FKERES(I20;{10\"Bukta";20\"Megfelelt";30\"Közepes";40\"Jó";50\"Kitűnő"};2;1)A {} jelek között van a "segédtáblád". Pontosvesszővel a sorokat adod meg, backslash-el pedig az oszlopokat sorolod.
Egy alternatívát is hadd adjak:
=VÁLASZT(INT(I20/10);"Bukta";"Megfelelt";"Közepes";"Jó";"Kitűnő")A VÁLASZT (CHOOSE) függvény első paramétere egy szám (1,2,3 stb.),a többi pedig egy indexelt lista, amelyből a számban megadottat adja vissza.
Az INT(I20/10) az I20 cellában lévő szám tízes-helyiértékén lévő számot adja vissza, pl. 31 -> 3 A függvény pedig a harmadik értéket ("Közepes") adja vissza.
üdv.
-
Mutt
senior tag
válasz
Sanyuc
#17508
üzenetére
Hello,
Azt szeretném hogy megadja hogy melyik számok hányszor fordulnak elő a megadott cellákban. 1-30-ig szerepelnek a számok.
Erre is jöttek makrós megoldások, pedig erre van bépített függvény is. A SZORZATÖSSZEG (SUMPRODUCT) ezt is tudja. Vhogy így kell használnod:
=SZORZATÖSSZEG(--(tartomány=keresendő szám))
üdv.
-
#17539
Mutt
senior tag
m.zmrzlina
#17484
Mutt
senior tag
válasz
m.zmrzlina
#17484
üzenetére
Hello,
Azt szeretném a makróval, hogy jelezze, hogy a fenti példánál pl febr 23.-a hiányzik...
Makrós megoldás már jött rá, de hadd mutassak be egy nem makrósat. Persze vannak hátrányai, de okulásra tökéletes lehet.
A képen látható, hogy a dátumok a B1-től kezdve vannak felsorolva, AB1-ig mennek és csak 1 dátum hiányzik most, mégpedig február 7-e (sárgával jelöltem). Két megoldás is van, az első a SZORZATÖSSZEG jól műkődik, ha csak 1 db nap hiányzik. A CSE már több nap esetén is jó, ilyenkor az első hiányzót adja vissza.
Nézzük őket:
=ELTOLÁS(AB1;0;-SZORZATÖSSZEG((NAP(B1:AB1)-(OSZLOP(B1:AB1)-1))))+1
- Itt a lényeg SZORZATÖSSZEG-ben van, amely úgy múkődik hogy megnézi a cellában (pl Q1) lévő dátum napját (pl. 2013.02.17 -> 17) és hogy ez a cella hanyadik oszlopban van (OSZLOP(Q1) -> 17) és a kettőt kivonja egymásból.
- Ha a napok egymást követik, akkor a nap száma és az oszlop száma egyezik, különbségük 0 lesz; de ha hiányzik egy nap akkor már 1-et fogunk kapni különbségnek. (Mivel az adatok nem az első oszlopból indulnak (ott most a komment van), ezért 1-et kivonok az oszlopszámából, így kapok B oszlopra 1-et, C-re 2-t stb.)
- Tehát a SZORZATÖSSZEG((NAP(B1:AB1)-(OSZLOP(B1:AB1)-1))) pl. ilyen eredményt fog adni {0;0;0;0;0;0;1;1;1;1;1....}. Ami azt jelenti hogy az első 6 nap okés, de a 7-nél csúszás van. A SZORZATÖSSZEG ezeket az 1-eket össze fogja adni, és megkapod, hogy hány napnál nem egyezett a napszám és az oszlopszám.
- Ennek ismeretében már könnyedén ki lehet választani az ELTOLÁS (OFSZET) függvénnyel, hogy melyik nap csúszott el, egyszerűen csak a napok listájának végéről (az AB1 esetemben) a SZORZATÖSSZEG szerint megadottszor kell visszamenni. Ehhez -1-el megszoroztam a SZORZATÖSSZEG eredményét,
- Így megkapjuk, hogy az utolsó jó nap február 6-a volt vagyis +1 nappal később van a bibi.A másik képlet csúnyább, de kezeli azt az esetet ha több nap is hiányzik a listából:
{=ABS(MIN(HA((NAP(B1:AB1)-(OSZLOP(B1:AB1)-1))*(OSZLOP(B1:AB1)-1)<>0;(NAP(B1:AB1)-(OSZLOP(B1:AB1)-1))*(OSZLOP(B1:AB1)-1))))}
- Itt a lényeg ugyanaz mint előbb volt, vagyis keressük azokat az eseteket ahol NAP(cella) és OSZLOP(cella) nem egyenlő.
- Valójában azonban itt a különbséget megszorzom az aktuális nap helyével, tehát nem 0 és 1-ek lesznek, hanem 0 és a megfelelő napok száma, pl. {0;0;0;0;0;0;7;8;9;10; stb}.
- A végén ebből a listából már csak a 0-nál nagyobb legkisebb számot kell kiválasztani, erre van a HA és a <>0 közötti rész.
- A képlet eredmény az a nap száma, amelyik hiányzik.
- Mivel se a NAP, se az OSZLOP, sem az ABS függvények nem kezelnek tartományokat, ezért CSE-ként kell felvinni.üdv.
-
Mutt
senior tag
Hali,
Bepötyögtem a képletedet és ha CSE-t nyomsz rá akor műxik.
D2-ben ez van: {=HA(VAGY($G2="";$J2="");"";HA((SZUM(HA(ELTOLÁS($G2;0;0;1;DARAB2($G2:$ZR2))=D$1;ELTOLÁS($J2;0;0;1;DARAB2($G2:$ZR2)))))=0;"";SZUM(HA(ELTOLÁS($G2;0;0;1;DARAB2($G2:$ZR2))=D$1;ELTOLÁS($J2;0;0;1;DARAB2($G2:$ZR2))))))}
Ami szerintem elhagyhatsz:
- az elejéről az üres cellák ellenőrzését, mivel a SZUM csak akkor fog eredményt adni ha cellákban van érték és azokból is a csoport első eleme egyezik a keresett kulcsszóval (pl. Úton) és a nettó érték mezőben pedig szám van.
- továbbá látom, hogy a 0 értéket sem akarod megjeleníteni. Erre van két megoldás:
1. A cella formátumnak add meg ezt. [<>0]Normál;[=0]"";;
2. Használhatsz feltételes formázást; egy olyan szabályt csinálj, hogy amikor a cellaértéke 0, akkor a betüszín a háttérszínnel megegyező legyen. (Ha a páros és páratlan sorok színe más, akkor kell két szabályra lesz szükséged.)Ha a fenti két dolgot elhagyod, akkor már ennyi marad a képletből (továbbra is CSE):
{=SZUM(HA(ELTOLÁS($G2;0;0;1;DARAB2($G2:$ZR2))=D$1;ELTOLÁS($J2;0;0;1;DARAB2($G2:$ZR2))))}üdv.
-
#17444
Mutt
senior tag
dellfanboy
#17438
Mutt
senior tag
válasz
dellfanboy
#17438
üzenetére
Hello,
Ahogy mások is mondták DARABTELI-vel megoldható.
pl. ha a számok a D1
7 tartományban vannak akkor ez a CSE formulád:
{=SZUM(HA(DARABTELI(D17;D17)>1;1;0))}
üdv.
-
-
Mutt
senior tag
Hello,
...ugorjon, tehat a kovetkezo sor elejere.
Több megoldás lehetséges, ha esetleg egy fel nem soroltad oldottad meg, akkor oszd meg velünk.
1. Ha előre kijelölöd a beviteli tartományt, akkor TA-al csak ebben a tartományban tudsz mozogni. A kijelölés utolsó oszlopát elérve a következő sorra fog ugrani és nem a mellette lévő cellába.
2. Ha az adatsort Táblázatnak definiálod (Beszúrás -> Táblázat), akkor is a fentiek szerint működik. Ez csak 2007-es vagy frissebb verzióval megy.
3. Ha a munkalap nevén jobb klikket nyomsz válaszd a Kód megjelenítése opciót (ez az Excel VBA szerkesztőjét indítja). Itt a munkalap ScrollArea értékét állítsd be. A hátránya, hogy egyetlen más cellába a területen kívül nem lehet írni.
4. Nem tökéletes megoldás, de akár a Korrektúra -> Lapvédelem is működik. Előtte a szükséges cellákról vedd le a védelmet. A gond, hogy a TAB ilyenkor új sorba nem ugrik, de a kitöltött cellák között sorrendben nozog.
5. Makróval is elérhető a Worksheet_SelectionChange eseményen keresztül.
üdv.
-
Mutt
senior tag
válasz
Vasinger!
#17425
üzenetére
Hello,
z 5. karakter utáni karaktereket tegye át a mellette lévő oszlopba
Megoldások jöttek már, de azért összefoglalom a fontosabb szöveg függvényeket:
=BAL(A2;5) Szöveg elejétől adott számú karaktert ad vissza
=JOBB(A2;5) Szöveg végétől adott számú karaktert ad vissza
=KÖZÉP(A2;2;5) Szövegből a kezdőpoziciótól (2) kezdve adott számú (5) karaktert ad vissza
=HOSSZ(A2) Szöveg hosszát (karakterek számát szóköz is számit) adja meg
=KÖZÉP(A2;5;HOSSZ(A2)) Adott pozíciótól (5) kezdve a szöveg többi részét adja vissza
=JOBB(A2;HOSSZ(A2)-5) A szöveg elejéről "levág" adott számú (5) karaktert
=HELYETTE(A2;"Zöld";"Kék") Szövegrészt cserél le egy újra (ismétlésekkel)
=CSERE(A2;8;2;"ődök") Poziciótól kezdeve (8) adott karakterek helyére (2) új szöveget szűr be
=SZÖVEG.KERES(" ";A2) A keresett szöveg elsö pozícióját adja meg (a példában az első szóköz helyét)
=SZÖVEG.TALÁL("e";A2) A keresett szöveg pozícióját adja meg (kis és nagybetűk különböznek)
=SOKSZOR("@";5) Adott karaktert ismétel a megadott számszor (5)
üdv.
-
Mutt
senior tag
válasz
dbalint
#17405
üzenetére
Hello,
Ahogy olvasgatom több megoldást javasolnak:
1. törőlni a fájlokat innen: C:\Users\USERNAME\AppData\Roaming\Microsoft\Excel
2. ha túl sok ikon van kint a gyorselérés eszköztáron akkor azokat törőlni
3. beépülőket letiltani, majd egyesével engedélyezni amíg ki nem derül melyik okozza a hibát
4. eltávolítani ezt a frissítést: Security Update for MS Excel 2010 - KB2597166
5. telepíteni ezt: http://support.microsoft.com/kb/2687317
6. leszedni és újrarakni az officetüdv.
-
Mutt
senior tag
Sziasztok,
Chandoo oldalán van egy kis kvíz a kereső (lookup) függvényekről. Akit érdekel tesztre fel!
http://chandoo.org/wp/excel-problems-challenges/vlookup-quiz/üdv.
-
Mutt
senior tag
Hello,
Az alábbit javaslom.
Mivel a pivot csak számokkal tud dolgozni, ezért a "végtelen értéket" vmilyen számmal helyettesítsd (pl. 9E99).
Elkészíted a pivotot, majd pedig beállítod a számformátumot, hogy 9E99 esetén végtelent írjon ki.
Ehhez használhatod az alábbi számformátumot: [<9E99]0;[=9E99] "unlimited"Ezt a megoldást látod a csatolt képen jobb oldalt, felül a pivot formázás nélkül, alatta pedig formázva.
Egy másik megoldás is lehet, amely a pivotot csak számításra (mint egy segédtábla) használja és az eredményt erre hivatkozva de formázva jeleníted meg. (Mivel a pivot nőhet/csökkenhet, ezért ennek megtervezése macerásabb de nem lehetetlen.) Erre a példa bal oldalt alul van.
üdv.
-
Mutt
senior tag
Hello,
... Gondolok itt a "KARAKTER(HOL.VAN("Kimutatás2";$A1:$DZ1;0)+64)&"1""
Ehelyett a jobb megoldás a CÍM (ADDRESS) függvény.
CÍM(1;HOL.VAN("Kimutatás2";$A$1:$DZ$1;0))
Az indirekttel pedig így oldható meg:
INDIREKT("S1O"&HOL.VAN("Kimutatás2";$A1:$DZ1;0);0)Fontos, hogy a második paraméter HAMIS (0) legyen, mert ekkor R1C1 stílusban tudod megadni a hivatkozást.
üdv.
-
#17389
Mutt
senior tag
Antonius1978
#17363
Mutt
senior tag
válasz
Antonius1978
#17363
üzenetére
Hello,
lappy megoldása mellett ez is megy (ha az A-oszlopból minden 23. sor ami neked kell):
=INDIREKT("A"&23*(SOR()-1)+1)
üdv.
-
Mutt
senior tag
Hello,
A minta alapján az alábbi CSE függvényt tudom javasolni:
{=SZUM(HA($D2:$J2=A$1;$F2:$L2))}
Nézzük részletekben:
- ez valójában egy HA(a meződ = a referenciáddal, akkor 2-vel jobbra lévő cella).
pl. =HA(D2="Elnevezés 1";F2) az "Elnevezés 1" pedig az A$1 cellában van.
- ha ezt CSE-ként visszük be, akkor meg tudjuk adni hogy egyszerre ne csak 1 cellát hasonlítson össze, hanem többet.
pl. a {=HA(D2:L2="Elnevezés 1")}, rendben megnézi hogy D2, E2, F2...L2 cellákban van-e "Elnevezés 1". Az eredmény pedig ez lesz: {IGAZ,HAMIS,HAMIS,HAMIS,HAMIS,HAMIS,HAMIS,HAMIS,HAMIS}.Az egészre már csak egy szummát raktam és kész a képlet.
Ahogy írod a sorokba folyamatosan jönnek az adatok, ergó nem mindig fix hogy D2:L2 tartományban kell keresni. Erre két megoldás van:
- vagy adsz egy olyan tartományt amit soha nem lépsz túl (pl. D2.ZZ2), ekkor a képlet csak kicsit változik:
{=SZUM(HA($D2:$ZZ2=A$1;$F2:$ZZ2))}
- vagy létrehozol egy dinamikus tartományt az ELTOLÁS és DARAB2 függvényekkel, ekkor már egy rondább képleted lesz:
{=SZUM(HA(ELTOLÁS($D2;0;0;1;DARAB2($D2:$ZZ2))=A$1;ELTOLÁS($F2;0;0;1;DARAB2($D2:$ZZ2))))}
Remélem megfelel.
üdv. -
-
Mutt
senior tag
válasz
Salex1
#17322
üzenetére
Hello,
Az Excel egyik problémája, hogy az utolsó használt cellát nem olyan könnyú megtalálni.
A http://www.mrexcel.com/td0058.html oldalon van pár megoldás ugyanarra a problémára. A gond szinte mindegyikkel az, hogy ha a szűrő be van kapcsolva, akkor nem megbízhatóak.
Nekem többnyire a DARAB2 vagy DARABTELI függvényes megoldás válik be, mert ez szűrő esetén is korrekt.
Azonban nem használható ha az oszlopban nem összefüggő az adatsor (van benne lyuk).Szóval ezeket tudom javasolni:
NextRow = WorksheetFunction.CountA(Range("B:B")) + 1
NextRow = WorksheetFunction.CountIf(Range("B:B"), "*") + 1
NextRow = Range("B1").End(xlDown).Row + 1üdv.
-
-
Mutt
senior tag
válasz
whatnot
#17321
üzenetére
Hello,
... Format(Date-1, "yyyy/mm/dd") ...
A / jel mindig a területi beállításoknál használandó dátum elválasztót jelenti. Magyar Windows esetén a dátum elválasztó alapból a pont, ezért kapod a '2013.03.18'-at.
A megoldás, hogy használod a \ jelet a / előtt, amely az utána lévő karaktert értelmezés nélkül megjeleníti.Format(Date-1, "yyyy\/mm\/dd")
üdv.
-
Mutt
senior tag
válasz
RAiN91
#17301
üzenetére
Hello,
...nézze meg a mellette lévő tőle balra lévő cellát, és ha ott is szerepel egy másik adott szöveg, számolja meg, hány darab ilyen cella létezik....
Itt megint az ELTOLÁS függvényt tudom javasolni, mert azzal lehet mindegyik irányban a referenciához képest mozogni (estedben balra kell egyet menni, ez a -1). A feltételek szerinti darabszámot pedig a DARABTELI függvény adja meg.
Csináltam egy butuska példát, ahova be kell írni adni TV műsort, ehhez a műsorhoz megkeresi a tőle balra lévő TV csatornát és megszámolja hogy ez a csatorna hányszor szerepel az első oszlopba. Remélem a minta alapján tudsz építkezni.
üdv.
-
Mutt
senior tag
Hello,
Delila_1 megoldása mellett rövidebb lehet, ha az ELTOLÁS függvénnyel hozol létre egy dinamikus tartományt amire ráteszed a DARAB2 függvényt.
pl. =DARAB2(ELTOLÁS($A$1;0;HOL.VAN($G$2;1:1;0)-1;65364))-1
Az ELTOLÁS rész egy 65364 soros 1 oszlop szélességű tömböt ad vissza az A1-es cellától jobbra annyival amennyit a HOL.VAN megad. Ha egy oszlopban 65364-nél több/kevesebb sorod van, akkor a képletben írd át nyugodtan; vagy akár lecserélheted DARABÜRES(Z:Z) -re - hol Z egy olyan oszlop, amiben soha nincs érték.
Itt egy példa a könnyebb megértéshez:
üdv.
-
Mutt
senior tag
-
Mutt
senior tag
válasz
Delila_1
#17239
üzenetére
Sziasztok,
Törlés előtt ellenőrízzétek a shape objektum típusát, és csak azt töröljétek amire nincs szükség.
A típusok itt vannak:
http://msdn.microsoft.com/en-us/library/aa432678(v=office.12).aspxAz érvényesítés típusa 8 - msoFormControl.
üdv.
-
Mutt
senior tag
válasz
nesh20
#17166
üzenetére
Hello,
Dobd fel a fájl részletét vhova, megnézzük.
Ha tényleg egy prn fájlról van szó, akkor kellhet egy konverter (pl. prn2txt) ami kiveszi belőle a nyomtatónak szánt beállításokat/kódokat és csak a nyomtatandó részt hagyja meg.
Ezek után már be lehet olvasni és tagoltatni a tartalmat.üdv.
-
#17169
Mutt
senior tag
m.zmrzlina
#17163
Mutt
senior tag
válasz
m.zmrzlina
#17163
üzenetére
Hello,
Van még egy rövidebb megoldás is:
=TÖBBSZ.KEREKÍT(A1;2,5)Ezzel az a gond, hogy a kerekítés szabályai szerint a 88.5-nél 87.5-et fog visszadni, mivel ez közelebb van, mint a 90.
Itt van egy másik elvetemült képlet ötletelésnek:
=KEREK.LE(A1;-1)+VÁLASZT(MARADÉK(INT(A1);10)+1;0;2,5;2,5;5;5;5;7,5;7,5;10;10)Az első része (a KEREK.LE) megadja tizes helyiértékre kerekítve a számot (pl. 88,5 -> 80), amelyhez vagy 0-t vagy 2,5-et vagy 5-öt, vagy 7,5-et vagy 10-et adunk attól függően, hogy az egyes helyiérték maradéka mennyi.
A képlet előnye, hogy külön beállítható, hogy mekkora maradéknál mennyit adjuk az első számhoz.üdv.
-
#17167
Mutt
senior tag
m.zmrzlina
#17157
Mutt
senior tag
válasz
m.zmrzlina
#17157
üzenetére
Hello,
Ezek a lépések kellenek neked.
1. Hozz létre egy beviteli listát (Active X).
2. A ListFillRange-be add meg a választható listát.
3. A munkalap change eseményéhez add ezt a kódot.
'csak akkor fut, ha az A-oszlopban történik változás
If Target.Column = 1 Then
'beállítjuk hogy a
ComboBox1.LinkedCell = "B" & Target.Row
'beugrunk a beviteli listába
ComboBox1.Activate
End IfEnterhez köthető eseménye nincsen, de pl. ESC-es van ha ez is jó neked, akkor használd ezt a kódot.
Private Sub ComboBox1_LostFocus()
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Activate
End SubTehát így fogod tudni használni:
1. A-oszlopba írsz vmit.
2. Enter-rel (vagy máshogy) kilépsz a cellából beugrik a beviteli listába.
3. Kiválasztod az értéket, majd nyomsz Esc-et és az A-oszlop első üres sorába kerülsz.Ide felraktam a mintát.
üdv.
-
#17119
Mutt
senior tag
m.zmrzlina
#17111
Mutt
senior tag
válasz
m.zmrzlina
#17111
üzenetére
Hello,
Ezt is lehet használni:
Sub FindCreationDate()
Dim fso As Object
Dim f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("c:\autoexec.bat")
MsgBox f.DateCreated
End SubEzek a jellemzők kérdezhetők le:
Attributes : Return the file attribute (read only,hidden etc.)
Copy : Copy a file
DataCreated : Return creation date
DateLAstModified : Return date of the last modification
Delete : Delete a file
Drive : return the drive where the file is
Move :allow to move the file
Name : return the file name
ParentFolder : return the parent folder name of the file
Path : Return the full file path(include the file name)
ShortNAme : return the short name of the file
Size : File dimention
Type : return file typeüdv.
-
#17118
Mutt
senior tag
m.zmrzlina
#17110
Mutt
senior tag
válasz
m.zmrzlina
#17110
üzenetére
Hello,
Érvényesítési listában az autocomplete nem műxik, azonban ActiveX-es beviteli listában igen.
Ez nagyon hasonlít az érvényesítésre, de annál többet tud.A Fejlesztőeszközök fülön tudsz ilyet beszúrni. A tulajdonságainál (ListFillRange) pedig be tudod állítani hogy mely listából lehessen kiválasztani. A hátránya, hogy ez nem cellában van, így az eredményét ha fel akarod használni akkor valahol meg kell jeleníteni (LinkedCell opció).
Alternatív megoldás pedig lehet, hogy a 250 elemet vhogy csoportosítod és több beviteli listán keresztül választatod ki a felhasználóval a konkrét értéket. Erről nem sok feljebb voltak megoldások.
üdv.
-
Mutt
senior tag
Hello,
...vmilyen macroval foglalkozó oldalt...
Jól össze van foglalva, hogy miből lehet építkezni a http://www.functionx.com/vbaexcel/index.htm oldalon.
Meglepő módon az Access-es részükben is található Excelben is használható tanács.
A http://www.vbaexpress.com oldalon kész kódok, leírások és fórumok is tudnak segíteni.
Ezek után pedig sok gyakorlás, és akár ezen fórum is segít.
üdv.
-
Mutt
senior tag
Hello,
Ha nem gond az angol, akkor a Contextures oldalán lépésről-lépésre le van írva hogy hogyan tudod ezt elérni.
2 módszert is bemutatnak.
http://www.contextures.com/xlDataVal13.html
http://www.contextures.com/xlDataVal02.htmlúdv.
-
#17080
Mutt
senior tag
Excelbarat
#17078
Mutt
senior tag
válasz
Excelbarat
#17078
üzenetére
Hello,
minden második sor összeadása
=SZORZATÖSSZEG(--(MARADÉK(SOR(A1:A15);2)=0);A1:A15)
Ha az egyenlőségjel után 0 van, akkor a páros sorok összegét kapod; ha 1 akkor a páratlanokét az A1:A15 tartományban.
üdv.
-
Mutt
senior tag
válasz
bteebi
#17072
üzenetére
Hello,
Azt szeretném megcsinálni, hogy csak az egy adott időhöz (pl. hétfő, kedd, szerda... 0:10, 3:50 vagy 6:40) tartozó B oszlopban lévő számokat átlagoljam (0:00-tól 23:50-ig, 10 percenként, összesen 144 időpont).
Ha Excel2007 vagy újabbat használsz akkor használhatók a HATÖBB (ÁTLAGHATÖBB, DARABHATÖBB stb) függvények is. Régebbiekben pedig az AB.ÁTLAG vagy a SZORZATÖSSZEG függvények tudnak segíteni.
Mindegyik esetben nem arra kerestem, hogy pontosan hol van pl. 12:10 hanem 12:10-12:19-es időintervallumra. Gondolom kerekítési hiba miatt nem megy a pontos keresés.
Itt van a minta fájl.
üdv.
-
#17073
Mutt
senior tag
m.zmrzlina
#17070
Mutt
senior tag
válasz
m.zmrzlina
#17070
üzenetére
Hello,
Automatikus kiegészítés ActiveX-es beviteli listával (combobox) is megoldható, illetve ahogy Excelbarát is írta, a cella alatt/felett összefüggő tartományként felsorolt adatokkal.
üdv.
-
Mutt
senior tag
válasz
Lacces
#17030
üzenetére
Hello
A http://financialsoft.about.com/od/spreadsheettemplates/tp/Free-Budget-Spreadsheets.htm oldalon van összegyűjtve pár link ahol vannak ilyen sablonok.
Azonban nem biztos, hogy Excel-re (vagy akár Access-re) szabad bízni ilyen adatokat, s emiatt esetleg jobb választás lehet egy dedikált program. Ezen vagy ezen az oldalon vannak ingyenesek.
üdv.
-
Mutt
senior tag
válasz
commanDOS
#17026
üzenetére
Hello,
...100 és 2000 között bármilyen szám kerülhet, amit meg kell feleltetnem a krititériumnak megfelelő 5 szám (500,750,1000,1500,2000) valamelyikével.
Az FKERES (VLOOKUP) fog itt segíteni, csak itt fontos hogy a függvény 4-ek paramétere (IGAZ legyen, vagy üres). Ilyenkor a legközelebbi találatot adja az Excel, ezért a keresési tartományt mindenképp rendezd sorba.
üdv.
-
Mutt
senior tag
válasz
Salex1
#16983
üzenetére
Hello,
A második munkalapon van egy név és egy dátum, ha ez a dátum a mainál régebbi, akkor a nevet kellene áttenni az első munkalap következő üres sorába.
2 megoldást is találsz itt.
Az egyik makró mentes, és kimutatást használ.
Nálam Referencia nevű lapon van az adatsor, ebben van a dátum és egy számított mező (a pivot miatt kell) amely megmondja, hogy lejárt-e már a dátum. Az egész egy igazi táblázatban van, amely biztosítja hogy amikor új sort viszel be akkor a számított mező automatikusan létrejön (nem kell neked másolnod) és hogy a pivot az újabb értékeket is megtalálja. Az első munkalapon pedig van egy kimutatás, amely a fájl minden megnyitásakor automatikusan frissül és a számított mező alapján szűr. Ami gond, hogy a kiimutatás sorba rendez, így nem a dátum szerint fogod látni az eredményeket. És csak akkor frissül ha újra megnyitod a fájlt.A másik megoldás pedig egy makró használata, amely a munkalapra váltáskor mindig lefut. Azonban hogy feleslegesen ne vigyen át adatok kell neki egy jelzés azon sorokról amelyeket már átmásolt, ez van a negyedik oszlopban (ez elrejthető ha zavar). Az eredményt a Makroval lapra rakja.
A kód pedig:
Private Sub Worksheet_Activate()
Dim vLastRow As Long
Const vTargetSheet As String = "Makroval" 'a lap neve ahova másolni kell a lejártakat
Const vDatumOszlop As Long = 2 'hanyadik oszlopban van a dátum
Const vFlagOszlop As Long = 4 'jelzés hogy melyik lett másolva már
Dim i As Long
'megnézük a cél helyen az utolsó sort
vLastRow = Application.WorksheetFunction.CountA(Sheets(vTargetSheet).Range("A:A")) + 1
'az aktuális lap sorain végigmegyünk
For i = 2 To Application.WorksheetFunction.CountA(Range("A:A"))
'ahol nincs kitöltve a másolás oszlop és a dátum a múltban van azokat másoljuk
If IsEmpty(Cells(i, vFlagOszlop)) And Cells(i, vDatumOszlop) < Date Then
Range(Cells(i, 1), Cells(i, vDatumOszlop)).Copy Destination:=Sheets(vTargetSheet).Range("A" & vLastRow)
'flaget beállítjuk
Cells(i, vFlagOszlop) = "x"
vLastRow = vLastRow + 1
End If
Next i
End Subüdv.
-
#17019
Mutt
senior tag
Excelbarat
#17018
Mutt
senior tag
válasz
Excelbarat
#17018
üzenetére
Hello,
Itt van az én megoldásom is.
Sub Szorzat()
Dim i As Long, j As Long, k As Long
Dim sor As Long, oszlop As Long
Dim nev As Range, szam As Range, vas As Range, szel As Range, hely As Range
Set nev = Range("B1") 'itt van a név pl. név
Set szam = Range("B2") 'itt van az azonosító pl. 1234
Set vas = Range("A5:A7") 'itt találhatók a vastagságok pl. 3 cm, 4 cm, 5 cm
Set szel = Range("B4:D4") 'itt találhatók a szélességek pl. 10 cm, 20 cm, 30 cm
'a szélességek alatti sorokban találhatók a tömegek
Set hely = Range("A11") 'az eredmény első mezője
sor = hely.Row
oszlop = hely.Column
'fejléc
Cells(sor, oszlop) = [A1]
Cells(sor, oszlop + 1) = [A2]
Cells(sor, oszlop + 2) = [A3]
Cells(sor, oszlop + 3) = [B3]
Cells(sor, oszlop + 4) = "súly"
k = 1
For i = 0 To vas.Rows.Count - 1
For j = 0 To szel.Columns.Count - 1
Cells(sor + k, oszlop) = nev
Cells(sor + k, oszlop + 1) = szam
Cells(sor + k, oszlop + 2) = vas.Resize(1, 1).Offset(i)
Cells(sor + k, oszlop + 3) = szel.Resize(1, 1).Offset(, j)
Cells(sor + k, oszlop + 4) = vas.Resize(1, 1).Offset(i, j + 1)
k = k + 1
Next j
Next i
End Subüdv.
-
Mutt
senior tag
Hello,
Ha Excel 2010-et használsz, akkor könnyedén lehet állítani a tizedesjelet és ezreselválasztót.
File menű -> Speciális
A többi verzió esetén a Windows területi beállításait kellene módosítani.
Lehet, hogy ez is megoldja a problémádat.Ha mégis csere kell, akkor pedig javaslom hogy egy üres sztringet ("") fűzz az értékhez.
pl. 12,1 -> =HELYETTE(A1;",";".")&"" -> 12.1
Ilyenkor szövegként fogja tárolni a számot, aritmetikai műveleteknél nem fog gondot okozni, de logikai és összehasonlításoknál igen.üdv.
-
Mutt
senior tag
válasz
detroitrw
#16910
üzenetére
Hello,
...ez a makró A1-A2000 -ig végigfusson?
Az elején és a végén kell egy kicsit módosítani:
Dim blnHit As Boolean 'logikai jelző ha már létezik a vizsgált szám
Dim cell As Range
For Each cell In Range("A1:A2000")
arraySplit = Split(cell, strDelimiter)
...<itt marad az eredeti> ...
For i = 1 To UBound(arrayResult, 2)
Cells(cell.Row, cell.Column + i) = arrayResult(1, i) & " db - " & arrayResult(2, i)
Next i
Application.ScreenUpdating = True
End If
Next
End Sub -
Mutt
senior tag
válasz
detroitrw
#16893
üzenetére
Hello,
adott:
A1=1603+1603+640+640+640+388+388 -> pl. B1=2db - 1603Gondolom a számok is változnak (nem mindig csak 1603, 640 és 388 ismétlődik), ezért csak függvényekkel megoldani körülményes, javaslatom a lenti makró (mindig csak a kijelölt cellát vizsgálja):
Sub Szetszed()
Dim arraySplit
Const strDelimiter As String * 1 = "+" 'tagolás jele
Dim arrayResult() 'itt lesznek a darabszámok és a számok/karakterek
Dim c As Long, i As Long
Dim blnHit As Boolean 'logikai jelző ha már létezik a vizsgált szám
arraySplit = Split(ActiveCell.Value, strDelimiter)
If IsArray(arraySplit) And UBound(arraySplit) > 0 Then
ReDim arrayResult(1 To 2, 1) 'találat létrehozása
arrayResult(1, 1) = 1 '1 db
arrayResult(2, 1) = arraySplit(0) 'első érték megjegyzése
'további számokon végigfut
For c = 1 To UBound(arraySplit)
blnHit = False
i = 1
Do
'ha már van ilyen szám, akkor eggyel növeljük a számlálót
If arraySplit(c) = arrayResult(2, i) Then
arrayResult(1, i) = arrayResult(1, i) + 1
blnHit = True
End If
i = i + 1
Loop Until blnHit Or i > UBound(arrayResult, 2)
'ha még nincs ilyen akkor megjegyezzük a számot
If Not blnHit Then
ReDim Preserve arrayResult(1 To 2, UBound(arrayResult, 2) + 1)
arrayResult(1, UBound(arrayResult, 2)) = 1
arrayResult(2, UBound(arrayResult, 2)) = arraySplit(c)
End If
Next c
Application.ScreenUpdating = False
For i = 1 To UBound(arrayResult, 2)
Cells(ActiveCell.Row, ActiveCell.Column + i) = arrayResult(1, i) & " db - " & arrayResult(2, i)
Next i
Application.ScreenUpdating = True
End If
End Subüdv.
7 tartományban vannak akkor ez a CSE formulád:
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Corsair Katar Elite WL egér eladó (hibás)
- Xiaomi Redmi Note 10 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felváráslás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- Telefon felvásárlás!! Apple Watch Series 9/Apple Watch Ultra/Apple Watch Ultra 2
- ÁRGARANCIA! Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged