我使用命令按钮的用户界面表和计算表来使用以下代码进行计算:
package.json
我使用了这个"工作表("计算")。 "在每一个" cell.value"之前确保输出打印在正确的表格中。
我是否可以在一开始就使用任何代码让模型知道我正在处理哪张表?我不想用 "工作表("计算&#34)。" 一遍又一遍?
答案 0 :(得分:2)
尝试设置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
内,您无需参考工作表,只需参考相关方法和对象。
答案 1 :(得分:1)
Dave是正确的,但最好使用逻辑名而不是用户名来引用工作表。 我在评论中提出了备选方案。
Option Explicit
Sub test()
Dim ws As Worksheet
'set ws = SheetCalculation
SheetCalculation.Select
'ws.Select
End Sub