Columns(“A:B”).select
Selection.Columns.Group
‘列幅自動調整
Columns(“A:B”).AutoFit

Function cnv_crlf(inDesc As String) As String
	inDesc = Replace(inDesc, vbCrLf, "")
	inDesc = Replace(inDesc, vbCr, "")
	inDesc = Replace(inDesc, vbLf, "")
	cnv_crlf = inDesc
End Function

Application.OnKey “{F2}”, “Sample1” ‘ショートカット登録
Application.OnKey “{F2}” ‘ショートカット解除
F1 HELP 〇
F2 EDIT
F3 Name Box 〇
F4 Repeat
F5 Jump
F6 Area Change 〇
F7 Spell check 〇
F8 Area Select 〇
F9 Re-Calc
F10 Menu Hint
F11 Auto graph 〇
F12 Save as 〇

'マクロボタンの設置＋実行マクロを登録
ActiveSheet.Buttons.Add(157.5, 21.75, 45.75, 21.75).Select
Selection.OnAction = "呼び出すマクロ名"
Selection.Characters.Text = "ボタンのタイトル"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Meiryo UI"
.Size = 11
End With
Range("A1").Select