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

• #28985 Delila_1 veterán Tsabee #28983

  Új Válasz 2015-10-12 11:16:28 #28985

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

  Pontosabb, egyéni színkódokat is beállíthatsz. Az első makró helyett legyen

  Sub SzinLekerdezes()
  Dim Rh As Integer, Gh As Integer, Bh As Integer
  Dim Rk As Integer, Gk As Integer, Bk As Integer
  Dim hatter, karakter
  
  hatter = Selection.Interior.Color
  karakter = Selection.Font.Color
  
  Rh = hatter Mod 256
  Gh = (Int(hatter / 256)) Mod 256
  Bh = Int(hatter / 256 ^ 2)
  
  Rk = karakter Mod 256
  Gk = (Int(karakter / 256)) Mod 256
  Bk = Int(karakter / 256 ^ 2)
  
  MsgBox "Háttér RGB: " & Rh & ", " & Gh & ", " & Bh & vbLf & _
  "Karakter RGB: " & Rk & ", " & Gk & ", " & Bk
  End Sub

  a második helyett pedig ez

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Long
  If Target.Column = 1 Then
  On Error Resume Next
  sor = Application.Match(Target, Range("N:N"))
  If VarType(sor) = vbError Then
  Exit Sub
  Else
  Range(Target.Address).Interior.Color = RGB(Cells(sor, "O"), Cells(sor, "P"), Cells(sor, "Q"))
  Range(Target.Address).Font.Color = RGB(Cells(sor, "R"), Cells(sor, "S"), Cells(sor, "T"))
  End If
  End If
  End Sub

  Ehhez a segédtáblát is bővítened kell.

  

  Az A6 cella 86-os értéke az előző makrókkal készültek, ott nem tudta hozni az egyéni háttérszínt.

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