현재 일련의 값에 해당하는 데이터 열 (숫자)을 사용하고 있는데 데이터 / 숫자를 올바른 해당 값으로 자동 대체하는 방법에 대해 궁금합니다. 도움을 주셔서 감사합니다.
시작 데이터
최종 결과
답변
워크 시트 변경 이벤트에서 다음과 같은 작업을 수행 할 수 있습니다. 항목을 입력하는 열이 A이고 조회의 레이아웃이 예제에 따라 K & J에 있다고 가정합니다. 원하는대로 범위를 조정할 수 있습니다.
Private Sub Worksheet_Change(ByVal Target As Range)
'should check you are doing entry in column A first
If Target.Column = 1 Then
Application.EnableEvents = False
Dim R1 As Range
Dim R2 As Range
Dim rngStart As Range
Dim varFind As Variant
Dim InRange As Boolean
Set R1 = Range(Target.Address)
Set R2 = Range("J:J")
Set rngStart = Range("J1")
If R2.Find(What:=Target, After:=rngStart, LookIn:=xlValues, LookAt:=xlWhole _
, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
Application.EnableEvents = True
Set R1 = Nothing
Set R2 = Nothing
Exit Sub
Else
varFind = R2.Find(What:=Target, After:=rngStart, LookIn:=xlValues, LookAt:=xlWhole _
, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Address
Set varFind = Range(varFind)
R1.Value = varFind.Offset(0, -1)
Application.EnableEvents = True
Set R1 = Nothing
Set R2 = Nothing
Set rngStart = Nothing
Set varFind = Nothing
End If
Else
Exit Sub
End If
End Sub