- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- Bemutatkozott a Moto G32 4G
- Nothing Phone 2a - semmi nem drága
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Poco X6 Pro - ötös alá
- Véroxigénszintet is mér a Honor Band 5
- Vodafone-ra áttért Digi Mobilosok
- Google szolgáltatás (GMS) Huawei telefonokra
- Alcor e-Pad - van még remény
- Ennyibe kerülnek a Huawei Pura modellek Európában
Hirdetés
-
Free Play Days 2024 - 18. hét: Headbangers: Rythm Royale
gp Extraként a Star Wars Jedi: Survort is kipróbálhatjuk 5 óra erejéig.
-
Alacsony fogyasztású, 128 GB-os szervermemóriát kínál a Micron
ph Az új RDIMM TSV technológia alkalmazása nélkül éri el a címben említett tárkapacitást.
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
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
-
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
- Milyen billentyűzetet vegyek?
- Kerékpárosok, bringások ide!
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- nVidia tulajok OFF topikja
- Vezetékes FÜLhallgatók
- Léghűtés topik
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- World of Tanks - MMO
- Otthoni hálózat és internet megosztás
- Ukrajnai háború
- További aktív témák...
- Canva Pro előfizetés - 1 éves
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest