求批量修改工作表名字的代码

riji

情况是这样的,我任意时间建立一个book,然后这个文件里有几十个Sheet工作表,这几十个sheet表是每隔一分钟建立的,然后我要批量的修改这些sheet表的名称,名称就是以时间命名.

举个例子,我早上8点(任意时间也可以是23点)建立了一个book1文件,然后这个文件里有50个Sheet工作表,然后我手工设定第一个sheet表的名字为0800(sheet1的名字是定值),然后运行宏,让此后的每个sheet表的名称自动改为0801,0802,0803,0804......


比如说我下午14点建立一个book,里面有几十个sheet表,我手动设定sheet1的名字为1400,我想批量把后面的sheet表的名字依次修改为1401,1402,1403,1404,1405,1406.........

[ 本帖最后由 riji 于 2009-7-5 14:11 编辑 ]

冰山上的来客

Sub Name_Sheet()
Dim Wb As Workbook, Sh As Worksheet, i%
Set Wb = Workbooks.Add
i = 1
    For Each Sh In Wb.Sheets
        Sh.Name = Format(Time, "HH") & "0" & i
        i = i + 1
    Next
   
End Sub

冰山上的来客

或者：
Sub Name_Sheet()
Dim Wb As Workbook, Sh As Worksheet, i%
Set Wb = ThisWorkbook
i = 1
    For Each Sh In Wb.Sheets
        Sh.Name = Format(Time, "HH") & "0" & i
        i = i + 1
    Next
End Sub

风之助

Sub Name_Sheet()
    For i = 2 To Sheets.Count
        Sheets(i).Name = Format(Val(Sheets(1).Name) + i - 1, "0000")
    Next
End Sub

LAOMALIN

这个话我好像也答过,怎么又再发了

riji

5楼的老师,你那个代码只能运行8点的那个时间,我说的时间是任意输入的

感谢以上几位老师,测试成功了,谢谢