[寻找]：如何实现工作表的名称自动更换？

齐小社88

假设有三个工作表，分别为高山 流水 人家，那么，要求在高山的A1显示“流水”，A2里显示“人家”.....同时要求当“人家”变化为“小桥”时，A1也要变化。如何实现？


                  *-*c *-*c

marxbat

要是这样：sheet1名称与sheet1 "A1"内容对应并随"A1"内容而改变,sheet2名称与sheet1 "A2"内容对应并随"A2"内容而改变,sheet3名称与sheet1 "A3"内容对应并随"A3"内容而改变。下面代码基本能满足。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Worksheets(1).Range("a1").Text = "" Then
  Worksheets(1).Name = "sheet1"
  Else
  Worksheets(1).Name = Worksheets(1).Range("a1").Text
End If
If Worksheets(1).Range("a2").Text = "" Then
  Worksheets(2).Name = "sheet2"
  Else
  Worksheets(2).Name = Worksheets(1).Range("a2").Text
End If
If Worksheets(1).Range("a3").Text = "" Then
  Worksheets(3).Name = "sheet3"
  Else
  Worksheets(3).Name = Worksheets(1).Range("a3").Text
End If
End Sub

齐小社88

感谢你的支持！！我在编管理小程序，感谢！  再者，如果需要自动添加SHEET表（当sheet1!的A4添加了内容，则要求自动插入sheet4表），该如何做？盼回复。

marxbat

原代码改为:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Worksheets(1).Range("a1").Text = "" Then
  Worksheets(1).Name = "sheet1"
  Else
  Worksheets(1).Name = Worksheets(1).Range("a1").Text
End If
If Worksheets(1).Range("a2").Text = "" Then
  Worksheets(2).Name = "sheet2"
  Else
  Worksheets(2).Name = Worksheets(1).Range("a2").Text
End If
If Worksheets(1).Range("a3").Text = "" Then
  Worksheets(3).Name = "sheet3"
  Else
  Worksheets(3).Name = Worksheets(1).Range("a3").Text
End If
If Worksheets(1).Range("a4").Text <> "" And Worksheets.Count < 4 Then
  Sheets.Add After:=Worksheets(Worksheets.Count)
  Worksheets(4).Name = Worksheets(1).Range("a4").Text
  Worksheets(1).Select
ElseIf Worksheets(1).Range("a4").Text <> "" And Worksheets.Count = 4 Then
Worksheets(4).Name = Worksheets(1).Range("a4").Text
End If
End Sub