如何通过点击单元格来更改单元格的值？

在 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 中通过点击标题对列数据进行排序？