我想实施组织,部门和用户关系模型。在组织的超级用户可以添加部门以及电话,地址,电子邮件等部门详细信息。用户可以属于一个更多的部门,具有部门所有者或组织超级用户的用户可以编辑用户信息以及部门信息。 / p>
经过分析,我提出了以下模型关系。
Dim w As Long
Dim strFormulas(1 To 2) As Variant
For w = 2 To ActiveWorkbook.Worksheets.Count
With ActiveWorkbook.Worksheets(w)
strFormulas(1) = "=IF(ISBLANK('Sheet 1'!A4),"",'Sheet 1'!A4)"
'strFormulas(2) has a syntax error.
strFormulas(2) = "=IF('Sheet 2'!N1838="S","S","")"
.Range("A2:AJ2").Formula = strFormulas(1)
.Range("A2:AJ2000").FillDown
.Range("AK2:AR2").Formula = strFormulas(2)
.Range("AK2:AR2000").FillDown
End With
Next w
请告诉我如何通过添加其他属性(例如
)来完成此模型-Org超级用户
- 超级用户
- 用户编辑权限
- 以超级用户的其他权限添加/删除用户
答案 0 :(得分:0)
只需为要添加到实例的每个属性添加一个布尔字段以定义其类型,超级用户或其他任何内容