-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Balinov
félisten
Udv,
koszonom, sikerult megcsinalni az utmutatasod alapjan. Meg kicsit finomitok rajta es mar fasza is lesz
Balinov
6yrs, 19.5kg :) Realme X2 Pro 12/256, Fizetési elvárás: hát, én már a Google-ban is sokat kerestem.... Flickr fotoim: http://www.flickr.com/photos/magdabalinko/
-
Delila_1
Topikgazda
Makró nélkül nem.
Tegyél be egy képet, mert a leírásod után nekem nem egészen világos a célod.
A rendezés után az összes oszlop és sor adatait 1 oszlopban szeretnéd látni, és minden adat után legyen 4 üres sor? Vagy az első sor 5 adata egymás alatt legyen, utána 4 üres sor, és jöhet alá a következő 5?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fehér Mancs
tag
egy függvényes megoldás:
=INDEX($A$1:$E$12;TRUNC((ROW(G1)-1)/5)+1;MOD((ROW(G1)-1);5)+1)
(A G1 cellába lehet írni, ha továbbhúzod, egy oszlopban kifejti neked a mátrixodat).
$A$1:$E$12 -> hivatkozott tábla
TRUNC((ROW(G1)-1)/5)+1 -> egészrész függvény, az aktuális sorszám 5-tel osztva, így 5 soronként vált sort a táblában
MOD((ROW(G1)-1);5)+1 -> maradékfüggvény, szintén 5-ös osztóval, így oszloponként mindig 1-gyel nő, egészen 5-ig, ezután visszamegy 1-re. -
Delila_1
Topikgazda
Azért nem, mert angol verzióhoz készült a képlet.
Itt a makrós megoldás:Sub Rendez()
Dim CV, sor
Dim terület As String
sor = 1
terület = "$A$1:$E$" & Range("E1").End(xlDown).Row
For Each CV In Range(terület)
Sheets("Rendezve").Cells(sor, 1) = CV
sor = sor + 1
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ulrik19
tag
nálam a kiinduló adatok:
x y
-3 3
-2 4
-1 7
0 5
1 2
2 8
3 9Grafikon, x tengely formázása: értéktengely metszéspontja a kategóriák között (nincs pipa), valamint az értéktengely metszéspontja: 4 (mert nálam a 0 a negyedik a sorban: -3, -2, -1, 0)
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
veterán
-
ulrik19
tag
az x tengely feliratait nem számként kezeli, hanem csak feliratként, az üres cellákat nem is veszi figyelembe.
tehát az adatsor első elemét az első x címke fölé teszi, a második elemet a második fölé (akkor is, ha egyébként az pl. -45-nél lenne)
tehát pl. -90-nél a 3 adatsor első elmei: 7.7, 7.5, 6.8
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
Delila_1
Topikgazda
Ez a makró elintézi:
Sub Rendez()
Dim sor As Integer
sor = 2
Do While Cells(sor, 2) <> ""
Range("B" & sor & ":B" & sor + 3).Select
Selection.EntireRow.Insert
Cells(sor, 3) = Cells(sor - 1, 4)
Cells(sor + 1, 3) = Cells(sor - 1, 5)
Cells(sor + 2, 3) = Cells(sor - 1, 6)
Cells(sor + 3, 3) = Cells(sor - 1, 7)
sor = sor + 5
Loop
Columns("D:G") = ""
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Előkaptam a régi fájlodat, és kiderült, hogy ez ugyanaz - más adatokkal! Csak az üres A oszlopot kellett volna törölnöd, és a régi makró elintézi a rendezést.
A makrók közötti fő különbség, hogy az előző egy új ("Rendezve") lapra tette át az adatokat az új sorrend szerint, míg a mostani a saját lapon rendez.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Vagy bemásolod a másik fájlba is, vagy ezzel együtt megnyitod, a másik legyen az aktuális, és ebből indítod a makrót.
Ha sokszor van ilyen feladatod, érdemes a personal.xls nevű fájlba tenni, és egy ikont kitenni hozzá az eszköztárra.
Keress rá itt a fórumon a personal-ra, több helyen találkozhatsz vele.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A personal.xls létrehozása a lehető legegyszerűbben:
Rögzíts egy akármilyen makrót: Eszközök/Makró/Új makró rögzítése. Lényeg, hogy a makró helyének a listából válaszd az Egyéni makró-munkafüzetben elnevezésűt. Semmi mást nem kell módosítani. Ezt OKézod, indul a makró, amit rögzítesz, pl. változtasd meg a betű színét, majd a rögzítés vége gombbal fejezd be. Létrejött a personal.xls, benne az első makróddal. Most nyisd meg a personalt: Eszközök/Makró/Visual Basic. Bal oldalon a personalhoz tartozó Modules könyvtárat nyitsd meg, és kattints duplán a Module1-re. Jobb oldalon megjelenik az általad rögzített makró. Ez alá másold be az általam küldöttet. A rögzítettet le is törölheted.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
Hali!
Igen, jó meglátás, minden 2. sort kell törölni, vagy ha úgy tetszik a páros sorokat.
Itt egy CommandButton-hoz tartozik a makró, és az A oszlop alapján határozza meg az utolsó használt sor indexét. Ennek abban az esetben nincs jelentősége, ha minden oszlopban ugyanannyi sor van használatban.Private Sub CommandButton1_Click()
Dim LastRow As Integer
Application.ScreenUpdating = False
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
If LastRow >= 2 Then
For i = 1 To LastRow \ 2
Rows(i + 1).EntireRow.Delete
Next i
Else: MsgBox ("Legalább 2 sort tartalmaznia kell az adott oszlopnak!")
End If
Application.ScreenUpdating = True
End SubFire.
UI: Vigyázz, mert nem lehet visszavonni a műveletet! Szóval először egy másik táblán teszteld...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
-
félisten
Hali!
Első "hallásra" egy "sima" Részösszeggel megoldható...Semmi makró, vagy képlet, menüszalagról elérhető funkcióról van szó, nézz utána. Ha "nem bírsz vele" és a táblázat publikus, akkor el is küldheted a mail címemre.
(Ha mást nem is, legalább a táblázatot adatok nélkül, csak a felépítése/kinézete érdekel, illetve esetleg egy adatsor legyen kitöltve, hogy lássam "mi-merre hány lépés" )Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
Készítesz egy kimutatást, amibe egyetlen oszlopot viszel be, a vízállást. A SOR-, és az ADAT mezőbe is ezt húzod be. Az adatok darabként jelenjenek meg.
Most rákattintasz a kimutatásban a Vízállás címsorra (már ha így hívják a címsorodat). Adatok/Tagolás és részletek/Csoportba foglalás.A kép szerint kitöltöd, a 'Mi szerint' értékét a kívánalmaknak megfelelően változtatva.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
félisten
Hali!
Ha nem túl sok tól-ig feltétel van és 2007-et használsz, akkor pl így
=DARABHATÖBB(A1:A20;">=0";A1:A20;"<5")
=DARABHATÖBB(A1:A20;">=5";A1:A20;"<10")
=DARABHATÖBB(A1:A20;">=10";A1:A20;"<15")Annyi ilyen képlet kell, ahány tól-ig határ kell. Ha nagyon sok ilyen van, akkor makró...
Fire.
UI: Értelemszerűen a 3 képlet 3 külön cellába kerül...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Oksa, szerkeszd...
Ahogy leírtad, abban nincs semmi különbség(legalábbis szerintem), csupán annyi, hogy más és több adattal dolgozol...Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Hali!
Hát passzolom...Lehet, a meleg teszi, de ha belegebedek sem értem...
Majd talán érkezik Delila_1 és frissen, üdén megoldja a feladatot(meg legalább akkor megvilágosodom én is)Fire.
UI: Ennek örömére (meg hogy péntek 13) iszom egy sört...Lehet, az segít a megvilágosodásban...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
Nézd meg a #7893-as választ. Alsó értéknek a minimumot, felsőnek a maximumot add meg, utolsó érték a lépésköz. Csakis direkt értéket adhatsz meg, nem lehet így: =min(tartomány)
Nem otthon vagyok, este megpróbálom kitalálni a választ a diagramos kérdésedre. Azt hiszem, lehet másik X tengelyt felvenni, ahogy másik Y-t is, de nem biztos.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
félisten
Hali!
Ööö és hol a kép? mert én nem látok semmit, se képet, se linket...
Na nézek egy filmet, mire vége lesz, talán "megjön a kép is"...Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
-
Delila_1
Topikgazda
Nézd még meg a GYAKORISÁG függvényt. Ha ez nem munkaköri, hanem Exceles feladat, lehet, hogy ezt kérik. Tömbfüggvény, Shift+Ctrl+Enterrel kell bevinni egy területre.
Szerk:
Vigyázz, a mintapéldában nem tették ki a $ jeleket a tartományokhoz, azok nélkül hamis eredményt kapsz.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
Hali!
Így mindjárt más, ezzel kellett volna kezdeni...
Csak azt tudom javasolni, amit Delila_1 is, azaz a GYAKORISÁG függvényt használd/erőltesd, mert tényleg azt szokták kérni
(Bár azt nem tudom honnan tudja, hogy nem tették ki a $ jeleket, hacsak nem elküldted a táblát neki)Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
veterán
-
Delila_1
Topikgazda
A minimum érték 37622 legyen, a maximum pedig attól függően, hogy 2010.júl.1-et, vagy 2010.júl. 31-et akarsz-e befejező dátumnak, 40360, vagy 40390.
Az Excel a dátumokat (is) számként értelmezi, mégpedig úgy, hogy hány nap telt el 1900.01.01. óta az adott dátumig.
A fenti értékeket úgy tudod meg legegyszerűbben, hogy a dátumot tartalmazó cella formátumát általánosra állítod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
-
Apollo17hu
őstag
válasz bandus #13051 üzenetére
A szorzói jók, mivel az Rnd függvény intervalluma [0...1[, vagyis az 1-et nem tartalmazza. A felszorzás után pedig veszi az egészrészét, tehát ez rendben van. Azt hagyta ki, hogy a kódba egy külön sorba bele kell írnia a Randomize parancsot, ami "ténylegesen" véletlen számokat fog eredményezni. Ez a kulcsszó azért van elkülönítve az Rnd függvénytől, hogy hiba esetén könnyebb legyen a tesztelés. (Az Rnd függvény miatt minden egyes tesztelésnél más-más értékek jöhetnének ki, de így ki lehet kommentelni a Randomize kifejezést, ami a tényleges véletlenszerűsítést végzi.)
-
félisten
válasz bandus #13520 üzenetére
Nem teljesen értem. A példa amit linkeltél, az nem pontdiagram típus. Ha pontdiagrammal próbálkozol, akkor persze, hogy nem lehet kivitelezni a dolgot.
(Bocs, ha félreértettem valamit)Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Balinov
félisten
válasz bandus #14758 üzenetére
tippelek csak, de:
ugye az ket osszehasonlitott cella formatuma megegyezik (vagy valu/ertek)
probaltad hamis helyet 0-t irni a vegen?ha ezeken tul vagy, akkor elnezest kerek.
6yrs, 19.5kg :) Realme X2 Pro 12/256, Fizetési elvárás: hát, én már a Google-ban is sokat kerestem.... Flickr fotoim: http://www.flickr.com/photos/magdabalinko/
Új hozzászólás Aktív témák
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Facebook és Messenger
- Autós topik
- Mozilla Firefox
- HP notebook topic
- Azonnali VGA-s kérdések órája
- Azonnali informatikai kérdések órája
- A Gigabyte is visszaveszi alaplapjainak alapértelmezett tuningját
- Nintendo Switch
- A fociról könnyedén, egy baráti társaságban
- További aktív témák...
- Keresem az Alan Wake Collectors Editions pc-re.
- Total War: WARHAMMER II - The Warden & The Paunch (DLC) Epic Games Key GLOBAL
- Régi PC Játékok - Rome Total War/Barbarian Invasion/SpellForce/Simcity 4
- Win 11 pro coa matrica
- World of Warcraft 15th Anniversary Collectors Edition - BONTATLAN - shipper barna kartonban - ÚJ