Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

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

    Az előző leírásaidból számomra nem derült ki, hogy a háttereket akarod kifesteni, és az sem, hogy a C: D oszlopok értékadására is dátum-beírással reagáljon a program. Azt gondoltam, ez a két oszlop csak a színezésre szolgál, mármint a progi szempontjából.

    Ímé a legújabb változat, a legújabb óhajok szerint (az előzőek helyett).

    Sub Worksheet_Change(ByVal Target As Excel.Range)
    sor = Target.Row: oszlop = Target.Column
    If oszlop = 1 Then Exit Sub
    If oszlop = 3 Or oszlop = 4 Then
    Range(Cells(sor, 1), Cells(sor, 13)).Select
    If Target.Value = "alma" Then Selection.Interior.ColorIndex = 3
    If Target.Value = "körte" Then Selection.Interior.ColorIndex = 5
    End If

    Cells(sor, oszlop).Select
    Cells(sor, 1).Select
    Selection.Formula = "=TODAY()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    End Sub

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