CELL 사이즈 조정 하는 코드

BOM의 레벨을 표시하는 기능 개발을 위해 필요 합니다.

Option Explicit
Sub BomLever()

    Dim oColum, i As Long
    oColum = 15 '컬럼 갯수 표시 
    
    For i = 0 To oColum -1
    
        Cells(1, i+1) = "LV" & i
        Cells(1, i+1).ColumnWidth = 4
        Cells(1, i+1).Font.Size = 10
        Cells(1, i+1).HorizontalAlignment = xlCenter

    Next i
    

End Sub

 

아래와 같이 표시 됩니다

 

 

 

---