VBA 如何设置选项不同得分跟着变化

Question

如题所述

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$C$2" Then Exit Sub

Target.Offset(0, -1) = WorksheetFunction.VLookup(Target.Value, ThisWorkbook.Sheets(2).Range("a:d"), 3, 0)
Target.Offset(0, -2) = WorksheetFunction.VLookup(Target.Value, ThisWorkbook.Sheets(2).Range("a:d"), 2, 0)
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target.Value, ThisWorkbook.Sheets(2).Range("a:d"), 4, 0)

End Sub