Private Sub Worksheet_Change(ByVal Target As Range)
With Target
.WrapText = False
Target.Columns.AutoFit
.WrapText = True
End With
End Sub
시트 모듈에 작성해보십시오
2026.02.06
1
마법의손Lv.30
더블유에이님 코드 수정함..~ 두번해야하네요...
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
.WrapText = False
.EntireColumn.AutoFit
.WrapText = True
.EntireColumn.AutoFit
End With
End Sub
시트 모듈에 작성해보십시오
더블유에이님 코드 수정함..~ 두번해야하네요...