-
Fototrend
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
-
#13521
Fire/SOUL/CD
félisten
bandus
#13520
-
#13052
Apollo17hu
őstag
bandus
#13051
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.)
-
#9629
Fire/SOUL/CD
félisten
bandus
#9628
-
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.
-
#7938
Fire/SOUL/CD
félisten
bandus
#7935
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. -
#7934
Fire/SOUL/CD
félisten
bandus
#7933
-
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.
-
#7929
Fire/SOUL/CD
félisten
bandus
#7928
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...
-
#7927
Fire/SOUL/CD
félisten
bandus
#7926
-
#7925
Fire/SOUL/CD
félisten
bandus
#7924
-
#7921
Fire/SOUL/CD
félisten
bandus
#7920
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.
-
#7888
Fire/SOUL/CD
félisten
bandus
#7887
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.
-
#7886
Fire/SOUL/CD
félisten
bandus
#7885
-
#7842
Fire/SOUL/CD
félisten
bandus
#7841
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...
-
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 -
#5711
Fehér Mancs
tag
bandus
#5703
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?
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Bomba ár! Lenovo X1 Carbon 4th: i5-6GEN I 8GB I 512SSD I 14" FHD I HDMI I Cam I W11 I Gari
- Bomba ár! Lenovo ThinkPad T460s - i5-6GEN I 8GB I 128GB SSD I 14" FHD I Cam I W10 I Garancia!
- Apple iPhone 13 Pro max 512GB,Újszerű,Dobozával,12 hónap garanciával
- Telefon felvásárlás!! Huawei P20 Lite/Huawei P20/Huawei P30 Lite/Huawei P30/Huawei P30 Pro
- Iphone 14 Pro Max 128GB // Számla + Garancia //
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő