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

• #3872 Delila_1 veterán Anor #3870

  Új Válasz 2008-09-10 12:44:46 #3872

  Ú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 Anor #3870 üzenetére

  Most ugyan nem vagyok 2007-es közelében, de megpróbálom leírni.

  Az utolsó menüpont Fejlesztés, vagy hasonló névre hallgat. Innen hívd meg a Visual Basic-et. Bal oldalon láthatod a megnyitott füzeteid nevét, állj rá arra, amelyikbe be akarod másolni a makrót.

  Insert menü, Module hatására jobb oldalon kapsz egy üres lapot, oda másold be a makrókat.

  Ha a cellának nem a hátterét, hanem a karaktereket akarod színezni, az Interior-t mindenhol írd át Font-ra.

  Innen is indíthatod a makrókat. A magnókon szereplő ikonokhoz hasonlóak.

  A füzetből való indítás szintén a Fejlesztés menüből történhet, a Makrók nevű gombbal. Erre a gombra kattintva megjelennek a füzethez rendelt makrók, az egyik kiválasztása után az Indítás gombbal működtetheted, vagy az indítandó makró nevén duplán kattintasz..

  Jó munkát!

• #3869 Delila_1 veterán Anor #3856

  Új Válasz 2008-09-10 07:32:11 #3869

  Ú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 Anor #3856 üzenetére

  Úgy tűnik, programozás nélkül nem megy.

  Amit Lúzer ajánlott – Cella("szín",A2), az sajnos nem arra vonatkozik. Sikerült megtalálni a súgóban, aztán gyorsan el is vesztettem. Olyasmit tartalmaz, hogy ha negatív szám esetén más színt adunk a karakternek, mint pozitívnál, akkor 1 lesz az értéke a képletnek, azonos színnél 0 (vagy fordítva(?)).
  Miért nem akarsz makróval dolgozni?

  Mindenesetre megírtam két makrót. Az első a színezett cellán állva egy üzenetboxban kiírja a háttér színkódját, ezt a kódot add meg a második makró If-fel kezdődő sorában.

  Sub szin()
  MsgBox Selection.Interior.ColorIndex
  End Sub

  Nálam a színkód 44 (sötétsárga) volt.
  A második makró számolja a nem színezett cellák tartalmának átlagát, mégpedig A2-től (feltételezve, hogy az A1 oszlopcímet tartalmaz) addig, amíg az A oszlopban talál adatot. Az utolsó adat utáni cellába írja az eredményt.

  Sub Atlag()
  For sor = 2 To Range("A65536").End(xlUp).Row
  If Cells(sor, 1).Interior.ColorIndex <> 44 Then
  osszeg = osszeg + Cells(sor, 1)
  oszto = oszto + 1
  End If
  Next
  Cells(sor, 1) = osszeg / oszto
  End Sub

• #3868 lúzer veterán Anor #3866

  Új Válasz 2008-09-09 19:58:53 #3868

  Ú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

  

  lúzer

  veterán

  válasz Anor #3866 üzenetére

  neked is valszeg ez kéne

• #2630 koob senior tag Anor #2627

  Új Válasz 2007-09-29 17:16:26 #2630

  Ú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

  

  koob

  senior tag

  válasz Anor #2627 üzenetére

  up

• #2628 koob senior tag Anor #2627

  Új Válasz 2007-09-28 19:08:23 #2628

  Ú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

  

  koob

  senior tag

  válasz Anor #2627 üzenetére

  erre várnám én is a megoldást, nagyon kellene

• #2626 koob senior tag Anor #2625

  Új Válasz 2007-09-27 16:04:56 #2626

  Ú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

  

  koob

  senior tag

  válasz Anor #2625 üzenetére

  nálam csak úgy ha a célsheet-ben is unhide a d,e

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