VBA 셀 유효성검사 오류

Question

첨부 파일의 데이터시트의 데이터를 조회시트에서 유효성검사를 통해 조회를 할 경우 파일 저장 후 다시 파일을 열면 아래와 같은 메시지가 계속 뜹니다.프로그래밍 잘못인지 잘 모르겠습니다.많은 조언 부탁드립니다.

Dim t(), RevDim i As Long, n As LongPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Dim X As New CollectionApplication.ScreenUpdating = 0Application.Calculation = xlCalculationManualWith TargetIf .Count > 1 Then Exit SubRev = Sheets("데이터").Range("A1").CurrentRegionIf .Row = 1 And .Column = 1 Then.Validation.DeleteOn Error Resume NextFor i = 2 To UBound(Rev, 1)X.Add Rev(i, 1), CStr(Rev(i, 1))If Err.Number <> 457 ThenReDim Preserve t(n)t(n) = Rev(i, 1)n = n + 1End IfErr.ClearNext iWith .Validation.Delete.Add xlValidateList, xlValidAlertStop, xlBetween, Join(t, ",")End Withn = 0CreateObject("WScript.Shell").SendKeys "%{down}"End IfEnd WithApplication.ScreenUpdating = 1Application.Calculation = xlCalculationAutomaticEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)Dim Obj As New Scripting.DictionaryApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualOn Error Resume NextRev = Sheets("데이터").Range("A1").CurrentRegionWith TargetIf .Count > 1 Then Exit SubIf .Row = 1 And .Column = 1 ThenFor i = 2 To UBound(Rev, 1)If Rev(i, 1) = .Value ThenIf Not Obj.Exists(Rev(i, 2)) Then Obj.Add Rev(i, 2), ""End IfNext iWith .Offset(1, 0).Validation.Delete.Add xlValidateList, xlValidAlertStop, xlBetween, Join(Obj.Keys, ",")End With.Offset(1, 0).SelectCreateObject("WScript.Shell").SendKeys "%{down}"End IfEnd WithApplication.ScreenUpdating = 1Application.Calculation = xlCalculationAutomaticEnd Sub

Answer 1

안녕하세요. 태오김2님.

Microsoft Community를 이용해 주셔서 감사합니다.

죄송합니다만 현재 문의주신 일반 커뮤니티에서는 VBA 관련한 내용으로 따로 안내를 도와드리기 어려운 부분으로

번거로우시더라도 해당 내역은 저희 Microsoft에서 운영중인 TI 전문 포럼인 DOCS를 통해 문의주시길 부탁드립니다.

많은 어려움으로 불편을 겪으셨을 것으로 생각되며 조금이나마 도움이 되시길 바랍니다. 추가 문의가 있으시다면 [응답] 버튼을 눌러 질의를 부탁드립니다.

감사합니다.