Hirdetés
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Yettel topik
- Xiaomi 15T Pro - a téma nincs lezárva
- Amazfit Bip 6 - jót olcsón
- Íme az új Android Auto!
- Szívós, szép és kitartó az új OnePlus óra
- Megvásárolható a Vivo X300 és X300 Pro Magyarországon, íme a hivatalos árak
- Google Pixel topik
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- 
			  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
- 
			
			
- 
			
			  Apollo17hu őstag válasz  bandus
							
							
								#13051
							
							üzenetére bandus
							
							
								#13051
							
							üzenetéreA 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.) 
- 
			
			  Delila_1 veterán 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. 
- 
			
			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)![;]](//cdn.rios.hu/dl/s/v1.gif) Fire. 
- 
			
			  Delila_1 veterán 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.
- 
			
			
- 
			
			  Delila_1 veterán 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. 
- 
			
			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... 
- 
			
			
- 
			
			
- 
			
			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...  
- 
			
			  Delila_1 veterán 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. 
- 
			
			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. 
- 
			
			
- 
			
			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... ![;]](//cdn.rios.hu/dl/s/v1.gif) 
- 
			
			  Delila_1 veterán 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. 
- 
			
			  Delila_1 veterán 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.
- 
			
			  Delila_1 veterán 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.
- 
			
			  Delila_1 veterán 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 Sub
- 
			
			  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 
- 
			
			  Delila_1 veterán 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 Sub
- 
			
			  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 veterán 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?
Új hozzászólás Aktív témák
Hirdetés
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Filmvilág
- Renault, Dacia topik
- Gumi és felni topik
- Milyen NAS-t vegyek?
- Pánikban a világ a Radeon RX 5000 és 6000 sorozat támogatása miatt
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Milyen monitort vegyek?
- Marvel Snap
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- További aktív témák...
- ÚJ! AKRacing Arctica gamer szék
- GYÖNYÖRŰ iPhone 15 Pro Max 512GB Black Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3867
- Lenovo Thinkpad Tablet X1 Gen 3
- Bomba ár! Lenovo X1 Yoga 1st - i5-6G I 8GB I 512SSD I 14" FHD Touch I HDMI I W11 I CAM I Garancia
- HIBÁTLAN iPhone 15 Pro Max 256GB Black Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3698
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest
 
						 
								 
							 
								 
								 
								 
								


![;]](http://cdn.rios.hu/dl/s/v1.gif)





 
								 
								 
								 Fferi50
 Fferi50

