Question

如何在EXCEL的VBA命令按键代码中设定恒定的数字

如何在EXCEL的VBA命令按键代码中设定恒定的数字,我的意思是按一次命令按键后，我选定单元格后再按Enter（确定键）后，都是出来一个不变的数字（比如1）
如何在EXCEL的VBA命令按键代码中设定恒定的数字,我的意思是按一次命令按键后，我选定单元格后再按Enter（确定键）后，都是出来一个不变的数字（比如1或者是一个文本或公式）

Answer 1

Sub Macro3()
'
' Macro3 Macro

ActiveCell.FormulaR1C1 = "1"

End Sub

将该宏命令的快捷键设为 ctrl+字母 ，就实现了你的功能，建议设为ctrl+L，顺手。
如果想改换内容，就把“1”的1换成其他内容。

Answer 2

按ALT+F11后，双击Sheet1，复制
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "^d", "aa"
End Sub
插入一个模块后复制
Dim a
Sub aa()
a = 1
Application.OnKey "{enter}", "bb"
End Sub
Sub bb()
If a <> "" Then
Selection.Value = a
End If
a = ""
Application.OnKey "{enter}"
Application.OnKey "^d"
End Sub
数字是1，也就是a=1,你可以改任意数字，字母或汉字用英文双引号
按crtl+d后再按回车就可以了，是数字键的小回车。
有事再HI

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = "1"
End Sub
运行这个就行了。

追问

我还没有按Enter（确定键）
只是左边点单元格就有1出来了
我要只按一次就只得一个1
多了都不要

Answer 4

我是无奈下发的：我是一个叫钱欣怡的女孩，前几天，我晚自习回家，被一辆大卡车撞死了，司机将我的尸体抛入了路径边的小河里，然后逃走了。你看见了这条消息后，请将她发给4个论坛，如果没有发，你的妈妈会在1个月后被车撞死，你的爸爸会得绝症，如果你照着上面做了，在5天后，你喜欢的人也会喜欢你，对不起大家不无意中看评论看到了这个吓死我了。不管是真是假我都害怕！所以只能乱发了`！对不起啊`！我真不想害人的（转发的