excel - 作用于不同的工作表

Question

我在名为“INPUT”的工作表中有一个按钮。但是，当我单击该按钮时，代码应该作用于位于名为“SUMBER”的不同工作表中的数据。我该怎么做呢？

Dim osh As Worksheet
Dim iRow As Long
Dim iCol As Long
Dim iFirstRow As Long
Dim iTotalRows As Long
Dim iStartRow As Long
Dim iStopRow As Long
Dim sSectionName As String
Dim rCell As Range
Dim owb As Workbook
Dim sFilePath As String
Dim iCount As Integer
Dim Response As Integer
Dim sFName As String

iCol = Worksheets("input").Range("B4")
iRow = Worksheets("input").Range("B5")
iFirstRow = iRow

Set osh = Application.ActiveSheet
Set owb = Application.ActiveWorkbook
iTotalRows = osh.UsedRange.Rows.Count
sFilePath = Application.ActiveWorkbook.Path

我一直在尝试更改这些行：

Set osh = Application.ActiveSheet
Set owb = Application.ActiveWorkbook

但它没有奏效。

Answer 1

像这样声明和设置工作簿和您的工作表：

Dim owb as Workbook
Dim oshInput, oshSumber as Worksheet

Set owb = Thisworkbook
Set oshInput = owb.Sheets("Input")
Set oshSumber = owb.Sheets("Sumber")

然后添加你想要做的。
例如你的行：

iCol = Worksheets("input").Range("B4")
iRow = Worksheets("input").Range("B5")

一旦你做了上述声明和设置将是：

iCol = oshInput.Range("B4")
iRow = oshInput.Range("B5")

希望这会有所帮助，让你开始一点。