excel vba에서 변수 행 개수의 범위에 모든 테두리를 추가하려고합니다.

Question

나는 가지고있는 헤더 아래의 내용에 모든 테두리를 추가하려고합니다. 범위는 A7에서 0x까지이며 여기서 x는 내용의 마지막 행입니다. 나열된 코드의 첫 번째 부분은 CFS-GHOST-DJKT를 찾고 완벽하게 작동하는 행을 삭제합니다. 하단 결말 열을 올바르게 선택하는 방법에 대해 확신이 서지 않습니다. Range(A7, Ox)의 용어를 사용

는

Dim x As Long 
For x = Cells(Rows.Count, "A").End(xlUp).Row To 7 Step -1 
    If Cells(x, "A") = "CFS-GHOST-DJKT" Then Rows(x).Delete 


'Add Gridlines========================================================= 


     Range(A7, Ox).Select 
     With Selection.Borders 
      .LineStyle = xlContinuous 
      .ColorIndex = 0 
      .TintAndShade = 0 
      .Weight = xlThin 

     End With 

Answer 1

으로 한 코너 등 A7 (유형 Range의) 변수의 Address 및 (또한 타입 Range의) 변수의 Address 의해 정의 된 직사각형 영역 Ox을 선택 VBA 말하고 다른 쪽 구석.

이러한 변수 중 어느 것도 정의하지 않았기 때문에 코드가 실패합니다.

대신을 시도해보십시오

Dim x As Long 
For x = Cells(Rows.Count, "A").End(xlUp).Row To 7 Step -1 
    If Cells(x, "A") = "CFS-GHOST-DJKT" Then Rows(x).Delete 
Next 

With Range("A7:O" & Cells(Rows.Count, "A").End(xlUp).Row).Borders 
    .LineStyle = xlContinuous 
    .ColorIndex = 0 
    .TintAndShade = 0 
    .Weight = xlThin 
End With