如何在 Excel 中通過雙擊將儲存格的值加 1？
Author: Siluvia Last Modified: 2025-08-06
本文將向您展示一種方法，透過在 Excel 中雙擊儲存格，自動將其值加 1。
使用雙擊透過 VBA 程式碼將儲存格值增加 1
以下 VBA 程式碼將引導您完成透過雙擊將 A1 儲存格中的值加 1 的步驟。請按照以下指示操作。
1. 右鍵點擊需要透過雙擊將 A1 儲存格值加 1 的工作表標籤。然後從右鍵選單中點擊 檢視程式碼。
2. 在彈出的 Microsoft Visual Basic for Applications 視窗中，複製並將以下 VBA 程式碼貼到程式碼視窗中。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Value = Range("A1").Value + 1
Cancel = True
End If
End Sub
備註：在程式碼中，A1 是每次雙擊時會加 1 的儲存格。您可以根據需要進行調整。
3. 同時按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 視窗。
現在，雙擊 A1 儲存格將會將現有值加 1，如下方截圖所示。
相關文章：
最佳 Office 辦公效率工具
| 🤖 | Kutools AI Aide：徹底革新數據分析，基於智能執行|生成程式碼|創建自訂公式|分析數據並生成圖表|調用 Kutools Functions… |
| 熱門功能：查找、選取項目的背景色或標記重複值 | 刪除空行 | 合併列或單元格且不丟失資料 | 四捨五入... | |
| 高級 LOOKUP：多條件查找|多值查找|多表查找|模糊查找... | |
| 高級下拉列表：快速創建下拉列表 | 關聯下拉列表 | 多選下拉列表 ... | |
| 列管理器： 添加指定數量的列 | 移動列 | 切換隱藏列的可見狀態 | 區域與列比較 ... | |
| 精選功能：網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿及工作表管理器 | 資源庫 (自動文本) | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按清單發送電子郵件 | 超級篩選 | 特殊篩選（篩選粗體/傾斜/刪除線 ...）... | |
| 前15 大工具集：12 款文本工具（添加文本，刪除特定字符，...）|50+ 種圖表 類型（甘特圖，...）|40+ 實用 公式（基於生日計算年齡，...）|19 款插入工具（插入QR码，按路徑插入圖片，...）|12 款轉換工具（金額轉大寫，匯率轉換，...）|7 款合併和分割工具（高級合併行，分割儲存格，...）| ...以及更多 |
使用 Kutools 支援你的語言——支援英語、西班牙語、德語、法語、中文及40 多種語言！
利用 Kutools for Excel 大幅提升你的 Excel 技能，感受前所未有的高效體驗。 Kutools for Excel 提供超過300 項高級功能，助你提升效率並保存時間。 點此查看你最需要的功能...
Office Tab 為 Office 帶來標籤式介面，讓你的工作更加輕鬆
- 啟用 Word、Excel、PowerPoint 的標籤式編輯和閱讀功能
- 在同一個視窗的標籤中打開和創建多個文件，而不是在新窗口中分開開啟。
- 可提升你50% 的工作效率，每天為你大量減少滑鼠點擊次數！