' ******************************************************
' カラムを表示状態にする
' ******************************************************
Public Sub ShowColumn(ByVal nCol As Integer)
Me.Columns(nCol).Visible = True
End Sub
Public Sub ShowColumn(ByVal strName As String)
Me.Columns(strName).Visible = True
End Sub
|