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

• #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.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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