- Samsung Galaxy A56 - megbízható középszerűség
- Xiaomi 17 Ultra - jó az optikája
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Google Pixel topik
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Xiaomi 15T Pro - a téma nincs lezárva
- iPhone topik
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Fotók, videók mobillal
- MWC 2026: Megnéztük, hol tart a Clicks Power Keyboard és Communicator
-
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
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MS SQL Server 2016, 2017, 2019
- BESZÁMÍTÁS! Acer Nitro 5 AN515-55 FHD notebook - i7 10750H 16GB DDR4 512GB SSD GTX 1660 Ti 6GB WIN11
- GAMER PC! i5-14500T / RTX 4070 / 16GB DDR5 / 512GB NVMe / 650w Gold!
- ASUS Zenbook 14 - 14" 2.8K OLED 90Hz - i5-1240P - 16GB - 512GB - Win11 - 1,5 év garancia - MAGYAR
- REFURBISHED és ÚJ - HP USB-C/A Universal Dock G2 (5TW13AA) (DisplayLink)
- 210 - Lenovo IdeaPad 5 Pro (16ARH7) - AMD Ryzen 7 6800HS, RTX 3050Ti
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
