Question

我做了一些改变＆＃39;需要转到已在索引中找到的单元格的按钮，如下所示。

Private Sub CommandButton16_Click()

    Dim behandel As Variant

    behandel = Application.WorksheetFunction.Index(Sheets("bestand totaal").Range("E2:E996"), Application.WorksheetFunction.Match(Sheets("Gegevens").Range("B3"), Sheets("Bestand totaal").Range("J2:J996"), 0), 1)

End Sub

Answer 1

你可以制作＆＃39; behandel＆＃39;一个范围然后使用Set来获得该范围的公式的引用。然后你可以简单地选择那个单元格：

Dim behandel As Range

Set behandel = Application.WorksheetFunction.Index(Sheets("bestand totaal").Range("E2:E996"), Application.WorksheetFunction.Match(Sheets("Gegevens").Range("B3"), Sheets("Bestand totaal").Range("J2:J996"), 0), 1)
behandel.Select

如何转到单元格（找到索引匹配）来更改值？

1 个答案: