wordpress迁移站点,机关事业单位网站建设,国外产品设计网,包装技术支持 东莞网站建设说实在的#xff0c;在很多中小企业里#xff0c;风险评价在企业运行过程中#xff0c;还是一项比较概念化的工作#xff0c;明确地说就是不被重视#xff0c;似乎有没有都无所谓。初次接触风险评价#xff0c;感觉十分陌生#xff0c;不知道从何入手#xff0c;什么都…说实在的在很多中小企业里风险评价在企业运行过程中还是一项比较概念化的工作明确地说就是不被重视似乎有没有都无所谓。初次接触风险评价感觉十分陌生不知道从何入手什么都不知道由于要做企业标准建设不可避免要做风险评价管理工作包括风险评价制度建立表格建立会议记录评价结果等等一系列内容。其实风险评价是建立在对整个企业特别熟悉和了解的基础之上来做的一项工作不然真的不知道如何来评价在第三方的帮助之下这件工作就比较顺利展开了。这里表格是以安全检查表SCL方式进行评价内容基本涵盖了所有工作项目其实这个工作依然停留在纸面要真正落实到工作当中我想还是一个漫长的过程。评价要很多内容在评价管理制度里面明确了这里不做分析最终呈现的结果就是这几张表格往往也就是这几张表格真正反映企业评价后是一个现状。最终要做出一个综合性评价结果包括一些可能存在的风险和预防解决办法等等。总之风险评价就是要一些未雨绸缪的工作通常是看不到实际效果的。确切地说如此评价出来的结果往往作为一种企业规避问题的一种参考很有必要。本来做一个窗体来对评价过程进行描述没有实现下一次再做。窗体式管理和显示对于Excel来说是一个很简单的事情也相对容易实现。这些代码是对评价结果进行颜色标识以不同颜色对结果分别显示看图可以理解很容易实现。颜色代码Private Sub Worksheet_Activate()Dim varr()varr Array(低风险, 可接受, 一般风险, 较大风险, 重大风险)Dim R As Integer, g As Integer, b As IntegerDim Ro As Range, Rr As RangeSet Rr Range(K4:K Range(K65535).End(xlUp).Row)For Each Ro In Rr With Ro Select Case .Value Case varr(0) R 201 g 252 b 211 Case varr(1) R 121 g 212 b 111 Case varr(2) R 211 g 182 b 181 Case varr(3) R 211 g 112 b 111 Case varr(4) R 251 g 202 b 11 Case Else Exit Sub End Select .Interior.Color RGB(R, g, b) End WithNext RoEnd Sub
