excel VBA里面列表框的keydown事件求助

请问一下,我列表框里面有内容了,怎么操作用键盘按下enter键就能将选中的内容输入到激活的单元格里面了?我按了没反应,不知道这个代码怎么弄得,有高手吗???

Private Sub 列表框_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
ActiveCell =‘(后面不知道怎么写了)’,
End If

列表框 是 ComboBox 还是Listbox, 单选还是多选

Activecell = 列表框.Value

温馨提示:内容为网友见解,仅供参考
第1个回答  2022-08-29
可以插入以个文本框,加入下面的语句:

先激活文本框,用来接收按键,文字显示“按任意键继续……”
这时按任意键,都会触发文本框的 KEYDOWN 事件
第2个回答  2022-08-27
可以插入以个文本框,加入下面的语句:

先激活文本框,用来接收按键,文字显示“按任意键继续……”
这时按任意键,都会触发文本框的 KEYDOWN 事件
第3个回答  2022-08-17
ActiveCell=列表框
祝你成功!

excel VBA里面列表框的keydown事件求助
Activecell = 列表框.Value

EXCEL VBA 的KEYDOWN事件求助
先激活文本框,用来接收按键,文字显示“按任意键继续……”这时按任意键,都会触发文本框的 KEYDOWN 事件

Vba窗体的keydown怎么不起作用
设置的方式不对。KeyDown事件不响应的原因大体分为两种:一、窗体的KeyPreview=true未设置,导致事件未注册。二、方向键等部分按键由于系统本身有处理,不会响应keydown事件,这时候可以使用重写ProcessCmdKey来进行处理。不过记得多做测试,避免影响控件原有事件。

求救!VB Command的keydown事件怎么不行的啊!!!好像网上的决绝方法试很...
1、Command1 是否有焦点。试试看在窗体的 Activate 事件里加个 Command1.SetFocus 2、先用 Debug.Print 来输出文本看看。3、如果一定要用 Print 的话,要检查窗体的 AutoRedraw 属性。

在Excel中制作的框体如何用VBA实现英文字母输完后再输数字时的跳转?
还真有人认为楼主的需求是可以实现的?关键词难道是固定的3位长?2位4位的名字怎么办?学考成绩可以是0分60分100分,上述两种都存在数据的不确定性。回车代表的是数据输入结束。没有这个标志,VBA如何判断本次输入结束?

excel窗体文本框要求只能输入数值,VBA代码如何写?
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)If KeyCode = 13 Then TextBox1 = Format(Replace(TextBox1, "。", "."), "0.00")[Sheet2].Range("A1").Value = TextBox1 End If End Sub 他是要纠正错误,而非查出错误 ...

excel vba 输入text1后回车光标自动跳到text2后光标自动跳回text1,如何...
回答:text1回车跳到text2的代码是 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 13 Then TextBox2.SetFocus End Sub 跳到text2后跳回text1的触发条件是什么?目的是什么? VBA中事件也少,要告知才能使光标从text2跳回text1

EXCEL VBA为什么在按下回车键后不能结束循环,请问错在哪里,谢谢_百度...
在下列情况下,KeyDown 事件不发生:在带有命令按钮(其 Default 属性为 True)的窗体上按 Enter。在带有命令按钮(其 Cancel 属性为 True)的窗体上按 Esc。 看一下,是否是属于上面的哪一种?

EXCEL VBA组合框中添加新的项
不能把代码像上面那样放到 Change事件中,因为这个事件,你输入一个字符就会触发一次,如果你输入 123 结果就是 组合框有 1,12,123.我想这不是你希望的吧?加一个按钮,点击按钮后再赋值 Private Sub CommandButton1_Click()UserForm1.ComboBox1.AddItem TextBox1.Text End Sub ...

excel vba 如何让工作表textbox回车后失去焦点
TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)If KeyCode = 13 Then '判断按下的键是否为回车 ActiveCell = TextBox1.Value '给活动单元格赋值 ActiveCell.Select '选中活动单元格 End If End Sub PS:不同版本的excel可能略有区别,自己对照帮助做相应修改....

相似回答