-
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
-
válasz Fferi50 #38200 üzenetére
Ezek fényképes árlisták, van benne cikkszám, megnevezés, ár, készlet oszlop és ezek elé jönne a fotó kis méretben pl. 160x160px méretben.
Abban az esetben nem jó a hivatkozás, ha nyomtatva is használják a kollégák.Talán azoknak való leginkább a hatalom, akik nem vágynak rá. Azoknak, akiket (...) a sors állít az élre, akik szükségből öltik fel a palástot, s aztán maguk is meglepődnek rajta, mennyire jól illik a vállukra.
-
Fferi50
őstag
Szia!
Egy mintafájl nagyon sokat segítene szerintem.
De itt egy próba makró:Sub Kepimport()
Dim cl As Range
Const utvonal = ("utvonal\") ' ide írd be a saját elérési útvonalad, \ legyen a végén
For Each cl In Columns("A").Cells ' az A oszlop helyére írd be azt, ahol a cikkszámok vannak
If cl.Value <> "" Then
With cl.Parent.Pictures.Insert(utvonal & cl.Value & ".JPG") 'ha nem jpg a kiterjesztés, akkor azt írd a helyére
.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft ' itt állítjuk be a méretet, a 0.3 helyére próbálgatással nézd meg, mi lesz a jó
.Top = cl.Top ' a cikkszám magasságába kerül a kép
.Left = Range("H1").Left ' a H oszlophoz.
End With
Else
Exit For ' ha nincs érték a cellában, befejeztük a ciklust.
End If
Next
MsgBox "KÉSZ", vbInformation
End SubHa a cella magasság nem elég nagy és a képek átfedik egymást, akkor a cella magasságon állíts, mielőtt a makrót lefuttatod.
Természetesen makrós fájlként (xlsm) kell mentened.Üdv.
[ Szerkesztve ]
-
Mutt
aktív tag
válasz morgusz #38199 üzenetére
Szia,
Delila megoldása mellett itt egy nem-makrós megoldás, ami Excel 2010 felett műkődik.
Power Query kell hozzá, amit Excel 2010 esetén külön kell installálni.Lépés:
1. Adatok -> Adatok beolvasása -> Fájlból -> Mappából
2. Kiválasztod a mappát ahol a fájlok vannak, OK-t nyomsz és a Szerkesztés gombra kattintasz.
3. Extension oszlopot kijelölöd, majd az Átalakítás fülön Formátum -> Nagybetűs opciót kiválasztod. Ezzel minden kiterjesztést nagybetűre konvertálunk, így ha véletlenül vki .XLS -ként menti el a fájlt, akkor is be fogjuk olvasni.
4. Extension oszlop jobb sarkában található szűrővel kiválasztjuk a .XLS fájlokat.
5. Name oszlop jobb sarkában a szűrővel kiválasztjuk a xyz kezdetű fájlokat (itt is lehet előtte egy nagybetűsítést csinálni).
6. Kijelőlöd az első két oszlopot (Content és Name), majd jobb klikk a fejlécen (ahol látod hogy Content) és További oszlopok eltávolítását választod (ezzel a többi oszlop eltünik, nincs rájuk szükség)
7. A Content oszlop jobb sarkában van két lefelé mutató nyíl (Fájlok kibontása), kattints rá. Ez elkezdi beolvasni a fájlokat, és felhoz egy mint ablakot, ahol válaszd ki a Munka1 lapot és nyomj okét. Dolgozni fog egy kicsit, de az összes fájlod Munka1 lapját be fogja tölteni.
8. Jobb oldalt lesz egy csomó új lépés ennek eredményeként. A gond, hogy a korábban megtartott fájl nevet vhogy vissza kell kapni. A Többi oszlop eltávolítva 1-es lépésnél található fogaskerékre kattitnts és pipáld be a Name-t, hogy újra lássuk a fájlneveket. Ezek után kattints az utolsólépésre, mert innen folytatjuk.
9. Oszlop hozzáadása menüben válaszd az Indexoszlopot.
10. Most régi adósságot törlesszük, adjunk egy értelmes nevet a lekérdezésnek.
Jobb oldalt a Tulajdonságok alatt a Név-ben van vmi (nekem temp, ami a könyvtár neve ahol voltak a fájlok). Adjunk vmi jobb nevet pl. Frissadatok
11. Egy újabb furcsa lépés fog jönni, az eddigi művet lemásoljuk. Bal oldalon a Lekérdezések részben jobb klikk és Megkettőzést válaszd.
12. Lett egy másolatunk, ami aktív is lett. Esetleg nevezzük át (pl. Utolsosorok), mert itt fogjuk megtudni, hogy az egyes fájlokban hol van az utolsó sor.
13. Kezdőlapon Csoportosítási szempontra kattints. Csoportosítani fogunk a fájlnév alapján, Name oszlop, és amit keresünk az Index oszlop maximum értéke. Egy OK után meg is kapjuk a kért dolgokat. Itt végeztünk.
14. Kattintsuk bal oldalt az Adatsorok lekérdezésre, mert most ezzel megyünk tovább.
15. Kezdőlap fülön Összevonás -> Lekérdezések egyesítése jön. Ezzel az a célünk, hogy a korábban már megkapott utolsósorokat ebben a lekérdezésben meg tudjuk találni.
Három részből áll az ablak: fent látjuk az aktuális lekérdezés képét, alatta lévő listában válasszuk ki az Utolsosorok lekérdezést (amit a 13-as lépésben véglegesítettünk). Meg kell mondanunk az Excelnek, hogy mely oszlopok azonossak a két lekérdezésben. A fenti táblában jelöld ki a Name és Index oszlopot (Ctrl-t kell majd nyomnod kattintáskor). Az alsó táblában is jelöld ki a Name és Index oszlopot. Fontos, hogy a fejlécekben látni fogsz egy kis sorszámot 1 és 2 (ez a kijelőlés sorrendje), ezeknek a sorszámoknak egyeznie kell mindkét táblában a helyes műkődésért.
A harmadik dolog amit itt meg kell adnod az pedig a csatlakozás módja, ami nekünk most Belső (csak egyező sorok).
16. Nyomj egy OK-t
17. Végeredményt 3 felesleges oszlop fogja csúfitani, a fájlneve, az utolsósor száma és egy új oszlop amiben Table szöveg van. Ezeket töröljük. Jobb klikk az oszlop nevén és Eltávolítás.
18. Kezdőlap -> Bezárás és betöltés -> .. adott helyre opcióval meg tudod mondani az Excelnek, hogy hova kéred az eredményt.Sok lépés ez, de segítség azoknak akiknek makróírás még távoli.
Legközelebb pedig ha futtatnod kell, akkor az Adatok fülön Az összes frissítése opciót használod, vagy kattintasz a Lekérdezések és kapcsolatok gombra és a megjelenő panelen a Frissadatok lekérdezésen jobb klikk és Frissítés.
üdv
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Pakliman
tag
Szia!
Ezzel kísérletezhetsz:
Public Sub KépBerak(sKép As String, ml As Worksheet, dLeft As Double, dTop As Double, dWidth As Double, dHeight As Double)
With ml.Pictures
With .Insert(sKép)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Left = dLeft
.ShapeRange.Top = dTop
.ShapeRange.Width = dWidth
.ShapeRange.Height = dHeight
End With
End With
End Sub -
Karol0109
csendes újonc
Sziasztok!
Szeretném a segítségeteket kérni a következő feladathoz:
- az excelben van két munkalap:
1. munkalapon szerepel, hogy adott személynek hány db aktív féléve volt és azon hány db tárgyat teljesített,
2. munkalapon szerepel, hogy ideális esetben hány db aktív féléven hány db tárgyat kell teljesíteni
- az 1. munkalapot le kellene szűkíteni azokra a sorokra, amelyik egybeesik a 2. munkalapon szereplő "ideális esettel", tehát HA a két munkalapon az Aktív félévek száma =, akkor 1. munkalapon Tárgy db >= 2. munkalapon Tárgy dbCsatolom képként az 1. munkalap (lista) fejlécét képként és a 2. munkalap adatait. Remélem érthető, hogy mit szeretnék.
Előre is köszönöm a segítséget!
[ Szerkesztve ]
-
csferke
senior tag
Sziasztok!
Az alábbi kóddal az E oszlop éppen kiválasztott cellájába szeretnék adatot felvenni DE CSAK NAGYBETŰ mehet a cellába.
Az is megoldás lenne ha az egész E oszlopot le lehetne formázni NAGYBETŰS-re.Sub bevitel()
Dim xpos, ypos, Prompt, Title, Default, MyValue
Prompt = ""
Title = "ADATBEVITEL"
xpos = 5000
ypos = 5800
ActiveCell.Offset(0, 1).Select
Default = ""
Prompt = "Pesticid felhasználhatósága" + (Chr(13)) + (Chr(13)) + "H - RR - F - I - A - R - L - N - O"
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
ActiveCell = MyValue
End SubMi a legegyszerűbb megoldás arra, hogy az E oszlop celláiba csak ezeket a betűket lehessen megadni H, RR, F, I, A, R, L, N, O ?
Segítséget kérek.
köszi
-
Fferi50
őstag
válasz Karol0109 #38206 üzenetére
Szia!
A második munkalapon csinálsz egy segédoszlopot, legyen ez mondjuk az E oszlop.
A második cella képlete: = A2&B2, ezt húzod le az oszlopon.Az első munkalapon egy segédoszlopban lehet megadni, hogy teljesült-e a feltétel:
A második cella képlete:=$N2>=INDEX(Munka2!$D$1:$D$29;HOL.VAN(Munka1!A2&Munka1!G2;Munka2!$E$1:$E$29;0);0)
Az oszlopokat a betett képek alapján számítottam ki, természetesen igazítsd a te adataidhoz.
Ezután erre az oszlopra teheted rá az igaz szűrőt.Üdv.
-
Fferi50
őstag
válasz csferke #38209 üzenetére
Szia!
Egyrészt miért kellene ehhez külön form,
Másrészt természetesen makróban is megoldható a bevitel vizsgálata:
Beírás előtt megnézed, hogy az érték megfelelő-e. Ha nem, akkor ismét bevitel szükséges.
Viszont ehhez ciklusba kell tenni a bevitelt:Do While True
Prompt = "Pesticid felhasználhatósága" + (Chr(13)) + (Chr(13)) + "H - RR - F - I - A - R - L - N - O"
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
Select Case myValue
Case "H", "RR", "F", "I", "A", "R", "L", "N", "O"
ActiveCell.Value = myValue
Exit Do
Case Else
MsgBox "nem ok"
End Select
LoopÜdv.
-
Mutt
aktív tag
válasz csferke #38209 üzenetére
Szia,
Megelőztek...
Egy DO-LOOP ciklusban addig pörgünk amíg jó a bevitt érték vagy mégsem-et nem nyomnak.
A nagybetűsítésnél pedig engedékenyek vagyunk; ha vmiért jó karaktert kisbetűvel írták akkor is elfogadjuk de már nagybetűvel mentjük el.Sub bevitel()
Dim xpos, ypos, Prompt, Title, Default, MyValue
Dim correct As Boolean
Prompt = ""
Title = "ADATBEVITEL"
xpos = 5000
ypos = 5800
ActiveCell.Offset(0, 1).Select
Default = ""
Prompt = "Pesticid felhasználhatósága" + (Chr(13)) + (Chr(13)) + "H - RR - F - I - A - R - L - N - O"
Do
MyValue = Application.InputBox(Prompt, Title, Default, xpos, ypos, Type:=2)
Select Case UCase(MyValue)
Case "H", "RR", "F", "I", "A", "R", "L", "N", "O"
correct = True
ActiveCell = UCase(MyValue)
Case Else
correct = False
End Select
Loop Until correct Or MyValue = False
End SubFferivel egyetértve a legegyszerűbb megoldás a data validation (érvényesítés), mert ahhoz nem kell makrót írni.
üdv
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz Karol0109 #38206 üzenetére
Szia,
SZUMHATÖBB függvény is megoldás.
Pszeudo képlettel (helyettesítsd be az oszlopokat):
=1. lap!TárgyDB >= SZUMHATÖBB(2. lap!TárgyDB;2. lap!Szervezet kód;1. lap!Szervezet kód;2. lap!Aktív félév;1. lap!Aktív félév)
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Karol0109
csendes újonc
válasz Fferi50 #38211 üzenetére
Köszönöm szépen a segítséget!
Ez tökéletes megoldás a kérésemre, viszont sajnos még így is túl sok lépésből áll a feladat megoldása.
Ez azért problémás, mert félévente fogják kérni tőlem ezt az adatot.Arra gondoltam, hogy támaszkodhatnék a félév sorszám adatra, mert ahol nincs passzív félév, ott ez jó támpont (passzív félévek száma mező is bekerült a táblázatba, ahol nem 0, azt majd külön kezelem).
Ebben az esetben a következőhöz szeretnék segítséget kérni :
- az excelben van két munkalap:
1. munkalapon szerepel, hogy adott szervezeti egységhez tartozó személy hányadik féléven melyik tárgyat teljesítette
2. munkalapon szerepel, hogy ideális esetben melyik szervezeti egységhez tartozó személynek melyik tárgyat hányadik féléven kell teljesítenie
- az 1. munkalapot kellene leszűkíteni azokra a sorokra, amelyik egybeesik a 2. munkalapon szereplő ideális esettelErre esetleg van valami ötlet?
Ha tud segíteni képlettel, akkor természetesen behelyettesítem ezt a sok variációt, csak egy indulóalapot szeretnék kérni.
Előre is köszönöm a segítséget!
[ Szerkesztve ]
-
Fferi50
őstag
válasz Karol0109 #38215 üzenetére
Szia!
Szerintem Mutt megoldása az egyszerűbb és egyáltalán nem munkás.
Ha nem sikerült behelyettesíteni, tegyél fel egy kamu nevekből álló munkafüzetet mintaként valahova, ahol el tudjuk érni. Elég 8-10 sor is az 1. munkalapon.
Behelyettesítjük neked pontosan.Üdv.
[ Szerkesztve ]
-
dellfanboy
senior tag
tudtok olyan oldalt ahol le tudnek tolteni 1-2template-et? ossze kellene raknom egy mini dashboard-ot es ahoz kellene minel csili-vilibb grafikon chart akarmi stb. nagyreszt penzugyi dolgok szoval semmi extra
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
lappy
őstag
válasz dellfanboy #38217 üzenetére
a gugli segít ebben (csak pár szót kell beírni)
Bámulatos hol tart már a tudomány!
-
bexinho23
őstag
válasz Delila_1 #38150 üzenetére
Közben teszteltem, de azt a megoldást kaptam, amit vártam.
Az alábbi képletet írtam be a hivatkozás tábla hivatkozási cella mezőjébe, ami működik is kattintásra. Azonban, ha bővül a táblázatat +sorral, akkor ugyanúgy a korábban utolsó cellának azonosított cellára lép. Belelépve a hivatkozásszerkesztőbe látni, hogy a képletes mezőben a korábban azonosított cella száma van írva. Tehát ez a kattintásos megoldás 1 alkalommal használható jelenlegi ismeretem szerint.
=INDEX(D;MAX((D<>"")*(SOR(D))))
Rosszul csinálok valamit, vagy ez csak fix táblázatra használható?
-
Fferi50
őstag
válasz Karol0109 #38219 üzenetére
Szia!
A képlet az utolsó oszlop utáni oszlop második cellájába
=L2<= SZUMHATÖBB(Munka2!$D$1:$D$106;Munka2!$A$1:$A$106;Munka1!A2;Munka2!$B$1:$B$106;Munka1!I2)
A $106 helyére a Munka2 tényleges sorainak számát írd légy szíves.
Végighúzod az oszlopon.
Ezután szűrhetsz az oszlop IGAZ értékeire.Üdv.
-
swoody
senior tag
Sziasztok!
Az megoldható, hogyha van egy táblázat és aminem, ahogy töltöm fel a sorokat egymás után, úgy csinál minden különböző sorhoz egy új munkafüztet és a megfelelő helyre írja az adatokat?
És ha igen, hogya?
Köszi, ha esetleg tudtok segíteni.
-
csferke
senior tag
Sziasztok!
Fferivel egyetértve a legegyszerűbb megoldás a data validation (érvényesítés), mert ahhoz nem kell makrót írni.
Igazatok van. Ezt alkalmaztam.Köszi mindkettőtöknek
-
AMDPista
tag
Sziasztok,
adott egy táblázat:
Szeretnék egy olyat, amiben összegzi az azonos induló és befejező ország darabszámait, hetekre lebontva.
köszi a segítséget
-
Delila_1
Topikgazda
válasz AMDPista #38229 üzenetére
Erre gondolsz?
Az E oszlopban összefűzöd a kezdő és a befejező ország nevét. Ennek az oszlopnak a tagjai szerepelnek a képen a H1:K1 tartományban. A H2 cella képletét másolhatod le-, és jobbra.
Megváltoztattam az adatokat, hogy látsszon a különbség a két héten.
Még egyszerűbb, ha a meglévő adatokból kimutatást készítesz. Ehhez is kell az E oszlop összefűzése.
A kimutatásban a sorcímkékhez behúzod a hét címkét, az oszlopcímkékhez és az értékekhez egyaránt az összefűz címkéket add meg.[ 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.
-
Delila_1
Topikgazda
válasz Fferi50 #38232 üzenetére
Gondoltam én is erre, de akkor azt is tudni kellene, hány féle adat (induló + befejező) van hetente. Biztos össze lehet hozni, csak szerintem nem éri meg a fáradtságot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Karol0109
csendes újonc
válasz Fferi50 #38221 üzenetére
Szia!
Köszönöm , ez szuper, viszont egy dologra nem gondoltam.
Figyelembe kell venni az aktív félév oszlop értékét is, tekintve, hogy így, annak a személynek is elvárja a 4. féléven teljesítendő tárgyakat, akinek még csak 2 aktív féléve volt.Arra van lehetőség, hogy az Aktív félévek oszlop értéke szerint csak azokat a tárgyakat vizsgálja, ahol a Félév oszlop értéke =<, mint Aktív félév száma?
Köszönöm szépen!
-
swoody
senior tag
-
Fferi50
őstag
válasz swoody #38236 üzenetére
Szia!
Akkor fussunk neki mégegyszer.
"automatikusan csináljon egy új munkafüztet"
Szerintem új munkalap lesz az.
És igen, meg lehet csinálni. Kell hozzá egy makró, amit egy gombhoz (vagy billentyű kombinációhoz) rendelsz hozzá. Azért javaslom a hozzárendelést, mert azt, hogy mikor fejeztél be egy sort, azt nem lehet eseménykezeléssel követni.Tegyél fel egy minta fájlt elérhető módon, legyen benne, hogy mit szeretnél hova másoltatni az új munkalapra. Aztán meglátjuk, tudunk-e kihozni belőle valamit, vagy még kérdezünk.
Üdv.
-
dellfanboy
senior tag
tudnatok segiteni hogy tudok kulonbozo sorokat csoportba foglalni tobb szintre?
jelenleg csak 2 szintet latok, ezt szeretnem 3-ra kiboviteni. bal oldalt oszlopok tetejen 1-2
pl. igy neznek ki a sorok:
honap
het
nap
azt szeretnem elerni hogy a napok,hetek honapok 1-1 csoportot(szintet reprezentaljanak), igy hogyha vki az1-re kattint akkor kibontja a honapokat,2 hetek 3 napok.
jelenleg a napok vannak csoportba foglalva ez a 2-es szint, viszont ha a heteket is csoporta foglalom, akkor ok is a 2-hoz tartoznak.eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Karol0109
csendes újonc
válasz Fferi50 #38241 üzenetére
Köszönöm szépen.
Jól értelmezem, hogy a képlettel egy új oszlopba kitette az "ideális" félév sorszámot?Össze tudjuk hasonlítani a két számot személy szinten, úgy hogy valós félév sorszám kisebb egyenlő, mint ideális félév sorszám? Tehát kiszűrni azokat az embereket, akik nem időben vagy előtte teljesítették a tárgyat?
Nem találtam olyan képletet, hogy két oszlop értékének összehasonlítása egy harmadik oszlop értékének figyelembevételével.
Köszönöm.
-
dellfanboy
senior tag
válasz dellfanboy #38243 üzenetére
meglett
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Karol0109
csendes újonc
válasz Karol0109 #38244 üzenetére
Megoldottam még plusz képletekkel a feladatot a következők szerint:
1. a képleteddel kiírtam az ideális félév sorszámát
2. új "időben teljesítve" oszlopba kiírattam, HA függvénnyel, hogy félév sorszám<= ideális félév sorszám, akkor IGAZ
3. új "tárgy db" oszlopba kiírtam DARABTELI függvénnyel, hogy egy személyhez hány tárgy tartozik
4. új "időben teljesített tárgy db" oszlopba kiírtam DARABHATÖBB függvénnyel, hogy egy személyhez, hány IGAZ érték van megadva
5. új "azonos" oszlopba AZONOS függvénnyel kiírattam, hogy "Tárgy db" és "Időben teljesítve tárgy db" azonos-e
6. IGAZ sorokra szűrve megkaptam, az időben tárgyat teljesített személyeketEzt tudjuk valahogy egyszerűsíteni?
Köszönöm szépen a segítséget.
-
csferke
senior tag
Sziasztok!
Egy kicsit "regény" formátumban fogalmaztam meg a kérdésemet. Remélem, hogy értelmezhető.Sub ÚjTétel()
Sheets("Eladás").Select
Range("G9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Default = ""
Prompt = "A kiadott árú kódja"
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
'*******************************
' a kódot a Sheets("Áru") "A" oszlopában kell kell keresni a MyValue alapján
' IF kódot nem találta
' msgbox "Ezzel a kóddal "&MyValue&" nem találtam árút"
' exitsub
' endif
'*******************************
ActiveCell = MyValue
End SubA csillagozott sorok közötti részre kellene megoldás a segítségetekkel.
Köszi, üdv
[ Szerkesztve ]
Új hozzászólás Aktív témák
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- World of Warcraft Shadowlands Collectors edition EU EN
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest