Og hvis du ønsker både kolonne og række markeret, hvilket måske kan gøre det endnu mere overskueligt hvor du er i arket, kan du med fordel ændre excelents kode til: ---- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone ActiveCell.EntireRow.Interior.ColorIndex = 4 ActiveCell.EntireColumn.Interior.ColorIndex = 4 End Sub ---- /Be_Nice
excelent > du behøver ikke i alle ark, du kan sætte den i ThisWorkbook modulet.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sh.Cells.Interior.ColorIndex = xlNone ActiveCell.EntireRow.Interior.ColorIndex = 4 ActiveCell.EntireColumn.Interior.ColorIndex = 4 End Sub
Højreklik på arkets fane Vælg Vis programkode Dobbeltklik på ThisWorkbook /Be_Nice
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.