12. september 2000 - 14:43Der er
10 kommentarer og 1 løsning
Aktive celler i Excel
Er der nogen som ved, hvordan man fjerner \"aktiv\" markeringen på en celle? (Ved at trykke end+home, ryger markøren til sidste aktive celle, hvordan undgår man dette, når nu cellen er tom?)
Desværre..mit ark er udfyldt fra a1 til p3, ved end+home hopper \"den\" til p19. Jeg har slettet, kopieret fra eks.v. p27 (både alt og format) og det virker desværre bare ikke.
Følgende VBA funktion får excel til at resette sidste celle. Aktivering af metoden ActiveSheet.UsedRange er nøglen resten er fyld.
Sub ResetLastCell() \' Resets the last cell (Ctrl+End) Dim LastCell As Range Dim Msg As String If TypeName(ActiveSheet) <> \"Worksheet\" Then Exit Sub ActiveSheet.UsedRange Set LastCell = Cells(Range(Cells(1, 1), ActiveSheet.UsedRange).Rows.Count, Range(Cells(1, 1), ActiveSheet.UsedRange).Columns.Count) Msg = \"The \'last cell\' is the cell at the intersection of the last row and last column that contains data or formatting.\" & vbCrLf & \"To activate the last cell, press Ctrl+End.\" & vbCrLf & vbCrLf Msg = Msg & \"The last cell in \" & ActiveSheet.Name & \" has been reset to cell \" & LastCell.Address(False, False) & \".\" & vbCrLf & vbCrLf & \"Row \" & LastCell.Row & \" , Column \" & LastCell.Column MsgBox Msg, vbInformation, \"Reset Last Cell\" End Sub
Den er i øvigt kopieret fra Walkenbach\'s PUP2000 tools.
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.