- Honor Magic5 Pro - kamerák bűvöletében
- Android szakmai topik
- iPhone topik
- Android alkalmazások - szoftver kibeszélő topik
- Samsung Galaxy S23 Ultra - non plus ultra
- Bemutatkozott a Motorola Edge 50 Pro
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Különleges kameraszettet kapott a Huawei Pura 70 Ultra
- Honor 50 - apám nevében
- Egy kabaré volt az Edge 50 család belgrádi bemutatója
Hirdetés
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Az Intel a legmodernebb chipgyártó géppel előzheti meg az egész szektort
it Az Intel lett az első cég, amely szolgálatba állította az ASML új High NA EUV litográfiás chipgyártó eszközeit, ezzel minden riválisát megelőzheti.
-
Frissült a MediaTek középkategóriás ajánlata
ma Hivatalos a Dimensity 6300, ez lesz a MediaTek kínálatából kivezetésre kerülő 6100+ utódja.
-
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
-
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
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Microsoft licencek a legolcsóbban - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Canva Pro előfizetés - 1 éves
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig