-
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
-
lapa
veterán
ahh. akkor én rosszra gondoltam. szerintem makrós mind a kettő, talán az autop kiegészítésre tud vki egy eldugott csekkboxot. ha nincs más, akkor barkácskodni lehet esetleg. keress rá itt a totyikban (vagy az 'excel makró készítése' nevűben) az event szóra. vannak minták, amikkel minden billentyűlenyomás után meg más történéseknél tudsz makrót futtatni. abban esetleg össze tod hasonlítani az adott chart forrásának értékét a forrás oszlop sorainak számával.
a piros-feket hasonlóan küzdelmes lesz, mivel a chart series-ének point-jainak (remélem eddig megvan ) nem nagyon van közvetlen értéke, esetleg ha mindhez raksz data label-t, annak a text-jét tod kiolvasni. így elsőre valahogy úgy indulnék neki, hogy megpróbálok vmi sourcedata tulajdonságot keresni.For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).Border.ColorIndex = 6
Next i
ez csak annyit csinál, hogy végigmegy az aktív (!) chart-on és beszínezi az összes vonalat. ezen belül kéne megnézni minden point source data-ját és összehasonlítani az előtte-utána lévővel. ennyi időm most sajnos nincs. meg sznobizmus különben is -
lapa
veterán
ajaj. olyat tudok esetleg, hogy:
Sub friss()
Worksheets(''Sheet1'').ChartObjects(1).Chart.SetSourceData Source:=ActiveSheet.Range(ActiveCell, ActiveCell.End(xlDown)), PlotBy:=xlColumns
End Sub
1. ezt benyomod egy új modulba
2. chart-on jobb gomb --> makróhozzárendelés
3. kiválasztod, hogy ''friss''
4. kijelölöd az adatok OSZLOPÁNAK első celláját
5. chart-ra klattyolsz
ha az adatok sorban vannak, akkor szólj gyorsan átírom. ez csak annyit csinál, hogy az aktív cella alatti feltöltött részt adja meg forrásként. persze a ''sheet1'' meg a chartobjects(1) táblafüggők...
upd: mintatábla Bővebben:� link
[Szerkesztve] -
lapa
veterán
-
lapa
veterán
nem, az statikus ''mindent sárgázz'' megoldás volt (lásd vmelyik előző hsz-em). az utána következők csak azért kékek, mert nem lettek beszínezve...
upd: Bővebben: link és mégtöbb izé Bővebben: link
[Szerkesztve] -
lapa
veterán
-
lapa
veterán
na az eredetit kicsit megmoddoltam, hogy ne poz-neg értékeket nézzen, hanem mindig az előző értéket. ez alapján ha a következő érték kisebb, az oda vezető vonal piros (arra nem szabad menni). sztem ezt még egy manager-tréning résztvevői is simán megértik kis szóbeli rásegítéssel.
Bővebben: link
aztán nem eladni drágán a sziszológusoknak -
lapa
veterán
nálam jól csinálja. itt a mindentegybecsinálós. ezen annyit alakítottam, hogy fixen a B1 cellától nézi az adatokat. Bővebben: link
-
lapa
veterán
akkor most várok még holnapig hátha eszedbe jutnak további furmányságok. vagy ha most kell, akkor megnyitod a táblát --> alt + f11 --> bal oldalon module1 duplakatt --> jobb oldalon ezt megkeres: ''CurrPtColor = IIf(R.Cells(i).Value < R.Cells(i - 1).Value, NegColor, PosColor) --> '<' kiegészítése '<=' -re --> bezár --> tábla ment
-
-
Delila_1
Topikgazda
válasz pilóta #24423 üzenetére
Egy nyúlfarknyi makró beállítja a nagyítást az első laptól az utolsóig.
Sub Nagyitas()
Dim lap As Integer
For lap = 1 To Sheets.Count
Sheets(lap).PageSetup.Zoom = 55
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz pilóta #24434 üzenetére
Szívesen. A tól-ig értékre figyelj, mert nem biztos, hogy az összes lapon akarod átállítani a nagyítást. A
For lap = 1 To Sheets.Count
sorban az 1 a kezdő lap sorszáma, a Sheets.Count pedig a mindenkori utolsóé.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- HiFi műszaki szemmel - sztereó hangrendszerek
- Főzőcskés topic
- Kerékpárosok, bringások ide!
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen CPU léghűtést vegyek?
- Háztartási gépek
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Ukrajnai háború
- WLAN, WiFi, vezeték nélküli hálózat
- További aktív témák...