-
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
-
Fferi50
őstag
Szia!
Kicsit munkásan meg lehet csinálni néhány lépésben.
1. Kijelölöd az oszlopot - adatok - szövegből oszlopok - a megjelenő párbeszédpanelbe elválasztójelnek kiválasztod a szóközt. A cél legyen egy-két oszloppal arrébb ugyanazon a munkalapon.
2. Az így létrejött oszlopokat egymás alá másolod - lehet kivágás beillesztés is, hogy ne maradjon a helyén semmi - a cél első oszlopát folytatva. (Legyen ez az Y oszlop)
3. Átmásolod ezt az oszlopot ismét új helyre (legyen ez most az AA oszlop) majd
- adatok - ismétlődések eltávolítása ebből az új oszlopból.
4. Az új oszlopot sorbarendezed - így látni fogod, hogy olyan szavak benne maradtak, amelyek végén írásjel volt - ezeket ki kell törölnöd (vagy ha egyedül van, akkor nem fontos).
5. A mellette levő oszlop első cellájába beírod a képletet : = darabteli(hosszú oszlop; előző oszlop első cellája & "*") azaz a fenti jelölésekkel az AB1 cellában a képlet =darabteli(Y:Y;AA1 & "*")6. Ezt a képletet végighúzod az oszlopon.
Üdv.
-
Fferi50
őstag
válasz mivannem #34000 üzenetére
Szia!
"hogyan osztható szét a cellák között egy megadott súlyozást figyelembe véve de véletlenszerűen?"
Szerintem vagy súlyozol, vagy véletlenszerűen osztod szét, a kettő nem megy együtt.
A súlyok összegével elosztod a szétosztandó összeget és az adott oszlopban levő súllyal beszorzod.
Pl. B3 képlete =INT($A$3/SZUM($B$1:$K$1)*B$1)
Ez a képletet elhúzhatod oldalra és lefelé is.
Ha nem jön ki az összeg a sorokban, akkor alkalmazd a kerekítés függvényt.Üdv.
-
-
lappy
őstag
válasz mivannem #34000 üzenetére
Ez valahogy számomra nem tiszta
A sorösszeg okés hogy annyi amennyinek kell lennie, de hogy függ össze a súlyozással.
Nem kellene figyelembe venni a súlyozást és utána számolom ki az összeget.
pl:
(1*4)+(5*10)+(2*6)+(1*3)+(4*10)+(2*5)=65 lenne és nem 15Bámulatos hol tart már a tudomány!
-
Delila_1
Topikgazda
válasz fogtunder #34003 üzenetére
A megjegyzésbe tett utolsó sor végzi a Sheet1 lapon az értékké alakítást.
Sub Masolatok()
Dim usor As Long
usor = Sheets("Sheet2").Cells.SpecialCells(xlLastCell).Row
Sheets("Sheet2").Range("A4:B" & usor).Copy Sheets("Sheet1").Range("A4")
Sheets("Sheet2").Range("K4:K" & usor).Copy Sheets("Sheet1").Range("H4")
Sheets("Sheet2").Range("N4:P" & usor).Copy Sheets("Sheet1").Range("K4")
Sheets("Sheet3").Range("C1:E1").Copy Sheets("Sheet1").Range("E1")
Sheets("Sheet1").Range("J4:J" & usor) = "=H4*I4"
Sheets("Sheet1").Range("C4:C" & usor) = "=vlookup(A4,Support!L:Q,4,0)"
Sheets("Sheet1").Range("D4:D" & usor) = "=vlookup(A4,Support!L:Q,3,0)"
Sheets("Sheet1").Range("I4:I" & usor) = "=iferror(vlookup(A4,MAP!B:E,4,0),0)"
' Sheets("Sheet1").Range("A:M") = Sheets("Sheet1").Range("A:M").Value
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.
-
kezdosql
tag
Egy kis segitseget kerek tablazatban ket ertek kiszamitasahoz.
15 oszlopbol es 10 sorbol all a tablazat, eddig egyszeru volt, barmelyik elem elofordulasara 1-est begepeltek es soronkent es oszloponkent osszesitettek es latszott, hogy hanyszor es hol fordul elo.
Most boviteni kellene a listat meg egy elofordulassal, igy nyilvan valami karaktert kellene beirni, de azt nem tudom, hogyan lehet megszamolni, hogy hol es hanyszor fordul elo?
Talan a darabteli fuggveny hasznalata lenne a megoldas? -
Delila_1
Topikgazda
válasz kezdosql #34009 üzenetére
...soronkent es oszloponkent osszesitettek es latszott, hogy hanyszor es hol fordul elo.
Ehhez jó lenne, ha betennél egy képet. Anélkül nem világos, mit hova írsz be.
A válaszom arra vonatkozott, hogy egy tartományban miképp számolhatod meg egy karakter előfordulási darabszámát.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mivannem
csendes tag
válasz Fferi50 #34002 üzenetére
Köszi, de képzeld el, ez a képlet milyen eredményt adna, ha a pl 15-öt kellene elosztani 3000 felé? Ha ilyen egyszerű volna, már rég készen lennék, azért írtam ide, mert ez ennél kicsit bonyolultabb. A súlyozás célja, hogy a nagyobb osztályba tartozók nagyobb valószínűséggel vonzzák be, és többet, de a kisebb súlyúakhoz is beeshet véletlenszerűen egy-egy, persze nagyon kis eséllyel. Ha ez segít, akkor hozzáteszem, hogy a sor- és oszlopösszegeknek is ki kellene jönnie, ezek az adottak, ezek alapján töltöm ki a táblázat egymillió celláját. De a lényeg a sorösszeg, az oszlopösszeg nem feltétlenül kell, hogy pontos legyen, inkább az az egyik súlyozási tényező.
-
mivannem
csendes tag
Nem, a súlyozás az kategóriák, a sorösszeg pedig adott. Pl van 132 almám, van 16 nagyon éhes, van 26 közepesen éhes, 19 kicsit éhes és 50 jóllakott gyerek, akik között elosztom, de adhatok egyet-egyet a jóllakottnak is, ha ennyi almám van. Aztán ugyanennyi között próbálj meg elosztani 40 almát, ekkor a jóllakottak tuti nem kapnak belőle.
-
Delila_1
Topikgazda
válasz fogtunder #34010 üzenetére
Sub Masolatok()
Dim usor As Long, ide As Long
ide = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1
usor = Sheets("Sheet2").Cells.SpecialCells(xlLastCell).Row
Sheets("Sheet2").Range("A4:B" & usor).Copy Sheets("Sheet1").Range("A" & ide)
Sheets("Sheet2").Range("K4:K" & usor).Copy Sheets("Sheet1").Range("H" & ide)
Sheets("Sheet2").Range("N4:P" & usor).Copy Sheets("Sheet1").Range("K" & ide)
Sheets("Sheet3").Range("C1:E1").Copy Sheets("Sheet1").Range("E1")
'Képletek
usor = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("J" & ide & ":J" & usor) = "=H" & ide & "*I" & ide
Sheets("Sheet1").Range("C" & ide & ":C" & usor) = "=vlookup(A" & ide & ",Support!L:Q,4,0)"
Sheets("Sheet1").Range("D" & ide & ":D" & usor) = "=vlookup(A" & ide & ",Support!L:Q,3,0)"
Sheets("Sheet1").Range("I" & ide & ":I" & usor) = "=iferror(vlookup(A" & ide & ",MAP!B:E,4,0),0)"
' Sheets("Sheet1").Range("A:M") = Sheets("Sheet1").Range("A:M").Value
End SubA Sheet2 lapról a negyediktől az utolsó sorig másol. A Sheet3-ról csak a címsorokat, a Support és MAP lapokról képletek adják a Sheet1 adatait.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz mivannem #34012 üzenetére
Szia!
"ez a képlet milyen eredményt adna, ha a pl 15-öt kellene elosztani 3000 felé?"Szerinted milyen lenne az eloszlás?
Arról nem volt szó, hogy 3ezer felé kell osztani . Ebben az esetben nagy eséllyel 15 cellában lenne 1 az érték, a többiben pedig 0, súlyok ide vagy oda.Viszont ezek szerint a súlyokat előfordulási valószínűségnek (bár az 0-1 közé eső szám) kellene inkább tekinteni?
"sor- és oszlopösszegeknek is ki kellene jönnie"
Ez azt jelenti, hogy az első sorban levő értékeknek egyeznie kellene az x ezer sorban levő adatok összegével?
Vagyis egy kétdimenziós táblát kellene összehozni a peremadatok ismeretében?Üdv.
-
mivannem
csendes tag
válasz Fferi50 #34015 üzenetére
Magamat idézve: "csak 3000 sorra és ugyanennyi oszlopra kell majd, szóval nem kézzel szeretném beírni". És a 15-öt ne úgy ossza el, hogy 15 db egyes, inkább 4-3-2-2-1-1-1-1 meg egy csomó 0. De megközelíthető a probléma úgy is, hogy adott sor- és oszlopösszegek alapján töltjük ki a táblázatot, viszont akkor nem csak az oszlopokat kell súlyozni hanem a sorokat is.
-
Fferi50
őstag
válasz mivannem #34013 üzenetére
Szia!
"Aztán ugyanennyi között próbálj meg elosztani 40 almát, ekkor a jóllakottak tuti nem kapnak belőle."
De még a kicsit éhesek sem Sőt a közepesen éhesek közül is kimarad 2. Illetve, ha az elvet nézem, akkor a nagyon éhesek sem kapnak mindannyian
Azért nehéz ezt így megfogni, mert az elv is guminak látszik. (Pl. aki jobban sír az nagyon éhes és az kap almát, hogy a példádnál maradjak.)
Talán valami kézzel foghatóbb módon kellene leírnod, illusztrálnod, mert szabálytalanságra szabályt kitalálni, na az elég nehéz.
Üdv.
-
fogtunder
nagyúr
válasz Delila_1 #34014 üzenetére
király, köszönöm!
csak még egy kérdés, ha a másolsnál csak az értékeket szeretném beilleszteni, akkor azt hogyan csináljam?
így próbáltam, de ez nem megy:
Sheets("Stock_Movements_Coverage").Range("A4:B" & usor).Copy Sheets("Lifecycle_Tracking").Range("A" & ide).PasteSpecial xlPasteValues
I hate morning people. And mornings. And People.
-
Fferi50
őstag
válasz mivannem #34019 üzenetére
Szia!
Tehát az a kérdés, mennyi autó menjen egyik városból a másikba, ha a cél város súlya éppen x, és van még ezen kívül sok más város sok más súllyal. Ez így szerintem nem oldható meg egyértelműen (más szóval végtelen megoldása van a feladatnak).
Kellenek még hozzá további korlátozó vagy optimalizálandó feltételek.
Excelben szerintem ebben a formában nem megoldható.Üdv.
-
Savaria90
újonc
Sziasztok olyan gondom lenne, hogy van egy majdnem 600.000 soros táblázatom aminek a C oszlopban 1439 sorból kellene kiszednem a minimum majd a maximumot.
tehát a
2-1441
1442-2881
4322-5761
sorok között és így tovább.
egyesével az örökkévalóságig tartana. Elég sok mindent kipróbáltam valahogy növeltetni hogy csak le kelljen húzni, de nem jön össze. előre is köszönöm. -
fogtunder
nagyúr
válasz Delila_1 #34022 üzenetére
köszi, illetve csináltam egy módosítást. az eredeti verzióban sheet3-ról másolja a C1:E1 cellákat sheet1 E1-re, na nekem az kellene, hogy ez menjen az E oszlop első üres sorába, mint a többi és másolja le a sheet2-ről bemásolt adatok mellé. működik is, de valamiért túlmegy a sheet2-ről másolt sorok számán:
Sheets("Projection").Range("C1:E1").Copy
Sheets("Lifecycle_Tracking").Range("E" & ide, "G" & ide + usor).PasteSpecial xlPasteValuesI hate morning people. And mornings. And People.
-
lappy
őstag
válasz Savaria90 #34024 üzenetére
nálam nem múködik de talán próbáld ki mert elvileg jónak kell lennie
a min és max függvényeket használod 1439 soronként így a képletbe kell beleteni ezt a számot
alapból a képlet min(b2 : b1441)
helyette a min("b"&sor(b2) : "b"&(sor(b2)+1439))
ha egymás alá gyűjtöd akkor be kell szorozni a sor -1-el[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Delila_1
Topikgazda
válasz Savaria90 #34024 üzenetére
Nálam a 600000 sor az A oszlopban van. A MIN értékeket az egyes tartományokra a B oszlopba-, a MAX-okat a C-be írja egymás alá a makró. Modulba másold be – lásd hozzá a összefoglaló leírását.
Sub MinMax()
Dim sor As Long, KepletHelye As Long
KepletHelye = 2
For sor = 2 To 600000 Step 1440
Cells(KepletHelye, "B") = "=min(A" & sor & ":A" & sor + 1439 & ")"
Cells(KepletHelye, "C") = "=max(A" & sor & ":A" & sor + 1439 & ")"
KepletHelye = KepletHelye + 1
Next
End Sub[ 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.
-
mivannem
csendes tag
válasz Fferi50 #34023 üzenetére
Ok, köszi, én megoldottam, csak pontatlan, most még épp a pontosításán dolgozom. A végtelen megoldás az világos, és nem is probléma, a lényeg, hogy hasonlítsanak egymásra.Jó lett volna, ha az excel tartalmaz olyan függvényt, amely szétosztja a cella értékét több cella között, mert így 150%-os hiba is beesik néha. Sajnos ezen feladatom alatt kellett rájönnöm, hogy mennyire buta és mamut ez a program. Egy darab fájl (3 db egymillió cellát tartalmazó lap, két lapon csak számokkal, egyiken pedig képlettel feltöltve) 1,3 gb méretű, megnyitásához pedig 28 gb ram kell.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Savaria90 #34024 üzenetére
Bocsi! Nem figyeltem, hogy megadtad a számokat tartalmazó oszlopot (C).
Ennek megfelelően átírtam a makrót, az eredmények a D és E oszlopokba kerülnek.Sub MinMax()
Dim sor As Long, KepletHelye As Long
KepletHelye = 2
For sor = 2 To 600000 Step 1440
Cells(KepletHelye, "D") = "=min(C" & sor & ":C" & sor + 1439 & ")"
Cells(KepletHelye, "E") = "=max(C" & sor & ":C" & sor + 1439 & ")"
KepletHelye = KepletHelye + 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.
-
ciao
senior tag
Sziasztok!
van egy 37 munkafüzetes xlsx-em mindegyiken több ezer sor 3-4 féle színnel.
lehet kimutást készíteni erról, hogy adott színből az egész táblázatban nány sor van?
soron belül nem változik a szín.Mindenkit felpofoztatok a bakterral!
-
Delila_1
Topikgazda
válasz mivannem #34029 üzenetére
Próbálkozz a Solver bővítménnyel. A 2003-asnál újabb verziókban nem sikerült előcsalnom, de a régiben igen.
5000 Ft osztandó el arányosan.
Az A oszlop tartalmazza a súlyozást. A B-be 1-eseket írtam, a C1:C10 és a C11 képletét lá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.
-
Delila_1
Topikgazda
-
mivannem
csendes tag
válasz Delila_1 #34033 üzenetére
Ez tök jó, én ma találtam rá, csak nem tudok értéknek cellát megadni. Az meg megint csak nem buli, hogy 3200-szor lefuttassam a solvert, majd ha új adatokkal kéne kiszámolni, akkor még 3200-szor. Szóval nem lehet olyat, hogy minden sorban automatikusan lefusson a solver, az értéket pedig mindig az aktuális sor ugyanazon oszlopából vegye?
-
bucihost
senior tag
Sziasztok, van egy excel táblám ami egy rádió szerver lejátszási listáját tartalmazza.
Tartalom:
A oszlop: zene címe
B oszlop: hányszor lett lejátszva
pl:zene123.mp3 3
zene456.mp3 4
zene789.mp3 9na most nekem ezt szét kellene szednem oly módon, hogy minden zene annyiszor szerepeljen a listában, ahányszor le lett játszva.
ez megoldható valahogy?
-
Delila_1
Topikgazda
válasz mivannem #34034 üzenetére
Megpróbáltam, nem jött össze. Makrórögzítéssel felvettem, visszaírtam a módosuló cellákat 1-re. Indítottam (volna) a rögzített makrót, de rögtön kiakadt a SolverOk kulcsszónál.
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
válasz bucihost #34035 üzenetére
A makrót egy modulba másold be.
Sub Zene_bona()
Dim sor As Long, usor As Long, db As Long, j As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 1 Step -1
db = Cells(sor, 2)
For j = 1 To db - 1
Rows(sor).EntireRow.Insert
Next
Range("A" & sor & ":A" & sor + db - 2) = Cells(sor + db - 1, 1)
Next
End SubSzerk.:
Az End Sub fölé betehetsz egy sortColumns(2).ClearContents
ami a B oszlop számait törli.
[ 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.
-
bucihost
senior tag
ismét itt ....
Megvan a lista, amire szükség volt (Köszönöm Delila_1 mégegyszer), viszont még annyi lenne hátra hogy véletlenszerűen keverje össze a listát úgy, hogy egymást NEM követhetik az azonos sorok. Erre van megoldás?
-
Delila_1
Topikgazda
-
RAiN91
őstag
Sziasztok
Egy weboldalról másolok ctrl+c-vel táblázatot excelbe, és bizonyos cellákból dátum cellát csinál, és ha előtte vagy utána átállítom Általánosra vagy Számra a cellát, akkor sem jó. (számot dob be, de a dátum számát).
Pl. 3.30 másolok, abból március 30 lesz. Mi a megoldás? Köszi
-
HREH
senior tag
Sziasztok!
Vérnyomás-értékeket írnék egy táblázatba, és kellene egy makró, ami az alábbi képen látható "Átlagok" sor fölé beilleszt egy új sort. (és nyilván mindig efölé illeszti be)
Mit kellene a makróba írnom?
Köszönöm előre is!"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."
-
zsanib
újonc
Sziasztok!
Édesapámnak szeretnék segíteni egy raktárban használandó excel táblával azonban elakadtam az én tudásom még kevés ide :/
Röviden a lényeg:
Van egy készlet A column=Terméknév
B column=Mennyiség
C column=Lokáció
Ami a feladat és az általam ismert csekélyke tudás nem elegendő hozzá sajnos, az az, hogy lenne egy rendeléselőkészítő lap amire bemásolják az emailben érkező termékneveket mellette a rendelt mennyiséggel és előtte a megrendelő nevével.
Azt kellene megoldanom valahogy, hogy a rendeléselőkészítő lapról egy makró átmásolja a terméknevet és mennyiséget egy harmadik munkalapra csak ott már az 1. munkalapon ismert lokációt is mellé kellene írnia.
próbálkoztam de az a baj hogy ott elakadtam hogy csak egyesével írná át a macrom a beírt adatokat nem pedig egybe az egészet, és arról pedig fogalmam sincs hogy az 1. munkalapról hogyan ismerje fel a lokációt és írja mellé automatikusan.
Nemtudom mennyire érthető remélem tudtok segíteni és előre is hatalmas köszönet aki próbál -
Fferi50
őstag
válasz zsanib #34049 üzenetére
Szia!
Ne haragudj meg érte, de szerintem így nem szabad belefogni. Se elképzelésed, se ismereted, gyakorlatodról nem is beszélve. Szép dolog a segíteni akarás, csak...
Ha körülnézel a neten találhatsz excelben raktárnyilvántartó sablont is akár.
Tudnod kell, mit szeretnél pontosan, folyamatokat, eredményeket. Ezek ismeretében megkeresel a közelben egy excelhez értő személyt aki megcsinálja.
Vagy a Prog.hu oldalon felteszed "álláshirdetésként", keresel a munkára embert, de csak a pontos feladat ismeretében.Üdv.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Huawei Mate 30 Pro - álmaimban Amerika visszainteget
- Samsung Galaxy S23 Ultra - non plus ultra
- PlayStation 5
- PayPal
- Nők, nőügyek (18+)
- A fociról könnyedén, egy baráti társaságban
- Politika
- Gitáros topic
- gban: Ingyen kellene, de tegnapra
- NVIDIA GeForce RTX 4060 / 4070/S/Ti/TiS (AD104)
- További aktív témák...