Microsoft Excel에서 VBA를 사용하여 숫자로 확인 목록에서 값을 교체

Posted on: 2020年11月12日 2020年11月12日
Tags: 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