데이터유효성 조건을 목록으로 설정할 때, 원본의 글자수 제한이 있나요?

Question

유효성 조건을 위와 같이 선택하고,

원본에 매크로를 이용하여 다음과 같이 채워 넣었습니다.

Sub TestTest()

'

' 데이터유효성 조건 목록,

'

'

Dim i, tNo

   tNo = "1"

   For i = 2 To 89

      tNo = tNo & "," & i

   Next i

   Sheets("Sheet1").Range("A1") = Len(tNo)

   With Sheets("Sheet1").Range("C1").Validation

      .Delete

      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=tNo

      .IgnoreBlank = True

      .InCellDropdown = True

      .InputTitle = ""

      .ErrorTitle = ""

      .InputMessage = ""

      .ErrorMessage = ""

      .IMEMode = xlIMEModeNoControl

      .ShowInput = True

      .ShowError = True

   End With

End Sub

그리고, 파일을 저장한 후 종료한 다음에 다시 열면 아래와 같은 메시지가 계속 뜹니다.

불과 며칠 전까지 잘 사용하던 것인데, 갑자기 오류가 뜹니다.

Answer 1

안녕하세요. JohnPark_19님.

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

현재 고객님께서 남겨주신 부분이 사용중에 갑자기 발생된 부분이라면 타사 프로그램의 영향이나 손상에 의하여 발생할 수 있는 부분으로 점검해보실 수 있는 내용을 안내드리오니 참고하시어 진행 부탁드립니다.

작업 방법 1. Excel 안전모드 실행

1. Windows 10 기준으로 시작 버튼 우측에 있는 검색 상자에 Excel을 검색합니다.
2. 검색 항목에 Excel이 나타나면 키보드에서 Ctrl키를 눌러 준 상태로 마우스로 클릭하여 실행해줍니다.
3. 프로그램이 안전모드로 실행되면, 안전모드에서 동일 작업 시 증상이 나타나는지 확인 부탁드립니다

위 안내 드린 작업 방법으로 정상적으로 실행되는 경우 Excel 내 추가기능 비 활성화 또는 Office 프로그램 복구가 필요한 부분으로 하기에 방법 안내 드리니 참고 부탁드립니다.

작업 방법 2. 추가기능 점검

1. Excel 왼쪽 상단의 파일을 눌러 줍니다.

2. 왼쪽 목록 끝에 옵션을 클릭 후 나타나는 옵션 창 왼쪽 맨 끝 추가 기능을 눌러줍니다.
3. 추가 기능 화면이 나타나면 [활성 응용 프로그램 추가 기능]란에 추가되어 있는 추가 기능이 있다면 클릭 후 가장 하단의 관리(A) 항목 드랍 박스에서 [사용할 수 없는 항목]을 선택 후 이동을 눌러줍니다.
4. 확인을 눌러 Excel을 종료 후 재실행 해주어 동일 증상이 나타나는지 확인합니다.

위 작업 방법 2를 진행 했을 때 동일한 증상이라면 하기 작업 방법 3을 진행 부탁드립니다.

작업 방법 3.Office 복구 방법

1. Windows 10 기준으로 시작 버튼 우측에 있는 검색 상자에 제어판을 검색합니다.
2. 프로그램 제거 또는 프로그램 또는 프로그램 및 기능으로 진입합니다.
3. 프로그램 목록 중 Microsoft Office 제품을 찾아 마우스 우 클릭 후 제거/변경 메뉴가 나오면 변경을 눌러줍니다.
4. 빠른 복구 메뉴가 나타나면 복구 진행 후 재부팅 후 증상이 나타나는지 확인합니다.

안내 드린 답변이 도움이 되었기를 바라며, 추가 질문이 있으실 경우 [응답] 버튼을 눌러 답변 부탁드립니다.

감사합니다.