代码之家 › 专栏 › 技术社区 › Przemyslaw Remin

如何在带有箭头键的ActiveX组合框项之间切换

activex combobox vba excel

Przemyslaw Remin · 技术社区 · 6 年前

如何在带有箭头键的ActiveX组合框项之间切换?我想实现鼠标悬停在项目上生成的这种行为。这样,当我们按下向下箭头或向上箭头键时,蓝色突出显示将移动。

我有一个线索,它应该用coboxname_keydown事件来完成。

Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 38 'up
        Case 40 'down
    End Select
End Sub

1 回复 | 直到 6 年前

Przemyslaw Remin 6 年前

操纵 TempCombo.ListIndex 就是答案。举例 up arrow 关键:

Case 38  'Up
TempCombo.ListIndex = TempCombo.ListIndex - 1
Me.TempCombo.DropDown

使用它需要对列表中的第一项和最后一项进行错误处理。以下是解决问题的提示: https://stackoverflow.com/a/34621918/1903793

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前