- Redmi Note 12 Pro - nem tolták túl
- Itt az első kép a 2024-es Nokia 3210-ről
- Android alkalmazások - szoftver kibeszélő topik
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Vodafone-ra áttért Digi Mobilosok
- Huawei Mate 10 Pro - mestersége az intelligencia
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Samsung Galaxy A54 - türelemjáték
- Redmi Note 13 Pro+ - a fejlődés íve
- Samsung Galaxy S21 FE 5G - utóirat
Hirdetés
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
it Egyre nagyobb probléma az AI hallucinálása – most az osztrák adatvédelmi hatóság veheti elő a ChatGPT miatt az OpenAI-t, alapvetően a GDPR megsértése miatt.
-
Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
ph A cég megoldása centralizált vezérelhetőséggel, masszív radiátorral és robusztus ventilátorokkal igyekszik vásárlásra csábítani.
-
Mobilarena
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
-
-
Antonio
senior tag
Sziasztok, a következő lenne a kérdésem.
a képen látható ábrát használom (használjuk) termékeink versenytársakkal való összehasonlítására =>ConsumerStarRating (tehát a különböző websiteokon adott értékelések szerint ahol 5 csillag (értékelés) a max adható érték)).
Ahol a kör átmérője a vélemények száma a függőleges tengely pedig az átlagolt pozíció látható (5 a max).
ez csak egy termék csoport de számtalan termékcsoportot kell így kimutatnom (direkt egy kissé kusza ábrát raktam be)Kérdés: 2022 től több versenytársat kellene ábrázolnom amitől szinte átláthatatlan kusza ábrát kapnék ezzel a módszerrel (max csak finomítani tudnám hogy a versenytársak halvány színek a sajátunk maradna az erős kiemelt szín)
Van valakinek ötlete (saját tapasztalat) milyen más egyszerű de szemléletes ábrát lehetne kreálni (ha létezik egyáltalán) ahol a mind a két adat (értékelések száma/értékelések átlag értéke) látható és nem zavaró mondjuk az ha dupla ennyi versenytárs szerepel rajta?
előre is köszönöm. Sajnos nincs hosszútávú Excel tapasztalatom + nagyon sok a munka. (pl jelentkeztem online excel továbbképzésre de egy órán se tudtam részt venni )
Samsung 65KS8000, Denon AVR-X2400H, White Heco Music Style 500 front, Heco MS Center, Heco MS 200F Satellite, Sub: Dynavoice T12, Zidoo X9S, Synology DS216+II, Dell precision 4800
-
Pakliman
tag
válasz Fferi50 #48201 üzenetére
Köszi!
Eszembe nem jutott volna ez a megoldás
Az Offset valahogy nem a barátom, soha nem használom.
Lehet, hogy köze van ahhoz, hogy egy volt kollégám által írt program -amit a mai napig használunk- tele van vele (is):Range("a1").Select: ActiveCell.Offset(vez1(7, 1) + 3, vez1(7, 2)).Range("A1").Select
sa = ActiveCell.FormulaR1C1:
Do Until sa = ""
ActiveCell.Offset(2, 0).Range("A1").Select: sa = ActiveCell.FormulaR1C1Időnként kelleni fejleszteni/módosítani, de egy idő után már elveszítem a fonalat és inkább hagyom (sokszor nekivágtam már ).
Csak a kötekedés miatt:
az Offset miatt hibára fut, ha teljes sort adunk meg, tehát egy oszlopszám figyelő beépítése szükséges. -
Fferi50
őstag
válasz Pakliman #48203 üzenetére
Szia!
A "kötekedésben" igazad van, a képletes megoldás is hibát okoz, ha a sor végéig ki van jelölve.
Ez lehet(ne) a javított függvényes változat:Public Function szamolo(rrange As Range) As Long
Dim s As String, cl As Range, xx As Long
For xx = 1 To rrange.Cells.Count - 1
Set cl = rrange.Cells(xx)
s = s & IIf(cl.Value = 1 And cl.Offset(0, 1).Value = "", "1", "")
Next
If rrange.Cells(xx).Value = 1 Then s = s & "1"
szamolo = Len(s)
End Function
Itt nem lépünk ki a tartományból a számolás során.
Üdv. -
Magnat
veterán
Üdv,
valakinek ha volt ilyen problémája, sikerült esetleg DateTimePicker MonthView modulját behackelni Office 365 alá? Ha nem, mit használtok helyette?
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Fferi50
őstag
-
Cartman023
aktív tag
Sziasztok,
Van egy excellem pár makróval és az egyik nap az összes lap összes üres cellája átállt dátum formátumra. A makrók között semmi ilyesmi nincs, én csináltam őket, egyedül a formokban a dátumválasztót vettem kölcsön a netről.
-
VGYke
addikt
Sziasztok! Egy eddig általam megmagyarázhatatlan problémába ütköztem, jó lenne ha megnéznétek és találnátok rá magyarázatot.
A Próba excel letölthető.
A lényeg:
Van egy táblázat, dátum óra értékekkel, elnevezése RTab (B:C oszlop) és a kWh/hó értéke csak a hónap utolsó napjának dátumánál jelenik meg, a többi helyen a sorának száma látható hibakeresés céljából (na jó, a sor itt el van szúrva 1-el ):
Összesítés munkalapon, ahol függőlegesen az év van, vízszintesen a hónapok, kiszedem a fenti RTab táblából a kWh/hó értékeket, minden hónap utolsó napján.
Képlet, amivel dolgozom:
Ugye a DÁTUM($A3;B$2+1;1)-1 az év és hónap szerinti utolsó nap dátum értéke, ezzel nincs hiba, mint ahogyan az FKERES függvénnyel sem, egy darabig.
Mint látható, 2021.07.31-ig tök jól működik, utána megzizzen és az RTab utolsó sorának értékét hozza, ami 620 sorban van (na jó, 619-ben ).
Ez mi a fenétől lehetséges?
Mondjuk az RTab Dátum utolsó pár értéke 1900.01.00, de ha ez zavarna, akkor az összes többi jó értéket is zavarnia kellene nem?
Ha kitörlöm az 1900.01.00 értékeket jól működik a táblázat, de nem akarom kitörölni, illetve az eredeti feladatban nincs lehetőségem módosítani. Ok, használhatnék HOL.VAN, + ELTOLÁS függvényeket is FKERES helyett, ha más megoldás nincs, az nem elegáns és nem ad választ arra, hogy egy képlet egy darabig miért működik jól, utána meg rosszul.
Tudtok segíteni?kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
Fferi50
őstag
Szia!
A képleted nem pontos! Az FKERES függvénynek van egy negyedik paramétere, amelyik azt határozza meg, hogy pontos egyezést keressen-e vagy közelítőt. Ha ezt a paramétert elhagyjuk, akkor közelítő egyezést keres.
Ezért a képletedet a 4. paraméterrrel ki kell egészíteni:=HAHIBA(FKERES(DÁTUM($A3;B$2+1;1)-1;RTab;2;0);"")
Üdv. -
VGYke
addikt
Belejöttem a kérdezésbe . Megnyitottam egy kész Excel táblát, a neve "Személyes havi költségvetés", csak hogy szép táblázat kinézetet lessek ki belőle, de aztán ránéztem a képletezésére és rájöttem hogy nekem igen hiányosak az ismereteim.
Mit jelent egy kivonási műveletnél az hogy Különbözet oszlop =[@[Tervezett költség]]-[@[Tényleges költség]] ?
Részösszegnél pedig: =RÉSZÖSSZEG(109;[Különbözet]) tehát mi a [Különbözet] ?
Szóval ezek a szögletes zárójelbe tett nem tudom minek hívjákok kimaradtak az ismereteimből. Nem tartomány elnevezések azt látom, illetve a Névkezelőben nincsenek ilyenek. Útba tudtok igazítani?kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
Fferi50
őstag
-
Dolphine
addikt
Sziasztok!
Létezik olyan függvény, ami egy adott idő után egy cellát beszínez?
A helyzet a következő: Adott egy tagsági nyilvántartás. Jó lenne, hogyha időközönként, amikor ezt az Excel fájlt megnyitják, ha letelik az egy év, akkor automatikusan a cella színez pirosra váltana. Nem tudom, hogy érthető-e mit szeretnék!
Előre is köszönöm!Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
csongi
veterán
Sziasztok!
CSV kiterjesztésbe szeretném megtartani a 0 karaktert a számsor elején úgy, hogy mentés után is ott maradjon.
Van erre valamilyen trükk, vagy van olyan MS kiadás ami ezt tudja?
Előre is köszönöm! -
Dilikutya
félisten
Hello!
Olyat szeretnék csinálni, hogy:
lenne egy táblázat, ami adatokat gyűjt össze más táblákból. A csavar az, hogy a hivatkozásokat úgy kéne kitalálni, hogy mindig egy dátum mezőben lévő dátumnak megfelelő hónap szerinti táblából szedje ezeket. Tehát vagy a mai dátum, vagy tetszőleges korábbi, az egyes táblázatok nevében rendre ott van hogy 2021.11, 2021.12, 2022.01.... stb. Ezeket a fájlneveket lenne jó valamilyen változóvá alakítani a hivatkozásban, aminek az értéke attól függ, milyen dátum van a példa kedvéért A1 cellában.
Nem vagyok perverz, csak haladok a korral. (Még mindig: Rock&roll feeling baby, rock&roll feeling.....)
-
csongi
veterán
Köszönöm a segítséget.
Másik kérdésem,
Hogyan lehet két cellában szereplő szöveget egy cellába összevonni-összefűzni?
pl:
A1 cella szövege után következzen a B1 cella szövege.
Köszönöm! -
Attas
aktív tag
Sziasztok!
Kis segedelemre lenne szükségem. Van egy munkafüzet 54db tartalomban formában megegyező lappal. Minden hétre 1db és egy összesítő (KW1, KW2..stb. Szeretném lapvédelemmel ellátni minden lapot, bizonyos cellák illetve terület kivételével. Hogy tudom egy makróval ezt egyben lezárni, illetve ha akarom akkor feloldani?Köszönöm előre is a válaszokat
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Magnat
veterán
Szia,
makró rögzítésével csináld meg egy lapra, aztán:
Sub WSLoop()
Dim I As Integer
For I = 1 To Worksheets.Count
Worksheets(I).Activate
'Ide pedig másold be a generált kódot.
Next
End Sub
A generált kód meg ilyesmi lesz:
Cells(1,2).locked=false
ActiveSheet.Protect password:="pw", UserInterfaceOnly:=Truefeloldásnál értelemszerűen Unprotect ...
[ Szerkesztve ]
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
Attas
aktív tag
Nagyon köszönöm a gyors választ. Kicsit félre írtam. Annyiban csak hogy a füzet ezen 54 lapon kívül tartalmaz még 3darabot ami teljesen más tartalommal bír és nem akarom zárolni.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
wolfman
veterán
Sziasztok!
Meg lehet oldani azt valahogy Excelben, hogy ha beírok szöveget egy cellába, majd kurzor gombbal vissza szeretnék lépni pár karaktert, akkor azt ne belekattintás után tehessem csak meg, hanem azonnal? Most ugye, ha megnyomod a bal kurzort kilép a szerkesztésből és balra lép egy cellát. Nekem elég lenne ha csak Enterrel nyugtázná a szerkesztés befejezést.
Erre van mód?[ Szerkesztve ]
„Ami mérhető, mérd meg! Ami nem mérhető, tedd mérhetővé!” – Galileo Galilei
-
-
ztoldy
senior tag
Sziasztok!
Szeretnék segítséget kérni, keresés után találtam megoldási javaslato(ka)t, de sajnos nem jutottam megoldásra, valószínűleg én képletezek rosszul valamit.Vannak tetszőleges darabszámaim az A oszlopomban és azt kellene megnézni, hogy ezek melyik intervallumba esnek be és a megfelelő intervallum értéket szeretném eredményül az értékekhez.
Pl:
A1: 250 db
A2: 7080 db
A3: 427 dblegyen mondjuk az F oszlopban
F1: 1-300 G1: intervallum1
F2: 301-500 G2: intervallum2
F3: 501-10000 G3: intervallum3
(ezt lehet, hogy szét kell szedni úgy, hogy az alsó határ az E oszlopban van)Szeretném, ha a B oszlopban a darab mellé lenne írva, hogy melyik intervallumba esik.
Fentiek alapján a B1=intervallum1, B2=intervallum3, B3=intervallum2
Köszönöm a segítséget.[ Szerkesztve ]
https://www.refundo.hu/?ref=175161
-
-
logitechh
csendes tag
Sziasztok!
Tud valaki arra egy makrót, hogy az adott munkalapom elmentse egy új munkafüzetben ugyan abba a mappában ahol éppen a munkafüzetem van
Csak egy másolatot szeretnék a munkalapomról de amelyiken dolgozok arra ne mentsen rá. -
-
BigBadPlaYeR
senior tag
válasz Magnat #48206 üzenetére
Van egy Autohotkey dátumválasztó script-em, ami gyakorlatilag mindenhol működik, nem csak Excel-ben. De csak holnap tudom ide feltölteni. (Ha elfelejteném, írj egy privát üzenetet.)
De kb. így kell elképzelni: [link]"Furcsa, hogy az ember milyen keveset ér el, ha nem is próbálkozik."
-
Dilikutya
félisten
Lehet cella értékét fájlhivatkozásban használni? Van sok fájl, a fájlnévben dátum. Szépen egymás alá, naponta ezekből a fájlokból vannak behivatkozva adatok.
\\...\*2021.01.12.xlsx]Munka1!A1
\\...\*2021.01.13.xlsx]Munka1!A1
\\...\*2021.01.14.xlsx]Munka1!A1
...Meg lehet ezt valahogy lehúzható képletre csinálni?
Nem vagyok perverz, csak haladok a korral. (Még mindig: Rock&roll feeling baby, rock&roll feeling.....)
-
Magnat
veterán
válasz BigBadPlaYeR #48246 üzenetére
Közi előre is, addig meglesem amit küldtél!
̿' ̿'\̵͇̿̿\з=(◕_◕)=ε/̵͇̿̿/'̿'̿ ̿
-
ReSeTer
senior tag
Helló!
Van egy projektem ami excel táblázatból szed ki adatokat és illeszti be ezt egy word sablon dokumentumba.
A gondom az, hogy kompatibilitási probléma akadt néhány kollégánál, mert a Microsoft Word Object Library 16.0-t használja a program.
Át kellene alakítanom a kódot olyanra, hogy ne kelljen semmire se hivatkozni.
Eddig ezt csináltam:
Dim wordapp As Word.Application
Dim wDoc As Word.Document
Set wordapp = CreateObject("word.application")
Set wDoc = wordapp.Documents.Add(sablonpath & sablonfilename)
wordapp.Visible = True
helyett ezt használom:
Dim wordapp As Object
Dim wDoc As Object
Set wordapp = CreateObject("word.application")
Set wDoc = wordapp.Documents.Add(sablonpath & sablonfilename)
wordapp.Visible = True
A word dokumentumot még létre is tudom hozni, de vannak olyan sorok amit hibára állnak:
Ezek a sorok nem közvetlenül egymásután vannak, csak most kigyűjtöttem őket:
wordapp.ActiveDocument.Sections.Item(1).Footers(wdHeaderFooterPrimary).Range.Text = Application.UserName & Chr(13) & Date
wordapp.Selection.EndKey unit:=wdStory, Extend:=wdMove
wordapp.Selection.InsertBreak Type:=wdSectionBreakNextPage
wordapp.Selection.MoveDown unit:=wdScreen, Count:=1
wordapp.Selection.PasteAndFormat (wdFormatOriginalFormatting)
Mi lehet a probléma?
[ Szerkesztve ]
-
sztanozs
veterán
válasz ReSeTer #48249 üzenetére
Mik a hibák?
Illetve próbáld meg egyesével hozzáadni a Watches ablakhoz a az összes szintet, és nézd meg, hol veszik el a referencia:wordapp
wordapp.ActiveDocument
wordapp.ActiveDocument.Sections
wordapp.ActiveDocument.Sections.Item(1)
wordapp.ActiveDocument.Sections.Item(1).Footers
wordapp.ActiveDocument.Sections.Item(1).Footers(wdHeaderFooterPrimary)wordapp.ActiveDocument.Sections.Item(1).Footers(wdHeaderFooterPrimary).Range
wordapp.ActiveDocument.Sections.Item(1).Footers(wdHeaderFooterPrimary).Range.Text
wordapp.Selection
[ 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...
Új hozzászólás Aktív témák
- TCL LCD és LED TV-k
- Dell notebook topic
- OTP Bank topic
- Az alaplapgyártókra hárítja az Intel az egyes Core CPU-k stabilitási gondját
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Futás, futópályák
- Milyen alaplapot vegyek?
- Helldivers 2 (PC, PS5)
- Építő/felújító topik
- gban: Ingyen kellene, de tegnapra
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.