Hvordan aktiverer man celler til redigering med et enkelt klik i Excel?
Denne artikel taler om aktivering af celler til redigering med et enkelt klik i Excel. Gør venligst som følger trin for trin.
Aktiver celler til redigering med et enkelt klik med VBA-kode
Aktivér celle til redigering med enkelt klik med VBA-kode
Følgende VBA-kode kan hjælpe dig med at aktivere celler til redigering med et enkelt klik.
1. Åbn det regneark, du skal bruge for at aktivere celler med et enkelt klik. Højreklik på arkfanen og klik Vis kode fra højreklikmenuen.
2. I åbningen Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående VBA-kode i Kode vindue.
VBA-kode: Aktivér celle til redigering med et enkelt klik
#If Win64 Then
'Updated by Extendoffice 2018/2/2
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If
Const VK_NUMLOCK = 144
Const VK_CAPITAL = 20
Const VK_SCROLL = 145
Dim xOldNLState As Long
Dim xOldCLState As Long
Dim xOldSLState As Long
Const KEY_MASK As Integer = &HFF80 '
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (GetKeyState(vbKeyShift) And KEY_MASK) <> 0 Then Exit Sub
xOldNLState = GetAsyncKeyState(VK_NUMLOCK)
xOldCLState = GetAsyncKeyState(VK_CAPITAL)
xOldSLState = GetAsyncKeyState(VK_SCROLL)
SendKeys "{F2}"
If GetAsyncKeyState(VK_NUMLOCK) <> xOldNLState Then
Application.SendKeys "{NUMLOCK}"
End If
If GetAsyncKeyState(VK_CAPITAL) <> xOldCLState Then
Application.SendKeys "{CAPSLOCK}"
End If
If GetAsyncKeyState(VK_SCROLL) <> xOldSLState Then
Application.SendKeys "{SCROLLLOCK}"
End If
End Sub
3. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når et enkelt klik på en hvilken som helst celle i det aktuelle regneark, aktiveres cellen med det samme.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
