让sheet名等于某个单元格值的宏

显示全部楼层 · 2010-9-27 15:50:29

下面代码放进sheet3的代码中就行，sheet3的名称就是A1的值了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet3.Name = Sheet3.Cells(1, 1).Value
End Sub
如果希望批量将一个100个sheets的表格中的所有sheets名都改成cell（1.1）呢？
这个该怎么写

千问 · 2010-9-27 15:50:29

Sub Macro1()Dim sheetFor Each sheet In Sheetssheet.Name = sheet.Cells(1, 1).ValueNext sheetEnd Sub

千问 · 2010-9-27 15:50:29

选择性