Sub view_comment()
	Application.DisplayCommentIndicator = xlCommentAndIndicator
	'コメントとコメントマークを表示させます
	'引数は他にxlCommentIndicatorOnly(コメントマークのみ)
	'xlNoIndicator(コメントマーク非表示）があります
End Sub