'Declaration
Public Function SetCustomNameComment( _
ByVal As String, _
ByVal As String _
) As Boolean
'使用法
Dim instance As DefaultSheetDataModel
Dim name As String
Dim comment As String
Dim value As Boolean
value = instance.SetCustomNameComment(name, comment)