- Vírusirtó topic
- Windows Insider Program
- HBO Max & OD topic
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen routert?
- Ausztrália lecsap a kriptós adócsalókra
- Windows 11
- Linux - haladóknak
- Több stúdiót is bezár költségcsökkentésként a Microsoft Xbox részlege
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
-
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
-
lappy
őstag
szintén ha fgv elég hozzá
a B2 cellába a
=HA(D2="igen";A2*(B1/100);A2)
kód megy
a C2-be meg A2-B2
persze a C2 így mindig fog vmi értéket mutatni, de ezt ki lehet küszöbölni egy másik ha fgv.el
illetve a B2 cellá nem nézi hogy mi van D2 akkor ha az nem IGEN ha nem üres vagy más, de szintén egy ha fgv továbbírással ez is megoldható[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
őstag
Olyat lehet csinálni hogy van egy nagyon bonyolult táblázatom és a kijelölt cellákra egy kerekítés függvényt húzzon rá? Akkor is ha már eleve tartalmaznak képleteket az adott cellák és azok természetesen maradjanak meg, csak húzza rá a kerekítés fgv-t?
Pl: KEREKÍTÉS(már meglévő fgv;3)
Valamit ki kellene találni mert nincs kedvem több száz cellát egyesével manuálisan átírni.
Köszönöm
-
Bati0501
őstag
Sziasztok!
2010-es excel ezt írja ki, amikor pivot táblát akarok csinálni: "A kimutatás egyik mezőneve érvénytelen. Kimutatás létrehozásához lista vagy feliratozott oszlopok formájában rendezett adatokat kell használnia. Kimutatásmező nevének módosításakor be kell írnia a mező új nevét."
Lassan fél órája próbálkozok, átszerkesztettem az oszlopok nevét is már, mert eddig volt benne egy jó pár cellaegyesítés is, de nem oldotta meg.
Most így néz ki, még több oszlop van, csak az már nem fért ki a képernyőre, de az most nem is érdekes:
Tudnátok tanácsot adni, hogy mit csináljak?
-
Cece04
tag
Sorry,de azt kifelejtettem,hogy az első oszlopban több tíz különböző ország/varos van még Barcelonan kívül.
Az lenne a lényeg,hogy az összes olyan sor,aminél megegyezik az első oszlop tartalma (Itt Példában Barcelona) ott ne lehessen beállítani eltérő időpontot.
Az időpontnak meg kell valamihez igazodnia, így az "indulás" lenne a támpont, tehát az összes sornak azt a dátumot kell hoznia ami az indulás mellett van.Ezeket az adatokat nem én fogom felvinni, azért lenne jó,ha figyelmeztetné egyből a használót ,hogy vmi.hibas ,mert az indulástól eltérő dátumra akar valamit felvinni.
Köszi
A valósággal az a gáz, hogy nincsen hozzá háttérzene...
-
Cece04
tag
Ehhez kapcsolódó, egyszerűbb picit, mint az előző, de nem jövök rá.
Azt szeretném,hogy csak akkor lehessen kiválasztani a legördülőből az "IGEN"-t,
ha van valamilyen összeg beírva a mellette lévő cellába. Tehát,ha üres az a cella, akkor hibaüzenetet küldjön vissza, hogy ez így nem jó. Ez lehetséges?Köszi szépen előre is!
[ Szerkesztve ]
A valósággal az a gáz, hogy nincsen hozzá háttérzene...
-
Cece04
tag
Legördülőhöz: nem sajnos,mert a várható összeg be van írva már alapból sokszor előre. Tehát az,hogy van ott valami,az nem jelenti azt egyértelműen,hogy "Igen", viszont ha nincs semmi ott, akkor nem lehet semmiképpen sem nem.
A városok vannak az "A" oszlopban, de sorrend szerint össze vissza. Tehát van olyan hogy Barcelona Barcelona, aztán Roma stb és megint egy sor Barcelona. Ezért lenne jó,ha vki átállítja pl Barcelonanál az indulást mas időpontra akkor az összes T (ahol Barcelona van) jelezze,hogy eltér az indulás időpontjától
[ Szerkesztve ]
A valósággal az a gáz, hogy nincsen hozzá háttérzene...
-
Oldman2
veterán
Kiadás/Bevételek nyilvántartásához használt táblában hogyan lehetne azt szépen megoldani, hogy egy lenyíló menüből választhassam ki a kiadás és bevétel típusokat és az ömlesztett tételeket automatikusan lehessen összesíteni?
És ami lényeg, a típusokat minél könnyebben lehessen bővíteni is.
Jelenleg a havi fix kiadások a tábla elején vannak, alattuk az összesített értékekkel, melyek részletezésére még lentebb 1-1 külön oszlopot használok.
-
ny.janos
tag
Sziasztok!
Bár kerülő megoldással már megoldottam a problémámat, amivel kapcsolatban kérdezni szeretnék, de továbbra sem hagy nyugodni, hogy csak én vagyok hozzá „kevés”, vagy képlettel ezt nem is lehet megoldani (makró megoldás köszönöm nem érdekel, csak képletben gondolkodom).
Adott egy táblázat – nevezzük 1. táblázatnak – (az alább képen pirossas színnel jelölve), amelyben egy adott termékhez tartozó időszaki árat keresek. Egy másik táblázatban – legyen ez 2. számú táblázat – (kék színnel jelölve) valamennyi termék valamennyi időszaki ára szerepel (az időszakok nem egyforma hosszúak, és termékenként eltérő számú időszaki ár van).Az FKERES függvény ugye csak 1 feltétel szerint tud keresni. Ha nem dátum lenne az egyik keresési feltétel, akkor A-B illetve E-F oszlopokat összefűzve tudnék 2 feltételre keresni, de a dátumra vonatkozó közelítő keresés miatt ez esetemben nem lehetséges. (Itt jegyezném meg, hogy a kerülő megoldásom az volt, hogy minden egyes napra előállítottam az éppen érvényes árat, és az összefűzött értékre kerestem – így ez a megoldást már nem keresem.)
Az elvi megoldásom az volt, hogy a keresendő termék 2. számú táblázatban lévő helyzetét (-tól / -ig sorait) a HOL.VAN illetve a DARABTELI függvények segítségével megkeresem, majd az így kapott sorokat használom fel tartományként az FKERES függvényben.
C2 cella képlete, az elvi megoldásomban:
=FKERES(B2;ÖSSZEFŰZ("$F$";HOL.VAN(A2;$E$1:$E$8;0);":$G$";DARABTELI($E$1:$E$8;A2)+HOL.VAN(A2;$E$1:$E$8;0)-1);2;1)
Az eredmény azonban „ÉRTÉK!” hiba.
A képletből a tartományra vonatkozó függvény:
ÖSSZEFŰZ("$F$";HOL.VAN(A2;$E$1:$E$8;0);":$G$";DARABTELI($E$1:$E$8;A2)+HOL.VAN(A2;$E$1:$E$8;0)-1)
annak eredménye:
"$F$2:$G$3"
Vagyis az eredmény jó lenne, ha nem lenne ott az idézőjel.A kérdés adott: a probléma orvosolható valahogy?
[ Szerkesztve ]
-
ny.janos
tag
Sajnos nem tudom, hogy mire gondolsz, de időközben rájöttem, hogy csak egy INDIREKT függvény hiányzik a képletemből és már működik is.
=FKERES(B2;INDIREKT(ÖSSZEFŰZ("$F$";HOL.VAN(A2;$E$1:$E$8;0);":$G$";DARABTELI($E$1:$E$8;A2)+HOL.VAN(A2;$E$1:$E$8;0)-1));2;1)
CÍM függvénnyel ÖSSZEFŰZ helyett (így is működik):
=FKERES(B2;INDIREKT(CÍM(HOL.VAN(A2;$E$1:$E$8;0);6;1)):INDIREKT(CÍM(HOL.VAN(A2;$E$1:$E$8;0)+DARABTELI($E$1:$E$8;A2)-1;7;1));2;1)
-
Delila_1
Topikgazda
válasz ny.janos #37616 üzenetére
Nem biztos, hogy jól értem a feladatot.
Két segédoszlopot vettem fel, amik a kék táblában megkeresik az egyes termékek első és utolsó sorát. Ezeket majd beépítheted a hosszú függvénybe, csak így jobban követhető.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ny.janos
tag
válasz Delila_1 #37619 üzenetére
Köszönöm, hogy foglalkoztál vele, már csak azért is, mert ha időközben nem jöttem volna rá, hogy hogyan használjam az INDIREKT függvényt, a megoldásod alapján biztosan megértettem volna (pedig már korábban is próbálkoztam vele, csak rosszul).
Nem sokkal a hozzászólásod előtt jöttem rá kettő lehetséges megoldásra is, amint azt látod eggyel a válaszod előtt.A MEDIÁN-os megoldásod sajnos nem jó esetemben, mert egy terméknek 3 vagy több időszaki ára is lehet, így eredményként nem jó az első vagy utolsó időszaki ár (lehet, hogy nem sikerült egyértelműen megfogalmazni a kérdésemet).
A te megoldásodban C13 cella értéke 499 (2017.01.31.), pedig a "Termék3"-nak nevezett termék ára 2017.01.01-től 624. Vagyis eredményként azt kell kapjam.
[ Szerkesztve ]
-
Marvinyo
aktív tag
válasz Marvinyo #37599 üzenetére
Ez a megoldás majdnem jól működik, de a következő helyzetben alul marad:
Szeretném ha a bevételt illetve kiadást havonta kéne vezetni, külön sheet-en. Legalábbis én így látom kényelmesnek. Na, az "alap" pivot táblát sehogy nem bírtam rávenni, hogy két külön táblázatból vegyen adatokat.A "power pivot" add-innel ezt már sikerült megtenni, de a listázással bajok vannak. Minden egyes új oszlopot a másik táblából az előző alá rendel be. Így pl. a havi összesítésnél megjelenik minden hónap alatt minden másik hónap. (Minden januárhoz hozzárendeli a febr-december-t, majd minden február alatt a március-decembert, stb.stb.) Természetesen rossz adatokkal.
Hogyan lehetne ezt megoldani?
Vagy arra esetleg, hogy a hónapokhoz tartozó táblát automatikusan összefésülje egy 13. sheet táblájába? :-\ Legalábbis más ötletem nincs hirtelen, egy táblázattal gyönyörű szépen működik.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Marvinyo #37623 üzenetére
Nézd meg ezt. Fontos, hogy a hónapok lapjain azonos helyen legyenek az összesítések, mint a példában a G:I; L:N; és Q:S oszlopokban.
Az Összesítés lap C oszlopa a pláne a dologban.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
huan
őstag
Sziasztok!
Késztettem egy diagramot excel-ben, amit át kell másolnom word-be, amivel nincs is problémám.
Viszont szeretném a word-ben ezt a diagramot fektetve elhelyezni, azaz elfordítani 90-fokkal.
Hogyan lehet ezt megcsinálni? (azt az 1 oldalt sem szeretném fekvőre állítani, ahol a diagram lenne) -
Oldman2
veterán
válasz #05304832 #37620 üzenetére
Köszi, most néztem meg. Volt egy olyan érzésem, hogy a Pivot tábla lesz az egyik kérdésemre a megoldás.
Azonban nyitva maradt egy kérdés, hogyan tudom pl. a különböző kiadás/bevétel típusokat (és mást is, pl. a fizetés módját) egy könnyen bővíthető menüből a tételes adatok feltöltése közben kiválasztani?
-
p5quser
tag
Sziasztok!
Ismét a segítségeteket kérném. Adott egy munkafüzet, a hónap napjaira bontott munkalapokkal. Ebben a munkafüzetben kellene rákeresnem az "elszámolás" szóra minden munkalapon, kilistáztatva a napot, az elszámolás szót, egy oszloppal a találat előtti értéket és egy oszloppal a találat utáni értéket.
Alább a script amit találtam, teszi a dolgát, csak nem tudom hogy irassam ki vele az eltolt oszlopok értékeit.Private Sub CommandButton1_Click()
Dim xFso As Object
Dim xFld As Object
Dim xStrSearch As String
Dim xStrPath As String
Dim xStrFile As String
Dim xOut As Worksheet
Dim xWb As Workbook
Dim xWk As Worksheet
Dim xRow As Long
Dim xFound As Range
Dim xStrAddress As String
Dim xFileDialog As FileDialog
Dim xUpdate As Boolean
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a forlder"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
xStrSearch = "elszámol"
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xOut = Worksheets.Add
xRow = 1
With xOut
.Cells(xRow, 1) = "Workbook"
.Cells(xRow, 2) = "Worksheet"
.Cells(xRow, 3) = "Cella"
.Cells(xRow, 4) = "Találat"
.Cells(xRow, 5) = "Összeg"
.Cells(xRow, 6) = "Név"
Set xFso = CreateObject("Scripting.FileSystemObject")
Set xFld = xFso.GetFolder(xStrPath)
xStrFile = Dir(xStrPath & "\*.xls*")
Do While xStrFile <> ""
Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
For Each xWk In xWb.Worksheets
Set xFound = xWk.UsedRange.Find(xStrSearch)
If Not xFound Is Nothing Then
xStrAddress = xFound.Address
End If
Do
If xFound Is Nothing Then
Exit Do
Else
xCount = xCount + 1
xRow = xRow + 1
.Cells(xRow, 1) = xWb.Name
.Cells(xRow, 2) = xWk.Name
.Cells(xRow, 3) = xFound.Address
.Cells(xRow, 4) = xFound.Value
.Cells(xRow, 5) = xFound.Value
.Cells(xRow, 6) = xFound.Value
End If
Set xFound = xWk.Cells.FindNext(After:=xFound)
Loop While xStrAddress <> xFound.Address
Next
xWb.Close (False)
xStrFile = Dir
Loop
.Columns("A:D").EntireColumn.AutoFit
End With
MsgBox xCount & " egyezést találtam", , "Elszámolós"
ExitHandler:
Set xOut = Nothing
Set xWk = Nothing
Set xWb = Nothing
Set xFld = Nothing
Set xFso = Nothing
Application.ScreenUpdating = xUpdate
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation
Resume ExitHandler
End SubEzeket szeretném megváltoztatni;
.Cells(xRow, 5) = xFound.Value (találat_oszlop -1, találat_sor)
.Cells(xRow, 6) = xFound.Value (találat_oszlop +1, találat_sor)
Előre is köszönöm! -
Delila_1
Topikgazda
válasz p5quser #37629 üzenetére
Sorban megnyitod egy mappa adatait. Az egyes füzetek megnyitása után hívd meg ezt a makrót.
Sub Kigyujtes()
'B oszlopban szűrünk az "elszámolás" szóra.
'A szűrt adatok közül a szűrés előtti, a szűrt oszlop, és a szűrés utáni oszlop
'adatait másoljuk az Összesítés lap első üres sorába, a lap B oszlopától kezdve.
'Az Összesítő A oszlopába beírjuk a lap nevét, ahonnan másoltunk. Megszüntetjük a szűrést.
'Az Összesítő az utolsó lap a füzetben.
Dim lap As Integer, innen As Long, eddig As Long, WSO As Worksheet
Set WSO = Sheets("Összesítés")
Application.ScreenUpdating = False
For lap = 1 To Sheets.Count - 1
Sheets(lap).Activate
Range("$A:$F").AutoFilter Field:=2, Criteria1:="elszámolás"
Range(Cells(2, 1), Cells(10000, 3)).SpecialCells(xlCellTypeVisible).Copy
innen = WSO.Range("B" & Rows.Count).End(xlUp).Row + 1
WSO.Range("B" & innen).PasteSpecial xlPasteValues
eddig = WSO.Range("B" & Rows.Count).End(xlUp).Row
WSO.Range("A" & innen & ":A" & eddig) = ActiveSheet.Name
Range("$A:$F").AutoFilter Field:=2
Next
WSO.Activate: Range("A2").Select
Application.ScreenUpdating = True
End SubBiztosan hozzá tudod idomítani a saját igényeidhez.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tzimash
őstag
Sziasztok,
Van egy excelből futó SAP scriptem, aminek eredménye egy új excel fájl, amiben az eredeti fájlból futó makró segítségével szeretnék ügyködni.
A gondom az, hogy amíg a teljes makró le nem fut, addig a SAP-ból letöltött fájl nem nyílik meg.
Pedig az egyik sub végén van a fájl letöltése és egy hívás a másik subra, amiben már a letöltött fájlra mutató hivatkozások vannak, csak az még nem nyílt meg sajnos.
Van erre megoldás, hogy ne kelljen megállítanom a teljes programot?Először azt hittem, hogy csak várnom kell, mert idő kell mire megnyílik, de nem ez a baj, ha a letöltés után azonnal vége a makrónak, tehát nem hívom a másik subot, akkor azonnal megnyílik.
-
p5quser
tag
válasz Delila_1 #37636 üzenetére
Üdv!
Azt értem, hogy helyrehozni hogyan kell, csak azt nem értem, ha az eredeti érték mínusz előjelű, miért az abszolut értéket adja vissza. Konkrétan a nyitó kérdésben elhelyezett szkriptet is sikerült működésre bírni, az;xNev = xFound.Offset(0, -1).Value
xOssz = xFound.Offset(0, 1).Value
offsetes megoldással. Most már berakja a nevet is, összeget is, csak az összegnél nem veszi figyelembe az előjelet.
Mivel a tiéd jól működik, ezért a puszta érdeklődés vezérel. -
Delila_1
Topikgazda
válasz p5quser #37637 üzenetére
Lehet, hogy nem értéket, hanem képletet illesztettél be az új helyre, és a képlet az új helyén más cellák adataiból számol.
Szerk.:
Jobban megnézve a két sorodat, értéket illesztesz be (.value). Ez esetben fogalmam sincs, miért nem jelenik meg az előjel az új helyen.
[ 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.
-
scott_free
senior tag
Sziasztok,
van egy vba-makróm, ami cellákba ír be képleteket (az oszlopoknak megfelelő kódokkal) - normális az, hogy 100 cellával kb. 10 percig szöszmötöl? (6 magos procival, Excel 2016)
Vagy esetleg én írtam vmit rosszul?Ez a vba-rész csinálja:
Application.AutoCorrect.AutoFillFormulasInLists = False
For k = 99 To 135 Step 3
If k < 121 Then
aWs.Cells(aRow, 9 + k).Formula = "=IFERROR(ROUND($G" & aRow & "*D" & Chr(k - 30) & aRow & ",2),"" "")"
Else
aWs.Cells(aRow, 9 + k).Formula = "=IFERROR(ROUND($G" & aRow & "*E" & Chr(k - 56) & aRow & ",2),"" "")"
End If
str = aWs.Cells(2, 10 + k).Value
aWs.Cells(aRow, 10 + k).Formula = "=INDEX(a.sz[" & str & "]," & j & ")"
Next kMitől lehet ilyen lassú?
[ Szerkesztve ]
-
d@minator
addikt
Sziasztok! Milyen programban lehet azt megcsinálni, hogy egy magyar szavakból álló lista bármelyik elemére ráviszem az egeret akkor megjelenjen a szó angolul? Természetesen az angol szavakat magam tölteném fel hozzá egyenként. Jelenleg MS word-ben van a lista négy hasábban de az Excelt jobban szeretem. Valamelyikben lehet csinálni valami ilyesmit?
Végső esetben MobiMouse lesz de az több jelentést is kiad. -
CséGyé
csendes tag
Üdv! Megoldást keresek egy (Excel 2016) táblázat napi kimutatásához.
Példa a mellékelt képernyőfotón jól látható.
Itt a megoldásnak annak kellene lenni, hogy a D11-es cellába Béla a D12-es cellába Tamás név szerepeljen.
Tehát egy függvény keresse meg hol szerepel az általam megadott szám, jelen esetben 5-ös és annak a nevét írja ki. Egy napon egy táblázatban soha nem szerepel többszőr az 5-ös, így nem gond, ha az első megtalált 5-ös szám melletti nevet írja ki. Az FKERES-el próbálkoztam, de nem tudtam megoldani, hogy minden második sort vegye csak figyelembe a keresésénél.
Aki tudna rá megoldást írna nekem egy pontos függvényt?
Kezdő vagyok, nem szégyellem.[ Szerkesztve ]
-
Delila_1
Topikgazda
-
CséGyé
csendes tag
válasz Delila_1 #37645 üzenetére
Tehát,
B oszlop = Nevek
C oszlop, N = Nappal, É = Éjszaka,Pl,: Józsi: "N" Nappal dolgozik "6" órát, "É" Éjszaka dolgozik "6" órát,
Pl.: Béla: "N" Nappal dolgozik "5" órát
Pl.: Tamás "É" Éjszaka dolgozik "5" órát.Igen, Kicsit félre érthetően írtam, így helyesbítem, az "5-ös" szám nem fog szerepelni 2x mondjuk más névnél "N" nappal és nem fog szerepelni "É" éjszaka sem.
A "D11"-es cellába kellene kiíratni ki dolgozik "N" nappal akire az 5 órás adat van megadva.
És a "D12"-es cellába kellene kiíratni ki dolgozik "É" éjszaka akire az 5 órás adat van megadva.
Az összes többi név és óra szám nem lényeges.Vannak napok majd amikor más óra szám "5" lesz a mérvadó, de akkor a függvényt átírjuk arra a számra, de ez későbbi terv.
Most 5 órás nevet keresünk.Így talán érthetőbb az írásom.
Köszönöm, hogy segítetek.Annyi kiegészítés, hogy tudom kicsi a "D11" és "D12" es cella, de egy másik munkalap, meg ebből a 2 cellából olvassa ki az ott lévő nevet.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz CséGyé #37646 üzenetére
Vegyél fel egy segédoszlopot a kép szerint.
Az A11-be és az A12-be írd be szóközzel elválasztva a keresendő napszakot és órát.A B11 és B12 képletét írd be. Vigyázz, nem egyforma a kettő! Ezeket a D11 és a D12 cellába írd be.
[ 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.
-
CséGyé
csendes tag
válasz Delila_1 #37647 üzenetére
Köszönöm, mindjárt kipróbálom amit írtál.
De már megírtam azt amire én jutottam, és elküldöm neked.
Ebben csak az a gond, hogy nem tudom megoldani, hogy külön kezelje a nappalokat (N) és az éjszakákat (É)Én eddig erre jutottam,
=(INDEX($B$1:$B$10;HOL.VAN(5;$D$1:$D$10;0)))
Természetesen a "=HIBA" is benne volt.[ Szerkesztve ]
-
RAiN91
őstag
Sziasztok
Valamelyik excel cellába ki lehet jelezni, hogy épp fut-e a VBA-ban akármelyik macró?
-
scott_free
senior tag
válasz scott_free #37639 üzenetére
Végül megtaláltam a választ rá, hátha másnak is hasznos:
Application.Calculation = xlCalculationManual
‘Place your macro code here
Application.Calculation = xlCalculationAutomaticÍgy most 10 perc helyett 10 másodperc alatt végez!
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen