マクロ

```
'
' 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
>シート色：無色"	",
>上のセルをコピー"	.	/	"\
>罫線：線なし"		
>