如何通過點擊單元格來改變單元格的值？

在 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 中通過點擊標題來排序列數據？