Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何指定工作表而不是ActiveSheet?_Excel_Vba - Fatal编程技术网

Excel 如何指定工作表而不是ActiveSheet?

Excel 如何指定工作表而不是ActiveSheet?,excel,vba,Excel,Vba,我录制了一个宏,它在“活动表”上创建了一个With循环。我想指定哪个工作表,这样我就可以创建一个包含该宏的按钮,它将引用正确的工作表。在vba中,应该使用简单的语法来指定特定的工作表,而不是“使用ActiveSheet”-我只是不熟悉vba语法。首先声明这样的变量 Dim wk As Worksheet wk.Name = "NewName of Worksheet" wk.Range("A1") = "Assigning something to range A1 of that w

我录制了一个宏,它在“活动表”上创建了一个With循环。我想指定哪个工作表,这样我就可以创建一个包含该宏的按钮,它将引用正确的工作表。在vba中,应该使用简单的语法来指定特定的工作表,而不是“使用ActiveSheet”-我只是不熟悉vba语法。

首先声明这样的变量

Dim wk As Worksheet
wk.Name = "NewName of Worksheet"    
wk.Range("A1") = "Assigning something to range A1 of that worksheet"
然后使用以下任何语法将其设置为所需的任何工作表。这些只是一些方法,还有其他方法

Set wk = Sheet1   'Sheet1 is the sheet Number 
Set wk = Worksheets("Sheet1")   'Sheet1 is the sheet Name.
Set wk = Worksheets(1)   '1 is the Worksheet Index Number 
然后你可以用这个变量来做这样的事情

Dim wk As Worksheet
wk.Name = "NewName of Worksheet"    
wk.Range("A1") = "Assigning something to range A1 of that worksheet"

首先像这样声明一个变量

Dim wk As Worksheet
wk.Name = "NewName of Worksheet"    
wk.Range("A1") = "Assigning something to range A1 of that worksheet"
然后使用以下任何语法将其设置为所需的任何工作表。这些只是一些方法,还有其他方法

Set wk = Sheet1   'Sheet1 is the sheet Number 
Set wk = Worksheets("Sheet1")   'Sheet1 is the sheet Name.
Set wk = Worksheets(1)   '1 is the Worksheet Index Number 
然后你可以用这个变量来做这样的事情

Dim wk As Worksheet
wk.Name = "NewName of Worksheet"    
wk.Range("A1") = "Assigning something to range A1 of that worksheet"

使用语法
thiswoolk.Sheets(“sheet\u name”)
这非常完美,非常简单。谢谢。使用语法
thiswook.Sheets(“sheet\u name”)
这非常完美,非常简单。非常感谢。