Как изменить значение ячейки, щелкнув по ней?

Можно ли изменить значение ячейки, щелкнув по ней в Excel? Например, при первом щелчке по определенной ячейке A1 отображается текст «Excel», если щелкнуть по A1 снова, отображается текст «Word», а при третьем щелчке по этой ячейке отображается текст «Outlook». В этом случае значение в ячейке A1 будет циклически меняться от «Excel» к «Word», затем к «Outlook» и обратно к «Excel» … как показано на следующем скриншоте:

Изменение значения ячейки с помощью VBA-кода при щелчке по ячейке

Изменение значения ячейки с помощью VBA-кода при щелчке по ячейке

Чтобы выполнить эту задачу в Excel, следующий VBA-код может вам помочь, пожалуйста, сделайте следующее:

1. Щелкните правой кнопкой мыши по вкладке листа, где вы хотите изменить значение ячейки при щелчке, и выберите Вид кода из контекстного меню. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код в пустой Модуль:

VBA-код: Изменение значения ячейки при щелчке по ячейке:

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

Примечание: В приведенном выше коде A1 — это ячейка, значение которой вы хотите изменить при щелчке, «Excel», «Word», «Outlook» — это значения ячеек, которые будут отображаться циклически; вы можете изменить их по своему усмотрению.

2. После вставки кода сохраните его и закройте окно. Теперь, когда вы первый раз щелкнете по ячейке A1, сразу отобразится текст «Excel», щелкните снова — появится текст «Word», а при третьем щелчке отобразится текст «Outlook», как показано на скриншоте:

Больше связанных статей:

Как фильтровать данные простым щелчком по содержимому ячейки в Excel?

Как сортировать данные столбца, щелкая по заголовку в Excel?