-
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
-
pirit28
csendes tag
Sziasztok !
Egy kis segítségre lenne szükségem.
Nem tudom hangzott e már el hasonló kérdés, megnéztem jópár hozzászólást de nem találtam hasonlót.Van egy állapotjelző excel táblázatom, amiben óránként frissebb adatok kerülnek.
Ebben a táblában levő adatok összegezve is vannak.
A kérdésem pedig a köveztkező lenne.
Megoldható-e és milyen megoldások léteznek arra ,hogy ezek az összegzett adatok automatikusan átmásolódjanak egy másik oldalra bizonyos időközönként úgy ,hogy azok csak szövegként jelenjenek meg.
Ugye a probléma az, hogy a frissebb adatokkal feltöltött táblázat végösszege mindig megváltozik, de nekem a régi ill. a frissebb adatok is kellenének.
Példa;:
AZ E53-as cella tartalmát szeretném egy másik lap B2-es cellájátol lefelé szépen sorban egymás után másolni autómaikusan (pl óránként)hogy ami adat volt azt láthassam utólag is.A válaszokat és a fáradozásokat előre is köszönöm !
[ Szerkesztve ]
-
torment
csendes tag
Üdvözlet mindenkinek !
Kérdésem a következő. Egy adott munkafüzet dátum formátum nevű lapjait szeretném kilistázni. Mi erre a megoldás ? Excel verzió 2003.
Előre is köszönöm.
-
csferke
senior tag
Sziasztok!
Ezt hogyan lehetne kivitelezni?Egy munkafüzet 1.lap A oszlopba íródnak be az értékek (A1, A2....szaporodnak a sorok) a 2.lap B2 cellájába viszont automatikusan meg kellene, hogy jelenjen az utolsó bevitt érték.
Angol Excel 2007.köszi
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz torment #12203 üzenetére
A lapnév mindig szöveg formátumú, még ha "szemre" dátumot mutat is.
Szúrj be egy lapot Lista névvel, ide listázza majd ki a lapok makró a dátumos lapneveket.
Sub lapok()
Dim lap%, lapnév As String, usor%
For lap% = 1 To ThisWorkbook.Sheets.Count
lapnév = Sheets(lap%).Name
If Len(lapnév) = 10 And Mid(lapnév, 5, 1) = "." And Mid(lapnév, 8, 1) = "." Then
usor% = Sheets("Lista").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Lista").Range("A" & usor%) = lapnév
End If
Next
End SubA makróban feltételeztem, hogy a lapnevek 2011.12.01 formátumúak. A feltételt tartalmazó sort lehetne bővíteni, pontosítani. Itt csak a lapnév hosszát, és a két pont helyét ellenőriztettem.
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 csferke #12205 üzenetére
A Sheet2 lap A1 cellája legyen =Sheet1!A1
Természetesen a Sheet1 helyett az első lapod nevét írd a cellába. Ha ez a lapnév számjeggyel kezdődik, vagy szóközt is tartalmaz, a lapnevet aposztrófok közé kell tenned.
Pl.: ='Nagy Pali'!A1Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
válasz Delila_1 #12207 üzenetére
Nem pontosan erre gondoltam vagy nem fogalmaztam megfelelően.
Így tulajdonképen egy "Linked cell" lesz az eredmény.Nekem viszont a bevitt érték nem a Sheet1A1 cella lesz hanem minden egyes bevitel után egyel növekszik a sorszámláló. Tehát Sheet1A1, Sheet1A2, Sheet1A3 és így tovább és az így utoljára bevitt (Sheet1Axxx) mező értéke kellene, hogy megjelenjen Sheet2A1-ben.
-
Delila_1
Topikgazda
válasz csferke #12208 üzenetére
A Sheet1 laphoz rendeld a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then
Sheets("Sheet2").[A1] = Target
End If
End SubA laphoz rendelés több hozzászólásban szerepelt itt a fórumon.
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 csferke #12213 üzenetére
Szívesen.
Ezt a Sheet3 laphoz rendeld:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then
Sheets("Sheet2").[B1] = Application.WorksheetFunction.Sum([D:E])
End If
End SubHa a Sheet3 lapon a D, vagy E oszlop változása után kellene az összegüket átvinni a Sheet2!B1 cellájába, akkor az
If Not Intersect(Target, [A:A]) Is Nothing Thensor helyére
If Not Intersect(Target, [E:D]) Is Nothing Then
kerüljön. Most a Sheet3 lap A oszlopába beírt érték hatására kerül a D:E oszlop összege a Sheet2!B1-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.
-
bugizozi
őstag
válasz Fehér Mancs #12199 üzenetére
Fehér Mancs
Delila_1Köszönöm a fáradozásotokat! Nagyszerű megoldás
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Delila_1
Topikgazda
válasz csferke #12215 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D:E]) Is Nothing Then
Sheets("Sheet2").[B1] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, 5)))
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.
-
Delila_1
Topikgazda
válasz coolmpi #12184 üzenetére
Ez a kérdés valahogy kimaradt.
A csatolt füzet Munka1 lapján látszik, hogy a beléptető automata nem áll a helyzete magaslatán. Néhány sorban az egymást követő időpontokban kissé rapszodikusan követik egymást a be- és kilépések. A lapon piros karakterrel jelöltem ezeket a hibákat.
Készítettem egy másolatot a lapról, ahol – önkényesen – kitöröltem a hibás sorokat. Felvettem 3 új oszlopot, majd az egészből kimutatást készítettem.
Érdemes megnézni az összegző oszlop és -sor cellaformátumát. Ha egyszerűen ó:p alakban adjuk meg ezt, akkor csak a 24 órákon felüli időt mutatja (138:37 helyett 18:37 látszana), mert az alapértelmezett idő az Excelben 1 nap, vagyis 24 óra.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
fgordon
senior tag
Sziasztok!
Keresem a megfelelő funkció nevét vagy más megoldást.
Elmondom röviden hol tartok, és hogy mit kell csinálni:
Ezt szeretném látni
# A B C D
1 alma 12 1 bab
2 dio 34 0
3 bab 12 1 almaA és B oszlop a fix adat, ahol meg van adva A-ban szöveg, B-ben is akár szöveg.
CountIF(Darabteli)-vel áll össze a C oszlop, ez is rendben van.
A D oszlopnál hogy tudom ezt meghatározni:Az az (1.) cella értéke, ami a B oszlopban azonos a saját soron kívüli B cella értékével?
Azért tettem zárójelbe az 1.-t, mert ugye lehet több egyezés is, de elég az első.
Tehát jelen esetben:
- az az A3 kell a D1-be, ahol a B1 = a B3-mal.
- az az A1 kell a D3-ba, ahol a B3 = a B1-gyel.Hogy lehet bárhogyan ezt kivitelezni? OpenOffice/LibreOffice-ban csinálom, de ez teljesen EXCEL kompatibilis. Köszönöm!
▏▎▍▋▊▉ Gordon (eleinte azt hittem) ▉ ▊▋▍▎▏
-
cousin333
addikt
válasz fgordon #12220 üzenetére
Excel 2010 alatt így nézne ki a megoldásom (a példádban a D1 cellába kell beírni):
=HAHIBA(INDEX($A$1:$A$3;HOL.VAN(1;(B1=$B$1:$B$3)*(SOR(B1)<>SOR($A$1:$A$3));0));"")
A függvényt tömbképletként kell bevinni (Ctrl+Shift+Enter-rel)! A rögzített tartományokat értelemszerűen kell beállítani, a B1 paraméterél szám az aktuális sort jelölje.
"We spared no expense"
-
coolmpi
aktív tag
válasz Delila_1 #12218 üzenetére
Nagyon-nagyon jó kezdetnek. Köszönöm.
Már csak annyi a baj, hogy a kollégák végeznek az irodán kívül is munkát, így nem a ki-be lépés különbsége az, amire szükségem van. (Azt hogy mennyi a "bent" idő, azt most is tudjuk)
Ezért kellene valahogy adott dátumra az első bejelentkezett és az utolsó kijelentkezett között eltelt időt kiszedni.
Erre valami ötlet?
-
bozsozso
őstag
Biztos kezdő lesz a kérdés. Makróban a következő sorom van:
Excelben nyitok meg word-öt és azt szöveggel töltöm meg. A fejléctől kezdődően..ActiveDocument.Sections(1).Headers(1).Range = "Egy kis szöveg" & Chr(9) & Chr(9) & "Egy kis szöveg" & Cells(sor, 2) & Chr(10) & "Egy kis szöveg" & Chr(9) & Chr(9) & "Egy kis szöveg" & Cells(sor, 1) & "/" & Year(Cells(sor, 2)) & "." & Cells(sor, 3) & "Egy kis szöveg" & Chr(10) & "Egy kis szöveg" & Cells(sor, 1) & "/" & Year(Cells(sor, 2)) & "." & Chr(9) & Chr(9) &"Egy kis szöveg" & Cells(sor, 12)
Azt meg lehet valahogyan oldani, hogy a fejléc utolsó harmadába kerülő adatok mindig a harmad bal oldalán kezdődjön el így ebben a résben egymás alá íródjanak az adatok?
Valahogy így:
szöveg szöveg
szöveg szöveg
szöveg szövegMost a jobb oldalon lévő szövegek el vannak csúszva és a kezdőbetűk nem egymás alatt vannak mivel a szövegek nem egyforma hosszúságúak.
-
csferke
senior tag
válasz Delila_1 #12217 üzenetére
Köszönöm, működik.
DE !?
Most már belátom, kérdezni is tudni kell.
Nem gondoltam, hogy fontos lehet és ezért nem fogalmaztam meg a kérdésemben sem.A D:E oszlopokba nem direkt bevitellel történik az adatbevitel hanem a D oszlop az a B*F az E oszlop pedig C*F és tulajdonképen a D:E az automatikusan számolódik/töltődik amikor értéket kapnak a B, C, F oszlopok.
Az sem zavarna, hogy nem a D:E összegét viszem át a Sheet2-be hanem hozzáadok még egy oszlopot (pl. H) a táblához amiben automatikusan kiszámítódik D:E összege és azt viszem át a Sheet2-be. Tehát a H is képet alapján automatikusan számítódik.üdv
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz csferke #12231 üzenetére
Az If Not Intersect(Target, [D:E]) Is Nothing Then sorban a [D:E]-t írd át [B:C]-re.
Az eseménykezelő makrókban azt kell figyeltetni, ami billentyűzetről változik.
Nincs szükség egy külön oszlopra az összegzéshez a másik lapra történő átvitelhez, a Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, 5))) sor elvégzi az összeadást. A sok képlet lassítja a futást.Nem próbáltam ki!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
válasz Delila_1 #12232 üzenetére
Így nem működött.
Próbálkozások során kialakult a megfelelő megoldás.
Átrendeztem az oszlopokat B,C és D-be viszem be az adatokat, hogy egymás mellet legyenek az adatbeviteli oszlopok.
E=B*D F=C*D
Most már figyeltetem az egymás mellet lévő [B] oszlopokat és értelemszerűen a SUM-ban Row4 -> Row5 és a Row5 -> Row6 lett.Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:D]) Is Nothing Then
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))
End If
End Sub[ Szerkesztve ]
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
-
cousin333
addikt
válasz fgordon #12236 üzenetére
Libre Office nem támogatja a HAHIBA (IFERROR) függvényt, tehát a második mód lép életbe, ami támaszkodik a C oszlopra is:
=IF(C1;INDEX($A$1:$A$3;MATCH(1;(B1=$B$1:$B$3)*(ROW(B1)<>ROW($A$1:$A$3));0));"")
Ezt kell beírnod a D1 cellába, majd Ctrl+Shift+Enter! Sajnos a képlet további cellákba másolásával van egy kis gond, nevezetesen az LibreOffice elég "érdekesen" kezeli ezt, ugyanis a hivatkozások nem futnak együtt úgy, hogy pl. Excelben. Tehát a fenti képlet a második sorban is csont ugyanígy néz ki, míg Excelben a C1-ből C2, a B1-ből B2 lesz.
Ergo jelenleg működik a fenti képlet, de minden sorba egyenként kell bemásolni, és aktualizálni őket...
A megoldást momentán nem tudom, mint ahogy a képletkiértékelőt sem találom, ami lépésenként hajtja végre a függvényt, mutatva a köztes állapotokat, hogy látni lehessen, hol nem csinálja azt amit várnék tőle. Tudsz erről valamit?
[ Szerkesztve ]
"We spared no expense"
-
soldierboy
tag
A fejlécsorban az oszlopok elnevezése A B C betűk helyett számokra módosult. Hogyan tudom visszaállítani?
-
cousin333
addikt
válasz soldierboy #12240 üzenetére
Melyik verziót használod? Excel 2010-ben Fájl, Beállítások, Képletek, S1O1 hivatkozási stílus, pipát kivesz. Ha régebbi verzió, akkor is azt keresd meg (beállítások között, vagy a súgóban), hogy hol lehet ezt átkapcsolni.
"We spared no expense"
-
cousin333
addikt
válasz soldierboy #12242 üzenetére
Úgy látom, hogy a 2007-ben ugyanott van, mint a 2010-ben, tehát lásd az előző hozzászólásomat, kivéve, hogy az elején nem a Fájl-ra kell kattintani (mert olyan ott nincs), hanem az Office gombra (vagy mi az).
Ugyanez angolul: [link]
"We spared no expense"
-
csferke
senior tag
válasz Delila_1 #12235 üzenetére
Szia!
Mit kell változtatnom ebben a sorban
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))
hogy az E14-be áthozott érték " - " (negatív) legyen?És még egy kérdés.
=IF(F29="kom", (CONCATENATE("fco. naš mag. ",I8," radnih dana od dana prijema uplate")),)
Azt szeretném ha F29="kom" nem ez lenne hanem megvizsgálni, hogy az F29 egy bizonyos szöveggel kezdődik-e F29=begin with "szöveg"köszi
[ Szerkesztve ]
-
csferke
senior tag
Elnézést nem figyeltem oda a "Programkód" beírásánál de remélem így is "olvasható"
-
Delila_1
Topikgazda
válasz csferke #12245 üzenetére
1.
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))*-1Az [E14] a Range("E14") rövidebb formája.
2.
=IF(LEFT(F29,6)="szöveg", ("fco. naš mag. "&I8&" radnih dana od dana prijema uplate"),)Az utóbbit (is) próba nélkül írtam. A LEFT(F29,6)="szöveg" az F29 cella kezdetét vizsgálja a "szöveg" szó hosszúságában. Ha az F29 tartalma pl. "szöveg a tartományban", akkor a képletet tartalmazó cella eredménye fco. naš mag. szöveg radnih dana od dana prijema uplate – bármit jelentsen is.
Nem szükséges a CONCATENATE függvényt kiírni, elég az összefűzendő értékek közé & jelet írni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
F34R
nagyúr
Sziasztok lenne egy adattábla amiben fel vannak tüntetve számok (étkezések )
egy sorban több szám is van de nekem csak 1-es csoportosítás alatt lévők kellenek .
egyesével kell összeadnom mert ami hónapoknál az 1-be van az az összesítőben (szum-al ) ugyancsak az egyes alá (és így tovább ők 3-at használnak csak az a baj ha lehúzom a képletet akkor érték! jön csak hogy megoldható ez hogy ne egyesével kelljen szórakozni ?
Új hozzászólás Aktív témák
- HBO Max & OD topic
- Győr és környéke adok-veszek-beszélgetek
- Politika
- Villanyszerelés
- exHWSW - Értünk mindenhez IS
- Modern monitorokra köthető 3dfx Voodoo kártya a fészerből
- Tőzsde és gazdaság
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- HiFi műszaki szemmel - sztereó hangrendszerek
- OTP Bank topic
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!