VBA阅读理解:内控建设日记,确定“审*”事项

论坛 期权论坛 期权     
财经实践   2019-7-28 23:17   4237   0
   在内部控制制度分析过程中,对于含有审批,审议,审核等“审*”的事项,是应当绘制流程图的。由于团队成员分布在各单位,各人认识有差异,且文本字多,难易批注。于是,计划让计算机自动查询“审”字组合,若有,则提示分析者予以批注,确保纳入流程图绘制对象。
  

最初,我不认为这张审批权限表在内控完善建设中有何作用,然而,仔细体会。它相当于是一个诊断的工具。可以作为流程图绘制的参考,可以诊断出权限设置是否合理。有了这张审批权限表,有助于我们提出流程优化,提高效率与效果的建议。
  另外,还需要让计算机助提醒注意该事项,进行标注。便于让团队成员做法一致,不至于遗漏。
于是在制度分析诊断工具中,增加了以下代码。让分析工具更具有人性化特征。它能实现含有“审*”字样的字体加粗。
Sub 事项()
'让整数型变量的值等于当前活动单元格的行号;
Dim R As Integer
R =ActiveCell.Row
'让W1的值为“审"
Dim W1
W1 ="审"
'定义从ST开始查找”审“字,初始值为1;
Dim st As Integer
st =1
'一直在执行命令,直到它大于单元格字段的长度
Do Until st >Len(Cells(R, 1))
'审字出现的位置为F1
    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, "行政事业单位内部控制制度诊断分析工具V1.0"
    End If
    End If
    '循环计数
    st = st + 1
Loop
End Sub
VBA阅读理解:自动调整单元格的行高


分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:36
帖子:6
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP