- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Két Zen 5-ös dizájnjának mintáit is szállítja már az AMD
- A Colorful "fagyosan kompakt" alkatrészekkel megy elébe a nyárnak
- A Keychron ismét egy űr betöltését vállalta magára az egerek szegmensében
- Az átlagnál vaskosabb ventilátorok kandikáltak ki a Corsair vitorlája mögül
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Publikálta a Microsoft az MS-DOS 4.0 forráskódját
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen CPU léghűtést vegyek?
- OLED TV topic
- Sony MILC fényképezőgépcsalád
- Amlogic S905, S912 processzoros készülékek
- Azonnali informatikai kérdések órája
- Hobby elektronika
- Fujifilm X
Hirdetés
-
Az üzleti chatbot lehet az új fejőstehén
it Üzleti chatbotot indított az Anthropic, azt reméli, hogy sok pénz folyik majd be a cégektől.
-
Snapdragon 8-as szériával várhatók a Honor 200-ak?
ma A Honor 200 állítólag a 8s Gen 3-at, a 200 Pro változat pedig a 8 Gen 3-at használja majd.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
PROHARDVER!
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
- Luck Dragon: Asszociációs játék. :)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Robogó, kismotor
- EAFC 24
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Futás, futópályák
- Suzuki topik
- Battlefield 2042
- Olasz autó topik (Fiat, Lancia, Alfa)
- Publikálta a Microsoft az MS-DOS 4.0 forráskódját
- További aktív témák...