我正在尝试编写一个宏,它将不同工作簿中定义的工作表组合起来,并将它们保存到一个单独的工作簿中。每个工作簿都包含一个名称相同的工作表MODEL
。此片材具有一个组合框,此组合框与工作表的名称在下面码相关联的,如:当所有的工作表中一个工作簿组合在一起,并更名如何在表名更改时动态更改代码?
Sub ComboBox1_Change()
Application.ScreenUpdating = False
Select Case Sheets("MODEL").Range("code_plant")
Case 1
Sheets("MODEL").Range("price_zero").Copy _
Destination:=Sheets("MODEL").Range("price_on_view")
End Select
Application.ScreenUpdating = True
End Sub
,就会出现问题。我需要修复应该在重命名后引用当前(重命名)工作表名称的组合框宏。我试图使用下面的函数,但无法弄清楚它如何以正确的方式包含在我的代码中。
Function MySheet()
Application.Volatile
MySheet = Application.Caller.Worksheet.CodeName
End Function
谢谢!
该代码位于持有组合框的工作表中。它会自动应用到正确的工作表,而不需要名称,否? – QHarr
如果您想要包含组合框ComboBox1.Parent.Name – QHarr