在 Excel 中使用 VBA:
我有很多表有多个表。这些表的唯一共同点是 ProductID 列和 LotNumber 列。Products ID 列中的数据需要验证和/或操作。我需要一种方法来获取当前选定单元格的当前表的表行索引号。我不能使用 ActiveCell 引用,因为表格行与工作表行不匹配。我无法使用在列中查找最后使用的单元格,因为还有其他表格。
我需要能够在许多不同的工作簿中使用这个子。
这是我到目前为止的代码。
Const tblUNLABELED As String = "tblUnLabel"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
StopAppEvents
Dim ws As Worksheet
Set ws = ActiveSheet
Dim intRow As Integer
Dim strTest As String
If Not Intersect(ActiveCell, _
ActiveSheet.Range(tblUNLABELED & "[LotNumber]")) Is Nothing Then
'go to the product entered in this table row and Ucase(ProductID)
strTest = ws.ListObjects(tblUNLABELED).Range(intRow, "[ProductID]")
ws.ListObjects(tblUNLABELED).Range(intRow, "[ProductID]") = UCase(strTest)
End If
RestartAppEvents
End Sub
欢迎任何帮助。