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

Author Xiaoyang Last modified 2025-08-23

在 Excel 中是否可以通過點擊單元格來改變其值？例如，當你第一次點擊特定單元格 A1 時，它顯示文本“Excel”，如果你再次點擊 A1，則會顯示文本“Word”，第三次點擊該單元格時，會顯示文本“Outlook”。這樣一來，A1 單元格中的值將循環從“Excel”到“Word”到“Outlook”再到“Excel”……如下圖所示：

A screenshot showing cell value change upon clicking in 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

A screenshot of VBA editor with code to change cell values by clicking in Excel

備註：在上述程式碼中，A1 是您希望通過點擊更改值的單元格，“Excel”、“Word”、“Outlook”是您希望循環顯示的單元格值，您可以根據需要進行更改。

2. 粘貼程式碼後，保存程式碼並關閉視窗。現在，當您第一次點擊單元格 A1 時，文本“Excel”立即顯示；再次點擊，文本“Word”出現；第三次點擊時，文本“Outlook”顯示，如下圖所示：

A screenshot showing cell value change upon clicking in Excel

更多相關文章：

如何在 Excel 中僅通過點擊單元格內容來篩選數據？

如何在 Excel 中通過點擊標題來排序列數據？

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多