- Alternatív kriptopénzek, altcoinok bányászata
- Újabb államok perelik az Apple-t, mert sok pénzt szed ki a vevőkből
- Windows 11
- SUSE Linux
- Meggyőző arcjátékkal reagál a kínai humanoid robot
- Milyen routert?
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Otthoni hálózat és internet megosztás
- Max
- Béta iOS-t használók topikja
-
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
-
Mutt
aktív tag
válasz RockHaRD #50581 üzenetére
Szia,
A másik problémám, hogy elég sok a /A /B házszám, és hiába állítottam a cellákat számokra, amikor növekvő sorrendbe szeretném tenni, akkor a / jeles nélküleket sorrendbe teszi, majd lá külön az összes olyat, amiben van / jel.
Erre is a Power Query-t tudom ajánlani.
Lépések
1. Eredeti lista betöltése PQ-be
2. Az oszlop duplikálása.
3. A duplikált oszlop számokra és betükre szedése
4. Számokat tartalmazó oszlop típusát egész számra állítani.
5. A / jelek tőrlése a másik oszlopban hogy egységes legyen.
6. Sorba rendezés előbb a számokat taralmazó, majd pedig az esetleges betüket tartalmazó oszlopok alapján.
7. Segédoszlopok tőrlése.
8. Eredmény visszatöltése Excelbe.üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Dufresne
addikt
Sziasztok (Excel 2013 magyar)
Anyagmozgás követéséhez csinálok egy FIFO-s táblázatot [link] a leírás szerint.Egy kivételével minden működik, viszont annál az egynél anomáliába ütköztem.
A problémám, hogy a cellában más érték jelenik meg, mint amit akkor látok, amikor az Fx függvényargumentumok gombra kattintok. Utóbbiban a jó érték szerepel, de a cellában mindig 0-át kapok vissza eredményül.
Itt van 2 két a számomra furcsaságról: [link] [link]Köszi előre is, aki foglalkozik a problémámmal.
-
Hegyirabló
veterán
Sziasztok!
Magyar 2021 Excel, egy oldalt kellene kinyomtatnom, több példányban, de minden oldalt egyedi, de egymást követően növekvő oldalszámmal kell ellátnom. Hogyan tudom beállítani a nyomtatásnál, hogy minden nyomtatott példánynak adjon oldalszámot?
Köszönöm!
Aquila non captat muscas.
-
sztanozs
veterán
válasz Hegyirabló #50605 üzenetére
Ezt talaltam neked:
https://answers.microsoft.com/en-us/msoffice/forum/all/add-sequential-to-each-copy-of-excel-page-printed/145b5a6a-5112-4f75-af69-141632f45f70JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
andreas49
senior tag
-
Silious
tag
Sziasztok!
Korábban már volt próbálkozásom, de sajnos nem jártam sikerrel.
Olyan megoldást szeretnék megvalósítani excel-ben, mintha egy katalógust készítenék el, de ami fontos lenne, hogy az excel a képeket automatikusan kellene, hogy beillessze egy adott cellába.
(több száz különböző kép lenne)
A mellékelek egy példa táblázatot, kép alapján annyi lenne a lényeg, hogy a Cikkszám mezőbe szereplő A2 cellában a "Termek001" a gépemen szereplő kép címe is azonos, azaz termek001.jpg.
Azt szeretném valahogy megoldani, hogy ha a termek001 mező kerül az A2-es cellába, akkor a C2-be automatikusan töltse be a saját gépemen lévő mappából, a példa szerinti termek001.jpg fájt, mondjuk fix méretben isTudom, kicsit összetett a dolog, néztem külföldi fórumokat is, de sehogy se tudok rájönni, hogyan lehetne megoldani, vagy esetlegesen más program kellene ehhez?
-
Mutt
aktív tag
válasz RockHaRD #50612 üzenetére
Szia,
Power Query fog akkor neked segíteni.
Youtube-on magyarul ezt a videosorozatot találtam, ami tud neked az első lépésekben segíteni. (Az első videóban pont a legbonyolultabb dolgot mutatják be, de érdemes kezdőként végignézni hogy lásd mi is ez.)PQ egy olyan "makrózási" lehetőség, ahol
- nem kell kódot írnod, többnyire csak kattintanod kell a megfelelő művelethez és közben
- adatokat tudsz átalakítani megtartva az eredeti adatsort/formátumot is.Előnye, hogy ha frissül az adatsorod akkor elég a lépéseket lefuttatni és megkapod az eredményt.
Nézd meg a videokat, ha gond van kérdezz nyugodtan. Ha van publikus mintád, akkor oszd meg és berakjuk a fájlba a lépéseket. Ha nem publikus és nem megy akkor keress privátban.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz Silious #50610 üzenetére
A makrót a lapodhoz rendeld a Téma összefoglaló szerint.
Mikor beírsz az A oszlopba egy nevet, a megadott utvonal mappából betölti a kep nevű képet a C oszlop azonos sorába.
A makró megjegyzései sorában módosíthatsz az útvonalon, kiterjesztésen, és a képek méretein.Private Sub Worksheet_Change(ByVal Target As Range)
Dim utvonal As String, kep As String
If Target.Column = 1 Then
utvonal = "D:\Jpg\" ' itt add meg a saját útvonaladat
kep = utvonal & Target.Value & ".jpg" 'ha nem jpg a kiterjesztés, írd át
Range(Target.Address).Offset(0, 2).Select
On Error Resume Next
ActiveSheet.Pictures.Insert(kep).Select
Selection.Left = Target.Value.Offset(0, 2).Left + 5
Selection.Top = Target.Value.Offset(0, 2).Top + 5
Selection.Width = 40 'a kép szélessége
Selection.Height = 30 'a kép magassága
Range(Target.Address).Select
On Error GoTo 0
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.
-
eszgé100
őstag
Sziasztok!
az alabbi koddal szinezem ki a TRUE es FALSE szavakatFor i = 1 To Len(summary.Range("E25"))
If LCase(Mid(summary.Range("E25"), i, Len("False"))) = LCase("False") Then
summary.Range("E25").Characters(i, Len("False")).Font.ColorIndex = 3
End If
Next i
For i = 1 To Len(summary.Range("E25"))
If LCase(Mid(summary.Range("E25"), i, Len("True"))) = LCase("True") Then
summary.Range("E25").Characters(i, Len("True")).Font.ColorIndex = 4
End If
Next iMukodik is szepen, egeszen addig mig meg nem probalok valami mast is beleirni a cellaba, ugyanis ekkor a szinezett betuk "eltolodnak" lasd az alabbi kepeken:
ezt hogyan tundam orvosolni?
"-Meddig tart a játék? -Amíg mindenkinek ki nem verik a fogát..."
-
Delila_1
Topikgazda
válasz eszgé100 #50615 üzenetére
Az E oszlopodra:
Sub Zold_Piros()
Dim sor As Long, usor As Long, kezd As Integer, hossz As Integer
usor = Range("E" & Rows.Count).End(xlUp).Row
For sor = 1 To usor
If Right(Cells(sor, "E"), 4) = "true" Then
hossz = 4
kezd = InStr(Cells(sor, "E"), "true")
Cells(sor, "E").Characters(Start:=kezd, Length:=hossz).Font.ColorIndex = 4
Else
hossz = 5
kezd = InStr(Cells(sor, "E"), "false")
Cells(sor, "E").Characters(Start:=kezd, Length:=hossz).Font.ColorIndex = 3
End If
Next
End SubLusta voltam a nagybetűre váltást bele venni, majd kiigazítod.
[ 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.
-
TillaT
junior tag
válasz zoombiee #50595 üzenetére
Szia!
- Köszönöm a javaslatot. Ezzel már próbálkoztam. Reméltem, hogy az OptionButton és CheckBox elemekhez is lehet saját zoom tulajdonságot rendelni, amivel az űrlap zoom tulajdonságától függetlenül egyénileg is állít(gat)hatók, de sajnos makróban is csak olyan lehetőségeket ismerek, amik nekem nem hozzák, amit szeretnék.
- Igen, a láthatóság lenne a lényeg.
Ezeknek a vezérlőknek a Caption tulajdonságát korrekten lehet változtatni és testre szabni, de a grafikájukat nem. Legalábbis az én ismereteim korlátozottak ezen a téren (is). Trükköznöm kell így egy kicsit velük.[ Szerkesztve ]
-
LilProphet90
senior tag
Sziasztok! Egyik kolléganőnél probléma, hogy CSV-formátumban exportálna az Excelből, és mindig vesszővel választja el a sorokat.
A területi beállításokban az elválasztó a pontosvessző, az Excel-beállításokban kipróbáltam, hogy az elválasztóknál a pontot és a vesszőt állítottam be ezreselválasztó és tizedesjel-elválasztónál, de semmi. Sajnos átírni sem megoldás manuálisan, mert az SAP úgy nem eszi meg.
Van bárkinek ötlete? Köszönöm!
Zenei alapok, remixek: http://www.reverbnation.com/lilprophetmusic
-
Silious
tag
válasz Delila_1 #50622 üzenetére
Esetleges abban még tudnál segíteni, hogy amit adtál kód, van lehetőség úgymond újra lefuttatni?
Egy olyan probléma merült fel, hogy maga az A2 cella, amiben a kép címe van, egy hivatkozás egy másik munkafüzetből, és ha a másik munka fűzetett frissítem, megnyitom ezt az excel amiben a kód is van, akkor sajnos nem frissíti a képeket amiben a hivatkozások szerepelnek, csak akkor ha minden egyes cellán újra entert ütök... -
spe88
senior tag
Nem Excel, de hátha. Google Sheetben is lehet olyat csinálni, hogy egy tábla egy másik táblából vesz adatokat? External link végül is. Excelben megy, de egy felhőben lévő másik táblából a Google Sheet ezt tudja valahogy? Köszi
Spóroljunk! Kerül, amibe kerül!
-
moklys1
aktív tag
válasz LilProphet90 #50624 üzenetére
Szia.
A területi beállításokban:
- tizedesjelnél legyen: ,
- listaelválasztónál: ;[ Szerkesztve ]
-
Mutt
aktív tag
válasz LilProphet90 #50624 üzenetére
Szia,
Próbáljátok ki a megoldásomat.
Ha megfelel, akkor lehet saját makrófüzetbe tenni vagy addin-t csinálni belőle és mindig elérhető lesz.Ahogy már írták a területi beállításoknál a listaelválasztó befolyásolja ezt.
További megoldások:
1. Tab delimeted-ben mentsetek és Notepad++ -ban Tab-ot cserélni pontosvesszőre. Lehet billentyűparancsot ehhez rendelni akár.
2. Excelben másik munkalapon a SZÖVEGÖSSZEFŰZÉS (TEXTJOIN)-al lehet a kivánt formátumot elérni. A kapott lapot lehet menteni szövegként (itt is talán Tab-os lesz a jobb) vagy az oszlopot kijelölve Notepad++ -ba másolni és ott menteni.üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz Silious #50625 üzenetére
Indítás előtt érdemes kitörölni az eddig bevitt képeket: Ctrl + g-re előjön az Ugrás menü, Irányított, Objektumok. Ez kijelöli az összes képet, Delete.
Modulba tedd az alábbi makrót, ami az összes, A oszlopban szereplő képnév mellé beteszi a képet a C oszlopba..Sub Kepbeszuras()
Dim utvonal As String, kep As String, sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
utvonal = "D:\Jpg\" ' itt add meg a saját útvonaladat
For sor = 1 To usor
kep = utvonal & Cells(sor, 1) & ".jpg"
Cells(sor, 3).Select
On Error Resume Next
ActiveSheet.Pictures.Insert(kep).Select
Selection.Left = Cells(sor, 3).Left + 5
Selection.Top = Cells(sor, 3).Top + 5
Selection.Width = 40 'a kép szélessége
Selection.Height = 30 'a kép magassága
On Error GoTo 0
Next
End Sub[ 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 Silious #50630 üzenetére
Szívesen.
Érdemes eltávolítanod a laphoz rendelt makrót, vagy minden sorát megjegyzésbe tenni (sorok elé aposztróf), hogy ha mégis szükség lenne rá, megmaradjon.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
andreas49
senior tag
Sziasztok,
Abban kérem a segítségeteket, hogy miként kell bővítenem egy meglévő macrómat, hogy a munkafüzet összes munkalapján futtassa a macrót. (minden munkalapon azonos az elrendezés). Segítséget előre is köszönöm.HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
sztanozs
veterán
válasz andreas49 #50632 üzenetére
Sub minden_munkalapra()
Dim ws As Worksheet
' Ide johet kozvetlen hivatkozas is ActiveWorkbook helyett
' pl Workbooks("akarmi.xls")
For Each ws In ActiveWorkbook.Worksheets
If ws.Type = xlWorksheet Then
' ide jon a kodod, csak az ActiveSheet vagy mas sheet hivatkozast ws-re kell cserelni
' ...
End If
Next
End Sub[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz andreas49 #50635 üzenetére
Próbáld meg így:
Sub AR_BAL_1_mod()
Dim ws As Integer
For ws = 1 To Worksheets.Count
Sheets(ws).Range("AM4:AQ155").FormulaLocal = "=Bal(E4;1)"
Sheets(ws).Range("AS4:AW155").FormulaLocal = "=Bal(N4;1)"
Sheets(ws).Range("AY4:BC155").FormulaLocal = "=Bal(W4;1)"
Sheets(ws).Range("BE4:BI155").FormulaLocal = "=Bal(AF4;1)"
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.
-
Delila_1
Topikgazda
válasz andreas49 #50637 üzenetére
Megírtam, hogy a sok BAL képlet helyére illessze be minden lapon az értékeket. Kisebb lesz a fájl mérete, és gyorsabbak a műveletek.
Sub AR_BAL_1_mod()
Dim ws As Integer
For ws = 1 To Worksheets.Count
Sheets(ws).Range("AM4:AQ155").FormulaLocal = "=Bal(E4;1)"
Sheets(ws).Range("AM4:AQ155").Copy
Sheets(ws).Range("AM4").PasteSpecial xlPasteValues
Sheets(ws).Range("AS4:AW155").FormulaLocal = "=Bal(N4;1)"
Sheets(ws).Range("AS4:AW155").Copy
Sheets(ws).Range("AS4").PasteSpecial xlPasteValues
Sheets(ws).Range("AY4:BC155").FormulaLocal = "=Bal(W4;1)"
Sheets(ws).Range("AY4:BC155").Copy
Sheets(ws).Range("AY4").PasteSpecial xlPasteValues
Sheets(ws).Range("BE4:BI155").FormulaLocal = "=Bal(AF4;1)"
Sheets(ws).Range("BE4:BI155").Copy
Sheets(ws).Range("BE4").PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub[ 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.
-
andreas49
senior tag
válasz Delila_1 #50638 üzenetére
Köszi a módosítást. A másolás után a beírt adatok "Szövegként tárolt szám" lett. Ezt manuálisan át tudom állítani számra. Annyit változtattam a kódon, hogy a visszamásolás a 'bal' függvényben lévő 'E4'.. helyre tegye az adatokat. +1* köszönetem.
HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
sztanozs
veterán
válasz andreas49 #50635 üzenetére
Illetve:
Sub AR_BAL_1_mod()
Dim ws As Worksheet
For Each ws In Workbooks("c:\temp\Munkafüzet15.xls").Worksheets
If ws.Type = xlWorksheet Then
ws.Range("AM4:AQ155").FormulaLocal = "=Bal(E4;1)"
ws.Range("AS4:AW155").FormulaLocal = "=Bal(N4;1)"
ws.Range("AY4:BC155").FormulaLocal = "=Bal(W4;1)"
ws.Range("BE4:BI155").FormulaLocal = "=Bal(AF4;1)"
End If
Next
End SubJOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
eszgé100
őstag
válasz Delila_1 #50616 üzenetére
Köszönöm neked is és lappynak is, de nem erre gondoltam, kicsit talán félreérthető volt a screenshotom.
Amit az első képen láttok az 1 db cella tartalma, ami egy vba által készített több soros (vbnewline) string.
lappy által is linkelt kód volt az kiinduló pont, magát a színezést meg tudtam oldani én is, kérdésem az volt, hogy amikor belekattintok a vba által kitöltött és kiszínezett cellába, hogy további kommenteket írjak, akkor az egész színezés eltolodik, az eredmény a második képen található, ezt szeretném kiküszöbölni"-Meddig tart a játék? -Amíg mindenkinek ki nem verik a fogát..."
-
Delila_1
Topikgazda
válasz eszgé100 #50643 üzenetére
Az újra színezés előtt vissza kell állítani egységes színűre a cella karaktereit.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Integer
If Target.Column = 5 Then
Application.EnableEvents = False
Cells(Target.Row, 5).Font.ColorIndex = 1
For b = 1 To Len(Cells(Target.Row, 5))
If Mid(Cells(Target.Row, 5), b, 4) = "True" Then Cells(Target.Row, 5).Characters(Start:=b, Length:=4).Font.ColorIndex = 4
If Mid(Cells(Target.Row, 5), b, 5) = "False" Then Cells(Target.Row, 5).Characters(Start:=b, Length:=5).Font.ColorIndex = 3
Next
Application.EnableEvents = True
End If
End Sub[ 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.
-
félisten
válasz Delila_1 #33531 üzenetére
Szia!
Kaptam tőled annó ennek az egyszerű havi költségvetésnek a módosított változatát, ami jelenleg így néz ki (a linked már nem él ): [kép] Jobbra és lefelé még van egy csomó oszlop és sor, csak azokat levágtam, gondoltam nincs jelentősége.
Tökéletesen működik a táblázat a mai napig. A bevételi oldal jó így, a kiadási oldalt szeretném bővíteni olyan oszlopokkal, hogy például aldi, xy étterem, tankolás stb. Az lenne a célom, hogy ha szeretném látni, hogy adott helyen mennyit költöttem abban a hónapban, akkor ne kelljen külön kiszámolgatni/összeadogatni a sorokból (a kiadásnál írom, hogy hol és mennyit költötem), hanem azonnal látnám, hogy ott mekkora összeget költöttem el. Nem tudom ez mennyire megvalósítható. Találtam másféle költségvetési táblázatokat (például) . Ez sem lenne rossz, maximum átírom a kiadásnál az adott hely nevét, azonban van benne a tervezett rész, amire nekem nincs szükségem. Ezt nem tudom hogy lehet belőle eltávolítani.
Köszönöm szépen!
-
lappy
őstag
Amugy applikáció nem jó pl.Money pro itt lehet megadni neki havi bevételt kiadást es meg saját kategóriát és ezeket ki tudod menteni excelbe
Sőt nem kell elofizetni sem bár biztos vannak korlátozások benne de anélkül is simán ellátja azt amit te szeretnél[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Delila_1
Topikgazda
Nem emlékszem a módosításra, évekkel ezelőtt volt. Most megnéztem a 33530-as hozzászólásodban belinkelt táblázatot.
A táblázat bővítésének a folyamatát már leírtam.
Az egyes tételek összegzésének két módja is van.
1. A táblázaton állva Táblázattervezés, Táblázatstílusok beállításai, Összegsor bejelölése. Ekkor a táblázat alján megjelenik egy összegző sor. Ha a Tétel oszlopot szűröd, az összegzés csak a látható, szűrt cellákra vonatkozik.
2. Felveszel egy képletet, pl. az E3 cellába:=RÉSZÖSSZEG(9;Kiadás[Összeg])
, ezután itt jelenik meg a szűrt, vagy szűretlen sorok összege.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Adam_Ke
friss újonc
Sziasztok!
A ChatGpt segítségét kértem egy excel függvényhez. Elég jól megoldotta a problémát ránézésre, de mégsem működik. Mivel eléggé kezdő vagyok excelben, szerintem valami triviális lehet a probléma. Tudnátok segíteni megtalálni?
A feladat a következő volt:
írj kérlek egy excel függvényt, ami kiszámolja az R6 cellában megadott dátum és a mai dátum közötti különbségeket és években és hónapokban adja visszaA válasz pedig:
=DATEDIF(R6,TODAY(),"y") & " év, " & DATEDIF(R6,TODAY(),"ym")-(DATEDIF(R6,TODAY(),"y")*12) & " hónap"
Mivel magyar excel, először próbáltam átírni magyarra, bár lehet, hogy teljesen feleslegesen.
=DÁTUMTÓLIG(R6;MA();"Y") & " év, " & DÁTUMTÓLIG(R6;MA();"YM")-(DÁTUMTÓLIG(R6;MA();"Y")*12) & " hónap"Hát ez sem működött.
Új hozzászólás Aktív témák
- Vírusirtó, Antivirus VPN kulcsok
- Canva Pro előfizetés - 1 éves
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig