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

• #22680 Delila_1 veterán paatrick #22670

  Új Válasz 2014-07-29 18:04:05 #22680

  Ú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 paatrick #22670 üzenetére

  A sorbeszúrásra nem tudok jó választ, legfeljebb azt, hogy ne laphoz rendelt makrót alkalmazz, hanem gombnyomásra változzanak a színek.

  Az egyes színeket az RGB kódjukkal is megadhatjuk. Pl.
  Range("A1").Interior.Color = RGB(0, 204, 255) Ez egy vil. kék.
  RGB(255, 0, 0) piros
  RGB(255, 255, 0) sárga
  RGB(0, 255, 0) vil. zöld
  RGB(255, 0, 255) lila
  RGB(128, 0, 0) barna

  Bármilyen színt kikeverhetsz a 3 összetevőből, 0 és 255 között.

  Makró, ami a C oszlopban lévő adatokat vizsgálja, és színezi a tartalmuknak megfelelően:

  Sub Szinezes()
  Dim ter As Range, CV As Object
  
  Set ter = Range("C1:C" & Range("C1").End(xlDown).Row) 'Itt kell átírni a 3 C betűt
  
  For Each CV In ter
  Select Case CV
  Case "K"
  Range(CV.Address).Interior.Color = RGB(0, 204, 255)
  Case "P"
  Range(CV.Address).Interior.Color = RGB(255, 0, 0)
  Case "Z"
  Range(CV.Address).Interior.Color = RGB(0, 255, 0)
  Case "S"
  Range(CV.Address).Interior.Color = RGB(255, 255, 0)
  Case "B"
  Range(CV.Address).Interior.Color = RGB(128, 0, 0)
  Case "L"
  Range(CV.Address).Interior.Color = RGB(255, 0, 255)
  End Select
  Next
  End Sub

  Alt +F11-gyel bemész a VB szerkesztőbe. Bal oldalon kiválasztod a füzeted nevét. Insert menü, Module.
  Jobb oldalon nagy üres felületet kapsz, oda másold be, az előző, laphoz rendelt makrót töröld ki.

  Lépj vissza a füzetedbe. Legegyszerűbb, ha pl. egy lekerekített téglalapot szúrsz be. Jobb klikk, makró hozzárendelése, Szinezes.

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