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

  • Delila_1

    veterán

    válasz vilag #2952 üzenetére

    Lapfülön jobb klikk, Kód megjelenítése.

    Ezzel beléptél a Visual Basik-be, ott is a lapod kódjához. A jobb oldalon lévő nagy üres felületre viheted be az eseményvezérelt makrót. Az üres rész tetején balra a (General) helyett kiválasztod a Worksheet opciót.
    Már meg is jelent a makród kezdő- és befejező sora.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    End Sub

    Ez a makró akkor indul, ha egy cellát kiválasztasz, magyarul, ha rálépsz. A két sor közé írhatod meg a kódodat, pl.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Interior.Color = vbYellow
    End Sub

    A kiválasztott cella háttere sárga lesz.

    Adhatsz feltételt, hogy pl. csak az A oszlopban sárgítson.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
    Target.Interior.Color = vbYellow
    End If
    End Sub

    Ezernyi más dolgot is rendelhetsz a makróhoz.

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