VBA将行号添加到用户窗体的组合框的ListIndex

Question

我有一个CombBox，它从列表中选择一个单元格，然后其下方的标签更新以显示与所选单元格相邻的单元格值。但是，该列表从工作表的第8行开始，因此要找到正确的行＃我必须在ListIndex中添加8。

Private Sub UChemical_Change()
Dim JRow As Long
Dim ws As New Worksheet
Set ws = Worksheets("Main Inventory (filterable)")
    JRow = Me.UChemical.ListIndex + 8
With ws
    ULotLabel.Caption = .Cells(JRow, 3)
    UItemLabel.Caption = .Cells(JRow, 4)
    URefLabel.Caption = .Cells(JRow, 5)
End With

End Sub

如果有更好的方法来执行此操作，例如识别CombeBoxes选定的行或将列表上方的单元格编号设置为仅键入8个我想知道的内容。我不希望有人进来并在顶部添加一行并完全破坏我的UserForm。