매크로 빈 셀을 확인하고 그들을 강조 표시하십시오.

Question

셀 내용이 비어 있지 않으면 테두리가 필요한지 확인할 수있는 매크로를 만들어야합니다.

나는이 매크로 시도 :

Sub testborder() 

    Dim rRng As Range 

    Set rRng = Sheet1.Range("B2:D5") 

    'Clear existing 
    rRng.Borders.LineStyle = xlNone 

    'Apply new borders 
    rRng.BorderAround xlContinuous 
    rRng.Borders(xlInsideHorizontal).LineStyle = xlContinuous 
    rRng.Borders(xlInsideVertical).LineStyle = xlContinuous 

End Sub 

Answer 1

을 시도해보십시오 :

Sub testborder() 

    Dim rRng As Range, row As Range, c As Range 
    Set rRng = Sheet1.Range("B2:D5") 
    'Clear existing 
    rRng.Borders.LineStyle = xlNone 

    For Each row In rRng.Rows 
     For Each c In row.Columns 
     'Apply new borders 
     If (c.Value > "") Then c.BorderAround xlContinuous 
     Next c 
    Next row 

End Sub 

또는, 더 간단한 루프 :

For Each c In rRng.Cells 
     'Apply new borders 
     If (c.Value > "") Then c.BorderAround xlContinuous 
    Next c 

Answer 2

당신은 당신이 원하는대로 테스트 할 수 . 이 예제에서는 각 셀에 텍스트가 있는지 확인하여 테두리가있는 경우 각 셀에 테두리가 있는지 확인합니다.

Sub BorderForNonEmpty() 

    Dim myRange As Range 
    Set myRange = Sheet1.Range("B2:D5") 

    ' Clear existing borders 
    myRange.Borders.LineStyle = xlLineStyleNone 


    ' Test each cell and put a border around it if it has content 
    For Each myCell In myRange 
     If myCell.Text <> "" Then 
      myCell.BorderAround (xlContinuous) 
     End If 
    Next 

End Sub