Új hozzászólás Aktív témák

• #24435 Delila_1 veterán pilóta #24434

  Új Válasz 2014-12-01 16:35:47 #24435

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  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óé.

• #24430 Delila_1 veterán pilóta #24423

  Új Válasz 2014-12-01 15:25:13 #24430

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  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 Sub

• #24428 Fferi50 Topikgazda pilóta #24423

  Új Válasz 2014-12-01 15:10:22 #24428

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz pilóta #24423 üzenetére

  Szia!

  Próbáld meg a következőt:

  Jelöld ki az összes munkalapot (a munkalapfülre kattintva, a shift is működik).

  Ezután fájl - nyomtás - oldalbeállítás itt beállítod a méretet. Utána a nyomtatási nézeten láthatod, hogy mindegyikre alkalmazza-e.

  Üdv.

• #588 lapa veterán pilóta #587

  Új Válasz 2005-09-13 08:09:31 #588

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #587 üzenetére

  persze oda rakod ahova akarod. ha viszont mindet frissítgetni szeretnéd egy gombnyomásra akkor ahhoz kicsit rá kell fejleszteni, mert gondolom a forrás is más.

• #586 lapa veterán pilóta #585

  Új Válasz 2005-09-12 16:59:04 #586

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #585 üzenetére

  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

• #584 lapa veterán pilóta #583

  Új Válasz 2005-09-12 16:37:42 #584

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #583 üzenetére

  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

• #582 lapa veterán pilóta #581

  Új Válasz 2005-09-12 16:18:34 #582

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #581 üzenetére

  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

• #580 lapa veterán pilóta #579

  Új Válasz 2005-09-12 16:03:20 #580

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #579 üzenetére

  de lehet. csak a feltételt nehéz megadni. lásd előző hsz.-ben 30ezer soros kódot bütykölt az ember hozzá...
  
  upd: hehe most nézem kábé hasonlóan csinálta, ahogy én gondoltam. kiszedi a forrástartományt és annak az értékeit nézkéli össze. legalábbi elsőre.
  
  [Szerkesztve]

• #578 lapa veterán pilóta #577

  Új Válasz 2005-09-12 15:59:10 #578

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #577 üzenetére

  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]

• #576 lapa veterán pilóta #575

  Új Válasz 2005-09-12 15:50:43 #576

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #575 üzenetére

  azzal küzdöttem egy kört de nem sok sikerrel. ahogy írtam így elsőre bonyinak néz ki. talán vannak, akik már megoldották...
  
  ezzel a mintatáblával meg vigyázz, mert ha nem az adat oszlop fejléce cellán állsz akkor tönkreveri a chart-ot (átmenetileg) ha ráklattyolsz.

• #574 lapa veterán pilóta #573

  Új Válasz 2005-09-12 15:44:21 #574

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #573 üzenetére

  jaja olyat is tud. írj hozzá új értékeket (opcionálisan hónapszámokat), majd állj a B1 cellára és katt a chart-ra.

• #572 lapa veterán pilóta #570

  Új Válasz 2005-09-12 15:31:27 #572

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #570 üzenetére

  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]

• #569 lapa veterán pilóta #567

  Új Válasz 2005-09-12 15:04:39 #569

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #567 üzenetére

  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

• #566 lapa veterán pilóta #565

  Új Válasz 2005-09-12 14:42:35 #566

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz pilóta #565 üzenetére

  ööö nekem rajzolja ahogy írom. ez a növekvő-csökkenő színezés meg sznobizmus szvsz komolyabban: én nem találtam ilyet benne.

Új hozzászólás Aktív témák