|
* 질문 >>
데이타유효성 검사를 해놓은 상황에서 드롭다운 즉 목록이 안 보이는 이유가 궁금합니다. 데이타유효성 검사 목록형태로 할 수 있는 한계가 있는지요
==============[서상훈님 글에 대한 답변입니다]==============
아래와 같이 문제가 발생한 워크시트에 코드를 작성하면 됩니다.
범위 이름이나 목록 참조 수식 등은 필요에 따라 적당히 수정하시면 됩니다.
Private Sub Worksheet_Activate()
With Range("성취기준코드").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:= xlBetween, _
Formula1:="=OFFSET(성취기준!$L$1,$U11,0,$V11,1)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
With Range("서술형점수마킹방식").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:= xlBetween, _
Formula1:="=IF($M11=""○"",$S$6:$S$8,$S$9:$S$9)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub
|
|