- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Microsoft Excel topic
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- ArchiCAD és Artlantis topik
-
IT café
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
-
polar
tag
Sziasztok!
Azt szeretném megoldani Excelben, hogy X szám közül summázza össze az Y darab legnagyobbat. Vagy másképpen fogalmazva, X cella summájából maradjon ki az Y darab legkiseb érték.
Tudnátok segíteni?
Köszönöm!Bárcsak három madár lehetnék és felülről láthatnám, ahogy magam alatt repülök...
-
Fehér Mancs
tag
=SUMPRODUCT(LARGE(A1:A100;ROW(A1:A10)))
, ahol A1 -> A100 -ig az adatok vannak, a ROW(A1:A10) pedig azt mondja meg, hogy a hányadik legnagyobbakat szummázza. Jelen esetben ez 1-10-ig, vagyis a top 10 legnagyobb összegeződik. Annyi, hogy amennyiben a 10. legnagyobb érték többször is szerepel, akkor azt többször veszi bele.
-
polar
tag
válasz Fehér Mancs #5603 üzenetére
Köszi, de ez sajnos nem oldja meg teljesen a problémámat.
Sorokat kellene summáznom, ráadásul ott sem minden oszlopot. Vagyis:
C4, E4, G4, I4, K4 mezőkből kellene összesummáznom a 3 legnagyobb értéket.
De mégjobb lenne, ha azt meg lehetne csinálni(a későbbi, egyszerűbb bővíthetőség érdekében), hogy a C4, E4, G4, I4, K4(és a későbbiekben még jópár következő mező) 2 legkisebb értékű mezője kivételével summázzon.Köszi előre is!
Bárcsak három madár lehetnék és felülről láthatnám, ahogy magam alatt repülök...
-
polar
tag
válasz Delila_1 #5605 üzenetére
Ez remek, köszi szépen.
Akkor be is dobnám a következő kérdésemet
Az előző struktúráról van szó ismét. Van egy summa oszlopom, ahol minden érték szerepel és van egy, ahol csak a legjobb X. Szeretnék diagramot készíteni mindegyik oszlopból, de azt akarom, hogy mindegyik diagram csökkenő sorrendben jelenítse meg az értékeket. Ezt nekem csak úgy sikerült kiviteleznem, hogy a táblázatban szereplő adatok szerint teszi be a diagram oszlopait. Vagyis egyszerre csak az egyik jelent meg csökkenő sorrendben.
Van erre valami mód, hogy ne kelljen 2 sheeten tárolni ugyan azokat az adatokat, csak más sort-olással?Köszönöm!
Bárcsak három madár lehetnék és felülről láthatnám, ahogy magam alatt repülök...
-
félisten
Hali!
1. hozz létre egy digitális tanúsítványt
START/Microsoft Office/Microsoft Office eszközök/Digitális tanúsítvány VBA projektekhez
2. add hozzá a VBA project-hez
ALT+F11/Tools/Digital Signatures/Kiválasztás (a korábban létrehozottat kiválaszt) OK
3. Adatvédelmi központban (itt már jártál párszor)
Összes makró letiltása, a digitálisan aláírtak kivételével
4. makróbarát dokumentumként kell menteni természtesenEnnyi. Ez természetesen csak egyszerűbb védelem, ha neten megosztott, bizalmas adatokat tartalmazó, stb, stb dokumentumokhoz, megfelelő jogkörrel bíró cégnél kell/lehet igényelni, digitális azonosítót. Arra viszont jó, hogy csak azok nyíljanak meg és futtassanak automatikusan makrót, amely dokumentumnak ismered a készítőjét például.
Fire.
[ 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)
-
polar
tag
válasz Delila_1 #5613 üzenetére
Mellékelnék némi képanyagot, mert nem teljesen érthető szerintem amit leírtam
1.jpg: Ezen van az X legjobb érték summája
2.jpg: ezen az összes érték (nem egy summa oszlopból származik, hanem az összes, értéket tartalmazó oszlop külön van felvéve, hogy külön látszódjanak)
3.jpg: Itt látható az 1.jpg-n látható diagram adatforrása. Mivel itt csak egy értéket raktam be(vagyis csak a summa oszlopot), ezért nem tudok módosítani az adatsoron.Egyébként a 2.jpg-n látható diagramon megy az adatsor módosítása, de itt is csak az értékek sorrendjét változtatja egy oszlopon belül. Nekem pedig az kellene, hogy az oszlopok sorrendje legyen csökkenő.
[ Szerkesztve ]
Bárcsak három madár lehetnék és felülről láthatnám, ahogy magam alatt repülök...
-
Delila_1
Topikgazda
Ja, az más!
Adj sorszámot a szumma oszlopod elemeihez. A diagram előállításához rendezd a szumma oszlopodat csökkenő sorrendbe, a sorszámot tartalmazó oszlop segítségével bármikor vissza tudod állítani az eredeti sorrendet. Nem kell külön lapon duplikálni az adatokat.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
polar
tag
válasz Delila_1 #5615 üzenetére
Igen, ez a megoldás nekem is megvan, csak azt akartam elérni, hogy mind a 2 diagram megfelelő sorrendbe legyen, az adatok sorrendjének módosítása nélkül. De akkor ezt Te szerinted sem lehet megcsinálni
Azért köszi szépen a segítséget!
Bárcsak három madár lehetnék és felülről láthatnám, ahogy magam alatt repülök...
-
mikoljan
tag
Sziasztok,
A segítségeteket kérném szépen az alábbiakban.
Négy excel adatbázisom van több ezer sorral. Bizonyos sorok sárga színnel vannak kihúzva. Ezeket a sorokat szeretném valamilyen formában megjelölni.
Utána olvastam, hogy ezt csak makróval lehet megoldani. Például amit Delila_1 írt első makró nekem tökéletes lenne, csak ki kellene terjeszteni az egész munkafüzet egy részére, mondjuk A1:A30000-ig és, ha a feltétel "igaz", akkor a 40. oszlopban jelenjen meg valamilyen eredmény soronként. (színes, színtelen).Nagyon megköszönöm a segítséget, ha valaki tud nekem ebben segíteni!
- - - We Enter Into The Future - - -
-
Delila_1
Topikgazda
válasz mikoljan #5617 üzenetére
Azt nem írtad, hogy a háttér, vagy a karakter sárga. Ha a karakter, akkor az Interior szót írd át Font-ra.
Sub Sárga()
For sor = 1 To 30000
If Cells(sor, 1).Interior.ColorIndex = 6 Then
Cells(sor, 40) = "Sárga"
Else
Cells(sor, 40) = "Színtelen"
End If
Next
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.
-
sunone
aktív tag
Tiszteletem,
Kimutatást lehet készíteni külső excel fájlok adataiból, vagy be kell másolnom őket egy közös excelbe? (2007)
Köszönöm! -
jobbi
csendes tag
sziasztok!
tudna abban vki segíteni nekem, h hogyan tudok Excel 2003-ban egy checkbox elemre tooltip-et rakni?
Köszi
-
félisten
Hali!
Egy checkbox, meg egy tooltip: [Screen]
Szükséges kód a képen: [VBA Macro]DrawingObjects("VALAMI"): itt adod meg az objektum nevét
dozites = Now + TimeSerial(0, 0, 5): itt pedig, hogy hány másodpercig legyen látható(jelen esetben 5 másodperc múlva fog eltűnni a tooltip)Fire.
[ 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
Hali!
Bocs, csak nagyon rossz valamiért a netem, a forráskódot már nem tudtam beilleszteni...
Munkafüzet1
Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = False Then
ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = True
Call Timer_ON
End If
End SubModule1
Public Idozites As Double
Sub Timer_ON()
Idozites = Now + TimeSerial(0, 0, 5)
Application.OnTime Idozites, "Tooltip_OFF", , True
End Sub
Sub Tooltip_OFF()
ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = False
End SubFire.
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)
-
bzsolt99
tag
Sziasztok!Azt hogyan lehet megoldani hogy ugye adott két munkalap és azt szeretném megoldani ,hogy ha az egyik munkalapban az értéket megváltoztatom akkor a másik munkalapon is megváltozzon erre van egy olyan megoldás,hogy csoportos kijelölés de van más megoldás is?
[ Szerkesztve ]
-
mizu_
tag
Sziasztok!
Hogy tudnám makróval megoldani, hogy a megnyitott xls adatok munkalapjára bemásolódjon egy a hálózaton található xls kimutatás munkalapja. (Mehet egy az egyben az egész munkalap)
Előre is köszi a segítséget!
-
Zolee11
senior tag
Sziasztok.
Hogyan tudok egy ilyen általános formátumú karakterláncot: 55- Számmá alakítani, de úgy, hogy ez a mínuszjel a végén azt jelenti, hogy mínusz 55. Odáig eljutottam, hogy a mínusz jelet leveszem és pénznemmé formázom tehát 55,00 lesz, csak nekem -55,00 kellene. Rengeteg számról van szó, így macerás lenne átírni az összeset, így viszont nem tudok velük dolgozni. Valahol csak van erre megoldás, ha már a számot szöveggé meg mindenné lehet alakítani, akkor nehogy már mínusszá ne lehessen. Természetesen képletet nem akarok ráhúzni (legalábbis ne képlet legyen a cellában, ha nem muszáj), és új cellákat se akarok létrehozni, hanem ezekben a cellákban lecserélni, mínusz számmá, amit fel is ismer és képetekben használhatom a számot ill. pénznemet.
Előre is köszönöm.no brain, no problem
-
félisten
válasz Zolee11 #5634 üzenetére
Hali!
A példa kedvéért az A oszlopban vannak az adatok A1-től kezdődően, akkor B1 cellába másold be az alábbi kódot, majd másold le a szükséges tartományba.
Ez a módszer automatikusan számformátummá konvertálja az értékeket, függetlenül, hogy az előtte szám avagy szöveg formátumú volt-e.=HA(JOBB(A1;1)="-";("-"&BAL(A1;HOSSZ(A1)-1))*1;A1*1)
Természetesen ez csak akkor működik hibamentesen, ha a negatív értékek "negatív jelre" végződnek ill. csak 1 darab negatív jel található a cellában.
Fire.
[ 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 Zolee11 #5634 üzenetére
Hali!
"Természetesen képletet nem akarok ráhúzni (legalábbis ne képlet legyen a cellában, ha nem muszáj), és új cellákat se akarok létrehozni, hanem ezekben a cellákban lecserélni, mínusz számmá, amit fel is ismer és képetekben használhatom a számot ill. pénznemet."
Ha gondot okoz, akkor leírom ezt is, szóval az előző HSZ-omnál maradva, csináld végig, majd ezután tedd ezt:
1. B oszlop kijelöl(katt a B oszlopazonosítón), jobb egér, Másolás
2. A oszlop kijelöl, jobb egér, Irányított beillesztés, ÉRTÉKET bejelöl, OK
3. Újra jobb katt az A oszlopon, Cellaformázás, Pénznem, OK
4. B oszlop kijelöl, jobb egér, TörlésFire.
[ 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)
-
Zolee11
senior tag
-
Jumbo
tag
Sziasztok!
Az lenne a kérdésem, hogy a formátum másolásnak mi a billentyűkombinációa, és ha véletlen nincs, hogy tudok megadni egyet?
Előre is köszi!
Jumbo
-
Delila_1
Topikgazda
Egy kis makrót kell hozzá rögzítened.
1. Állj a cellára, aminek a formátumát akarod másolni.
2. Ctrl+c (másolás)
3. Állj a cellára, ahova másolni akarod a formátumot.
4. Makrórögzítés indítása. Itt megadod a nevet és a billentyűparancsot a Ctrl+ mellé, a helyéhez az "Egyéni makró-munkafüzetben" nevűt választod, hogy minden füzetben érvényes legyen, OK.
5. Az aktuális cellán jobb klikk, Irányított beillesztés, Formátumot.
6. Makrórögzítés vége.Egyébként van ehhez egy ecset formájú ikon, alapban kint van az eszköztáron, csak ahhoz nincs bill.kombináció.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Jumbo
tag
-
félisten
Hali!
Mivel makró után érdeklődsz ezért feltételezem, hogy azt nem kell elmagyarázni Neked, hogy hogy kell bevinni egy makró kódot.
Amint látod, az alábbi makró egy CommandButton-hoz tartozik.Private Sub CommandButton1_Click()
'A hálózati Excel fájl útvonala és neve
Dim MyNetworkExcelFilename As String
MyNetworkExcelFilename = "d:\_developer\_PH\Fire\mizu_\halozati_fajl\leltar.xls "
'MyNetworkExcelFilename = "http://www.firelapja.hu//leltar.xls"
'Ennek az Excel fájlnak a neve, ami futtatja a makrót
Dim MyCurrentExcelFilename
MyCurrentExcelFilename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(1, ThisWorkbook.Name, ".", vbTextCompare) + 1)
'Forrás munkafüzet
Dim MySourceWorkbook As Workbook
'Forrás munkalap neve, amiből másolunk. Ezen a munkalapon vannak a kimutatás adatai
Dim MySourceSheet As String
MySourceSheet = "Munka1"
'Cél munkalap neve, amibe másolunk. Automatikusan létrehozza a makró ezt a munkalapot
Dim MyDestinationSheet As String
MyDestinationSheet = "Adatok"
'Megnyitjuk az állományt
Set MySourceWorkbook = Workbooks.Open(Filename:=MyNetworkExcelFilename)
'Átmásoljuk a kívánt munkalap tartalmát, a másikba, mégpedig úgy,
'hogy egy új munkalapot hozunk létre a munkafüzet végén
Sheets(MySourceSheet).Copy after:=Workbooks(MyCurrentExcelFilename).Sheets(Workbooks(MyCurrentExcelFilename).Sheets.Count)
'Bezárjuk a hálózatról megnyitott Excel fájl, méghozzá úgy, hogy nem jelenik meg
'semmilyen kérdés bezáráskor(például a módosítások mentése)
MySourceWorkbook.Close False
'Az előbbiekben létrehozott munkalapot átnevezzük a kívánt névre, amit korábban megadtunk(itt most "Adatok"ra)
ActiveSheet.Name = MyDestinationSheet
End SubA példában nem internetről nyitottam meg fájlt, de természetesen ott van a forrásban is az elérés formátuma("http://www.firelapja.hu//leltar.xls") és természetesen működik is. (Persze ez nem létező oldal)
Ha valami nem lenne tiszta, akkor írj.
Fire.
[ 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)
-
Vasinger!
nagyúr
Van egy nagyon idegesítő hibám. Ha beírok egy tizedes számot az excelbe, akkor nap. hónap évben írja ki, és hiába állítom át a formátumot, nem jó. Hogyan lehet azt megcsinálni, hogy 3.052-t mindig úgy hagyja, ahogy én beírtam és ne konvertálja át?
-
Delila_1
Topikgazda
Szívesen.
Makró törlése:
Eszközök/Makró/Visual Basic Editor, vagy ehelyett Alt+F11. Bal oldalon megtalálod a füzeted nevét, alatta (a + jel kinyitása után) a lapokat, alattuk a Module1-et.
Arra kattintva jobb oldalon megjelenik a Sub-bal kezdődő makró.
Ha az egyéni makró-munkafüzetbe rögzítetted, akkor a Personal.xls alatt keresd.
A Module1-en jobb klikk, Remove Module1. Rákérdez, hogy akarod-e máshova menteni, nemet válaszolj.[ 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.
-
doxa
tag
fennakadok egy ilyenen:
kaptam egy excel táblát ami minden félét kiszámolna nekem (nem vagyok otthon sajna otthon benne...), de amikor megnyitom ez fogad:megnyitja és ez fogad:
biztos láma kérdés, de mivel van a baj?
segítséget előre is köszönömszerk: win7-en (home premium) office 2007: ezem van (ha számít)
[ Szerkesztve ]
-
Delila_1
Topikgazda
Telepítened kell a CD-ről a VBA-t (Visual Basic for Application).
Ezen a programnyelven írt valaki a fájlhoz makró(ka)t, programo(ka)-t. Az Excel csak a telepítés után tudja értelmezni, futtatni.[ 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.
Új hozzászólás Aktív témák
- Milyen TV-t vegyek?
- Gördeszka topic
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Xbox Series X|S
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- További aktív témák...
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig