标签从单元格到组合框，从单元格到单元格
标签从单元格到组合框，从单元格到单元格
提问于 2018-10-26 04:54:37
我在Excel中创建了一个文档，其中我希望用户通过单元格和组合框来填写。
如果我可以使用数据验证，解决方案将很容易，但这不允许自动填充。
我想出了从组合框到组合框的选项卡
Private Sub CBO0_KeyDown(ByVal Keycode As MSForms.ReturnInteger, ByVal shift As Integer)
If Keycode = 9 Then
CBO1.Activate
End If
End Sub我还想出了如何从Combobox到Cell的选项卡。
Private Sub CBO1_KeyDown(ByVal Keycode As MSForms.ReturnInteger, ByVal shift As Integer)
If Keycode = 9 Then
Range("D10").Activate
End If
End Sub剩下的是，
- 单元到组合框
- 细胞对细胞
我需要Cell解决方案在VBA中，因为Excel中的解决方案不能在组合框和单元格之间工作。
想要了解一下Tab命令，
- 组合框
- 组合框
- 单元格
- 细胞(直线向下)
- 单元格(线向下)
- 组合框
- 单元格
- 细胞(直线向下)
- 单元格(线向下)重复
我不能更改订单，否则整张表格就不能用了。
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-10-26 05:29:55
我假设这些是工作表上的activeX组合框。使用worksheet_change事件，change A1和combobox1将被激活，change combobox1和B1将被选中，change B1和Combobox2将被激活。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Then Me.ComboBox1.DropDown
If Target.Address = "$B$1" Then Me.ComboBox2.DropDown
End Sub
Private Sub ComboBox1_Click()
Me.Range("B1").Select
End Sub
Private Sub ComboBox2_Click()
Me.Range("C1").Select
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/53009239
复制
相似问题
属性到机会单元格到组合框。
如何将单元格值从表传递到组合框？
从工作表单元格到用户表单组合框的选定结果
从HTML表格单元格到单元格绘制直线
Apache :从单元格到单元格的传输时间
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
