2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
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

  • #4239 Delila_1 veterán Chili7 #4237
    Új Válasz #4239
    Ú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 Chili7 #4237 üzenetére

    A selection.font.colorindex=x
    helyett írhatsz selection.font.color=RGB(x,y,z)-t is,
    ami a kedved szerint kikevert színt adja vissza. Pl. az RGB(255,0,0) piros.
    R vörös, G zöld, B kék, az értékek 0 és 255 közöttiek lehetnek.

  • #4238 Delila_1 veterán Chili7 #4237
    Új Válasz #4238
    Ú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 Chili7 #4237 üzenetére

    Akkor ezt a makrót másold be:

    Sub Worksheet_Change(ByVal Target As Excel.Range)
    sor = Target.Row: oszlop = Target.Column
    If oszlop = 2 Or oszlop > 4 Then
    Cells(Target.Row, 1).Select
    Selection.Formula = "=TODAY()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    Exit Sub
    End If

    If oszlop = 3 Or oszlop = 4 Then
    Range(Cells(sor, 1), Cells(sor, 13)).Select
    If Target.Value = "alma" Then Selection.Font.ColorIndex = 3
    If Target.Value = "körte" Then Selection.Font.ColorIndex = 5
    End If
    Cells(sor, oszlop).Select
    End Sub

    Nem tudom, le vannak-e írva a színkódok, viszont van egy kis makróm, ami kiírja az aktuális cella karakter- és háttér színét:

    Sub Szín_lekérdezés()
    If Selection.Font.ColorIndex = -4105 Then
    MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " (automatikus)"
    Else
    MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " "
    End If
    If Selection.Interior.ColorIndex = -4142 Then
    MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " (átlátszó)"
    Else
    MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " "
    End If
    End Sub

    Ezt nem a laphoz kell rendelni, hanem a VBA szerkesztőben az Insert/Module menüponttal új modult kell létrehozni, és erre az új lapra másolni.

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