-
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
-
Pisthy
csendes tag
Sziasztok!
Szeretném megkérdezni tudja e valaki, hogy lehet egy excel táblában lévő képet visszaolvasni egy form-on lévő imagebox-ba.
Már próbálkoztam Image1.Picture = ActiveSheet.Pictures("Név") nem sikerült.
Előre is köszi a segítséget! -
perfag
aktív tag
Az angol megy?
Create a Pivot Table from Data on Different Sheets és Create Excel Pivot Table from Multiple Sheets és Consolidate multiple worksheets into one PivotTable report - ennek kell, hogy legyen magyar verziója is. -
ArchElf
addikt
válasz poffsoft #12646 üzenetére
Nem kell makró, megoldható concat, len, fkeres függvényekkel (vagy egyszerű hivatkozásokkal, ha a rövidítések olyan sorrendben vannak, mint a nevek).
AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
Mythunderboy
csendes tag
Sziasztok!
Tudna valaki segíteni,hogy az Active x vezérlő lapvédelem alatt is működjön? Mert nekem nem engedi
KösziSpacesynth 4 ever!
-
Delila_1
Topikgazda
válasz Mythunderboy #12655 üzenetére
Lehet, hogy a védelem beállítása előtt tervező módban hagytad a vezérlő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.
-
bozsozso
őstag
Sziasztok,
Az alábbi kódrészlettel illesztek be egy word dokumentumba táblázatot valamint a végén törlöm is a forrás adatokat.
Sheets("Fej").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
.Selection.PasteAndFormat wdFormatOriginalFormatting
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("J1").ClearContents
Sheets("Fő").SelectA problémám az lenne, hogy ha a táblázat átcsúszik egy következő lapra akkor esetlegesen megtöri a cellákat és úgy folytatódik a következő oldalon. Ezt el lehet kerülni valahogy? Esetlegesen úgy kezdve a következő oldalt, hogy a forrás 1. sorával kezdjen? Így a táblázat oszlop nevei is minden oldalon látszódnának.
Előre is köszönöm a segítséget.
-
Wasquez
senior tag
Sziasztok
Van egy táblázatom, amiben van egy oszlop, amiben egy szám van, erre a számra kellene csinálnom egy feltételes formázást, hogy ha az értéke tól ig van, akkor az egész sor legyen piros.
Ezt hogyan tudom megcsinálni?
Az adott cellát be tudom feltételesen formázni, de hogyan tudok a cella színére hivatkozni a sor formázásánál?PC
-
Delila_1
Topikgazda
válasz bozsozso #12658 üzenetére
A sortörés megszüntetését majd megmondja valaki más.
A címsorok ismétlése a Word 2007-ben úgy oldható meg, hogy kijelölöd a címsort, aTáblázateszközök | Elrendezés | Adatok | menüben a Címsorismétlést választod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
maross
veterán
Hello
Lenne egy cellam, amelyik folyamatosan frissul (tozsdei adat, egy szam), a vegso cel ebbol egy real time chart rajzolasa lenne. Ahogy olvasgattam, ehhez eloszor egy tablazatatot kell letrehozni ezekbol a folyamatosan frissitett szamokbol, es majd azt lehet kirajzoltatni. Egyelore mar ott elakadtam, hogy nem tudom a cella frissuleset se "eszrevenni", hogy lehet ezt kezelni? Belegondolva meg jobb 1 masodpercenkent megnezni az erteket, es majd azt kirajzolni.
Koszi, Maross.
eladó 100+ új/használt társasjátékom: https://tinyurl.com/tarsasjatekok
-
ng0ofy
KORREKTOR
All sheet hivatkozás van?
Ilyesmi kellene: all sheet.$oszlop$sor
(van egy 176 lapos (világ országai ) anyagom, minden országról ugyanazok az adatok, ugyanabban a táblázatban. Pár sort össze kellene vetni és próbálta többféleképpen hivatkozni az összes lapra egyszerre, de a libreoffice nem ismerte fel a próbálkozásaim lényegét )
-
perfag
aktív tag
válasz ng0ofy #12665 üzenetére
Úgy kell ahogy leírtad, kettőspontot az első és utolsó munkalapnév közé, felkiáltójel és cellahivatkozás.
Pl. B3-as adatok összegét akarod megadni minden munkalapról egy összesítő munkalapon (ami az első lap a munkafüzetben):
- kijelölöd az összesítő lapon a cellát,
- kattintasz a szumma jelen,
- kijelölöd a második munkalapot (pl. Andora)
- a bal alsó sarokban ott vannak a lapfülgörgető nyilak, az utolsóra ugratsz
- lenyomod a Shift-et, rákattintasz az utolsó munkalapra (pl. Zambia)
- rákattintasz a B3 cellára
- Enter=SZUM(andora:zambia!B3)
-
Delila_1
Topikgazda
válasz ng0ofy #12665 üzenetére
Az Array segítségével jelölheted ki az összes munkalapot, és azoknak egy bizonyos celláját.
3 lap esetén egyszerű beírni a makróbaSheets(Array("Munka1", "Munka2", "Munka3")).Select
Range("A1").Select176 lapnál ez már kínos lenne. Inkább indíts egy makrórögzítést, állj az első lapra, majd a Shift lenyomása mellett kattints az utolsó lapra. Az így egyszerre kijelölt lapokon egy bizonyos cellára állva az összes lapon az a cella lesz kijelölve. Ha ebbe a cellába írsz valamit, akár egy képletet, minden lapon szerepelni fog. NE FELJTS EL kilépni a közös kijelölésből!
Ha egy összegző lapon összegezni, átlagolni, vagy bármilyen más műveletet akarsz végezni a többi lap azonos celláiban lévő adatokkal, egyszerűbben is megadhatod. Pl. egy cellában az összes többi lap B20 celláiból ki akarod nyerni a minimum értéket, az összegző lap képlete:
=MIN(Munka1:Munka3!B20). Természetesen a saját lapjaid nevét írd a Munka1 és Munka3 helyére.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
háma
csendes tag
válasz Delila_1 #12444 üzenetére
Köszi.
Szuperül működik. De nem sikerült rájönnöm, hogyan tudom többször felhasználni.
A következőt gondolom:1 munkalap A oszlop név, B oszlop e-mail, C oszlop választó1, D oszlop választó2, E oszlop választó3.
2 munkalap= választó1
3 munkalap= választó2
4 munkalap= választó3Mindegy melyikbe teszek jelet, és akár többe is az alap kód működjön.
Üdv: Marci.
-
Delila_1
Topikgazda
Szia Marci!
Jó sokára jelentkeztél az újabb problémával. Itt a kibővített makró:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim név$, email$, sor%, usor%, oszlop As Integer, lapnév$
oszlop = Target.Column
If Target.Column > 2 And Target.Column < 6 Then
Select Case oszlop
Case 3
lapnév$ = "Másolat_1"
Case 4
lapnév$ = "Másolat_2"
Case 5
lapnév$ = "Másolat_3"
End Select
név$ = Cells(Target.Row, 1).Value
email$ = Cells(Target.Row, 2).Value
usor% = Sheets(lapnév$).Range("A" & Rows.Count).End(xlUp).Row + 1
If IsEmpty(Target) Then
For sor% = 2 To usor%
If Sheets(lapnév$).Range("A" & sor%) = név$ And _
Sheets(lapnév$).Range("B" & sor%) = email$ Then
Sheets(lapnév$).Rows(sor%).Delete Shift:=xlUp
Exit Sub
End If
Next
Else
Sheets(lapnév$).Cells(usor%, 1) = név$
Sheets(lapnév$).Cells(usor%, 2) = email$
End If
End If
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.
-
bozsozso
őstag
Sziasztok!
Egy kis segítség kellene excel makróban nyitok meg word dokumentumot. Az excel egy adott cellájából másolok dátumot és azt a word-be illesztem be ebben a formában: 2012.január 23. Ez működik is rendesen több gépen is, de egy 2003-as word-ben a hónapot nem magyar hanem angol nyelven illeszti be. Magyar office magyar windows . Nem találok semmi eltérést 2 gép beállításai közt, de lehet rossz helyen keresem. Milyen beállítást kellene megnéznem vagy a makrót kellene másképpen megírni? Az alábbi sorral illesztem be a dátumot a word-be:
.Selection.TypeText Text:=" " & Application.WorksheetFunction.Text(Cells(sor, 8), "yyyy.mmmm d.") & _
" - " & Application.WorksheetFunction.Text(Cells(sor, 9), "yyyy.mmmm d.")Ha a kódból több kell akkor szóljatok.
Előre is köszönöm a segítséget.
-
félisten
válasz bozsozso #12672 üzenetére
A másik gépen az OS területi beállításait(terület és nyelv) nézd meg, ott lehet a dátum formátum megváltoztatva (és lehet, hogy nem csak az, hanem pénznem stb stb)
Arra viszont ügyelj, hogy ez globális jellegű beállítás. Ha a másik OS alatt esetleg adatbázis-kezelő alkalmazásokat is futtatnak, akkor lehet, hogy nem véletlenül mások a területi beállítások. Ha így lenne, akkor akár az adatbázis progi működését is felboríthatod.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
bozsozso
őstag
válasz Fire/SOUL/CD #12673 üzenetére
Egy hálózaton belül egy rendszert használunk. Területi beállításokat néztem az rendben van.
Mindkét gépen win2000 (nem kell nevetni) valamint office 2003 van
-
félisten
válasz bozsozso #12674 üzenetére
Értem. Mondjuk már az is érdekes, hogy szöveggé van alakítva (nem Én adtam ezt a megoldást? ) és mégis átalakítja. Azt nem tudom, hogy járható út lehetne-e, de csak a próba kedvéért, tedd macskakörmök közé. Akkor is átalakítja?
(Erre gondolok: "1234.12. 12:")Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
bozsozso
őstag
válasz Fire/SOUL/CD #12675 üzenetére
Jól látod tőled kaptam ezt a megldást. Holnap melóhelyen kipróbálom ha macskaköröm közé teszem a dátumot, de most itthonról nem tudom kipróbálni. Bár ez tényleg csak a próba kedvéért nézem meg, mert annyiból halott ötlet, hogy pont ezt a táblázatot tölti fel a felhasználó adatokkal és onnan kell nekem a word doksi.
-
félisten
válasz bozsozso #12676 üzenetére
Még annyi lehetőség felötlött bennem, hogy ne pontot használj elválasztónak, hanem pl kötőjelet (de lehetne per jel, vissza-per jel, vagy akár # is)
WorksheetFunction.Text(Cells(sor, 9), "yyyy-mmmm-d")
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
bozsozso
őstag
válasz Fire/SOUL/CD #12677 üzenetére
Ok köszönöm szépen ezt is ki fogom próbálni. Mindenképpen visszajelzek mire jutottam.
-
bozsozso
őstag
Lemaradtam a szerkesztésről, de más,
1 cellában lehet valahogyan alkalmazni több hiperhivatkozást?
-
félisten
válasz bozsozso #12679 üzenetére
Legjobb tudomásom szerint nem, csak ilyen trükkel, de az már nem cella lesz.
(textbox, Shape vagy Word objektum használatával)UI: Esetleg valami makróvarázslás lehetséges, de ezt sosem próbáltam.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
bozsozso
őstag
válasz Fire/SOUL/CD #12680 üzenetére
Hát sajnos azt a választ kaptam amit vártam. Azért köszönöm.
-
Delila_1
Topikgazda
Nem sokat változtattam az előzőhöz képest. Csupán a Select Case ... End Select többirányú elágazásban adtam meg a lap nevét attól függően, hogy a 3 oszlop (C–E) közül melyikbe vittél be értéket, vagy töröltél egy előző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.
-
poffsoft
addikt
válasz Delila_1 #12684 üzenetére
Megint egy kis problémám lenne:
Az Éves!K10 cella string-ben tartalmazza a szükséges képletet,
'=A10+B11
tehát elvileg a MyFormul$-nek magának a formulának kell lennie, mégis hibaüzenetet kapok rá.Mi a hiba? És mi a megoldás? Vagyis a value-t hogyan tudom formula-vá konvertálni? Esetleg a legelső aposztrof okozza a hibát a cellában?
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value
ThisWorkbook.Sheets(1).Activate
Range("AM20").Formula = MyFormul$Ja, és ahhoz, hogy egy lapon kijelöljek, másoljak tartományokat, mindenképpen aktiválnom kell azt a lapot ( pillanatnyilag az !Éves lapon nyomógombbal hívom meg ezt a másoló sub-ot, és nem tetszik, hogy végiglapozza az évet...)?
Más:
Ha egy lapon végeztem (copy-paste makróból) és azt szeretném, hogy ne maradjon kijelölve semmi, és a B20 cellára álljon a kurzor( meg a lapgörgetések is teljesen fent és balra, vagyis az ablak tetején az A1 cella látszódjon), azt milyen utasítással lehet elérni?
Köszi
[ Szerkesztve ]
[ Szerkesztve ]
-
dellfanboy
senior tag
2007-es excel-em van. a fekete szürke kék trión kívűl lehet valahogy más színsémát választani? ha igen, hogy?
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
bozsozso
őstag
válasz Fire/SOUL/CD #12677 üzenetére
Hát megnéztem mégegyszer, de a területi beállításoknál is rendben találtam mindent valamint ezzel a módosítással sem jó.
-
félisten
válasz bozsozso #12687 üzenetére
Hát valami biztosan átkonvertálja a dátum formátumot, nyilván ez tény. Ha nem az OS, akkor csak a Word lehet. Indítsd el azt a Word-ot és manuálisan szúrj be egy dátumot Beszúrás/Dátum és idő és akkor meg kell jelennie egy ablaknak, hogy milyen formátumban, milyen nyelvnek megfelelően tegye. Add meg amit kell és kell lennie alapértelmezett gombnak is, azon katt.
Ha ezek után is gond lesz, akkor már passzolom.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
bozsozso
őstag
válasz Fire/SOUL/CD #12688 üzenetére
Ok megpróbálom ezt is. Köszönöm.
-
MZsoltee
veterán
Sziasztok a következő problémám lenne!
Adott az "A" oszlop melyben a születési évek vannak valamint adott a "B" oszlop amiben a hónapok.
Ki kéne tudnom számolni egy tetszőleges dátumtól való eltérésüket. (Mondjuk mennyi idősek voltak tavaly nyáron)Tudnátok ebben segíteni?
Üdv
A tökéletes nő süketnéma, nimfomániás, és az apjának kocsmája van.
-
Delila_1
Topikgazda
válasz poffsoft #12685 üzenetére
Azt hiszem, rosszul címezted a kérdést. A változók elnevezéséből úgy látom, Fire foglalkozott a kérdéseddel. Visszalapoztam pár napot, de nem találtam az eredetit.
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value
MyFormul$=Right(MyFormul$, Len(MyFormul$)-1)Így levághatod a kezdő aposztrófot.
Másik lapra állás: Sheets("Másik").Select
Kijelölés megszüntetése másolás után: Application.CutCopyMode = False
B20-ra állás: Range("B20").Select
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 MZsoltee #12690 üzenetére
Megadod pl. a D1 cellában a tetszőleges dátum évét, az E1-ben a hónapját.
A C2 képlete: =(DÁTUM($D$1;$E$1;1)-DÁTUM(A2;B2;1))/365A képlet általános cellaformátumnál egy tizedes törtet ad, amit kedved szerint formázhatsz a tizedesek száma szerint.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
poffsoft
addikt
-
félisten
válasz poffsoft #12698 üzenetére
Képletet nem Value-val viszünk be, hanem FormulaArray-el, pl ahogy itt is láthatod.
(Már ha jól értem, hogy mit is szeretnél, mert nem olvastam el az összes HSZ-od...)[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz poffsoft #12698 üzenetére
Bocs, hülyeséget írtam. Most, hogy megittam a liter kávémat és újra ránéztem, megvilágosodtam a feketétől.
Szóval nem FormulaArray (miért is tömbképletet írtam..) csak Formula a Value helyett...Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Politika
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Gyúrósok ide!
- Huawei Mate 10 Pro - mestersége az intelligencia
- Háború Izraelben
- Kerékpárosok, bringások ide!
- Vezetékes FEJhallgatók
- Itt az első kép a 2024-es Nokia 3210-ről
- Külpolitika
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok