IT系/VBA/Excel個人用マクロ

Last-modified: 2019-06-06 (木) 03:41:32

目次

概要

Excelの個人用マクロでよく使うものまとめ。

'*******************************************************************************
' [関数名] ChangeDisplayWorkbookTabs
' [説　明] シート見出しの表示・非表示を切り替える。
' [引　数] なし
' [戻り値] なし
'*******************************************************************************
Public Sub ChangeDisplayWorkbookTabs()
    With ActiveWindow
        If .DisplayWorkbookTabs Then
            'シート見出しを非表示
            .DisplayWorkbookTabs = False
        Else
            'シート見出しを表示
            .DisplayWorkbookTabs = True
        End If
    End With
End Sub
'*******************************************************************************
' [関数名] ChangeDisplayGridlines
' [説　明] 罫線の表示・非表示を切り替える。
' [引　数] なし
' [戻り値] なし
'*******************************************************************************
Public Sub ChangeDisplayGridlines()
    With ActiveWindow
        If .DisplayGridlines Then
            '罫線を非表示
            .DisplayGridlines = False
        Else
            '罫線を表示
            .DisplayGridlines = True
        End If
    End With
End Sub
'*******************************************************************************
' [関数名] ChangeDisplayHeadings
' [説　明] 行列番号の表示・非表示を切り替える。
' [引　数] なし
' [戻り値] なし
'*******************************************************************************
Public Sub ChangeDisplayHeadings()
    With ActiveWindow
        If .DisplayHeadings Then
            '行列番号を非表示
            .DisplayHeadings = False
        Else
            '行列番号を表示
            .DisplayHeadings = True
        End If
    End With
End Sub
'*******************************************************************************
' [関数名] ChangeDisplayHeadings
' [説　明] スクロールバーの表示・非表示を切り替える。
' [引　数] なし
' [戻り値] なし
'*******************************************************************************
Public Sub ChangeDisplayScrollBar()
    With ActiveWindow
        If .DisplayHorizontalScrollBar Then
            'スクロールバーを非表示
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
        Else
            'スクロールバーを表示
            .DisplayHorizontalScrollBar = True
            .DisplayVerticalScrollBar = True
        End If
    End With
End Sub
'*******************************************************************************
' [関数名] ChangeReferenceStyle
' [説　明] Excel参照形式を切り替える。
' [引　数] なし
' [戻り値] なし
'*******************************************************************************
Public Sub ChangeReferenceStyle()
    With Application
        If .ReferenceStyle = xlA1 Then
            .ReferenceStyle = xlR1C1
        Else
            .ReferenceStyle = xlA1
        End If
    End With
End Sub

参考

忘れた。