1. 首頁 > 云知道 > >

excel表格中,如何點擊單元格就會增加一個數值呢

云知道Excel

問得非常好，也非常生僻 ?；竞苌僭诒砀癞斨行枰玫降?，至少在非專業的表格中非常少見 。
這個分兩種操作二種形式：
第一種操作是單擊單元格數值增加；第二種操作是雙擊單元格數值增加 。
第一種形式是整個工作表點擊都會增加，第二種形式是指定工作表中的某部分或某個單元格數值增加 。
首先是單擊單元格數值增加的代碼（全工作表）：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = http://www.mojiax.com/dzsm/Target.Value + 1
End Sub
其次是單擊單元格數值增加的代碼（指定單元格‘代碼以F9至H11為例’）：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 8 And Target.Row < 12 And Target.Column > 5 And Target.Column < 9 Then Target.Value = http://www.mojiax.com/dzsm/Target.Value + 1
End Sub
接下來是雙擊單元格數值增加的代碼（全工作表）：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Value = http://www.mojiax.com/dzsm/Target.Value + 1
End Sub
再下來是單擊單元格數值增加代碼（指定單元格‘代碼以F9至H11為例’）：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 8 And Target.Row < 12 And Target.Column > 5 And Target.Column < 9 Then Target.Value = http://www.mojiax.com/dzsm/Target.Value + 1
End Sub
那么要怎么來使用這個宏代碼呢？
四種使用方法一樣，我就只給提問者用一種作為圖例解說出來吧！
1、打開文檔

excel表格中,如何點擊單元格就會增加一個數值呢



excel表格中,如何點擊單元格就會增加一個數值呢


3、選擇我們需要添加的工作表（我選Sheet1），并雙擊進入
excel表格中,如何點擊單元格就會增加一個數值呢


4、黏貼復制好的代碼
excel表格中,如何點擊單元格就會增加一個數值呢


5、直接關閉宏窗口回到工作表檢驗一下吧
excel表格中,如何點擊單元格就會增加一個數值呢


看，確定的范圍已經可以雙擊自動增加1了，學習到了嗎？
猜猜，題主的要求可能是這樣：
如果單元格是數值，則鼠標選中單元格的時候，自動添加一個數值 。
比如，單元格的數值為2，鼠標選中該單元格，則改單元格自動加上666，變成668.
要處理，需要用到VBA，工作表的Worksheet_SelectionChange事件 。
演示效果如下面的GIF圖：
excel表格中,如何點擊單元格就會增加一個數值呢


圖片參考代碼為：將代碼放到對應的工作表中 。
excel表格中,如何點擊單元格就會增加一個數值呢


文字代碼為：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a
If IsNumeric(Target.Value) Then '判斷單元格是否為數值
On Error Resume Next '錯誤處理
'輸入一個數值,默認是666.
a = Application.InputBox(prompt:="請輸入一個數值", Default:=666, Type:=1)
If a = False Then '取消則退出
Exit Sub
Else
Target.Value = http://www.mojiax.com/dzsm/Target.Value + a'將單元格的數值和新數值相加
End If
Else
Target.Value = http://www.mojiax.com/dzsm/0'如果單元格不是數值，則處理為0.
End If
【excel表格中,如何點擊單元格就會增加一個數值呢】End Sub

    推薦閱讀