在内部控制制度分析过程中，对于含有审批，审议，审核等“审*”的事项，是应当绘制流程图的。由于团队成员分布在各单位，各人认识有差异，且文本字多，难易批注。于是，计划让计算机自动查询“审”字组合，若有，则提示分析者予以批注，确保纳入流程图绘制对象。
最初，我不认为这张审批权限表在内控完善建设中有何作用，然而，仔细体会。它相当于是一个诊断的工具。可以作为流程图绘制的参考，可以诊断出权限设置是否合理。有了这张审批权限表，有助于我们提出流程优化，提高效率与效果的建议。
另外，还需要让计算机助提醒注意该事项，进行标注。便于让团队成员做法一致，不至于遗漏。
于是在制度分析诊断工具中，增加了以下代码。让分析工具更具有人性化特征。它能实现含有“审*”字样的字体加粗。
Sub 事项()
'让整数型变量的值等于当前活动单元格的行号；
Dim R As Integer
R =ActiveCell.Row
'让Ｗ1的值为“审"
Dim W1
W1 ="审"
'定义从ＳＴ开始查找”审“字，初始值为1；
Dim st As Integer
st =1
'一直在执行命令，直到它大于单元格字段的长度
Do Until st >Len(Cells(R, 1))
'审字出现的位置为Ｆ1
F1 =InStr(st, Cells(R, 1), W1)
If F1 0 Then
'让该字段的字体加粗
Cells(R, 1).Characters(F1, 2).Font.Bold =True
st = F1
'如果在27列没有写审批事项，则提示！
If Cells(R, 27) = "" Then
MsgBox "请填制审批类事项！",vbInformation, "行政事业单位内部控制制度诊断分析工具Ｖ1.0"
End If
End If
'循环计数
st = st + 1
Loop
End Sub
VBA阅读理解：自动调整单元格的行高
|
|
转播
