- Samsung Galaxy S23 Ultra - non plus ultra
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- iPhone topik
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Samsung Galaxy A72 - kicsit király
- Milyen okostelefont vegyek?
- Megvan a Xiaomi 17 és 17 Ultra európai ára
- Megérkezett a Google Pixel 7 és 7 Pro
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Megtartotta Európában a 7500 mAh-t az Oppo
-
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
-
bagira82
csendes tag
Sziasztok!
Excel makró írásban szeretném a segítségeteket kérni.
Négy integer típusú változóban lévő egész számokat szeretnék kördiagramban ábrázolni.
Mivel nem vagyok excel expert, ezért makró rögzítéssel próbáltam elindulni, hogy mégis milyen parancsok kellenek (ezt láthatjátok lentébb)A kérdésem pedig az lenne, hogy hogyan tudok az ActiveChart.SeriesCollection(1).Values függvény után változókat megadni, ha egyáltalán meg lehet ezt így oldani. Ha van más ötlet, azt is szívesen veszem
.ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Munka5'!$B$1"
ActiveChart.SeriesCollection(1).Values = "='Munka5'!$B$2:$B$7" 'itt szeretnék változókban tárolt számokat megadni
ActiveChart.SeriesCollection(1).XValues = "='Munka5'!$A$2:$A$7" ' itt pedig tengelyfeliratotkat szeretnék szövegesen megdani
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabelsKöszi szépen előre is!
Üdv
Jani
Új hozzászólás Aktív témák
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- One otthoni szolgáltatások (TV, internet, telefon)
- TCL LCD és LED TV-k
- Robotporszívók
- PlayStation 5
- ThinkPad (NEM IdeaPad)
- Azonnali VGA-s kérdések órája
- PayPal
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Vezeték nélküli fülhallgatók
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- 1TB NVMe SSD, 1 év gar
- GYÖNYÖRŰ iPhone 14 Plus 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS4521, 98% AKKSI
- Új MSI Modern 15 FHD IPS Ryzen5 7530U 4.5Ghz 16GB 512GB SSD Radeon RX Vega7 Graphics Win11 Garancia
- 134 - Lenovo Legion Pro 7 (16IRX8H) - Intel Core i9-13900HX, RTX 4090
- Redmi Note 13 Pro+ 5G 12/512 /// Számla + Garancia
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
.
Fferi50

