excel单元格引用表名称

发布网友 发布时间：2022-04-24 04:46

我来回答

共2个回答

热心网友 时间：2023-10-29 10:18

效果：
你在A1单元格里输入什么内容，当前工作表的标签就会变成什么内容（当然要注意名称的合法性）

代码：
选择工作表标签，右键，“查看代码”，将以下代码粘贴：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then '如果单元格地址为 $A$1 并且 单元格不为空
Me.Name = Target.Value '用单元格的内容命名工作表
End If
End Sub
求采纳为满意回答。

热心网友 时间：2023-10-29 10:18

效果：
你在A1单元格里输入什么内容，当前工作表的标签就会变成什么内容（当然要注意名称的合法性）

代码：
选择工作表标签，右键，“查看代码”，将以下代码粘贴：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then '如果单元格地址为 $A$1 并且 单元格不为空
Me.Name = Target.Value '用单元格的内容命名工作表
End If
End Sub
求采纳为满意回答。

热心网友 时间：2023-10-29 10:18

修改公式为：
=VLOOKUP(D5,INDIRECT("'C:\Users\Administrator\Desktop\收文\[2018收文登记.xls]"&A3&"'!A1:G65536"),6,0)

热心网友 时间：2023-10-29 10:18

效果：
你在A1单元格里输入什么内容，当前工作表的标签就会变成什么内容（当然要注意名称的合法性）

代码：
选择工作表标签，右键，“查看代码”，将以下代码粘贴：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then '如果单元格地址为 $A$1 并且 单元格不为空
Me.Name = Target.Value '用单元格的内容命名工作表
End If
End Sub
求采纳为满意回答。

热心网友 时间：2023-10-29 10:18

修改公式为：
=VLOOKUP(D5,INDIRECT("'C:\Users\Administrator\Desktop\收文\[2018收文登记.xls]"&A3&"'!A1:G65536"),6,0)

热心网友 时间：2023-10-29 10:18

修改公式为：
=VLOOKUP(D5,INDIRECT("'C:\Users\Administrator\Desktop\收文\[2018收文登记.xls]"&A3&"'!A1:G65536"),6,0)

热心网友 时间：2023-10-29 10:18

效果：
你在A1单元格里输入什么内容，当前工作表的标签就会变成什么内容（当然要注意名称的合法性）

代码：
选择工作表标签，右键，“查看代码”，将以下代码粘贴：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then '如果单元格地址为 $A$1 并且 单元格不为空
Me.Name = Target.Value '用单元格的内容命名工作表
End If
End Sub
求采纳为满意回答。

热心网友 时间：2023-10-29 10:18

修改公式为：
=VLOOKUP(D5,INDIRECT("'C:\Users\Administrator\Desktop\收文\[2018收文登记.xls]"&A3&"'!A1:G65536"),6,0)

热心网友 时间：2023-10-29 10:18

效果：
你在A1单元格里输入什么内容，当前工作表的标签就会变成什么内容（当然要注意名称的合法性）

代码：
选择工作表标签，右键，“查看代码”，将以下代码粘贴：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then '如果单元格地址为 $A$1 并且 单元格不为空
Me.Name = Target.Value '用单元格的内容命名工作表
End If
End Sub
求采纳为满意回答。

热心网友 时间：2023-10-29 10:18

修改公式为：
=VLOOKUP(D5,INDIRECT("'C:\Users\Administrator\Desktop\收文\[2018收文登记.xls]"&A3&"'!A1:G65536"),6,0)