- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Pajac: Átlátszó fém
- Magga: PLEX: multimédia az egész lakásban
- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- MasterDeeJay: Alacsony fogyasztású házi szerver a korábbi projektekből összeépítve
- Argos: Adjátok vissza a netet! - szeretnék elaludni!
-
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
-
#5100
RoyalFlush
őstag
RoyalFlush
őstag
Sziasztok!
Egy kis segítséget szeretnék kérni. Arra lennék kíváncsi a "hol.van"-os rész mit csinál? - táblázatok elnevezésű dolgot nem találok a dokumentumban.
=HA(ÉS(I184<>"";I185<>"";I186<>"");FKERES(I185;q_;HOL.VAN(I184;Táblázatok!$B$325:$F$325;0);0);"")
Előre is köszönöm!
-
#5099
Delila_1
veterán
Fehér Mancs
#5098
Delila_1
veterán
válasz
Fehér Mancs
#5098
üzenetére
Még egy alternatíva:
=érték(B1)
akár HA függvénnyel kombinálva. -
#5098
Fehér Mancs
tag
boecce
#5096
Fehér Mancs
tag
A Ctrl-1 csak a formátumot változtatja meg (szövegről pl. számra), de a tárolt értéket nem konvertálja automatikusan számmá, ugyanúgy "123" marad benne. Persze, ha beleállunk és enter-t nyomunk, akkor már felismeri az excel. Persze Delila már lelőtte az egyik megoldást
Viszont alternatív megoldás mindig van, ezzel a képlettel egy másik oszlopban lehet számosítani az arra érdemes értékeket:
=HA(HIBA(B1*1);B1;B1*1) -
Delila_1
veterán
Egy képlettel hivatkozz az oszlop celláira, és szorozd be 1-gyel.
Pl. ha az M oszlop ez a "rákos", akkor egy új oszlopba ezt írd: =M1*1
A cellát lemásolod, ameddig kell, utána a teljes új oszlopot irányítottan, értékként beilleszted az M oszlop helyére.
Az is előfordulhat, hogy a beteg oszlopodban valamilyen ezres elválasztó karakter van.
Azt a csere funkcióval tüntetheted el. -
boecce
tag
Tisztelt Excel-guruk!!
AZt szeretném megtudni, hogy mi a "rák " lehet azzal az exceltáblával, amit már sokan, több éve szerkesztettek, egymás melletti oszlopokban vegyes, (szöveg és szám) tartalommal, és ami számnak látszik, az is mintha szövegként viselkedne.. Nem segít a Ctrl+1 (cellaformázás) számformátum parancs sem
egyetlen "güzü" módszer müködik csak, az, hogy a számokat ujra, egyenként beírom.. de ez a hatalmas adatmennyiség miatt hosszadalmas. Viszont enélkül nem tudok autoszürőnek relációkat megadni.
Tud valaki segíteni? -
Psytróger
tag
válasz
Fehér Mancs
#5094
üzenetére
A nincs szám problémát sikerült megoldani úgy, hogy ahova nem kerül szám, oda is beírtam a 0-át, csak átszíneztem fehérre a betűszínt
Egyébként ez egyfajta verseny táblázata, ahol 17 körből mindenkinek a 9 legjobb eredménye számít (azóta sikerült rájönnöm, hogy épp ezért átlag nem is kell, elég az összegüket venni, hiszen mindenkinél ugyanúgy 9-el osztunk vissza úgy is) - aki csak 7 körben szerepel, annak a maradék 2 kör nullásként számít. Erre pedig tökéletes volt Delila verziója is!
De azért köszönöm Neked is -
Fehér Mancs
tag
válasz
Psytróger
#5090
üzenetére
Egy alernatív megoldás, egy képlettel (B1-P1-ig vannak az adatok):
=SZORZATÖSSZEG(NAGY(B2:P2;{1;2;3;4;5;6;7;8;9}))/9
vagy ugyanez, csak a sorszámokat paraméterezve:
=SZORZATÖSSZEG(NAGY(B1:P1;SOR($A$1:$A$9)))/9Ha nincs 9 szám, akkor Delila megoldásához hasonlóan hibaüzenetet ad vissza, de ezt is le lehet kezelni, bár ez már a tömbképlet tömbképlete
(az üresek helyére 0-t tesz - Negatív számoknál problémát okozhat!!!)=SZORZATÖSSZEG(NAGY(HA(SZÁM(B2:P2);B2:P2;0);SOR($A$1:$A$9)))/9
a végén pedig ctrl+shift+enter
-
Delila_1
veterán
-
Psytróger
tag
Sziasztok!
Azt hogy tudom megcsinálni, hogy ha egy soron belül van több cellányi "szám", akkor abból kiválassza a 9 legnagyobbat, és azokat átlagolja?
Valami hasonlót szeretnék ehhez.
Az se lenne rossz, hogy ha az egyik sorban csak teszem azt 5 szám van, akkor a maradék 4 helyre automatikusan 0-át venne, és így osztaná 9-el (mint a linkelt táblázat 2. sorában). -
#5087
Delila_1
veterán
FireShadow
#5086
Delila_1
veterán
válasz
FireShadow
#5086
üzenetére
A diagram készítésekor kaptál egy lapot, amin a diagram alapját képező kimutatás van.
Állj az Összesen oszlop valamelyik cellájára, nyomd meg a rendezés A->Z ikonját.
Az emelkedő sorrendbe állított adatokból kiválasztod a sorokat, amiket ábrázolni akarsz, és átmásolod egy másik helyre. Címet adsz az oszlopoknak, és már neki is ugorhatsz a diagram készítésének.Másik módszer: a kimutatásból irányított szűrővel kiválogatod a szükséges tételeket.
A diagram minták között a kör kategóriában találsz egy Kör-kör, és egy Kör-sáv nevezetűt, nézd meg ezeket, látványosan lehet megmutatni velük a nagyságrendileg eltérő adatokat. Ha ezek valamelyikét választod, meghatározhatod, melyik adatok kerüljenek a nagy körbe, és melyikek a kisebb körbe, vagy sávba. Ki kell jelölnöd a diagramon az adatokat, jobb klikk, Adatsorok formázása, Beállítások fül.
-
#5085
lúzer
veterán
FireShadow
#5080
lúzer
veterán
válasz
FireShadow
#5080
üzenetére
hmmm, nekem rögtön megcsinálta diagramként
-
Cuci3
tag
válasz
Delila_1
#5082
üzenetére
Vagy akár készíthet egyből kimutatásdiagramot. Kimutatás varázsló 1. lépésénél az alsó választékból lehetőségből kell kiválasztani.
Középre kell behúzni az időt, alulra meg a teloszámokat. És persze jobb klikk, minták => kördiagram.Nem mondom, hogy túl szép a kinézete, de célnak megfelel. Meg a kimutatás automatikus frissítésénél ez is módosul.
-
#5082
Delila_1
veterán
FireShadow
#5080
Delila_1
veterán
válasz
FireShadow
#5080
üzenetére
Próbáld meg az Adatok/Kimutatás vagy kimutatásdiagram menüben a varázslóval. A varázsló végigvezet az ekészítésén, néhány kattintás az egész.
Az elrendezésnél a sorhoz a számot tartalmazó oszlop címkéjét húzd, az adathoz pedig az időtartamot. Ha véletlenül azt írná: Darab:időtartam, akkor (dupla?)klikk rá, a feljövő ablakból jelöld meg az összeget. Ez pontosan azt csinálja, amit szeretnél, számonként összegzi az időtartamokat.
Innen már gyerekjáték a kördiagram elkészítése. -
Delila_1
veterán
Amikor eljutottál a vezérlő formázásáig, megjelenik egy párbeszéd panel, azon vannak a kitöltendő rovatok.
Írd egymás alá valahova az egyik tízet, az előtte lévő oszlopba pedig mindegyik értéked elé a sorszámát. Mondjuk, ez az egyik tarományod a J1: J10 tartomány, akkor előtte a I1: I10 az 1...10 értéket tartalmazza. A bemeneti tartomány a J1: 10 lesz.
A legördülőt pl. A2-be rajzoltad, a cellacsatolás A2 legyen. Mikor a legördülő segítségével kiválasztod a lista egyik elemét, az A2-be beíródik az a sorszám, ahányadik a 10 közül a kiválasztott. Ha csak azt akarod, hogy látsszon ez a kiválasztott elem, semmit sem kell tenned, akkor a sorszámos oszlop sem kell. Ha azonban valahol a füzetedben máshol is akarod látni, akkor a "máshol" cellába beírod: =fkeres(A2;I1: J10;2;hamis).
Tudod, szóközöket nem kell hagynod a kettőspontok után, de itt a fórumon egy vigyori fej jelenne meg helyette, ha nem lenne szóköz.
Ugyanígy járj el a másik tíz adatoddal is. -
#5080
FireShadow
senior tag
wjani
#5007
FireShadow
senior tag
hasonló problémám lenne. adott egy telefonszámla digitális formában
szám | idötartam
5551616 52
5552626 14
5553636 23
5551616 42
5550606 34
5552626 11
és azt szeretném ha erröl dobna nekem egy kördiagramot, hogy kivel mennyit beszéltemehhez össze kell adnia nevenként(számonként) az idötartamokat és ezt ábrázolnia a diagramon
ezt lehet valahogy egy lépésben vagy kell egy segéd táblázat ahova berakom a számokat és mellé az összeget (mert abból már csakcsak összehozom a diagramot)
a bibi az hogy nem 3-4féle szám van, szóval valami automatizált megoldás kellene.. de én még egy SZUMHA-t se tudok müködésre birni
-
csudri
őstag
válasz
Delila_1
#5078
üzenetére
Odáig értettem, hogy vezérlő formázása, utána elakadtam.
Melyikhez kell írnom a másik munkalapon elhelyezett kis oszlopaim nevét? (az egyik neve millió, a másik pedig százalék, mindkettőben 10 elem van)
Az FKERES-t, meg nem használtam 10 éve, az már olyan kínai, hogy nem akarod tudni.
Ja és persze köszi a segítséget és a rám fordított energiát!
-
Delila_1
veterán
Megoldható, de sok ilyen cellánál visszafogja az Excelt.
Az Űrlapok eszköztárról a Kombi panelt kijelölöd, és a kapott szálkereszttel kijelölöd a beviteli cellát. Jobb klikk, Vezérlő formázása. Bemeneti tartomány az, ahol a felsorolásod van a választható adatokról. Cellacsatolásnak célszerű az alatta lévő cellát beírni, hogy a legördülő eltakarja a számot. Mert ennél a formánál az eredmény egy sorszám, mégpedig az, hogy a bemeneti tartomány hanyadik tagját választottad, tehát nem maga az érték, mint az érvényesítésnél.
Ha az értéket akarod valahol felhasználni, akkor a függőlegesen elhelyezett lista előtti oszlopba kell tenned egy 1-től növekvő sorszámot, és az FKERES (VLOOKUP) függvénnyel kell kikerestetned. -
csudri
őstag
Sziasztok, próbáltam több módon is keresni a topikban, de nem találtam hasonló kérdést, mint amilyen az enyém.
Szóval, van egy Office 2003-ban létrehozott Excel táblás kérdőívem, amiben a válaszok legördülő menüvel vannak megoldva. Az lenne a kérdésem, hogy megoldható-e, hogy a válaszoknál ugyan úgy látszódjon a kis szürke izé, mint mondjuk az autószűrőnél? Mert ha nem klikkel valaki rá a cellára, akkor nem látszik, hogy mit kell vele csinálni. Tehát pofásabb lenne, ha alapból megjelenne a kis szürke négyzet a lefelé mutató háromszöggel.
Megoldható?
Előre is köszi!
-
#5075
Delila_1
veterán
Fire/SOUL/CD
#5073
Delila_1
veterán
válasz
Fire/SOUL/CD
#5073
üzenetére
Ez tényleg nem valami fényesen sikerült.
A "csak a smile-k írtam" szöveg hiányos, szándékom szerint "csak a smile-k miatt írtam" lett volna, és természetesen szumha.
Talán túl korai volt az ébredésem.
-
#5073
Fire/SOUL/CD
félisten
Delila_1
#5072
-
sduiz
csendes tag
Sziasztok!
Létrehoztam egy Excel táblázatot, amiben az egyik oszlop minden cellájához tartozik legördülő menü lista.(Adatok-Érvényesítés menüvel készült)
Tudna segíteni valaki abban, hogyan lehet beállítani a legürdülő listába írt szöveg kiválasztásánál, hogy a cella színe is változzon.
Pl.: a legördülő listában ha az "IGEN"-re kattintok a cella színe zöld legyen, ha a"NEM"-re piros legyen a cella.Előre is köszönöm!
-
marcias
őstag
Sziasztok!
Nem tudom megoldani az excel táblázatomban, hogy hogyan lehet kiszámoltatni a következőt. A lényeg, hogy eladásokat tettem a rekordokba, megjelölve hogy melyik napon történt az eladás, egy napra több eladás is eshet, és van olyan nap, amikor egy sincsen. Tehát, a H oszlopban látszik az adott eladás, és a J oszlopban szeretném látni, hogy adott napon milyen eladás lesz. Ehhez egy adatbázis függvényt hívtam, ami faszán ki is számolja hogy mondjuk 572-edik napon mekkora az eladás, viszont nem többszörözhető, tehát mindig csak azt az egy napot hajlandó kiszámolni, amit az I2 cellába beírok.
Hogyan tudom azt megcsinálni, hogy ugyanezzel a szisztémával több napra is eredményt kapjak? Köszi 
-
#5067
Delila_1
veterán
[HUN]Tyson
#5066
Delila_1
veterán
válasz
[HUN]Tyson
#5066
üzenetére
Pont egy hiba után teszed fel ezt a költői kérdést?!
-
#5065
Delila_1
veterán
[HUN]Tyson
#5064
Delila_1
veterán
válasz
[HUN]Tyson
#5064
üzenetére
A Right szót írd át Left-re, az majd a végéről csípi le az utolsó pontosvesszőt és felesleges szóközt.
Bocsi, elírtam, és nem figyeltem fel a hibára.
-
Cuci3
tag
válasz
Delila_1
#5058
üzenetére
Az ötletet köszönöm, az tényleg sokkal egyszerűbb.
A sorrend azonban azért nem jó sima sorba rendezéssel, mivel az a számokat rendezné sorba, és nem a számokat előfordulásuk szerinti sorrendbe.
Ezt Kimutatás eszköztár/Kimutatás/Rendezés és toplista menüponton belül lehet elérni.
-
Cuci3
tag
válasz
felora:)
#5059
üzenetére
Pár kérdés, mivel csak utólag vettem észre, hogy ez a számsor az aláírásod:
1. Mivel vannak elválasztva a számok a cellán belül? Gondolok itt space-re, vesszőre, tabra, ilyesmire.
2. Tényleg nyolc szám van? (Aláírásodban csak 7 - bár már magam sem tudom, hogy mit higgyek)
Kezdésnek itt egy makró, mely a space-sel elválasztott adatokat szedi szét. Az adatoknak a Munka1 A1-es cellájában kell kezdődnie. A 'szövegből oszlopok' módszerrel szétszedett adatokat a Munka2 A2-es cellájától folyamatosan kezdi el felhozni, majd a Munka2 C3-as cellájától kezdve bedob egy kimutatást, amit a számok darabszáma alapján rendez csökkenő sorrendbe.
Kikommentelni nem volt kedvem, de ha kell egyszer megteszem. Rem OpenOffice alatt is frankón működik, dehát ki tudja.
Próbáld ki, aztán majd lesz valahogy!Most látom csak, hogy a szöveg szétszedésénél 7 érték van, amit majd módosítani kell, ha tényleg 8 szám van.
Próba után okosabbak leszünk.Sub nyolcmaximum()
Dim i, sor, sor2 As Integer
Dim hely, hely2 As String
Munka1.Activate
Munka1.Cells(1, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1)), TrailingMinusNumbers:=True
Munka1.Cells(1, 1).Select
sor = Selection.End(xlDown).Row
For i = 1 To Selection.End(xlToRight).Column
Munka1.Activate
Munka1.Range(Cells(1, i), Cells(sor, i)).Select
Selection.Copy
Munka2.Activate
Munka2.Cells((i - 1) * sor + 2, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
Application.CutCopyMode = False
Munka2.Cells(1, 1).Select
Selection = "szam"
sor2 = Selection.End(xlDown).Row
hely = "Munka2!R1C1:R" & sor2 & "C1"
hely2 = "[" & ActiveWorkbook.Name & "]Munka2!R3C3"
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
hely).CreatePivotTable TableDestination:= _
hely2, TableName:="nyolcszam", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTables("nyolcszam").AddDataField ActiveSheet.PivotTables( _
"nyolcszam").PivotFields("szam"), "Darab / szam", xlCount
ActiveSheet.PivotTables("nyolcszam").AddFields RowFields:="szam"
ActiveSheet.PivotTables("nyolcszam").PivotFields("szam").AutoSort xlDescending _
, "Darab / szam"
End Sub -
Delila_1
veterán
A számok szétszedése külön cellákba egyszerűbb az Adatok/Szövegből oszlopok (tagolt, szóköz elválasztó) menüvel. Ez az A: G tartományba dobálja szét a számokat.
A kimutatásban a példád szerint az F oszlopba állva a rendező ikon segítségével emelkedő-, vagy csökkenő sorrendbe lehet tenni az adatokat.
-
Cuci3
tag
válasz
felora:)
#5056
üzenetére
Azt nem tudom, hogy mit tud az OpenOffice. Én makrók nélkül kezdtem el gondolkodni.
De úgy gondolkodtam, hogy alap függvényekkel csak boldogul. Én Excel 2003-at használtam, és egy példát felraktam [ide].
A Munka1-en először szétszedem a nyolc számot. Innentől azonban már sok megoldás van:
1. Munka2-re A2-től kezdve egymás alá másolom a számokat, mellé rakok egy darabteli függvényt, majd a B oszlop szerint rendezem csökkenőbe az egészet. (800 számnál kicsit macerás a 8 legnagyobbat megadni)
2. az egymáés alá másolt számokat bedobom egy kimutatásba, teszek mellé darabszámot, aztán berendezem a darabszám szerint csökkenőbe. (mivel 1-től 20-ig mennek a számok, ezért ez egész átkátható)Tehát az a kérdés, hogy mennyire gyakran kell ezt megcsinálnod? Ha sűrűn, akkor tényleg kényelmesebb egy makró.
-
felora:)
tag
sziasztok! a táblázatkezelőben szeretnék segítséget kérni. hogyan tudnám megcsinálni a következőt: minden egyes cellában 8 szám van, 1 és 20 között. ebből van kb 100db. azt szeretném, ha kiírná nekem a 8 leggyakoribb számot. milyen képlet alapján lehetne ezt megcsinálni? köszönöm a választ előre is.
-
#5054
Delila_1
veterán
[HUN]Tyson
#5053
Delila_1
veterán
válasz
[HUN]Tyson
#5053
üzenetére
Most az adataid az A1-ben kezdődnek. Szúrj be elé egy sort, és az új A1-be adj valami címet (pl. e-mail), mert az irányított szűréshez ez szükséges.Állj az A1-en.
Adatok/Szűrő/Irányított szűrő, OK.
Más helyre másolja.
A listát automatikusan kijelöli.
A "Hova másolja" rovatba írj E1-et.
Jelöld be a "Csak az egyedi rekordok megjelenítése" négyzetet.
OK
E2-től lefelé minden cím csak egyszer szerepel.
Most töröld ki az első sort, hogy cím nélkül szerepeljenek az oszlopok.
Vidd be az új makrót, és indíthatod.Sub email()
Dim a, b, c, d As Long
c = 1: d = 100
For a = 1 To 28
For b = c To d
Cells(a, 2) = Cells(a, 2) & Cells(b, 5) & "; "
Next
Cells(a, 2) = Right(Cells(a, 2), Len(Cells(a, 2)) - 2)
c = a * 100 + 1: d = d + 100
Next
End Sub -
wjani
tag
Sziasztok!
Cuci3 megoldása is jó dolog, de itt a függvényt folyamatosan kell másolni a cellákba, addig, amíg a függőleges oszlopba el nem fogy a sor.
Én a makróval azért adtam ciklust, hogy ne kelljen meghatározni az egy oszlopos adatok utolsó sorát.
De látom mennyire gyorsan léptünk, hogy segítséget nyújtsunk Core1113-nak.
Üdv
Wjani -
Delila_1
veterán
válasz
core1113
#5029
üzenetére
Írtam egy makrós megoldást a 2. kérdésedre.
A munka1 kiinduló lapon az A oszlopban vannak az irányítószámok, B oszlopban a megyék nevei, a többiben bármilyen adat.
A többi lap neve pontosan egyezzen meg a B oszlop adataival.
Minden lapon van címsor.
A "Sheets(Array(" kezdetű sorban írd át a megyék nevét.Sub Irszám()
Application.ScreenUpdating = False 'Képernyő frissítés tiltása
'Előző adatok törlése a megyék lapjain.
Sheets(Array("Pest", "Borsod", "Hajdú", "Zala", "Szolnok")).Select
Rows("2:6000").Select
Selection.Delete Shift:=xlUp
Range("A2").Select
'Sorok másolása a lapokra
Sheets("Munka1").Select
For sor = 2 To ActiveSheet.UsedRange.Rows.Count
megye = Cells(sor, 2)
Rows(sor & ":" & sor).Copy
Sheets(megye).Select
Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
ActiveSheet.Paste
Sheets("Munka1").Select
Next
Sheets("Munka1").Select: Range("A2").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True 'Képernyő frissítés engedélyezése
End Sub -
Cuci3
tag
válasz
core1113
#5034
üzenetére
Az első kérdésedhez [itt] egy bemutató. Az index függvénnyt használtam. Nem tudom pontosan hol vannak az adataid, de a sor függvénnyel kell szórakozni hozzá, hogy jó legyen. Ajánlom, hogy teszteld előbb fals, azaz ilyen számokat tartalmazó adatokkal.
A második kérdés folyamatban, csak előbb saját melómmal is törődnöm kellene.
-
wjani
tag
válasz
core1113
#5034
üzenetére
Erre azt tudom ajánlani, hogy a makróban kell megadni, hogy melyik sor melyik munkalap fülre ugorjon.
Az egyben lévő adatoknál azért kell lennie olyan oszlopnak, ahol ezt össze lehet vetni (megyék neve), vagy pedig egy külön munkalapon az irányítószámok és mellette, a megye neve.
Így átemelhető.Üdv
Wjani -
wjani
tag
válasz
core1113
#5035
üzenetére
Szia itt a kód:
Sub átemelés()
'
' átemelés Makró
'
'=========================================================================================
'Ez a makró egy adott oldal első oszlopának adatait emeli át egy mások munkalapra úgy, hogy
'az első oszlop eslő értéke az első oszlopba, az első oszlop második sorának értéke a
'a második oszlopba, az első oszlop harmadik értéke a harmadik oszlopba kerül.
'
'A zárójelben Munka1 és Munka2 értékeket cseréld le a te munkalapjaid nevére, de pontosan
'Készítette: Weisz János, wjani@freemail.hu
'=========================================================================================
'Első és második munkafüzet változóinak felvétele,
Dim i, j As Variant
'A sor változók megadása
Dim s, o, m, n As Integer
'A sor kezdő értékeinek megadása
s = 1
o = 1
m = 1
n = 1
' Egy ciklus ami addig megy, amíg az első munkalapon az első üres sort nem talál
Do
' Az első érték felvétele a változóba
i = Worksheets("Munka1").Cells(s, o).Value
' Ez a ciklus második oldalon fogja az adatokat átadni
Do
'Az első érték felvétele a változóba
j = Worksheets("Munka2").Cells(m, n).Value
'Ha az első cella értéke üres, tegye bele az értékeket a megadott cellákba
If j = Empty Then
'első cella értéke legyen egyenlő az első cella értékével
Worksheets("Munka2").Cells(m, n).Value = Worksheets("Munka1").Cells(s, o).Value
'második cella értéke legyen egyenlő a második sor első cellájának értékével
Worksheets("Munka2").Cells(m, n + 1).Value = Worksheets("Munka1").Cells(s + 1, o).Value
'harmadik cella értéke legyen egyenlő a harmadik sor első cewllájának értékével.
Worksheets("Munka2").Cells(m, n + 2).Value = Worksheets("Munka1").Cells(s + 2, o).Value
'lépjen ki a ciklusból
Exit Do
'Ha a cella értéke nem üres
Else
'A második lap első oszlopában ugorjon a következő sorba
m = m + 1
'Feltétel vége
End If
' Addig fusson a ciklus, amíg a második lap első oszlopának a sorában üres nem lesz a cella
Loop Until j = Empty
'Első munkalap első oszlopában ugorjon 3 cellával lejebb
s = s + 3
Loop Until i = Empty
'Üzenet ha a feladatot végrehajtotta
MsgBox "Az adatok átemelése megtörtént", vbInformation, "Üzenet a feladat végrehajtásáról!"
End SubEz tedd bele abba a makróba, amit létrehozól.
A makró elején leírtam, hogy mit csinál, minden részre odaírtam a magyarázót.
Ha valamit nem megy, vagy nem érted jelezz.
ÜdvWjani
-
core1113
csendes tag
wjani! köszönöm a gyors reagálást!
az írányítószámokat megyénként szeretném csoportosítani, külön lapokon. igazából öt megye releváns ebbő a szempontból. arra már meg van a szabály, hogy melyik irsz. intervallum egy megye. ....és gombnyomásra tökéletes. köszönöm , hogy foglakozol vele.
-
Cuci3
tag
válasz
core1113
#5029
üzenetére
A másodikra tudok makrót küldeni/beszúrni.
Csináltam nemrég egy ilyet, ahol egy makró egy munkafüzetben ömlesztett adatokat egy másik munkafüzetbe szétszedi végrehajtók nevei alapján külön munkalapokra.
Kérdés:
1. Milyen sorrend legyen az irányítószámokra? Tehát ha Excel sorbarendezővel sorba rakom, akkor az elég-e?
2. Ugyanabba a munkafüzetbe kell szétszedni, vagy külön munkafüzetbe?
3. Gondolom az irányítószámnak meg kellene jelnnie a munkalap nevénél. Kell valami buherálás az irányítószámokkal? Pl nálam a neveknél kellett, mivel egy munkalap neve max 31 karakter hosszú lehet.
De ezt csak délután tudom küldeni, mivel délelőtt szaladgálok két iroda között.
Ja és persze az első is megoldható makróval, de meg lehet úgy is oldani, hogy külön munkalapra beképletezed, majd onnan kimásolod.
-
wjani
tag
válasz
core1113
#5029
üzenetére
Szia!
Ezeket, gondolom egy gombnyomásra akarod indítani, ugye?
Az elsőnél, még megoldható valami hivatkozás képletekkel, de a törlés, szerintem már nem megy, így lehetséges, hogy inkább az egészet egy makróval kell megcsinálni.
A másodiknál az a kérdés, hogy neked annyi munkalap fül lesz, amennyi irányítószám van, vagy csoportosítod. Ezt pedig csak makróval lehetne megoldani.Üdv
Wjani -
core1113
csendes tag
Hali Mindenki!
1., olyan ügyesség kellene nekem hogy egy excelben egy oszlopban levő adatokat szétválogtaja úgy, hogy minden második adat megy az első mellé (mellete levő oszlopba), majd minden harmadik a második mellé, és a végén a keletkezett üres sorokat törli. megy ez? vagy túl sokat szeretnék?
2., második, hogy adott irányítószámok alapján külön lapokra szétdobálja az adatokat a munkafüzet. tehát egy oszlop csak az irányítószámokat tartalmazza, és az alapján az adott sorról a megfelelő megye számára létrehozott munkafüzetlapra másolatot készít
a segítő szándékot előre is köszi
-
AvLav
csendes tag
Sziasztok!
Hogyan lehetne azt megoldani valamiféle form->beviteli mező (vagy valami hasonlóval, semmiképpen sem cella tartalommal), hogy beírhassuk egy azonosítót, amit később meg is változtathatunk, akár makróval is, és a makró használni is tudja azt az értéket.
Érthetőbben:
- "A" oszlopban legyenek mondjuk számok
- "B" oszlopba pedig azonosítók.
Minden "A" oszlopbeli cellaváltozáskor lefut egy makró, ami a "B" oszlopba beír egy azonosítót. Ezt az azonosítót egy beviteli mezőből veszi. Ez a beviteli mezőnek pedig legyen változtatható az értéke.
Remélem érhető voltam. A segítségeket előre is köszönöm.AvLav
-
Tosee
őstag
Van egy táblázatom, amiben a munkaidőket tartok nyilván... Na most ezzel az a probléma, hogy ha valaki éjszaka dolgozik, és mondjuk 22:00 kor kezdi meg a munkaidejét és az tart neki 06:00 ig. Ebből eredően ki kellene valahogy számolni, ha lehet képlettel a munkában töltött időt, tehát, hogy ez esetben 8 órát kapjunk eredményül!
pl:
A1: 22:00
B1: 06:00
C1: ide kellene az eredményt kiszámolni, hogy ne kelljen beírogatni!Előre is köszi a segítséget!
-
-
Lehdog
csendes tag
Hali!
Én is más (adatbáziskezelő) program használatát javaslom. Az ingyenesek közül egy MySQL 5.1 tűnik a legjobbnak, de 200 ezer rekordnál az Access is tökéletesen elegendő. Ha a végterméket szeretnéd Excelben látni, akkor mind az Access, mind az SQL kezelő alkalmazások képesek az adatokat exportáli a kívánt formában.
Ha az SQL mellett döntessz, javasolnám a MySQL Manager-t, és az SQLyog programokat.
És hogy a kérdésre is válaszoljak, a 4 magos proci beépítése nem fogja gyorsabbá vagy megbízhatóbbá tenni az Excelt (a számítások sebességét gyorsítani fogja pár ms-el). Ha mindenképpen javítani szeretnél a teljesítményén, RAM bővítést javasolnék. (illetve létezik egy USB-s eszköz is, amely a vincsidet kíméli meg a felesleges cache-eléstől és kerregéstől
-
#5012
Cuci3
tag
qpakcovboy
#5011
Cuci3
tag
válasz
qpakcovboy
#5011
üzenetére
Ha elkezded visszaolvasni a postokat a 4977-től, akkor pont meg is fogod kapni a megoldásodat.
Kell egy plusz oszlop a hónapról számmal (1...12), onnantól meg:
FKERES(HÓNAP(MA());Tábla,?;hamis)
A Tábla azt a táblát értem, amit használni fogsz, de az első oszlopának az 1...12 számsornak kell lennie. A ? pedig azt adja meg, hogy az 1...12 oszloptól mennyire van a Befizetés oszlop.
-
#5011
qpakcovboy
őstag
qpakcovboy
őstag
Hello
Szeretnék segítséget kérni. Olyan táblázatot vezetek, amiben hónapról hónapra összevetem az előírásokat a teljesítésekkel, és a táblázat végére szeretnék egy olyan cellát ami az éppen aktuális hó egyenlegét hozza.
A segítséget előre is köszönöm!
-
Boyfish
senior tag
Sziasztok
Bocsánat az ostoba kérdésért:
Kell csinálnom egy kisebb adminisztrációs adatbázist egy alakuló céghez.
Tudna nekem valaki javasolni Excel sémákat?
Kicsit dizájnosabb, jól felépített Excel táblát, illetve egy weboldalt, ahol ezeket meg lehet nézegetni?Köszönöm
-
#5007
wjani
tag
toth_janika
#5006
wjani
tag
válasz
toth_janika
#5006
üzenetére
Szia!
Szerintem a SZUMHA függvényt használd.
A mezőbe csak azokat adja össze, ahol a feltételnek megfelel. A feltétel pedig ebben az esetben a "Mérnökök" szó.
Üdv
Wjani -
#5006
toth_janika
őstag
Des1gnR
#5001
toth_janika
őstag
válasz
Des1gnR
#5001
üzenetére
Thx!
Ez az! Lenne még egy kérdésem:
Adott egy ilyen táblázat:Mérnök 11800
Vezető 250000
Titkár 1125
Mérnök 16540
Takarító 800A feladat az lenne, hogy csak a Mérnökök fizetését adja össze, és írja ki!
Ezzel is szenvedtem már annyit, de nem tudok rájönni, pedig tuti egyszerű! -
Delila_1
veterán
válasz
Hujikolp
#4999
üzenetére
Ahogy már Cuci is írta, több értelmezése lehet a kérdésednek.
Vegyük most azt a változatot, mikor két adatsort kell ábrázolnod egy grafikonon. Az egyikben nagyságrendben közel azonos-, a másikban pedig nagyon eltérő értékek vannak.
A szokásos módon néhány kattintással elkészíted a grafikont. Kijelölöd azt az adatsort, amelyiket logaritmikus tengelyen akarsz ábrázolni. Jobb klikk, Adatsorok formázása, Tengely fül, Másodlagos tengely.
Ezután a másodlagos tengelyt jelölöd ki, jobb klikk, Tengely formázása, a Skála fülön bejelölöd a Logaritmikus skálát.
-
Cuci3
tag
válasz
Hujikolp
#4999
üzenetére
Nem teljesen értem. Van két oszlopod, az egyiket lineárisan akarod kimutatni, a másikat meg logaritmikusan egy grafikonon? Mert ebben az esetben kell egy új oszlop, ami a második logaritmusa.
Ha viszont arra gondolsz, hogy vannak x és y értékek, amire egy lin-log regressziót akarsz tenni, akkor trendvonal felvételénél van ilyen lehetőség.
-
#5001
Des1gnR
őstag
toth_janika
#5000
válasz
toth_janika
#5000
üzenetére
Ha jól értelmezem a problémád akkor itt egy megoldás:kép
B3=a
B4=b
B5=c
B6=d
C3=1
C4=2
C5=3
C6=4
B9=c
B10=HOL.VAN(B9;$B$3:$B$6;1)
egyetlen "güzü" módszer müködik csak, az, hogy a számokat ujra, egyenként beírom.. de ez a hatalmas adatmennyiség miatt hosszadalmas. Viszont enélkül nem tudok autoszürőnek relációkat megadni. 
(az üresek helyére 0-t tesz - Negatív számoknál problémát okozhat!!!)
![;]](http://cdn.rios.hu/dl/s/v1.gif)
)
Legalább egy fényképet küldhettél volna róla! 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Mibe tegyem a megtakarításaimat?
- Battlefield 6
- Gitáros topic
- Asztrofotózás
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Azonnali alaplapos kérdések órája
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- gban: Ingyen kellene, de tegnapra
- Hobby elektronika
- Notebook / laptop alkatrészek cseréje (processzor, RAM, HDD)
- További aktív témák...
- BESZÁMÍTÁS! 6TB Western Digital WD RED SATA HDD meghajtó garanciával hibátlan működéssel
- Xiaomi Redmi Note 11 64GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- Asus Zenbook 15 OLED UM3504 - 15.6" 2.8K 120Hz - Ryzen 5 7535U - 16GB - 512GB - 2+ év garancia
- Samsung Galaxy A33 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest