Hvordan ændres celleværdien ved at klikke på cellen?
Er det muligt for os at ændre celleværdi ved at klikke på en celle i Excel? For eksempel, når du klikker på en bestemt celle A1, første gang, viser den teksten "Excel". Hvis du klikker på A1 igen, vises teksten "Word", og teksten "Outlook" vises, når du klikker på denne celle i tredje gang. I dette tilfælde vil værdien i celle A1 være tilbagevendende fra "Excel" til "Word" til "Outlook" til "Excel" ...… som følgende skærmbillede vist:
Skift celleværdi ved at klikke på en celle med VBA-kode
Skift celleværdi ved at klikke på en celle med VBA-kode
For at afslutte denne opgave i Excel kan følgende VBA-kode hjælpe dig, gør du som følger:
1. Højreklik på arkfanen, som du vil ændre celleværdi ved at klikke på, og vælg Vis kode fra genvejsmenuen og i det åbnede Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modul:
VBA-kode: Skift celleværdi ved at klikke på en celle:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("A1").Address Then
Select Case .Value
Case "Excel"
.Value = "Word"
Case "Word"
.Value = "Outlook"
Case "Outlook"
.Value = "Excel"
Case Else
.Value = "Word"
End Select
End If
End With
Range("A2").Select
Application.EnableEvents = True
End Sub
Bemærk: I ovenstående kode, A1 er den celle, hvor du vil ændre værdi ved at klikke på “Excel","ord","Outlook”Er de celleværdier, du vil have vist gentagne gange, du kan ændre dem til dit behov.
2. Efter at have indsat koden, skal du gemme koden og lukke vinduet. Nu, når du klikker på cellen A1 første gang, vises teksten "Excel" med det samme, klik på den igen, teksten "Word" vises, teksten "Outlook" vises, hvis du klikker på den for tredje gang, se skærmbillede:
Flere relaterede artikler:
Hvordan filtreres data bare ved at klikke på celleindhold i Excel?
Hvordan sorteres søjledata ved at klikke på overskrift i Excel?
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!