Excel Tips

多くのことはネットに落ちている情報ですが、
エクセルをやっていて、役に立ったことをメモしておきます。

基本操作等　｜　関数　｜　マクロ

シートの非表示を一気に表示するマクロ

Sub シート再表示()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Visible = True
    Next
End Sub

外枠を細線､内枠を極細線にするマクロ

Sub 外枠を細線内枠を極細線()
  If TypeName(Selection) <> "Range" Then Exit Sub
  With Selection
    With .Borders
      .LineStyle = xlContinuous
      .Weight = xlHairline  '極細線
    End With
      Selection.BorderAround Weight:=xlThin
End With
End Sub

エクセルのフッターにパスを挿入するマクロ

Sub フッター追加()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        
        .LeftFooter = "&Z" & "&F"

    End With
'    ActiveWindow.SelectedSheets.PrintPreview
End Sub

選択セルの文字をシート名にするマクロ

Sub 選択セルの文字をシート名にする()
    ActiveSheet.Name = ActiveCell.Value
End Sub

ハイパーリンクを削除するマクロ

Sub ハイパーリンク削除()
	Selection.Hyperlinks.Delete
End Sub

Home