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

• #12376 Delila_1 veterán tezse66 #12375

  Új Válasz 2011-12-14 12:30:28 #12376

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

  Laphoz rendelve:

  Option Explicit
  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%
  
  If Target.Column = 1 Then
  betu = Target: cim = Target.Address
  If IsEmpty(Target) Then
  Range(Target.Address).Interior.ColorIndex = -4142
  Exit Sub
  End If
  szin betu, cim
  End If
  End Sub

  Modulba:

  Sub szin(betu, cim)
  Dim lel, R%, G%, B%
  
  On Error Resume Next
  lel = Sheets("Munka1").Range("A:A").Find(betu).Row
  If IsEmpty(lel) Then Exit Sub
  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

  Az A oszlopba beírt értékeket figyeli. Üres cella leenterezése, vagy előző adat törlése kitöltetlen hátteret ad.

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