マクロ

'
' BackColorYellow Macro
' Keyboard Shortcut: Ctrl+Shift+Q
Sub BackColorYellow()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
End Sub

'
' BackColorBeige Macro
' Keyboard Shortcut: Ctrl+Shift+S
Sub BackColorBeige()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
End Sub

'
' BackColorTransparent Macro
' Keyboard Shortcut: Ctrl+Shift+C
Sub BackColorTransparent()
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

'
' BackColorOrange Macro
' Keyboard Shortcut: Ctrl+Shift+O
Sub BackColorOrange()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

'
' BackColorLightBlue Macro
' Keyboard Shortcut: Ctrl+Shift+B
Sub BackColorLightBlue()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16777062
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

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

'
' FontColorRed Macro
' Keyboard Shortcut: Ctrl+Shift+G
Sub FontColorRed()
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub
'
' FontColorDefault Macro
' Keyboard Shortcut: Ctrl+Shift+D
Sub FontColorDefault()
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End Sub

'
' FontColorBlue Macro
' Keyboard Shortcut: Ctrl+Shift+X
Sub FontColorBlue()
    With Selection.Font
        .Color = -65536
        .TintAndShade = 0
    End With
End Sub

'
'SheetColorKiiro Macro
' Keyboard Shortcut: Ctrl+Shift+K
Sub SheetColorKiiro()
    With ActiveSheet.Tab
        .Color = 65535
        .TintAndShade = 0
    End With
End Sub

'
'SheetColorMushoku Macro
' Keyboard Shortcut: Ctrl+Shift+M
Sub SheetColorMushoku()
    With ActiveSheet.Tab
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = 0
    End With
End Sub

その2

'
' FloatingComment Macro
' Keyboard Shortcut: Ctrl+Shift+F
Sub FloatingComment()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16777062
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    
    ActiveSheet.Shapes.AddShape(msoShapeRectangularCallout, Selection.Range.Cells(1, 1).Left, Selection.Range.Cells(1, 1).Top, 139.5, 72.75) _
        .Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 153, 255)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 102, 255)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Fill.Transparency = 0
        .Fill.Solid
    End With
End Sub
'
' InsertRedRectangle Macro
' Keyboard Shortcut: Ctrl+Shift+I
Sub InsertRedRectangle()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 288, 228.75, 144, 69.75).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 1.5
    End With
End Sub

"1
書式：通貨 1,234" "2
上のセル値をコピー" "3
書式：日付" "4
書式：通貨 \1,234" "5
書式：パーセンテージ" "6
罫線：外枠" 7 8 "9
セルの高さ？不明" 0 - ^
"Q
セル背景：黄色" W E "R
フォント：Red" "T
テキストボックス検索" Y "U
数式バー" "I
挿入：赤枠" "O
セル背景：オレンジ" "P
書式：フォント変更" "@
表示拡大？" [
"A
図の挿入：arrow" "S
セル背景：ベージュ" "D
フォント：デフォルト" "F
FloatingComment" "G
セル背景：グレー" H J "K
シート色：黄色" "L
フィルター" ";
挿入" ":
現在範囲を全選択" ]
"Z
選択中画像を
60%に縮小" "X
フォント：青色" "C
セル背景：クリア" "V
値のみ貼り付け
(バージョン依存)" "B
セル背景：水色" N "M
シート色：無色" ",
上のセルをコピー" . / "
罫線：線なし"