0
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 5 years have passed since last update.

[エクセルマクロ]PC変わったらまず設定するやつ

Last updated at Posted at 2018-06-10

TODO

まだまだあった・・・😢あとでかくリスト
・行列をコピーして挿入(Ctrl+shift+P)
・値だけコピー(Ctrl+shift+C)
・書式だけ貼り付け(Ctrl+shift+V)

PCを変えたときにまず設定したいやつ。

・デフォルトで作成されるシート数を1つに設定
・デフォルトフォントをメイリオに設定
・開発タブ出す
・VBA保存 ⇒ ショートカット設定

文字サイズを大きく(Ctrl+Shift+L)

Sub 文字を大きく
'
' 文字を大きく Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
    MyFontSize = Selection.Font.Size
    Selection.Font.Size = MyFontSize + 1
    
End Sub

文字サイズを小さく(Ctrl+Shift+K)

Sub 文字を小さく
'
' 文字を小さく Macro
'
' Keyboard Shortcut: Ctrl+Shift+K
'
    MyFontSize = Selection.Font.Size
    Selection.Font.Size = MyFontSize - 1
    
End Sub

文字色を赤にする(Ctrl+Shift+R)

Sub 赤色()
'
' 赤色 Macro
'
' Keyboard Shortcut: Ctrl+Shift+R
'
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub

###背景色を黄色にする(Ctrl+Shift+Y)

Sub 黄色()
'
' 黄色 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

###グレーアウト(Ctrl+Shift+G)

Sub 灰色()
'
' 灰色 Macro
'
' Keyboard Shortcut: Ctrl+Shift+G
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
End Sub

###書式リセット(Ctrl+Shift+B)

Sub 書式リセット()
'
' 書式リセット Macro
'
' Keyboard Shortcut: Ctrl+Shift+B
'
    Selection.ClearFormats
    
End Sub

###罫線を引く(Ctrl+Shift+T)

  • 見出しをつくる
  • 青い背景色に白い色の文字
  • 文字はセンタリング
  • 罫線を引く
  • No列を設定
キャプチャ.PNG
Sub 罫線()
'
' 罫線 Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
    ' No を入れる
    Dim no As Range
    Dim i As Integer
    For Each no In Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row + Selection.Rows.Count - 1, Selection.Column))
      no.Value = i
      i = i + 1
    Next no
    ' No 列
    Cells(Selection.Row, Selection.Column).Value = "No"
    
    ' header
    Selection.Resize(1).Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub
0
2
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?