[已解决]工作表的重命名

我心飞翔410

怎样利用vba命名工作表 比如把sheet1 变为123

最佳答案

月排行榜 / 总排行榜

mxg825

2011-12-28 20:30

sheet1.name="'123" '注意 纯数字 或数字开头的名称 前面要加单引号

跳转到最佳答案楼层

mxg825

sheet1.name="'123" '注意 纯数字 或数字开头的名称 前面要加单引号

我心飞翔410

mxg825 发表于 2011-12-28 20:30
sheet1.name="'123" '注意 纯数字 或数字开头的名称 前面要加单引号

谢谢了 ，我在请教一个问题 ，不同的数字执行同一个程序除了复制公式还有什么办法啊

我心飞翔410

呵呵，不好意思 怪我懒打字表达的太精简了，是这样的在vba中，不同的数值计算都是同一个公式除了复制公式还有什么方法。比如说a=100，a1=120  x=a+50    y=a+40   x1=a1+50    y1=a1+40   当然计算公式没这么简单 公式都是一样只是a值不一样 怎么简化程序

jiahua1010

我心飞翔410 发表于 2011-12-28 20:48
呵呵，不好意思 怪我懒打字表达的太精简了，是这样的在vba中，不同的数值计算都是同一个公式除了复制公式还 ...

不可以把A定义一个变量，每次运算完成之后重新给A赋值。

barrydyl

把以下代码copy进入ThisWorkbook并运行就可以了。

Sub a()
    Dim i As Integer
    For i = 1 To 100
        ActiveSheet.Copy after:=ActiveSheet
        ActiveSheet.Name = i
    Next i
End Sub