如何用VBA制作不带箭头的下拉菜单

ww87398804 · 发表于 2024-2-12 17:08

各位老师新年快乐，以前下载一个表格，现在找不到了，该表格可以用VBA实现不带箭头的下拉菜单，点击单元格（好像是鼠标悬停在单元格）的时候会自动显示所有的选项，不需要点击一下三角箭头滚动鼠标中键才会显示全部选项。请问如何实现，谢谢。

3190496160 · 发表于 2024-2-12 17:37

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Application.SendKeys "%{down}"
End Sub

3190496160 · 发表于 2024-2-12 17:38

菜单.rar (10.9 KB, 下载次数: 45)

ww87398804 · 发表于 2024-2-12 17:41

3190496160 发表于 2024-2-12 17:38

不是这种，不过还是谢谢你了，新年快乐

boyayes · 发表于 2024-2-12 18:22

本帖最后由 boyayes 于 2024-2-12 18:26 编辑

试试看，这是不是你要的东东。

ww87398804 · 发表于 2024-2-12 19:07

boyayes 发表于 2024-2-12 18:22
试试看，这是不是你要的东东。

谢谢，不是，他那个没有控件，就是点击一下A列单元格，右侧会弹出一列我们需要的选项，不带箭头，也不需要感动鼠标中键选择，哪怕有十个也全部弹出来，选项可以在vba里面修改，选好以后B列右侧会弹出二级菜单，二级菜单选好以后C列会自动弹出三级菜单，美观效益高。谢谢你的回复，新年快乐

3190496160 · 发表于 2024-2-12 19:45

ww87398804 发表于 2024-2-12 19:07
谢谢，不是，他那个没有控件，就是点击一下A列单元格，右侧会弹出一列我们需要的选项，不带箭头，也不需 ...

呵呵呵，看来，大家只能陪你猜谜语了，但是，我估计没几个人有这份耐性吧

ww87398804 · 发表于 2024-2-13 09:40

3190496160 发表于 2024-2-12 19:45
呵呵呵，看来，大家只能陪你猜谜语了，但是，我估计没几个人有这份耐性吧

就是找不到原文件了，不好意思，打扰大家了

prome3 · 发表于 2024-2-13 11:52

3190496160 发表于 2024-2-12 19:45
呵呵呵，看来，大家只能陪你猜谜语了，但是，我估计没几个人有这份耐性吧

我本来想说“你不如直接发一个截图”，后来连这句话都懒得说了。猜谜语，我也没那耐性。我终于理解为什么草爷那帮人老要求别人发附件和模拟结果了……

Excel加速者 · 发表于 2024-2-13 18:21

是这样的么

		自动登录	找回密码
密码			免费注册