作者：绿色风
分类：
时间：2022-08-17
浏览：118
楼主
biaotiger1 |
Q：如何通过上下键改变指定单元格的数值？
A：假设要通过上下键改变sheet1工作表中C5单元格的数值。则
步骤一：在sheet1工作表标签处单击右键，弹出快捷菜单→查看代码→在代码窗口中输入如下代码
- Private Sub Worksheet_selectionChange(ByVal Target As Range)
- If Target.Address = "$C$5" Then '如果活动单元格地址为C5
- Application.EnableEvents = False '关闭启用事件
- Application.OnKey "{up}", "up加1" '为宏“up加1”设置快捷键为向上键
- Application.OnKey "{down}", "down减1" '为宏“down减1”设置快捷键为向下键
- Application.EnableEvents = True '打开启用事件
- Else '如果活动单元格非C5
- Application.OnKey "{up}" '将向上键回复默认功能
- Application.OnKey "{down}" '将向下键回复默认功能
- End If
- End Sub
步骤二：“插入”→“模块”→在新建模块中输入如下代码
- Sub UP加1()
- With Sheets("sheet1").[c5]
- '=9则不变，<9则+1
- .Value = IIf(.Value = 9, 9, .Value + 1)
- End With
- End Sub
- Sub DOWN减1()
- With Sheets("sheet1").[c5]
- '=1则不变，>1则+1
- .Value = IIf(.Value = 1, 1, .Value - 1)
- End With
- End Sub
运行该程序后，活动单元格为C5时，则单击向上键单元格数值加1，单击向下键单元格数值减1
活动单元格不为C5时，向上键、向下键恢复默认功能
 如何通过上下键更改指定单元格的数值.rar
|
2楼
omnw |
代码写的非常好，学习了。 |
3楼
gvntw |
还有这么怪的要求啊 |
4楼
zdhsoap |
请问如果要多个单元格通过上下键改变数值的话要怎么办 |
5楼
icenotcool |
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一