엑셀 vba, ADA 준수 범위 이름 추가

Question

스프레드 시트 ADA를 준수하도록 범위 이름을 추가하려고합니다. 나는 아래 코드를 시도했다;

ActiveWorkbook.Names.Add Name:="On_Draft_List_D", RefersToR1C1:=("Sheet1!R1C1:R" & LastRow - 35 & "C1") 
    ActiveWorkbook.Names("On_Draft_List_D").Comment = "" 

항목 관리자는 이름 관리자에 나타나지만 스프레드 시트의 이름 상자에는 표시되지 않습니다. 나는 나의 인터넷 수색에 실패하고 누군가가 올바른 방향으로 나를 가르 킬 수 있기를 바랬다. 네가 나에게 줄 수있는 도움에 감사한다.

Answer 1

귀하의 R1C1 참조가 유효하지 않기 때문에 이것이 나타나지 않는 것으로 보입니다. 나는 당신의 코드를 테스트했고 같은 문제가 있었다. 다음과 같이 범위를 명시 적으로 설정하십시오.

Dim cell As Range 
Set cell = Range("A1:B3") 
ActiveWorkbook.Names.Add Name:="On_Draft_List_D", RefersTo:=cell 
ActiveWorkbook.Names("On_Draft_List_D").Comment = "" 

이 훨씬 효과적입니다. RefersTo 인수를 사용하는 것이 더 쉽고 .Add 호출 범위를 벗어난 범위를 설정하면 올바른 범위를 훨씬 쉽게 선택할 수 있습니다.