一番上の入り口へ > excel > VBA コーディングライブラリ集 > 選択範囲をまとめて折り返し切り替えするマクロ

選択範囲をまとめて折り返し切り替えするマクロ

セルの中で、折り返し設定を切り替える(ON/OFFのトグル)マクロです。



Sub 折り返し()
'
' 折り返し Macro
'
    Dim wt As Boolean
    
        'MsgBox "type:" & TypeName(Selection)
        If TypeName(Selection) = "Range" Then
            With Selection
                If IsNull(.WrapText) Then
                    wt = False 'rem あべこべの場合、のちのち全体を折り返し状態に設定する。
                Else
                    wt = .WrapText
                End If
                
                .WrapText = Not wt
            End With
        Else
            MsgBox "セルかセルの範囲を選択してから実行してください"
        End If

End Sub

類似リンク

VBA マクロライブラリ集