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

• #28988 Delila_1 veterán Tsabee #28987

  Új Válasz 2015-10-12 12:07:21 #28988

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

  Javaslom, hogy a ThisWorkbook lapra a 2. makrót másold, ami az RGB színeket tartalmazza.

  Neked kell összeállítani a segédtáblát. Mivel soronként 32 adatod van, a táblázatot az AN oszlopban kezdd, ahogy a képen látod.

  

  Természetesen az AN oszlopba a saját számaidat írd, és a saját ízlésed szerint színezd. Mikor kész a segédtábla az N oszlopig, ráállsz az első (AN3) cellára, és indítod a SzínLekerdezes makrót. Ilyen üzenetet kapsz:

  

  Egyenként minden számodhoz írd be a kódokat a megfelelő helyekre.

  A laphoz rendelt makró változik:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Long
  If Target.Column > 1 And Target.Column <= 33 Then
  On Error Resume Next
  sor = Application.Match(Target, Columns(40))
  If VarType(sor) = vbError Then
  Exit Sub
  Else
  Range(Target.Address).Interior.Color = RGB(Cells(sor, "AO"), Cells(sor, "AP"), Cells(sor, "AQ"))
  Range(Target.Address).Font.Color = RGB(Cells(sor, "AR"), Cells(sor, "AS"), Cells(sor, "AT"))
  End If
  End If
  End Sub

  A sorszámok ismétlésének a módját már leírtam.

  A képen látható B1:F1 tartomány számait a makró színezte ki, én csak beírtam.

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