셀 매크로 이름 상자를 할당하는 Excel 매크로 루프

Question

인접 셀의 값으로 셀의 이름 상자를 채우고 싶습니다. 이 매크로는 작동합니다.

Sub NameBox() 
    ' populates name box w/ value from adjacent cell 
    ActiveCell.Name = ActiveCell.Offset(0, -1).Value 
    ' steps down to next cell 
    ActiveCell.Offset(1, 0).Select 
End Sub 

는 내가 키 스트로크를 할당하고 꽤 쉽게 열의 각 셀을 반복하지만 난 그것을 루프로 개선 될 수 있다고 생각합니다.

나는 이것을 시도했다.

Sub NameBoxLoop() 
    Dim cel As Range 
    For Each cel In Range("C:C").Cells 
     If cel.Value <> "" Then 
     cel.Name = cel.Offset(0, -1).Value 
     End If 
    Next cel 
End Sub 

는하지만 다음 디버그 오류를 얻을

cel.Name = 응용 프로그램 정의 또는 개체 정의 오류

루프 논리가 바로 보이는 나는 변수 CEL을 대체하는 경우 .Name을 cel.Value로 설정하면 루프가 완료됩니다.

검색에서 cel.Name 오류에 대한 답변을 제공하지 않았습니다. 이 오류를 해결하는 데 도움이됩니다.

Answer 1

수식이 작동합니다. 하지만 오류 수정이 없기 때문에 환경이 최적이 아니며 이름에 제한이 있습니다.

그래서 나는 B 열에 값이 없거나 B 열에 다른 셀의 이름으로 이미 사용 된 값이 있다고 추측하고 있습니다.

두 경우 모두 루프가 중단됩니다.

어쨌든 루프이 시도하지만, 오류가 증명 코드를 고려하십시오

이

Sub NameBoxLoop() 
    On Error Resume Next 
    Dim cel As Range 
    For Each cel In Range("C:C").Cells 
     If cel.Value <> "" Then 
     cel.Name = cel.Offset(0, -1).Value 
     End If 
    Next cel 
end sub 

편집 : 제안으로

, 당신은 Names 목록을 사용하여 고려할 수 있습니다. 여기

ActiveWorkbook.Names.Add Name:="test", RefersTo:="=sheet1!$a$1:$c$20" 

그리고 objectmembers의 일부 : 여기

은 엑셀 - 도움의 예입니다

• 추가
• 항목
• 카운트 당신은 나를 이길