VBA 함수 Worksheet_Excel용 변경

다시 선택할 때 기존 선택 항목을 제거하고 추가 항목을 제거하도록 주제 기능을 수정했습니다. 수정된 코드는 다음과 같습니다.

개인 하위 Worksheet_Change (범위로 ByVal 대상)
'에 의해 업데이트됨 Extendoffice 2019/11/13
'Ken Gardner에 의해 업데이트됨 2022/07/11
범위로 희미한 xRng
Dim xValue1을 문자열로
Dim xValue2을 문자열로
정수로 Dim semiColonCnt
Target.Count > 1이면 Sub 종료
오류에 대한 다음 재개
xRng = Cells.SpecialCells(xlCellTypeAllValidation) 설정
xRng가 아무것도 아닌 경우 Sub를 종료하십시오.
Application.EnableEvents = False
'Application.Intersect(Target, xRng)가 아닌 경우에는 아무것도 아닙니다.
If Application.Intersect(Target, xRng) 다음
xValue2 = 대상.값
신청.실행취소
xValue1 = 대상.값
대상.값 = xValue2
xValue1 <> ""이면
xValue2 <> ""이면
xValue1 = xValue2 또는 xValue1 = xValue2 & ";"인 경우 또는 xValue1 = xValue2 & "; " 그러면 ' 목록에 하나만 있으면 값을 그대로 둡니다.
xValue1 = 바꾸기(xValue1, "; ", "")
xValue1 = 바꾸기(xValue1, ";", "")
대상.값 = xValue1
ElseIf InStr(1, xValue1, "; " & xValue2) 그러면
xValue1 = Replace(xValue1, xValue2, "") ' 반복 선택 시 목록에서 기존 값을 제거합니다.
대상.값 = xValue1
ElseIf InStr(1, xValue1, xValue2 & ";") 그런 다음
xValue1 = 바꾸기(xValue1, xValue2, "")
대상.값 = xValue1
다른
Target.Value = xValue1 & "; " & xValue2
END IF
Target.Value = Replace(대상.값, ";;", ";")
Target.Value = Replace(대상.값, "; ;", ";")
If InStr(1, Target.Value, "; ") = 1 Then ' 확인 ; 첫 번째 문자로 제거하고
Target.Value = Replace(Target.Value, "; ", "", 1, 1)
END IF
InStr(1, Target.Value, ";") = 1이면
Target.Value = Replace(대상.값, ";", "", 1, 1)
END IF
세미콜론Cnt = 0
i = 1에 대해 Len(Target.Value)까지
If InStr(i, Target.Value, ";") 다음
세미콜론Cnt = 세미콜론Cnt + 1
END IF
다음 i
semiColonCnt = 1이면 '제거합니다. 마지막 문자인 경우
Target.Value = Replace(Target.Value, "; ", "")
Target.Value = Replace(대상.값, ";", "")
END IF
END IF
END IF
END IF
Application.EnableEvents = True
최종 하위