-
Fototrend
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
Sziasztok!
A következő lenne a problémám:
Sub Workbook_Open()
Call ExcelForm.DeleteChart("Ping statisztika")
Call ExcelForm.DeleteChart("Hisztogram")
Call ExcelForm.DeleteChart("Rövid idejű jitter")
Call ExcelForm.ClearSheet("Log")
Call ExcelForm.ClearSheet("Eredmény")
Call ExcelForm.ClearSheet("Gyakoriság")AddIns("Analysis ToolPak").Installed = True
AddIns("Analysis ToolPak – VBA").Installed = TrueApplication.WindowState = xlMaximized
Sheets("Log").Select
Range("A1").SelectLoad Ping
Ping.ShowEnd Sub
Ebben a szubrutinban elvileg hozzáadom automatikusan az Analysis Toolpak csomagokat az excel bővítményeihez, hogy azokat használni tudjam.
Az eredmény munkalapon adott oszlopból kéne hisztogramhoz adatot generálni. A bemeneti tartomány ez az oszlop, a kimeneti tartomány egy másik munkalap, a rekesz tartomány automatikus.
Ha megnyitom ezt a rutint tartalmazó xls-t akkor minden lefut csak éppen a hisztogramhoz szükséges adatokat nem generálja le és ezért diagramon sincs ábrázolva. Ezt a jelenséget mindaddig csinálja, amíg egyszer manuálisan végig csinálom a hisztogram adatainak legenerálását, utána már csinálja rendesen. Ha bezárom a munkafüzetet és újra megnyitom akkor kezdi elölről.
Valakinek valami tippje erre?
Köszönöm a segítséget!
-
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!
[ Szerkesztve ]
-
lasarus1988
tag
válasz Fire/SOUL/CD #8060 üzenetére
Sajnos pont az első sor a probléma a többi már csak diagram készítés. Egyébként beépített excel add-in az első sor (Analysis Toolpak, Analysis Toolpak - VBA).
A makrók ugyanúgy vannak beállítva ahogyan Nálad!
Próbáld ki a következőt:
Excel beállításai/Bővítmények/Excel bővítmények/Ugrás->Analysis Toolpak, Analysis Toolpak - VBA pipa és OK
Private Sub Workbook_Open()
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("A1:A20").Select
Range("A1").Select
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$A$1:$A$20") _
, ActiveSheet.Range("$D$1"), , False, False, False, FalseEnd Sub
Ha ez megvan akkor rakj egy gombot a munkalapra és rendeld hozzá ugyanazt a fenti kódot. Ment, bezár, újra megnyit! Ha működik akkor a D és E oszlopban megjelennek a rekesz és gyakoriság értékek, hanem akkor nincs ott semmi.
Nyomd meg a gombot! Megint nem történik semmi és ezt sokáig el tudod játszani.
Manuálisan csináld meg a hisztogramot (Adatok fül/Adatelemzés/Hisztogram)
Bemeneti tartomány : A1:A20
Rekesz tartományt ne adj meg
Kimeneti tartomány: D1D és E oszlopban megjelennek a rekesz és gyakoriság értékek! Töröld ki, nyomd meg a gombot és működik! De addig nem csinálja automatikusan amíg egyszer végig nem csinálod manuálisan.
Bocsánat, ha nagyon szájba rágós lett, de három napja ezen töröm a fejem és nem jöttem rá a problémára.
Köszönöm, ha kipróbálod!
-
lasarus1988
tag
válasz Fire/SOUL/CD #8062 üzenetére
1. Köszönöm, hogy megnézted, megnyugodtam, hogy nem én vagyok a hülye!
2.-3. Fejben tartom!
Még egyszer köszönöm!
-
lasarus1988
tag
Zomb€€
If Instr("mák", cells(row, column))>0 Then
amit akarsz csinálni
End IfEgyébként nekem is lenne egy kérdésem:
Hosszú idejű pingelést írtam meg vb makróban és akad benne egy hiba, ez pedig a timer átfordulása. 86400 után 0-tól újrakezdi számolni a napot.
Ha csak pár órát mérek akkor működik így a dolog:
Start = Timer
Pause = 7200
Do While Timer < Start + Pause
mérés
LoopNa most, ha én több napig szeretnék mérni, akkor hogyan tudom megoldani ezt do while ciklussal? Próbálkoztam a now() függvénnyel de nem igazán jártam sikerrel.
[ Szerkesztve ]
-
lasarus1988
tag
Sziasztok!
Egy kis segítséget szeretnék kérni az alábbi számolgatásban. Excel 2016, angol nyelvű.
Adott az A1 cellában a '127.208' szám érték és ezt szeretném idő formátumban megkapni '127:12:27'.
Tehát egy tört számről szeretném tudni, hogy idő formátumban hogy nézne ki.Köszönöm a segítséget!
-
lasarus1988
tag
válasz lasarus1988 #34629 üzenetére
Megoldódott! El kellett osztani 24-gyel a tört számot és idő formátumra formázni a cellát.
Köszönöm
-
lasarus1988
tag
Sziasztok,
egy kis segítséget szeretnék kérni:
Adott mondjuk 'Szabik' nevű munkalap és azon az 'A' oszlopban rögzítek dátumokat 'yyyy-MM-dd' formátumban. 'Eredmeny' nevű munkalapon pedig szintén 'A' oszlopban felírom januártól decemberig a hónapokat és azt szeretném megtudni, hogy adott hónapban hány nap szabi lett kivéve 'Szabik' munkalap alapján.
Egy minta fájlt elérhető az alábbi linken, a könnyebb érthetőség miatt és jó lenne, ha csak függvényt kellene használni.
A segítséget előre is köszönöm.
Új hozzászólás Aktív témák
- Házimozi belépő szinten
- Építő/felújító topik
- A fociról könnyedén, egy baráti társaságban
- Android alkalmazások - szoftver kibeszélő topik
- Politika
- HiFi műszaki szemmel - sztereó hangrendszerek
- ThinkPad (NEM IdeaPad)
- Mibe tegyem a megtakarításaimat?
- World of Tanks - MMO
- gban: Ingyen kellene, de tegnapra
- További aktív témák...
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen