태그 보관물: microsoft-excel-2010

microsoft-excel-2010

Excel에서 특정 값과 동일한 셀의 내용을 자동으로 변경하는 방법 올바른 해당

현재 일련의 값에 해당하는 데이터 열 (숫자)을 사용하고 있는데 데이터 / 숫자를 올바른 해당 값으로 자동 대체하는 방법에 대해 궁금합니다. 도움을 주셔서 감사합니다.

시작 데이터

여기에 이미지 설명을 입력하십시오

최종 결과

여기에 이미지 설명을 입력하십시오

답변

워크 시트 변경 이벤트에서 다음과 같은 작업을 수행 할 수 있습니다. 항목을 입력하는 열이 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

답변