我正在做一些实验，遇到了我想做的事，但我无法弄清楚。
我想允许用户单击Excel电子表格上的形状，使用户保持突出显示该形状，以便他们可以使用箭头键移动它，但是当他们单击该形状时，VBA代码会在其中填充一个整数，如果用户选择了不同的形状，则用不同的整数填充相同的字段。始终牢记，我希望用户仍然可以控制电子表格上的形状。
有人可以帮我解决这个问题吗？非常感谢你。
这很容易实现。有一个与形状相关联的宏。您单击形状，然后运行宏。说宏就像：
Sub HelloWorld()
MsgBox "Hello World"
End Sub
我们引入了一个称为MoveMode的全局布尔值。
如果MoveMode为False，宏将照常运行，但是如果MoveMode为True，则选中Shape并可以使用箭头键进行移动。
Public MoveMode As Boolean
Sub HelloWorld()
If MoveMode Then
ActiveSheet.Shapes(Application.Caller).Select
Else
MsgBox "Hello World"
End If
End Sub
现在，我们需要一个小的子项来更改MoveMode：
Sub MAIN()
MoveMode = Not MoveMode
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句