Hirdetés
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Bemutatkozott a Poco X7 és X7 Pro
- Milyen robotporszívót vegyek karácsonyra? (2025)
- iPhone topik
- Poco F6 5G - Turbó Rudi
- Honor Magic6 Pro - kör közepén számok
- Netfone
- Samsung Galaxy A17 5G – megint 16
- Mobil flották
- Samsung Galaxy S25 - végre van kicsi!
-
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
-
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?
-
poffsoft
veterán
válasz
Fire/SOUL/CD
#12935
üzenetére
Mondjuk az engem is érdekelne, egy grafikonból hogyan tudod kiszedni a polinom képletét.
Ha jól értem, olyan makrót keres, ami magától lefut a grafikon adatainak változ(tat)ásakor, és az új adatokra illesztett polinom képletét mindjárt ki is másolja egy adott cellába...
Új hozzászólás Aktív témák
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Huawei P30 Lite / 4/128GB / Kártyafüggetlen / 12Hó Garancia
- Samsung Galaxy Z Flip 5 512GB, Kártyafüggetlen, 1 Év Garanciával
- Minden szoftver mellé teljesen audit és NIS2 biztos, jogilag hiteles licencigazolást adunk át!
- Bomba ár! Dell Latitude 7280 - i5-6GEN I 8GB I 256SSD I 12,5" HD I HDMI I Cam I W11 I Garancia!
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50

