-
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
-
trippla
tag
Van 100 lapfüles excelem, minden fülön van két szám, melyet szeretnék összeszorozni és lapfülenként összeadatni. Nem szeretnék egyesével hivatkozni, valami egyszerűbb és gyorsabb megoldást keresek. Sokszor füleket is szúrok be utólag, jó lenne, ha azokat is automatán hozzáadná. Fülenként egy számot össze tudok adatni, de szorzatot hogy lehetne?
-
Fferi50
őstag
válasz trippla #30752 üzenetére
Szia!
Kissé kuszának találom a kérdést. Két számot szeretnél lapfülönként összeszorozni, majd lapfülenként összeadni a szorzatot? Akkor itt nem egyszer két szám összeszorzásáról van szó lapfülenként.
"Fülenként egy számot össze tudok adatni" Ezt szintén nem értem, egy számot mivel adatsz össze.
Egyébként az egy szám helyére beírod az összeszorzás képletét a megfelelő cellákkal szerintem.
Esetleg arról van szó, hogy a 100 lapfülön levő egy-egy számot adod össze valahova?Segíts egy kicsit légy szíves a kérdés pontosításával.
(Ha minden lapon ugyanabban a két cellában levő számokatt szeretnéd összeszorozni egy adott cellába, akkor egyszerű a helyzet. Kijelölöd mind a 100 munkalapot alul a fülön - csoportos kijelölés --, majd az éppen láthatóra beírod a képletet pl. =a2*b2 a c2 cellába. Minden kijelölt lapon ott lesz a képlet. De gyanítom, nem ez a helyzet.)
Üdv.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz trippla #30752 üzenetére
Ha jól értem, a sok lapod mindegyikén van két cella, azonos helyen.
Vegyük, hogy ezek címe az A2 és B2. Ha az egyes lapok A2-inek összegét akarod szorozni a B2-k összegével, akkor a képlet
=SZORZATÖSSZEG(SZUM('Munka1:Munka3'!A2);SZUM('Munka1:Munka3'!B2))
A Munka1 helyére az első lap nevét írd be, a Munka3 helyére pedig az utolsóét.
Új lapok beszúrásánál át kell írnod a képletben a két szélső lap nevét, de ha a szélsők közé szúrod be az új lapot, semmit nem kell módosítanod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ny.janos
tag
válasz csongi #30754 üzenetére
A 365,25-ös értéken én is gondolkodtam, de nem vezet az sem sokkal jobb eredményre, a hiba értelemszerűen ott is megmarad a szökőévek szabályából eredően. Illetve az is probléma, ha épp a kezdődátumod évét megelőző év volt szökőév, mert akkor a lefelé kerekítés is hibára vezet.
Pl. ha a te képletedben J4 értéke 2011.02.25-e, akkor az eredményed 4. Ami nyilvánvalóan hibás, hiszen azóta 5 év telt el.
A tökéletes megoldás azonban olyan bonyolult lehet, ami nem éri meg a befektetett energiát (vagy csak nekem nem ugrik be, hogy mit kellene használni).
[ Szerkesztve ]
-
Salex1
senior tag
Sziasztok! Régen jártam erre...de most van egy problémám, amit nem sikerül megoldani.
Van egy Textbox-om, az ide beírt adatra szeretnék egy másik táblázatban rákeresni, ENTER ütés után.
De valamiért leáll hibával: "Object variable or With block variable not set"
Mi lehet a gond?Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Workbooks.Open Filename:="K:\példa.xls"
Cells.Find(What:=TextBox2.Text, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End If
End Sub -
Delila_1
Topikgazda
válasz Delila_1 #30756 üzenetére
A soroknál addig futott az oldaltörések beszúrása, míg az A oszlop n-edik sorában volt adat. Kiegészítettem a függőleges oldaltörésekkel. Ennél azt figyeli, van-e valamilyen adat az oszlopban, és hogy rejtett-e az oszlop.
Sub Oldaltores()
Dim sor As Long, Sdarab As Integer, Sny As Long
Dim oszlop As Integer, Odarab As Integer, Ony As Integer
Sdarab = Application.InputBox("Hány soronként legyen oldaltörés?", "Szám bekérése", , , , , , 2)
Odarab = Application.InputBox("Hány oszloponként legyen oldaltörés?", "Szám bekérése", , , , , , 2)
sor = 1
Do While Cells(sor, "A") <> ""
If Rows(sor).Hidden = False Then Sny = Sny + 1
If Sny Mod Sdarab = 0 Then
Cells(sor + 1, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Sny = 0
End If
sor = sor + 1
Loop
oszlop = 1
Do While Application.WorksheetFunction.CountA(Columns(oszlop)) <> 0
If Columns(oszlop).Hidden = False Then Ony = Ony + 1
If Ony Mod Odarab = 0 Then
Cells(1, oszlop + 1).Select
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Ony = 0
End If
oszlop = oszlop + 1
Loop
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.
-
tgumis
tag
válasz Delila_1 #30761 üzenetére
Nem akar működni a dolog pedig átírtam N oszlopra az A oszlopot és feltöltöttem az N oszlopot 1 -ekkel így végig van érték az oszlopban. arra tegnap rájöttem , hogyha egy " ActiveSheet.ResetAllPageBreaks " részt beszúrok akkor észhez tér a makró de most nem segít.
A legelején egyszer megcsinálja a soronkénti oldaltörést de oszloponként nem oda teszi amennyit beírok neki értéket. Ezért kell visszaállítanom az oldaltörést de utána semmi.[ Szerkesztve ]
-
tgumis
tag
válasz Delila_1 #30765 üzenetére
Nem. Az első oszlop is tartalmaz adatokat viszont az nem folytonos ott vannak üres és egyesített cellák.
Az N oszlopot feltöltöttem csupa egyessel és ott folyamatosan van adat ahogy tegnap kérted. Most átírtam az A oszlopot a makróba N re és az oszlop 1 nél az egyest 14 majd mikor kérdezi hogy hány oszlop legyen akkor ha beírok -7 et akkor is ugyan ott hagyja az oldaltörést. -
Delila_1
Topikgazda
válasz tgumis #30768 üzenetére
Úgy látom, itt nem az oszlopok elrejtéséről van szó, hanem arról, hogy nem fér el az utolsó oszlop a lapon.
A Nyomtatási kép menüben hívd be az Oldalbeállítást, ott az Oldal fülön a nagyítás vedd le az eredeti méret 80%-ára. Próbálkozhatsz kisebb-nagyobb átállítással. A Margók fülön módosíthatod a margók szélességét, és az igazítást is beállíthatod, hogy a lap közepén legyen a kinyomtatott szöveg.
A 3. fülön bevihetsz élőfejet, élőlábat, a 4. fülön megadhatod például a fent ismétlődő sorokat ( az esetedben 1:4).
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mittu88
senior tag
-
Dr V
őstag
Sziasztok!
Excelben egy legördülő menüből kiválasztok egy értéket, hogy tudom hozzárendeleni, hogy a mellette lévő cellában a legördülő menüben csak meghatározott értékek közül lehessen választni?
-
Mittu88
senior tag
válasz Salex1 #30773 üzenetére
Kell a Set szó elé. Set Wb=Workbooks.Open(Filename:="K:\példa.xls")
Elfelejtettem írni, hogy zárójel kell.Module1-be úgy tudod átvinni, ha Module1-ben deklarálod a változót, pl Public teksztbokszertek as String, majd Munka1-en Private Sub textbox_Exit(ByVal cancel As MSForms.ReturnBoolean) eseménybe beírod, hogy teksztbokszertek = textbox.value (ha elhagyod a textbox-ot, akkor kap értéket a változó)
De írhatod a Private Sub textbox_Change() eseménybe is (ekkor minden karakterváltozáskor lefut az értékadás a változónak). -
gyga
senior tag
Üdv.
Tapasztalt e olyat valaki, hogy komplex táblázat az utóbbi 2-3 hétben 2013 as excelben olyan furcsaságokat művel hogy 100% proc kihasználtságot okoz teljesen lefogja a gépet. De van amikor teljesen normálisan működik. 10-ből 8 szor lefogja a gépet.A kisebbség is számíít, teszkó.
-
Imy
veterán
Sziasztok, melyik fügvény alkalmas erre?
Azaz összeszámolni, hogy mennyi van az adott gyümölcsből? (persze képlettel, mert a feldolgozandó táblázatban több 100 sornyi adat van)
-
tgumis
tag
miert nem tudok belepni ?
[ Szerkesztve ]
-
cellpeti
veterán
excvelbe tudok színt venni egy képről és azzal tovább színezni?
Tigris, tigris, csóvafény...
-
ny.janos
tag
válasz cellpeti #30788 üzenetére
Nem hiszem, hogy képről lehetne színmintát venni excelben, de ha fontos, akkor nyisd meg a képet paint-el. A színválasztó ikonnal válaszd ki a kívánt színt, majd menüben a színek szerkesztése menüben olvasd le az RGB (vörös-zöld-kék) értékeket.
Excelben a további színek -> egyéni menüpontban add meg a leolvasott értékeket. -
csongi
veterán
Sziasztok!
Van kb 600 telefonszamom es azt szeretnem rendbe tenni.
A szamok el be kellene illeszteni ezt a *31# karakter sorozatot. Hogy tehetnem meg ezt egyszeruen? -
pigster
senior tag
Sziasztok!
Excel kimutatással kapcsolatban szeretnék segítséget kérni.
Két kérdésem van:
1. kérdés:
Dátumot hónapok szerint csoportosítottam, de sehogyan sem tudom formázni. Bárhol állítom be (Cellaformázás, Mezőbeállítások/Számformátum) mindig ezt írja: jan, febr, ... lásd kép. Hogyan lehet ezt a csoportosított dátumot formázni (pl.: január, február vagy 2015. január, 2015. február, stb.) Ha nincs csoportosítva, hanem részletesen megjelenik minden, akkor működik, de pont nem ezt akarom.2. kérdés:
Szintén a képen látható kimutatással kapcsolatban.
Ha az adatforrásban egy-az-egyben megfeleltethető oszlopok vannak, pl.: kód -> elnevezés (100 -> Bevétel, 400 -> Kiadás, 500 -> Akármi), akkor hogyan lehet megoldani, hogy a kimutatásban egy szinten jelenjenek meg. A fenti képen látható helyett így: "400: Kiadás" vagy "Kiadás - 400", tehát egy szinten, ugyanabban a sorban.Remélem létezik megoldás. Előre is köszönöm a segítséget.
[ Szerkesztve ]
FIGYELEM! A többszázezres Samsung okostévék kéretlen reklámokat tolnak az arcodba.
-
Dr V
őstag
Sziasztok!
Hogy tudok hozzárendelni egy betűhöz számot?
Ha egy sorban "A" betűt talála a képlet, azt 2-nke számolja és adja össze, ahányszor előfordul az "A" betű. -
senior tag
Olyan problémám van, hogy készítettem 2007-es Excellel egy dokumentumot. Legördülő menüből lehet adatokat kiválasztani. Makróbarátként mentettem el. Tökéletesen működik. Átküldtem a kollégámnak. Ő is ugyanazt az Office verziót használja. Nála nem működik a legördülés. vizuálisan látható, de ezen kívül semmi.
Régebben ütköztem már hasonló problémával, akkor sikerült megoldanom, de tökéletesen elfelejtettem hogyan.
Kérem a segítségeteket. -
Snoop-y
veterán
Sziasztok,
Az alabbiban kernek segitseget (Angol Excel)
Vannak az alabbi oszlopaim:
Date.............Day.........Week number
01/01/2016.....Friday..........1A kovetkezo oszlopba szeretnem kiiratni a het elso datumat a ra kovetkezobe pedig az utolsot
vagyis ezt kene kapnom:First day of the week.....Last day of the week
01/01/2016.............................03/01/2016Elore is koszonom!
[ Szerkesztve ]
New level... Advertising has us chasing cars and clothes, working jobs we hate so we can buy shit we don’t need