Sub view_formulabar()
	Application.DisplayFormulaBar = True
	'数式バーを表示させます
End Sub