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
  • 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

  • #8754 m.zmrzlina senior tag Swen_N #8752
    Új Válasz #8754
    Ú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

    m.zmrzlina

    senior tag

    válasz Swen_N #8752 üzenetére

    Biztosan van rá egyszerűbb megoldás is, nekem ezt sikerült kiötleni. Akkor használható ha a munkalap celláinak eredetileg nincsenek olyan háttérszinei amelyeket nem szeretnél törölni.

    Úgy működik, hogy a cellába aminek a sorát és oszlopát ki szeretnéd emelni nyomsz egy dulpakattintást.

    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    Dim sor As Long, oszlop As Long

    'aktív cella azonosítók
    sor = ActiveCell.Row
    oszlop = ActiveCell.Column

    Application.ScreenUpdating = False

    'korábbi háttérszín törlése
    Cells.Select
    Selection.Interior.Pattern = xlNone

    'aktív cellába vissza
    Cells(sor, oszlop).Select

    'aktív cella sorának háttérszíne
    ActiveCell.EntireRow.Select
    Selection.Interior.ColorIndex = 20

    'aktív cellába vissza
    Cells(sor, oszlop).Select

    'aktív cella oszlopának háttérszíne
    ActiveCell.EntireColumn.Select
    Selection.Interior.ColorIndex = 20

    'aktív cellába vissza
    Cells(sor, oszlop).Select

    Application.ScreenUpdating = True

    End Sub

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