Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #28988 Delila_1 veterán Tsabee #28987
    Új Válasz #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