自动定义图纸名称

我正试图在VBA中自动定义表单名称。

这是我创build的代码：

Range("F7:F11").Select Selection.Copy Sheets("janeiro").Select Range("F7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 

基本上，我需要单元格b2中的内容来定义表单的名称。 在这个例子中，工作表的实际名称是“janeiro”，但是我需要名称由单元格b2的内容定义。

例如， February, March...以自动方式完成。

这可能吗？

Answer 1

将“janeiro”replace为Range("B2").Value 。

然后，加紧你的代码以避免使用Select方法 ：

 Range("F7:F11").Copy Sheets(Range("B2").Value).Range("F7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 

注意：如果指定的图纸名称不存在，会引发错误。

或者…这将是一个很好的机会向您展示如何使用variables ，而不是显式引用：

 Dim shName as String 'Defines a STRING variable which we will use to hold a sheet name shName = Range("B2").Value '## Now, we can simply refer to shName any time we need to refer to the value in "B2" Range("F7:F11").Copy Sheets(shName).Value).Range("F7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False