Hirdetés
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- Parci: Milyen mosógépet vegyek?
- Lalikiraly: Asus Gaming V16 - RTX5050
- urandom0: Mégsem számőzöm az AI-t az életemből :(
- Toomy: FOXPOST: régen jó volt, de már jobban jársz, ha elfelejted
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
-
LOGOUT
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
-
Gabriel_86
csendes tag
válasz
Fire/SOUL/CD
#12935
üzenetére
Ez a programkód és ide fel is raktam: [link]
A probléma még mindig az, hogy a makró direktbe beírja a rögzítéskori trendvonal képletét és mindig ugyanazt illeszti be, függetlenül attól, hogy a grafikon adatai változnak és így a trendvonal képlete is.
Lekerekítetttéglalap_Kattintás Makró
'
Range("C1").Select
ActiveCell.FormulaR1C1 = ""
Range("C2").Select
ActiveSheet.ChartObjects("Diagram 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).Select
ActiveChart.SetElement (msoElementTrendlineNone)
ActiveChart.SeriesCollection(1).Trendlines.Add
ActiveSheet.ChartObjects("Diagram 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).Select
With Selection
.Type = xlPolynomial
.Order = 2
End With
Selection.DisplayEquation = True
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "y = 0,0421x2 - 3,4177x + 203,38"
Range("C2").Select
End SubVmi megoldás?
Új hozzászólás Aktív témák
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok : (12.20.)
- MS SQL Server 2016, 2017, 2019
- Microsoft Surface Pro 7+ - Újszerű, billentyűzettel és ceruzával
- Eladó 1db Nokia steel hr hibrid okos óra dobozával
- BESZÁMÍTÁS! Acer Predator Helios Neo 16 PHN16 notebook-i9 13900HX 16GB DDR5 1TB SSD RTX 4060 8GB W11
- Számlás vadiúj Tápegysègek! Kèszleten!
- Telefon felvásárlás!! Samsung Galaxy A16, Samsung Galaxy A26, Samsung Galaxy A36, Samsung Galaxy A56
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Fferi50
