« «
» »

行全体EntireRow

Sub r折り返し()

    If ActiveCell.WrapText = False Then
        Selection.WrapText = True
        Selection.EntireRow.AutoFit
    Else
        Selection.WrapText = False
    End If

End Sub

This entry was posted on 日曜日, 8月 25th, 2019 at 1:50 AM and is filed under VBA. You can follow any responses to this entry through the RSS 2.0 feed. Responses are currently closed, but you can trackback from your own site.