' ******************************************************
' カラム幅変更
' ******************************************************
Public Sub SetColumnWidth(ByVal strName As String, ByVal nWidth As Integer)

	Me.Columns(strName).Width = nWidth

End Sub