Archive for 8月 25th, 2019

» Newer Entries »

折り返しWrapText

日曜日, 8月 25th, 2019 
Sub r折り返し()

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

End Sub

Posted in VBA | No Comments »

» Newer Entries »