Sub セルの列幅に文字列を収める()

    '列幅に収まるように文字列を縮小
    Range("C:E").Select
    With Selection
        .WrapText = False   '列幅に収まるようにテキストを折り返す
        .ShrinkToFit = True '列幅に収まるように文字列を縮小
    End With
                    
    '列幅に収まるようにテキストを折り返す
    Range("C:E").Select
    With Selection
        .WrapText = True   '列幅に収まるようにテキストを折り返す
        .ShrinkToFit = False '列幅に収まるように文字列を縮小
    End With
                    
End Sub

　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ