随着新插入的工作表而变化的公式，能实现吗？求助！！

wj609 · 发表于 2003-12-19 20:52

请教高手一个问题：
我有一个文件，里面有两个工作表sheet1和sheet4，sheet4的A1等于sheet1的A1
，我在两者中间插入一个sheet2，希望sheet4的A1公式的链接就等于sheet2的A1了
，在sheet2和sheet4之间在插入一个工作表sheet3，则sheet4的A1就动态的等于
sheet3的A1了，，以此类推，，请教高手能实现这个想法吗？
就是随着新在中间插入的工作表，而使sheet4链接好的公式自动变成链接到挨着的
新插入人工作表的公式！

请各位高手指点小弟一下，谢谢，，祝圣诞快乐，，

ladhome · 发表于 2003-12-20 00:28

版主：我下载了你上传的文件，打开只看见一片灰色，何故？

ladhome · 发表于 2003-12-22 00:27

收到，谢谢版主！我想我在日后的编表中，会把这方法用上的。

wj609 · 发表于 2003-12-22 20:44

谢谢,,,你,,

p123456789 · 发表于 2003-12-22 13:12

不错收到

sqac · 发表于 2003-12-21 22:51

灰色是我设置的，里面也不包含数据，如需查看结果，您需要在工作表中输入公式，然后运行宏。

sqac · 发表于 2003-12-20 00:16

Sub 插入工作表并修改本工作表公式中的工作表引用()
Dim s1 As Worksheet, s2 As Worksheet
Dim i As Integer
Dim m As String
m = MsgBox("下面将在当前工作表前插入一张新工作表，并修改当前工作表公式中对前一张工作表的引用。" & Chr(13) & "您确定要继续吗？", vbYesNo)
If m = vbNo Then Exit Sub
Set s1 = ThisWorkbook.ActiveSheet
'取得原工作表序号
For Each s2 In ThisWorkbook.Worksheets
      i = i + 1
      If Worksheets(i).Name = s1.Name Then
         Exit For
      End If
Next
s1.Activate
Worksheets.Add
s1.Cells.Replace what:=Worksheets(i - 1).Name, replacement:=Worksheets(i).Name
End Sub

WnhyIPeL.rar (23.83 KB, 下载次数: 61)

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

[求助] 随着新插入的工作表而变化的公式，能实现吗？求助！！