如何使用VBA代码编写EXCEL工作簿名称

Question

现有一个EXCEL单元格，里面内容为广东，上海，北京。当我选择上海时，第二个工作簿名称改为上海并显示第二个工作簿；选择广东则第二个工作簿名称改为广东，并且显示第二个工作簿

不知道如何显示！！！急救11

Answer 1

要做一个跨工作簿的查找，现在呢，我查找和被查找的两个工作簿的切换是靠"workbooks(1)"和"workbooks(2)”来切换的，workbooks(1)就代表第一个工作表，workbook(2)代表通过"application.getopenfilename”方法打开的第二个工作表。
现在问题是，我运行的时候只能在一个工作簿的情况下才能正常运行，否则就会出错。所以我需要知道当前工作簿排在第几个~
sub
test()
dim
a
as
string
a
=
application.getopenfilename
set
wb1
=
workbooks.open(a)
wb1.worksheets(1).range("a1").value
=
"haha"
end
sub

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value <> "" Then
ThisWorkbook.Sheets(2).Name = Target.Value
ThisWorkbook.Sheets(2).activate
End If
End Sub
不知道是不是你想要的本回答被提问者和网友采纳

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value <> "" Then
ThisWorkbook.Sheets(2).Name = Target.Value
End If

End Sub