为整个计算声明一张表 - vba

Question

我使用命令按钮的用户界面表和计算表来使用以下代码进行计算：

package.json

我使用了这个＆＃34;工作表（＆＃34;计算＆＃34;）。 ＆＃34;在每一个＆＃34; cell.value＆＃34;之前确保输出打印在正确的表格中。

我是否可以在一开始就使用任何代码让模型知道我正在处理哪张表？我不想用 ＆＃34;工作表（＆＃34;计算＆＃34）。＆＃34; 一遍又一遍？

Answer 1

尝试设置Worksheets("Calculation")的引用，如下所示：

Set ws = Worksheets("Calculation")

这意味着您可以使用ws.Cells(i, "E").Value并在ws语句的任何位置使用Worksheets("Calculation")。

如果您真的不想使用ws引用所有单个单元格语句，那么您可以使用with语句来最小化您的工作：

Function Something()
Dim ws as WorkSheet : Set ws = Worksheets("Calculation")
With ws
' do all the things you like
.Cells(1, "E").value = whateverYouLike 
.Cells(3, "A").value = somethingElse
End With
End Function

在With内，您无需参考工作表，只需参考相关方法和对象。

Answer 2

Dave是正确的，但最好使用逻辑名而不是用户名来引用工作表。 我在评论中提出了备选方案。

Option Explicit

Sub test()
    Dim ws As Worksheet
    'set ws = SheetCalculation
    SheetCalculation.Select
    'ws.Select
End Sub