blocks|key|196946|text|此代码使用双击。在工作表代码区域中输入以下事件宏：|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|196947|Private+Sub+Worksheet_BeforeDoubleClick(ByVal+Target+As+Range,+Cancel+As+Boolean)
++++Dim+FG+As+Range
++++Set+FG+=+Range("F3:G500")
++++If+Intersect(Target,+FG)+Is+Nothing+Then+Exit+Sub
++++Cancel+=+True
++++Target.Value+=+Target.Value+%2B+1
End+Sub|code-block|syntax|javascript|196948|由于它是工作表代码，所以非常容易安装并自动使用：|196949|右键单击Excel窗口底部附近的选项卡名。|ordered-list-item|196950|选择“查看代码”--这将显示一个VBE窗口|196951|粘贴内容并关闭VBE窗口|196952|196953|196954|如果您有任何问题，请先在试用表上试用。|196955|如果您保存工作簿，则将使用它保存宏。如果您在2003年晚些时候使用Excel版本，则必须将该文件保存为.xlsm而不是.xlsx。|196956|若要删除宏，请执行以下操作：|196957|打开上面的VBE窗口|196958|清除代码|196959|关闭VBE窗口|196960|196961|196962|要了解有关宏的更多信息，请参见：|196963|http://www.mvps.org/dmcritchie/excel/getstarted.htm|196964|和|196965|http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx|196966|要了解有关事件宏(工作表代码)的更多信息，请参见：|196967|http://www.mvps.org/dmcritchie/excel/event.htm|196968|必须启用宏才能使其工作！|196969|entityMap|0|LINK|mutability|MUTABLE|url|1|http://msdn.microsoft.com/en-us/library/ee814735%2528v=office.14%2529.aspx|2^0|5|3|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|1F|0|0|0|0|1U|1|0|0|0|1A|2|0|4|8|0^^$0|@$1|2|3|4|5|6|7|1X|8|@$9|1Y|A|1Z|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|20|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|21|8|@]|D|@]|E|$]]|$1|M|3|N|5|O|7|22|8|@]|D|@]|E|$]]|$1|P|3|Q|5|O|7|23|8|@]|D|@]|E|$]]|$1|R|3|S|5|O|7|24|8|@]|D|@]|E|$]]|$1|T|3|-4|5|6|7|25|8|@]|D|@]|E|$]]|$1|U|3|-4|5|6|7|26|8|@]|D|@]|E|$]]|$1|V|3|W|5|6|7|27|8|@]|D|@]|E|$]]|$1|X|3|Y|5|6|7|28|8|@]|D|@]|E|$]]|$1|Z|3|10|5|6|7|29|8|@]|D|@]|E|$]]|$1|11|3|12|5|O|7|2A|8|@]|D|@]|E|$]]|$1|13|3|14|5|O|7|2B|8|@]|D|@]|E|$]]|$1|15|3|16|5|O|7|2C|8|@]|D|@]|E|$]]|$1|17|3|-4|5|6|7|2D|8|@]|D|@]|E|$]]|$1|18|3|-4|5|6|7|2E|8|@]|D|@]|E|$]]|$1|19|3|1A|5|6|7|2F|8|@]|D|@]|E|$]]|$1|1B|3|1C|5|6|7|2G|8|@]|D|@$9|2H|A|2I|1|2J]]|E|$]]|$1|1D|3|1E|5|6|7|2K|8|@]|D|@]|E|$]]|$1|1F|3|1G|5|6|7|2L|8|@]|D|@$9|2M|A|2N|1|2O]]|E|$]]|$1|1H|3|1I|5|6|7|2P|8|@]|D|@]|E|$]]|$1|1J|3|1K|5|6|7|2Q|8|@]|D|@$9|2R|A|2S|1|2T]]|E|$]]|$1|1L|3|1M|5|6|7|2U|8|@$9|2V|A|2W|B|C]]|D|@]|E|$]]|$1|1N|3|-4|5|6|7|2X|8|@]|D|@]|E|$]]]|1O|$1P|$5|1Q|1R|1S|E|$1T|1C]]|1U|$5|1Q|1R|1S|E|$1T|1V]]|1W|$5|1Q|1R|1S|E|$1T|1K]]]]

This code uses double-click. Enter the following event macro in the worksheet code area:

<pre><code>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim FG As Range
 Set FG = Range("F3:G500")
 If Intersect(Target, FG) Is Nothing Then Exit Sub
 Cancel = True
 Target.Value = Target.Value + 1
End Sub
</code></pre>

Because it is worksheet code, it is very easy to install and automatic to use:

<ol>
<li>right-click the tab name near the bottom of the Excel window</li>
<li>select View Code - this brings up a VBE window</li>
<li>paste the stuff in and close the VBE window</li>
</ol>

If you have any concerns, first try it on a trial worksheet.

If you save the workbook, the macro will be saved with it.
If you are using a version of Excel later then 2003, you must save
the file as .xlsm rather than .xlsx

To remove the macro:

<ol>
<li>bring up the VBE windows as above</li>
<li>clear the code out</li>
<li>close the VBE window</li>
</ol>

To learn more about macros in general, see:

<a href="http://www.mvps.org/dmcritchie/excel/getstarted.htm" rel="nofollow">http://www.mvps.org/dmcritchie/excel/getstarted.htm</a>

and

<a href="http://msdn.microsoft.com/en-us/library/ee814735%28v=office.14%29.aspx" rel="nofollow">http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx</a>

To learn more about Event Macros (worksheet code), see:

<a href="http://www.mvps.org/dmcritchie/excel/event.htm" rel="nofollow">http://www.mvps.org/dmcritchie/excel/event.htm</a>

Macros must be enabled for this to work!

blocks|key|897488|text|所以，经过一段时间的尝试，我让这段代码开始工作了：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|897489|Private+Sub+Worksheet_SelectionChange(ByVal+Target+As+Range)

Dim+Intersection
Dim+Rng+As+Range
Set+Rng+=+Range(Cells(3,+6),+Cells(500,+7))

Set+Intersection+=+Application.Intersect(Target,+Rng)
If+Not+Intersection+Is+Nothing+Then
++++If+IsNumeric(Selection.Value)+And+Selection.Value+<>+""+Then
++++++++If+(GetAsyncKeyState(vbKeyRButton))+Then+'right+mouse+button
++++++++++++Selection.Value+=+(Selection.Value+-+1)
++++++++ElseIf+(GetAsyncKeyState(vbKeyLButton))+Then+'left+mouse+button
++++++++++++Selection.Value+=+(Selection.Value+%2B+1)
++++++++End+If
++++++++Cells(Selection.Row,+1).Select
++++End+If
End+If

End+Sub

Private+Sub+Worksheet_BeforeRightClick(ByVal+Target+As+Range,+Cancel+As+Boolean)
++++Cancel+=+True
End+Sub|code-block|syntax|javascript|897490|您必须将此代码粘贴到工作表的代码部分(很可能是Visual视图中"Microsoft对象“下的"Sheet1”)。它不会在其他模块中工作，而是在特定的工作表中工作。还必须将以下代码添加到常规模块(很可能是"Module1")：|897491|Public+Declare+Function+GetAsyncKeyState+Lib+"user32"+(ByVal+vKey+As+Long)+As+Integer|897492|它可能会帮助您了解此代码的功能:在工作表中总是调用SelectionChange，而不是左键、右击、箭头按钮等。键状态函数允许我们专门检查左键或右击。|offset|length|style|BOLD|897493|选定的单元格总是切换到左侧的同一行，因为Excel将无法检测到另一个左键(左击没有特定事件，同一单元格也不会再次触发SelectionChange+)。|897494|entityMap^0|0|0|0|0|P|F|0|1M|F|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|W|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|X|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|Y|8|@$M|Z|N|10|O|P]]|9|@]|A|$]]|$1|Q|3|R|5|6|7|11|8|@$M|12|N|13|O|P]]|9|@]|A|$]]|$1|S|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|T|$]]

So, after a bit of trying I got this code to work:

<pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Intersection
Dim Rng As Range
Set Rng = Range(Cells(3, 6), Cells(500, 7))

Set Intersection = Application.Intersect(Target, Rng)
If Not Intersection Is Nothing Then
 If IsNumeric(Selection.Value) And Selection.Value &lt;&gt; "" Then
 If (GetAsyncKeyState(vbKeyRButton)) Then 'right mouse button
 Selection.Value = (Selection.Value - 1)
 ElseIf (GetAsyncKeyState(vbKeyLButton)) Then 'left mouse button
 Selection.Value = (Selection.Value + 1)
 End If
 Cells(Selection.Row, 1).Select
 End If
End If

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
End Sub
</code></pre>

You have to paste this code into the code section of the worksheet (most probably "Sheet1" under "Microsoft Excel Objects" in the Visual Basic View). It won't work in other modules but the specific worksheet one. You also have to add the following code to a regular module (most probably "Module1"):

<pre><code>Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
</code></pre>

It may help you see what this code does: SelectionChange is always called upon a selection in the worksheet, not differing between left click, right click, arrow buttons etc. The Key State function allows us to check specifically for left or right click.

The selected cell is always switched to the same row on the left, because Excel wouldn't be able to detect another left click otherwise (there is no specific event for the left click and the same cell wouldn't trigger SelectionChange again).

I am trying to change the value of a cell with the mouse buttons.
What I want to do is this:

If you left click on a certain range of cells: F3 to F500 and G3 to G500. And there is a numeric value in the cell. Let's say 7. Add 1. So if I left click on F4 that has the value 7. The value becomes 8. And if I right click that cell it subtracts. the value of the cell (7) becomes 6.

I am very new to VBA and I do not even know how to start. So my question is: How do I do the above? And if that question is not specific enough. How do I register the mouse clicks on those cells?

Changing cell value with mouse buttons - Excel

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我试图用鼠标按钮更改单元格的值。我想做的是：如果你左键点击一定范围的单元格: F3到F500，G3到G500。在单元格中有一个数值。如果我左键单击值为7的F4，值变为8，如果我右键单击该单元格，它会减去。单元(7)的值变为6。我对VBA非常陌生，我甚至不知道如何开始。所以我的问题是:我该怎么做呢？如果这个问题不够具体的...

问用鼠标按钮更改单元格值- Excel
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问用鼠标按钮更改单元格值- ExcelEN