Hirdetés
- Xiaomi 14T Pro - teljes a család?
- Luxuspóráz: okosláncot akasztana a nyakadba az Apple
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Honor Magic6 Pro - kör közepén számok
- A Nothing történelmet emleget, közben új logót mutogat
- Három operációs rendszert kínál a NexPhone
- OnePlus: Settle Down, nem megyünk sehova
- Samsung Galaxy A52s 5G - jó S-tehetség
- Megjöttek Magyarországra a Redmi Note 15-ök, január 22-től ennyiért kaphatók
- iPhone topik
-
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
-
lasarus1988
tag
válasz
Fire/SOUL/CD
#8053
üzenetére
Hello,
miután megvannak az adatok amiket kiolvastam, akkor meghívom a hisztogram rutint, hogy készítse el a gyakoriság táblázatot illetve a hozzá tartozó oszlop diagramot.
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$A$2:$A$30") _
, ActiveSheet.Range("$B$1"), , False, False, False, FalseActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Munka2'!$A$1:$B$7")
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Location Where:=xlLocationAsNewSheet
Sheets("Diagram1").Select
Sheets("Diagram1").Move After:=Sheets(4)
Sheets("Munka1").Select
Range("A1").SelectHa csak megnyitom az xls-t akkor hiba nélkül lefut a program, épp csak a gyakoriság táblázatot nem készíti el, de ha utána manuálisan újra lépésről lépésre megcsinálom, majd újra elindítom a programot, akkor már automatikusan megcsinálja ahogyan kéne.
Köszönöm a segítséget!
Új hozzászólás Aktív témák
- The First Descendant (PC, PS4, PS5, XO, XSX)
- Kormányok / autós szimulátorok topikja
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Steam topic
- Xiaomi 14T Pro - teljes a család?
- Autós topik
- Milyen egeret válasszak?
- Mikrotik routerek
- Milyen légkondit a lakásba?
- AMD vs. INTEL vs. NVIDIA
- További aktív témák...
- Dell Latitude E7470. Olcsó üzleti kategóriás laptop! Új akkumulátor!
- Dell D6000 univerzális dokkoló USB-C/ USB-A, DisplayLink & Dell WD15 (K17A) USB-C + 130-180W töltő
- Shining3D EinScan Pro 2X 3D szkenner
- REFURBISHED és ÚJ - Lenovo ThinkPad Ultra Docking Station (40AJ)
- 193 - Lenovo Legion 5 (15IRX10) - Intel Core i7-14700HX, RTX 5070
Á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

