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

• #12286 Delila_1 veterán tezse66 #12279

  Új Válasz 2011-12-09 19:06:10 #12286

  Ú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 tezse66 #12279 üzenetére

  Függvénnyel ezt nem lehet megoldani, mert vagy a függvényt írod a cellába, vagy azt a karaktert (karaktercsoportot), ami alapján a másik lapról veszi az RGB értékeket.

  A Munka1 lap marad, ahogy a #12283-ban megadtam, a másik laphoz rendeld ezt a kódot:

  Public lel, R%, G%, B%
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lel, betu As String, cim As String
  Dim R%, G%, B%
  
  betu = Target: cim = Target.Address
  szin betu, cim
  End Sub

  Modulba pedig ezt:

  Sub szin(betu, cim)
  Dim lel, R%, G%, B%
  
  lel = Sheets("Munka1").Range("A:A").Find(betu).Row
  R% = Sheets("Munka1").Cells(lel, 2)
  G% = Sheets("Munka1").Cells(lel, 3)
  B% = Sheets("Munka1").Cells(lel, 4)
  Range(cim).Interior.Color = RGB(R%, G%, B%)
  End Sub

  Mikor a Munka1 lap A oszlopában szereplő adatok közül beviszel egyet a másik lapra, azonnal megkapja az RGB hátteret.
  Már csak azt lenne érdemes pontosítani, hogy a másik lap melyik oszlopában, vagy területén érvényesüljön a színezés, mert most az egész lapon működik, és ez valószínűleg felesleges.

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