[已解决]如何用VBA给文件添加自定义名称

事后诸葛亮

我想在打开工作表的时候添加自定义名称
Private Sub Workbook_Open()

End Sub

把“张1,张2,张3,张4,张5,张6,张7,张8,张9,张10”定义为“姓名”
如何写代码。

我想使用的时候用“数据有效性”-“序列”来使用，如下图

最佳答案

月排行榜 / 总排行榜

爱疯

2011-10-14 17:03

事后诸葛亮 发表于 2011-10-14 14:53
回复 Select 的帖子

我想使用的时候用“数据有效性”-“序列”来使用，如下图

1. Private Sub Workbook_Open()
   
2.     With Range("g3").Validation
   
3.         .Delete
   
4.         .Add Type:=xlValidateList, Formula1:="张1,张2,张3,张4,张5,张6,张7,张8,张9,张10"
   
5.     End With
   
6. End Sub

复制代码

{:041:}

跳转到最佳答案楼层

Select

为什么是说对文件？

把“张1,张2,张3,张4,张5,张6,张7,张8,张9,张10”定义为“姓名”，实际是什么效果？

录制宏可以吗？

事后诸葛亮

回复 Select 的帖子

我想使用的时候用“数据有效性”-“序列”来使用，如下图

爱疯

事后诸葛亮 发表于 2011-10-14 14:53
回复 Select 的帖子

我想使用的时候用“数据有效性”-“序列”来使用，如下图

1. Private Sub Workbook_Open()
   
2.     With Range("g3").Validation
   
3.         .Delete
   
4.         .Add Type:=xlValidateList, Formula1:="张1,张2,张3,张4,张5,张6,张7,张8,张9,张10"
   
5.     End With
   
6. End Sub

复制代码

{:041:}

事后诸葛亮

回复 爱疯 的帖子

谢谢，我原来傻傻的以为要添加到名称管理器当中。原来序列中也可以。。哎。傻了。谢谢。
虽然还没有达到我想要的。但是已经OK了。哈哈。