谁知道这种表单控件的编号能不能修改成自己希望的编号？

renahu · 发表于 2019-3-10 13:57

本帖最后由 renahu 于 2019-3-12 07:06 编辑

其实我这张表里的下拉框就只有一个，可能这张表用的时间长了，居然变这么大了
QQ图片20190310131817.png

renahu · 发表于 2019-3-10 14:05

我发现就算把这张表里表单控件都删掉，再增加新表单控件，后面的编号还会继续增加，能不能让编号重新从1开始？

zmj9151 · 发表于 2019-3-10 15:00

运行activesheet.drawingobjects.delete来删除所有控件

renahu · 发表于 2019-3-10 15:04

zmj9151 发表于 2019-3-10 15:00
运行activesheet.drawingobjects.delete来删除所有控件

我手动删除，再建反正是不能从1开始

renahu · 发表于 2019-3-10 15:06

zmj9151 发表于 2019-3-10 15:00
运行activesheet.drawingobjects.delete来删除所有控件

用这一句删除所有控件，再新建，后面编号还是继续向上递增

aman1516 · 发表于 2019-3-11 15:30

renahu 发表于 2019-3-10 15:06
用这一句删除所有控件，再新建，后面编号还是继续向上递增

Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
i = i + 1
shp.Name = "My Shsp Name" & i
Next
End Sub
.Name属性指定名称

renahu · 发表于 2019-3-12 07:05

aman1516 发表于 2019-3-11 15:30
Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes

还以为名字不能改呢，原来用VBA可以改，非常感谢

mmx1122 · 发表于 2019-3-12 08:39

这个事，影响很大吗？

l269185600 · 发表于 2019-7-17 21:18

怎么写，求赐教

大灰狼1976 · 发表于 2019-7-17 21:34

mmx1122 发表于 2019-3-12 08:39
这个事，影响很大吗？

对于强迫症患者来说，还真受不了，比如我。

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

[已解决] 谁知道这种表单控件的编号能不能修改成自己希望的编号？