[已解决]工作表名称填充

lianke · 发表于 2010-7-29 14:35

请问：

ActiveSheet.Name = [A1]

假如A1为5，在A1单元设置里选择：特殊》邮政编码，但是工作表名称还是5

我想工作表是六位数，名称不足六位数前面由0填充，例如A1为5；或15；或115，填充后工作表名称为000005；或000015；或000115，在ActiveSheet.Name = [A1]后面用该加入什么代码呀。还请指点~~！

万分感谢~~！

最佳答案

amulee

2010-7-29 14:37

ActiveSheet.Name = Format([A1],"000000")

amulee · 发表于 2010-7-29 14:37

ActiveSheet.Name = Format([A1],"000000")

zxc1152468 · 发表于 2010-7-29 14:39

ActiveSheet.Name = Format([A1],"000000")

lianke · 发表于 2010-7-29 14:46

非常感谢各位的热心解答

liangnan1986 · 发表于 2010-7-29 14:46

学习代码

fjmxwrs · 发表于 2010-7-29 14:50

如您题意，已经设置了单元格格式为邮编，用以下代码即可

ActiveSheet.Name = [A1].Text

如果没有设置单元格格式，则用以下代码

ActiveSheet.Name = Format([A1],"000000")

fjmxwrs · 发表于 2010-7-29 14:51

text和value区别在于显示值和真实值差别

sp356468826 · 发表于 2010-7-29 15:02

[em01]

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