- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Magga: PLEX: multimédia az egész lakásban
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sh4d0w: Tökéletes töketlenség
- Geri Bátyó: Agglegénykonyha 2 – Főzés: szabályok, vagy szabadság?
- Sgr_A: Számítógépeim aktualizálása cseréje
- Imilenni: Egy kis depi, remélem elfér itt :) 2#
-
LOGOUT
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
Topikgazda
válasz
Polllen
#34094
üzenetére
Szia!
Talán azt sem szereti, hogy Sheet nevű változót használsz, mivel az foglalt név! (Elvileg lehet használni, de akkor teljes névvel kell rá hivatkozni, nem elég a Sheet szerintem). Én mindenesetre messzire elkerülném a használatát.
Esetleg aktíválni kell a frissítéshez a munkalapot
Üdv.
-
-
Fferi50
Topikgazda
válasz
RAiN91
#34091
üzenetére
Szia!
Szerintem okozhatja a gondot az, hogy nincs kikapcsolva közben az eseménykezelés. Mielőtt értéket adnál a másik cellának: Application.EnableEvents=False, amikor megtörtént: Application.EnableEvents=True.
De még az is lehet, hogy a "robot" túl gyorsan dolgozik, esetleg nem egy db cella van kijelölve, hanem több.
Üdv.
-
Polllen
félisten
Sziasztok!
Kellene egy kis segítség pivot frissítésben.
Adott egy file, amiben 2 fülön vannak az alapadatok, erre épül 5-6 pivot.
Ezt a két fület kitörölöm teljesen és újjal helyettesítem, majd:For Each Sheet In ThisWorkbook.Worksheets
For Each Pivot In Sheet.PivotTables
Pivot.RefreshTable
Pivot.Update
NextÉs ezzel nem is történik semmi.
Kénytelen vagyok egyenként frissíteni a pivot táblákat. Miért?
-
Doky586
félisten
Ez sem nyitotta meg..
Viszont rájöttem hogy valószínű nem a programmal van a baj, mert más .xlsx fileokat jól nyitott meg, csak az OTP-től letölthető .xls kivonatokba tört bele a foga..de rájöttem arra, hogy ha ezen .xls fileokat átnevezem .html -re akkor a Crome egész jól meg tudja jeleníteni.. (csak azt hittem a becsatolt file-tartalom kép alapján ti erre hamarabb rájöttök)
-
meke11
aktív tag
-
meke11
aktív tag
Sziasztok!
A problémám a következő: van két oszlop A és B. Az A oszlopban 25-60 vannak pozitív egész számok, a B-ben egyéb számok. Milyen képlettel tudnám azt megoldani, hogy az A oszlopban lévő számok közül ahol 40 alatti az érték, a vele egy sorban álló B oszlopban lévő számok darabját kapjam meg.
Köszönöm, remélem érthető voltam.
-
Vérboci
addikt
Sziasztok, az alábbiakban kérném hozzáértők segítségét.
3 műszakban dolgoznak a munkavállalók, esetenként túlórázva, mindenféle pótlékokkal.
A vevő felé viszont csak kétféle árképzés van, nappali (6-18 óráig) és éjszakai (18-6 óráig).A dolgozó munkakezdésének és befejezésének időpontját ismerjük, összes óráit tudom számolni
Tehát A1 kezdés, B1 befejezés, C1 össz ledolgozott időAmi kellene: D1 6:00-18:00 óra között ledolgozott idő (nappali), E1 18:00 után egész reggel 6-ig ledolgozott idő
Reggeles és éjszakás műszakban ez nem okozna gondot, de a délutános 14-22 bontása nem megy.
Előre is köszi, ha valaki megszán.
-
cekkk
veterán
Sziasztok!
Olyanban szeretném a segítségeteket kérni, hogy lenne egy oszlopom, amibe kódok vannak vegyesen, de előfordul, hogy ugyanaz többször is szerepel benne. Mivel tudom azt megcsinálni, hogy kitöröljem belőle az egyezőket és mindből csak egy legyen belőle?
Köszönöm a segítséget.
-
RAiN91
őstag
válasz
Delila_1
#34067
üzenetére
Tudom, hogy nagyon kevés az infó, de azért hátha tudsz segíteni.
Egy program generálja a dolgokat (Betangel robotja). Amit küldtél, átírtam, amíg a program nem kapcsolódik az excelhez tökéletesen működik, viszont ha hozzákapcsolom a programot, már egyből "Runtime Error 13" hibát ad, VBA-ban megjelölt sorra.
-
lappy
őstag
válasz
eszakas
#34070
üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G4")) Is Nothing Then Exit Sub
Me.Shapes("Rectangle 1").Select
With Range("G4")
If .Value > 0 And .Value <= 56 Then
Selection.ShapeRange.Fill.ForeColor.RGB = ThisWorkbook.Colors(.Value)
Else
Selection.ShapeRange.Fill.ForeColor.RGB = 0
End If
.Select
End With
End Subez a G4 értékének változására változtatja meg az objektum színét
-
Delila_1
veterán
-
eszakas
őstag
Sziasztok.
Azt szeretném kérdezni, hogy van-e lehetőség az excelben arra, hogy egy beszúrt kép, vagy alakzat színét formázza egy változtatható cella érték alapján. pl napszak, beírom hogy 06,00h és sötét a kép, 10.00-kor világos 22,00-kor ismét sötét.Megoldható-e ilyesmi?
Előre is köszi a segítséget.
-
tzimash
őstag
válasz
Delila_1
#34068
üzenetére
Hol vannak a data lapon az adatok, ahol keresni kell?
A C oszlopban, ahogyan az alsó képen látszik.
Hova másolja a talált számokat?
Az működhet, hogy az adott range-t, ahol a számok vannak kimásolni és beilleszteni SAP-ba? manuálisan lehetséges.
Viszont ez előtt, annyi sort kell megnyitni SAP-ban, ahány számot találtunk. Egy for ciklussal annyiszor lefuttatni ezt a sort:session.findById("wnd[0]/usr/btnCOMP_LIST_0200_INSERT").press"Mi az a választható "SMT 13"?"
Elég magában a szám is, az "SMT" elhagyható előle.
A keresést nem befolyásolja, egy plusz paraméter csak, amelyet ennek a sornak a végére kell majd beillesztenem:session.findById("wnd[0]/usr/txtRM61B-BKTXT").Text = "FPM L(itt lesz az a szám)"Úgy értettem kötelező kiválasztani valamelyik értéket, nem maradhat üresen.
Köszi, hogy időt szánsz rá
-
Delila_1
veterán
válasz
tzimash
#34065
üzenetére
Hol vannak a data lapon az adatok, ahol keresni kell?
Hova másolja a talált számokat?Mi az a választható "SMT 13"?
Kicsit részletesebb magyarázat kellene erre: "a megadott sor-nak a száma 1-13 lehet, ez kitöltetlen nem maradhat." Befolyásolja ez a keresést, vagy csak kötelező legyen kiválasztani egy értéket? -
Delila_1
veterán
válasz
RAiN91
#34066
üzenetére
Feltettem ide egy fájlt.
A Module1-ben lévő Pontosido makró utolsó sorában írhatod át, hogy melyik cellában legyenek a random számok, a laphoz rendeltben pedig, azt, hogy hova várod az A betűt, és hogy hova írja be az aktuális értéket.
Tettem egy Leállítás gombot is a lapra, hogy A betű beírása nélkül is leállítható legyen a folyamat.
-
tzimash
őstag
Sziasztok,
Adott ez a felület, activex objektumokkal:
A működése a következő lenne: beolvasom a vonalkódot, kiválasztom a sort, majd a gombra kattintok.
Ennek kellene történnie:
a beolvasott vonalkódnak csak a kijelölt részére van szükség (7 karakter, a 3.-tól számítva), a data munkafüzetlapon erre a karaktersorozatra indulna egy keresés, amennyiben találat van, el kellene tárolni az alatta lévő számokat, az "end" kifejezésig, valamint azt is, hogy ez hány darab szám.
tehát amit külön szeretnék tárolni:
a vonalkódból kiolvasott 7jegyű szám, az ehhez tartozó további számok (6 ill 7 jegyű lehet), és ezek darabszáma, valamint a megadott sor-nak a száma 1-13 lehet, ez kitöltetlen nem maradhat.ha lefut a program szeretném, ha törlődne mindkét mező.
Ezeket az adatokat aztán SAP-ban szeretném használni, makróból scriptelve a SAP GUI-t. Ez a része már működik, konstans adatokkal próbáltam már.
Előre is köszönöm a tanácsokat/segítséget. -
poffsoft
veterán
válasz
Fferi50
#34063
üzenetére
o.k.
Fránya makrórögzítő csak így hajlandó rögzíteni.
ráadásul a "H" még hibás is volt, csak most vettem észre:
Sub Rendez()
Dim usor As Long
Dim lusor As Long
Dim ms As Long ' max sor'
Dim sm As Long ' aktualis sor'
Dim i As Variant
Dim Ls() As String
Dim Ts As String
Dim valasz As String
Ls() = Split("B.C.D.E", ".") ' a neveket tartalmazó oszlopok'
Ts = "H" ' a szűrt lista oszlopa'
sm = 1
ms = Rows.Count
usor = Range(Ts & ms).End(xlUp).Row
If usor > 1 Then
valasz = MsgBox("Nem üres a cél """ & Ts & """ oszlop." & vbCrLf & "Folytatod?", vbYesNo, "Figyelem!")
If valasz = vbYes Then Range(Ts & "1:" & Ts & usor).Clear Else Exit Sub
End If
For Each i In Ls
usor = Range(i & ms).End(xlUp).Row
If usor > 1 Then
Range(i & "2:" & i & usor).Copy Destination:=Range(Ts & sm)
sm = sm + usor - 1
End If
Next i
'duplicate remove'
usor = Range(Ts & ms).End(xlUp).Row
Application.DisplayAlerts = False
Range(Ts & "1:" & Ts & usor).RemoveDuplicates Columns:=1, Header:=xlNo
Application.DisplayAlerts = True
With ActiveSheet.Sort
.SetRange Range(Ts & "1:" & Ts & usor)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(Ts & "1").Select
End Sub -
Fferi50
Topikgazda
válasz
poffsoft
#34062
üzenetére
Szia!
Ehelyett:
If usor > 1 Then
Range(i & "2:" & i & usor).Select
Application.CutCopyMode = False
Selection.Copy
Range("H" & sm).Select
ActiveSheet.Paste
sm = sm + usor - 1
End If
Szerintem inkább így:If usor > 1 Then
Range(i & "2:" & i & usor).Copy Destination:=Range("H" & sm)
sm = sm + usor - 1
End IfSelectet kerülni érdemes, ahol csak lehet.
Üdv.
-
#34062
poffsoft
veterán
lizakattila
#34061
poffsoft
veterán
válasz
lizakattila
#34061
üzenetére
parancsolj:
Sub Rendez()
Dim usor As Long
Dim lusor As Long
Dim ms As Long 'max sor'
Dim sm As Long 'aktualis sor'
Dim i As Variant
Dim Ls() As String
Dim Ts As String
Dim valasz As String
Ls() = Split("B.C.D.E", ".") ' a neveket tartalmazó oszlopok'
Ts = "H" ' a szűrt lista oszlopa'
sm = 1
ms = Rows.Count
usor = Range(Ts & ms).End(xlUp).Row
If usor > 1 Then
valasz = MsgBox("Nem üres a cél """ & Ts & """ oszlop." & vbCrLf & "Folytatod?", vbYesNo, "Figyelem!")
If valasz = vbYes Then Range(Ts & "1:" & Ts & usor).Clear Else Exit Sub
End If
For Each i In Ls
usor = Range(i & ms).End(xlUp).Row
If usor > 1 Then
Range(i & "2:" & i & usor).Select
Application.CutCopyMode = False
Selection.Copy
Range("H" & sm).Select
ActiveSheet.Paste
sm = sm + usor - 1
End If
Next i
'duplikációk eltávolítása, abc sorrend'
usor = Range(Ts & ms).End(xlUp).Row
Application.DisplayAlerts = False
Range(Ts & "1:" & Ts & usor).RemoveDuplicates Columns:=1, Header:=xlNo
Application.DisplayAlerts = True
With ActiveSheet.Sort
.SetRange Range(Ts & "1:" & Ts & usor)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(Ts & "1").Select
End Sub -
#34060
Fferi50
Topikgazda
lizakattila
#34059
Fferi50
Topikgazda
válasz
lizakattila
#34059
üzenetére
Szia!
A H oszlopba átmásolod a neveket minden oszlopból egymás alá. Ezután kijelölöd az oszlopot, adatok - ismétlődések eltávolítása.
Üdv.
-
#34059
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
Újbólag egy kis segítség kellene:
Adott egy táblázat, mely a következő képpen néz ki, mint a lenti képen(ilyen formában lehet kiexportálni az adatokat egy adatbázisból):
A tábla az A, B, C, D, E oszlopokat tartalmazza.
Meg lehet-e oldani (függvény, makró) valahogy, hogy a táblázatban lévő adatokat - jelen esetben neveket - valahogy kiszedjük egy oszlopba (ahogy a H oszlopban látszik)? A sorrend teljesen mindegy lenne, a lényeg, hogy ne legyen duplikáció és minden név szerepeljen.
-
Doky586
félisten
Sziasztok! Excel Viewert-t keresek ami meg tudja jeleníteni ezt a filet: [kép]. Letöltöttem kétfajta excel viewert, egyik 51MB, másik 74MB, de egyik sem ismeri fel.: [kép] mindkettő eredeti microsoftos.
Egy gyenge laptopra kellene, amin még egy libreoffice-ot se tennék fel..
Honnan tölthetek le xls nézegetőt? (ingyenest) -
csferke
senior tag
Vérnyomás-értékeket írnék egy táblázatba
Úgy neked nem lenne jó ha az első sorban lennének az átlagok az értékek viszont a másodiktól lefelé.
Rögzíted az első sort, hogy mindig látható legyen.
A1-be=AVERAGE(A2:A100)és értelem szerűen a B és C oszlopban is. A 100-as érték helyett adj egy elég nagy számot ahová biztosan nem fogsz értéket megadni. -
Fferi50
Topikgazda
Szia!
Ehhez igazán nem kell makró:
Kijelölöd az átlagot tartalmazó 3 cellát. Ezután jobb egérgomb. Beszúrás Cellák eltolása lefelé OK. Már írhatod is az üres sorba a számokat.
Ha mindezt makrórögzítéssel csinálod, akkor megnézheted utána azt is és használhatod is, csak arra kell vigyáznod, hogy indítás előtt az átlagot tartalmazó cellákat jelöld ki.Üdv.
-
Fferi50
Topikgazda
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.
-
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 -
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! -
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
-
Delila_1
veterán
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).ClearContentsami a B oszlop számait törli.
-
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?
-
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?
-
-
Delila_1
veterán
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 Sub -
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.
-
Delila_1
veterán
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 -
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 -
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 xlPasteValues -
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. -
Fferi50
Topikgazda
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.
-
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 -
-
Fferi50
Topikgazda
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.
-
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
Topikgazda
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.
-
Delila_1
veterán
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.
-
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.
-
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ő.
-
Delila_1
veterán
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.
-
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
veterán
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 Sub -
-
Fferi50
Topikgazda
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.
-
Fferi50
Topikgazda
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.
Új hozzászólás Aktív témák
- Nők, nőügyek (18+)
- Nothing Headphone (1) – nem kell ide idézet
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- iPhone topik
- Samsung Galaxy S25 - végre van kicsi!
- Sütés, főzés és konyhai praktikák
- Milyen billentyűzetet vegyek?
- Magga: PLEX: multimédia az egész lakásban
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- További aktív témák...
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Battlefield 6 - Digitális játékkulcs
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- PC Game Pass előfizetés
- Bomba ár! Lenovo ThinkPad L380 - i5-8GEN I 8GB I 512SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3335, 94% Akkumulátor
- UTOLSÓ!! 120 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070 - 4 év garancia
- Eladó karcmentes Huawei Nova 8i 6/128GB / 12 hó jótállással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest