在Microsoft Excel中使用VBA一些替换从验证列表值

发表于： 2020年10月22日 2020年11月12日
标签： general-topics-in-vba

问题：

从D列的有效性列表中选择的内容应替换为数字。仅适用于XL9及更高版本。

答案：

将下面的代码放入“此工作簿”模块中。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 4 Then Exit Sub

Application.EnableEvents = False

Target.Value = WorksheetFunction.VLookup(Target.Value, Range("A1:B12"), 2, 0)

Application.EnableEvents = True

End Sub