Cum se schimbă valoarea celulei făcând clic pe celulă?
Este posibil să schimbăm valoarea celulei făcând clic pe o celulă din Excel? De exemplu, când faceți clic pe o anumită celulă A1, pentru prima dată, se afișează un text „Excel”, dacă faceți din nou clic pe A1, este afișat un text „Word” și un text „Outlook” este afișat când faceți clic pe acesta celulă în a treia oară. În acest caz, valoarea din celula A1 va fi recurentă de la „Excel” la „Word” la „Outlook” la „Excel” ...... după cum se arată în următoarea captură de ecran:
Schimbați valoarea celulei făcând clic pe o celulă cu cod VBA
Schimbați valoarea celulei făcând clic pe o celulă cu cod VBA
Pentru a finaliza această sarcină în Excel, următorul cod VBA vă poate ajuta, vă rugăm să faceți următoarele:
1. Faceți clic dreapta pe fila de foaie pe care doriți să modificați valoarea celulei făcând clic pe și alegeți Afișați codul din meniul contextual și în meniul deschis Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod în modulul gol:
Cod VBA: Modificați valoarea celulei făcând clic pe o celulă:
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
notițe: În codul de mai sus, A1 este celula în care doriți să modificați valoarea făcând clic pe „Excel","Cuvânt","Perspectivă”Sunt valorile celulei pe care doriți să le afișați recurent, le puteți schimba în funcție de nevoile dvs.
2. După lipirea codului, apoi salvați codul și închideți fereastra. Acum, când faceți clic pe celula A1 pentru prima dată, se afișează simultan textul „Excel”, faceți clic din nou pe acesta, apare textul „Word”, se afișează textul „Outlook” dacă faceți clic pe ea a treia oară, vezi captura de ecran:
Mai multe articole conexe:
Cum se filtrează datele doar făcând clic pe conținutul celulei din Excel?
Cum se sortează datele coloanei făcând clic pe antet în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!