Ú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.

• #12283 Delila_1 veterán tezse66 #12279

  Új Válasz 2011-12-09 17:05:23 #12283

  Ú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

  Kép

  A Munka1 lapon vannak a betűkhöz tartozó RGB értékek, a Munka2-n a színezendő cellák.
  A makró, amit a gombbal indítasz:

  Sub szin()
  Dim sor As Integer, lel
  Dim R%, G%, B%
  
  Sheets("Munka2").Select
  For sor = 1 To 11
  lel = Sheets("Munka1").Range("A:A").Find(Cells(sor%, "A")).Row
  R% = Sheets("Munka1").Cells(lel, 2)
  G% = Sheets("Munka1").Cells(lel, 3)
  B% = Sheets("Munka1").Cells(lel, 4)
  Cells(sor, 1).Interior.Color = RGB(R%, G%, B%)
  Next
  End Sub

  Fire az előző hsz-ben leírta, hogyan kell bevinni a makrót.

• #12280 Delila_1 veterán tezse66 #12279

  Új Válasz 2011-12-09 16:56:11 #12280

  Ú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

  Szívesen.

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