[已解决]请问一个关于数据有效性的问题

业余爱好者 · 发表于 2011-8-30 21:58

名称：工序表=工序表!$A$2:$A$875

这样呢？应该可以了

不知道你什么地方有问题

爱疯 · 发表于 2011-8-30 22:45

Sub a()
Dim x
For Each x In ThisWorkbook.Names
Debug.Print x.Name & Chr(10) & x.RefersTo & Chr(10) & x.Visible & Chr(10)
Next x
End Sub
Sub b()
Dim x
For Each x In ThisWorkbook.Names
If InStr(x, "工序表") Then x.Delete
Next x
End Sub

复制代码

运行a()返回：
'11612'!_FilterDatabase
='11612'!$A$1:$D$7
False

工序表!_FilterDatabase
=工序表!$A$1:$A$789
False

工序表
=工序表!$A$2:工序表!$A$875
True

为什么有2个隐藏的名称，我不清楚。删除绿色的名称，重新定义后就正常了。

爱疯 · 发表于 2011-8-30 22:47

工序表.rar (80.58 KB, 下载次数: 5)

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