-
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
-
#12591
Fire/SOUL/CD
félisten
Delila_1
#12590
-
amdk7
aktív tag
válasz
Delila_1
#12539
üzenetére
Mivel fontos lenne a pontos dátum ezért ezt írtam:
=IF(J5>=1;"=DATE(YEAR(I5)+J5;MONTH(I5);DAY(I5))";"=DATE(YEAR(I5);MONTH(I5)+(J5*12);DAY(I5))")
Csak nem akar működni.
Érdekes, hogy külön-külön a két képletet kiszámolja, de ha így szúrom be, nem.
A lényege az lenne, ha kevesebb min 1évet írok be, akkor felszorozza azt 12-vel és hozzáadja a névleges dátum hó értékéhez.
-
#12535
Fire/SOUL/CD
félisten
Delila_1
#12534
-
-
dancers
csendes tag
válasz
Delila_1
#12520
üzenetére
Szia!
Ne haragudj a zavarásért, már jó pár megoldást adtál nekem a pcforumon .
Múltkor kérdeztem egyet,
dancers kérdése privát | 2012.01.06. 10:46 | válasz
Sziasztok!Azt szeretném excelbe, hogy ha A1 cella értéke 1 akkor jelenjen meg egy kép, ha a cella értéke 2 akkor jelenjen meg egy másik kép. köszönöm
Delila megoldása (50 pont) előzmény | privát | 2012.01.06. 12:51 | válasz
A laphoz kell rendelned ezt a rövid makrót: lapfülön jobb klikk, kód megjelenítése, a jobb oldalon kapott üres lapra másold be.Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = 1 Then
ActiveSheet.Shapes("Picture 1").Visible = True
ActiveSheet.Shapes("Picture 2").Visible = False
End If
If Target = 2 Then
ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 2").Visible = True
End If
End If
End SubA "Picture 1" és "Picture 2" nevében a számot írd át a saját képeid sorszámára.
dancers hozzászólása Delila (12:51) részére előzmény | privát | 2012.01.06. 13:12 | válasz
Ne haragudj, hogy ilyen értetlen vagyok, de hogyan kell a képeimnek sorszámot adni?
köszönöm a segítségetDelila hozzászólása dancers (13:12) részére előzmény | privát | 2012.01.06. 13:16 | válasz
Mikor beviszed a képet, a szerkesztőléc bal oldalán megjelenik a neve, sorszámmal együtt, pl. "Kép 1".Az az igazság, hogy nem tudok programozni, és akárhogy is próbálkoztam, nem sikerült megcsinálnom.Beillesztettem amit írtál, de nem tudom a képeket hogyan kell hozzá kapcsolni.Kérlek segíts, ha van egy kis időd, mert amit kaptam feladatot excelben, abból már csak ez hiányzik.
köszönöm szépen
-
-
csferke
senior tag
-
poffsoft
veterán
válasz
Delila_1
#12452
üzenetére
Egy egész éves műszakbeosztásban pl a megmaradt szabadnapokat minden hónapban összesíteni kell, és ezt görgetni végig az éven. Mivel minden hónap külön lapon van, így az előző hónap zárását a következő lapra (hónapra) át kell másolnom nyitásként, minden dolgozóra (sorra). Ezt szeretném ( a képlet beírását) klasszikusan makróként picit egyszerűsíteni. Tehát akkor futtatom a makrót, amikor pontosan azon a cellán állok, ahová az előző lap adott cellájának értékét szeretném bemásolni. A következő makró meg az, amelyik már az adott lapon, az első (előző lapra mutató képletet) átmásolja minden szükséges cellámba, de ezt már megcsinálja a makrófelvevő.
Pontosan annyi a problémám, hogy a makrófelvevő az előző lapra hivatkozáskor abszolút címet használ a lapnál ('LAP1!RC'), ahelyett, hogy relatív címet szúrna be ( valami ilyesmit, mint az Application.Caller.Parent.Previous.Range().Value)...
-
poffsoft
veterán
válasz
Delila_1
#12442
üzenetére
Nem kell kijelöltnek lennie, ezt a felvevő csinálta(nem nagyon értek a VB-hez).
A lényeg, hogy az aktuális lap előtti lap adott cellájának az értéke kerüljön át az aktuális lap adott cellájába. Összesen 12 lapom van ("Január", "Február", ... "December") , értelemszerűen "Február" az első, ahová másolnom kell.Ha jól gondolom, az aktív lap kódnevéből ("Munka2") tudnám az előző kódnevét a módszereddel előállítani, abból kellene a valódi nevet előállítani a formular1c1 számára.
Igazándiból arra próbáltam rákeresni, hogy a sheeteknek van-e olyan stricky variable-jük, mint a sor-oszlopnak, mert azoknál lehet viszonylag egyszerűen címezni ha jól értettem a google-t (pl: R-1C az aktív cella feletti cellát jelöli) . -
#12391
macimeister
aktív tag
Delila_1
#12390
macimeister
aktív tag
-
tezse66
csendes tag
válasz
Delila_1
#12371
üzenetére
Szia Delila!
Köszönöm, így már működik.
Megkérhetlek, hogy egészítsd ki a kódot azzal, ha nem talál megfelelő színkódot, vagy ha üres a cella, akkor ne csináljon semmit. Az első feltétel azért kell, mert ha nem találja meg a színkódot, akkor hibával leáll. A második rész azért kell, mert a ciklus hosszát nem tudom mennyi, csak egy nagy számot adok neki.
Még egyszer nagyon köszönöm!
tezse66 -
tezse66
csendes tag
válasz
Delila_1
#12283
üzenetére
Szia Delila!
A munka1-en ez az adatbázis:
-A- -B- -C- -D-
REF R G B
B 00-04 P 191 194 200
B 00-11 S 73 83 105
B 01-02 P 210 207 210
B 01-06 M 147 145 155A munka2-n csak a REF ek vannak most
-A- -B-
B 00-04P szín
B 00-11S szín
B 01-02P szín
B 01-06M szín
A "B" oszlopokat kellene színezni.Jelenleg az általad írt makró leáll azzal, hogy "Runtime error '91'....Object variable is not set"
Itt áll le:
lel = Sheets("Munka1").Range("A:A").Find(Cells(sor%, "A")).Row
Én vagyok béna?
Nem lehetne inkább egy függvényt csinálni rá?
Köszi előre is a segítséget! -
jani-wan
tag
válasz
Delila_1
#12342
üzenetére
nem műkszik
nem tudom mit csinálok rosszul.
igaz most csinálok ilyet először.Szóval a fejlesztőeszközöknél megnyitottam a Visual Basic editort, ott duplán kattintva a lapon amelyikre a makrót akarom tenni, nyitottam egy dobozt, és belemásoltam amit írtál, majd elmentettem makróbarát formátumban.
És semmi.Az adatvédelmi központban engedélyeztem az összes makrót, ill. raktam pipát a VBA projecthez.
mi lehet a gond?
-
secon
csendes tag
válasz
Delila_1
#12320
üzenetére
Ez így van. Egy vasbeton pillér egyik erőtani számításához kellett, mert bevallom, hogy kézzel is ki tudom számolni, de ha elsőre nem jó a végeredmény kezdhettem volna az elejétől. Tehát az egészet excelbe raktam, és csak ez hiányzott hozzá (természetesen Maple vagy a Mathcad is szóba jöhetett volna, de excel majdnem minden PC-n van...). Szóval köszönöm még egyszer!!!
-
secon
csendes tag
válasz
Delila_1
#6597
üzenetére
Köszi szépen a megoldást! Nekem is az volt a gondom, hogy egy kétsoros táblázatból megkeressen két értéket, majd azon értékekhez tartozó alatta lévő sorból is kiválasszon két értéket.
Az általad leírt függvény szépen megkereste az általam megadott számot a felső táblázatban, majd két sorban kiírattam őket. A következő oszlopban a vkeres() fügvénnyel kiírattam a hozzájuk tartozó értékeket, majd az interpolációt rájuk illesztettem.
Hálás köszönetem!!!!Üdv.
Íme:
Az általam megadott érték: 8,54l0/d1 [cm] 0 6 8 10 12
(ei+e2)/d1) 0,000 0,049 0,078 0,110 0,146
=INDEX(G7:AD7;1;HOL.VAN(B21;G7:AD7;1)) Megkeresett érték: 8
=INDEX(G7:AD7;1;HOL.VAN(B21;G7:AD7;1)+1) Megkeresett érték: 10=VKERES(F10;G7:AD8;2) Megkeresett érték: 0,078
=VKERES(F11;G7:AD8;2) Megkeresett érték: 0,110Interpoláció:
=G10+(G11-G10)/(F11-F10)*(B21-F10)
Ennek eredménye: 0,087 -
cousin333
addikt
válasz
Delila_1
#12313
üzenetére
"A tömb rendezésére én sem ismerek rövid megoldást, marad pl. a buborék módszer."
Vagy azt csinálod, amit én: kiírtam a teljes tömböt egy ideiglenes oszlopba, majd rendeztettem (makróból) az Excellel, és visszaolvastam a rendezett tömböt. De ez sem túl elegáns (és gyaníthatóan nem is a leggyorsabb), jobb ötletem viszont nem volt.
-
cousin333
addikt
válasz
Delila_1
#12308
üzenetére
Köszönöm a választ. De szerintem félreértettük egymást, vagy nem elég pontosan fogalmaztam. Ezekkel a rendezési lehetőségekkel tisztában vagyok (bár a sorrend megfordítós megoldás ötletes), a kérdésem a makrókra vonatkozott. Tudom, hogy a VBA tud rendezni (Array.sort), meg sorrendet fordítani, de nekem úgy tűnik, ezek Excelben nem elérhetőek. Vagy mégis?
Ergo a különbség tartomány és tömb között (legalábbis az én értelmezésemben):
tartomány: pl. "A1:B20"
tömb: Dim lista(1 to 20, 1 to 2) as Double -
Regirck
senior tag
válasz
Delila_1
#12283
üzenetére
Sziasztok!
Egy olyan kérdésem (problémám) lenne, hogy Excelben van egy csomó számom (kb. 10.000 db) és szeretném ezeknél a számoknál megtudni a leggyakrabban előforduló 10 db 20 db számot. Ezt hogyan tudom megcsinálni és nem átlagra vagyok kíváncsi hanem arra, hogy melyik szám jelenik meg többször és érdekelne a második, harmadik ... legtöbbször megjelenő szám is!Fontos lenne és köszönöm! (Hátha ez is fontos: több oszlop és sor is van és Office 2010-t használok!)
-
csferke
senior tag
válasz
Delila_1
#12235
üzenetére
Szia!
Mit kell változtatnom ebben a sorban
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))
hogy az E14-be áthozott érték " - " (negatív) legyen?És még egy kérdés.
=IF(F29="kom", (CONCATENATE("fco. naš mag. ",I8," radnih dana od dana prijema uplate")),)
Azt szeretném ha F29="kom" nem ez lenne hanem megvizsgálni, hogy az F29 egy bizonyos szöveggel kezdődik-e F29=begin with "szöveg"köszi
-
csferke
senior tag
válasz
Delila_1
#12232
üzenetére
Így nem működött.
Próbálkozások során kialakult a megfelelő megoldás.
Átrendeztem az oszlopokat B,C és D-be viszem be az adatokat, hogy egymás mellet legyenek az adatbeviteli oszlopok.
E=B*D F=C*D
Most már figyeltetem az egymás mellet lévő [B
] oszlopokat és értelemszerűen a SUM-ban Row4 -> Row5 és a Row5 -> Row6 lett.Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:D]) Is Nothing Then
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))
End If
End Sub -
csferke
senior tag
válasz
Delila_1
#12217
üzenetére
Köszönöm, működik.
DE !?
Most már belátom, kérdezni is tudni kell.
Nem gondoltam, hogy fontos lehet és ezért nem fogalmaztam meg a kérdésemben sem.A D:E oszlopokba nem direkt bevitellel történik az adatbevitel hanem a D oszlop az a B*F az E oszlop pedig C*F és tulajdonképen a D:E az automatikusan számolódik/töltődik amikor értéket kapnak a B, C, F oszlopok.
Az sem zavarna, hogy nem a D:E összegét viszem át a Sheet2-be hanem hozzáadok még egy oszlopot (pl. H) a táblához amiben automatikusan kiszámítódik D:E összege és azt viszem át a Sheet2-be. Tehát a H is képet alapján automatikusan számítódik.üdv
-
coolmpi
aktív tag
válasz
Delila_1
#12218
üzenetére
Nagyon-nagyon jó kezdetnek. Köszönöm.
Már csak annyi a baj, hogy a kollégák végeznek az irodán kívül is munkát, így nem a ki-be lépés különbsége az, amire szükségem van. (Azt hogy mennyi a "bent" idő, azt most is tudjuk)
Ezért kellene valahogy adott dátumra az első bejelentkezett és az utolsó kijelentkezett között eltelt időt kiszedni.
Erre valami ötlet?
-
csferke
senior tag
válasz
Delila_1
#12207
üzenetére
Nem pontosan erre gondoltam vagy nem fogalmaztam megfelelően.
Így tulajdonképen egy "Linked cell" lesz az eredmény.Nekem viszont a bevitt érték nem a Sheet1A1 cella lesz hanem minden egyes bevitel után egyel növekszik a sorszámláló. Tehát Sheet1A1, Sheet1A2, Sheet1A3 és így tovább és az így utoljára bevitt (Sheet1Axxx) mező értéke kellene, hogy megjelenjen Sheet2A1-ben.
-
#12169
superecneB
őstag
Delila_1
#12168
-
#12159
Fire/SOUL/CD
félisten
Delila_1
#12158
-
#12157
Fire/SOUL/CD
félisten
Delila_1
#12156
-
zoli1962
csendes tag
válasz
Delila_1
#12146
üzenetére
Köszönöm szépen a segítséget ! Még túráztam rajta egy kicsit mert ha tizedes jegyet vettem le a cellaformázásba,attól még valójában nem lett egész szám a cella tartalma,de a csonk függvény megismerése után minden rendbe jött. A 2010 excel amim nekem nincs az már alapból elkényeztet a véletlen.között függvénnyel.
-
Sickboy25
addikt
válasz
Delila_1
#12138
üzenetére
valamit nagyon nem jól csinálok, mert nem akarja a kijelölt tartományból kiszűrni a dátum szerinti adatokat, csak egyet... össze vissza vannak a dátumok egymás alatt.
nem tudom mi lehet a hiba... Tudnál segíteni?
A kivonat tartományba egy mezőnév hiányzik.... ezt a hibát dobja ki.
-
-
-
torment
csendes tag
válasz
Delila_1
#12020
üzenetére
Bejött még egy feltétel az adtok kezeléseben. A gépsorok száma 3.
Így a mérési adatokat 3 külön álló munkalapra kell elhelyezni, attól függően melyik gépsor adatait állítom be. A gépsorok kódja 1,2,3 X15 cellában. Az előző makrót kitudnád bővíteni ezekkel a feltételekkel. A munkalapok neve gép1_heti; gép2_heti; gép3_heti
Előre is köszönet.
Torment
-
#11997
Apollo17hu
őstag
Delila_1
#11996
Apollo17hu
őstag
válasz
Delila_1
#11996
üzenetére
Ehh, rossz volt a példám.
Nem konkrétan a vasárnapot szeretném hozzáfűzni.4 db oszlopból generálom egy html-táblázat forráskódját. A kódot összefűzéssel hozom létre.
Az egyik oszlop viszont ez a bizonyos dátummező.Konkrétan így néz ki most az összefűzés:
=ÖSSZEFŰZ("<tr><td><a href=";$F$1;E2;$F$1;">";A2;"</a></td><td align = ";$F$1;"center";$F$1;">";B2;"</td><td align = ";$F$1;"center";$F$1;HA(C2="aktív";ÖSSZEFŰZ(" bgcolor = ";$F$1;"CCFFCC";$F$1);HA(C2="inaktív";ÖSSZEFŰZ(" bgcolor = ";$F$1;"FFCCCC";$F$1);""));">";C2;"</td><td align = ";$F$1;"center";$F$1;">";D2;"</td></tr>")
, amiből a dátum csak a képlet legvégén szereplő D2 cella. Ami dátum formátumú volt, és emiatt számmá alakul összefűzéskor.
-
#11990
Apollo17hu
őstag
Delila_1
#11989
Apollo17hu
őstag
válasz
Delila_1
#11989
üzenetére
Szia!
Köszönöm, ez jó, viszont át kellene alakítanom, de nagyon kezdő vagyok makrókban.
Meg tudnád nézni, hogy a hibás kódom miért nem működik?Úgy szeretném csinálni, hogy a 2. sortól kezdve a C oszlopban lévő változásokat figyelje a makró, és a D oszlopban jelenjenek meg a dátumok. Azt nem tudom, hogy a változót (i) hogyan kellene úgy beleírni a kódba, hogy az működjön is:
For i = 2 To 300
If Target.Address = Cells(i, 3) Then Cells(i, 4) = Date
Next
, működik.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- One otthoni szolgáltatások (TV, internet, telefon)
- Mini-ITX
- Wise (ex-TransferWise)
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Videó stream letöltése
- Házimozi haladó szinten
- Kormányok / autós szimulátorok topikja
- Debrecen és környéke adok-veszek-beszélgetek
- Milyen egeret válasszak?
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Dell XPS 13 9370 - 9380 UHD touch, 16GB RAM, 256-512GB SSD, jó akku, szép állapot, számla, garancia
- PS Plus előfizetések
- 157 - Lenovo LOQ (15ARP9) - AMD Ryzen 7 7435HS, RTX 4060
- BESZÁMÍTÁS! 32GB (2x16) ADATA XPG Lancer RGB 7200MHz DDR5 memória garanciával hibátlan működéssel
- HIBÁTLAN iPhone XS Max 64GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS2898, 100% Akkumulátor
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő