Question

vba 这段代码为什么有错误 怎么改？

代码：（目的是选中b列的某个单元格并且按空格键时 执行一个宏）
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Target.Column = 2 And Target.Row > 1 And sheet1.Application.OnKey "{space}" then
......
End Sub

Answer 1

错的，onkey是指禁 指定键 ，或者指定按下指定键发生特定的过程。Application.OnKey "{space}" 的意思是 重置 空格键，你的算法有问题，你用我的方法进行代替，因为excel不支持键盘记录操作。
打开VBA建立一个模块输入下面代码就行了。
Sub bb()
Application.OnKey "{f1}", "mai" '当按下f1键 mai 运行
End Sub
Sub mai()
a = ActiveCell.Row
b = ActiveCell.Column
If b = 2 And a > 1 Then‘ 除B1外B列的任何一个单元格
MsgBox "已按下F1键，当前活动单元格位置为" & activecell.address ‘这里输入你需要运行的过程
End If
End Sub
注意取一个你不用的键作快键。
我这里是设备F1键。

Answer 2

删除
And sheet1.Application.OnKey "{space}"
写这句的目的是什么？

追问

并且 按空格键

追答

Worksheet_SelectionChange
当前单元格变化就执行；管它空格什么的
不是Worksheet_Change

追问

哦 Worksheet_Change ； 我是想执行这个过程
如果我选定B列中的某个的单元并且按快捷键空格 就弹出一个窗体（提供一些项目进行填充）；否则我就手动输入一些文字。

追答

if Target.value = " " then
...
按空格键，回车后执行
按空格键至回车前的这段时间，没法触发事件（可能是这样）