风险评价管理 对于经济 科技和生命方面的思考

风险评价管理比较难，针对每个企业不同的生产和经营方式，各有不同。

由于各不相同又似乎没有统一的标准，其实不然，深入研究之后就会发现，其实并不难。某些方面，反而十分简单。

因为风险评价对于企业来说，并不直接产生效益，属于一种保险机制，所以并不被用来重点关注。

然而，在企业标准化方面，风险评价是一个大的分类，而且在企业做大和做强之后，就显得十分重要。

下面就从经济、科技和生命方面举例说明，风险评价对于企业乃至对整个人类命运的影响。

经济风险

腾讯和老干妈的事件，当老干妈资金被银行冻结之后，就一定会启动资金风险管控方面的应急预案，也就是说在没有被腾讯起诉事件发生之前，已经应该做好应对措施，所以在事情发生之后几小时之内，就对整个事件有了一个明确判断，并做出相应处置方法。

事实大家也清楚，腾讯被三个人骗了，至于这三个人是什么样的人，就不那么重要了，问题是被骗一方真的很有钱，除了银行就它们有钱了。

这就是一种风险意识，成熟企业对风险管控特别重视，随时应对可能发生问题，并且在问题发生之后，有一个正确的处置办法和措施，也是企业生存的一种考验。

小型企业可能没有考虑到这些，但一定要有这种意识，不然，在一些问题发生之后，就会显得手忙脚乱，不知所措。一个成熟的企业就要有一个成熟的思考，哪怕这是一件多余的事情。

科技风险

华为被美国打压也是个例子，是生存危机，华为的风险是整个中国企业共同面临的风险，美国就是为了遏制我国企业在高端制造方面的发展，没有下限地打压。

众所周知，我们的经济发展得也很快，特别是新兴产业，云技术、无人机、人工智能、脑科学等等，几乎和美国处于同一起跑线，某些方面已经领先在前。未来科技发展的方向已经十分明确，人工智能、物联网世界很快到来。

谁掌握底层科技，谁就掌握未来世界。我们要实现中华民族复兴就是要做一些目前人类科技最前沿的东西，改变世界，引领未来发展路线，毫无疑问，这将一个伟大的历史过程，我们都处在这样一种社会发展过程当中。

利弊共存，任何付出都存在风险，当我们认识到风险点，并可能有效应对风险发生产生的后果，风险就是可控，可接受的。

生命风险

疫情显而易见也是一种风险，谁也不知道疫情会在什么时候发生。连特朗普都不知道，地球上最发达国家总统都不知道将要发生上千万人被感染的疫情。

按常理思考，总不能让疫情一直蔓延下去，似乎美国人的自由思想与我们东方文明思想有着截然不同的考量。

大概病毒的蔓延也符合西方认为的物种进化理论，适者生存。他们应对病毒的方法就是顺其自然，60%人口感染之后，就会全民免疫，病毒自然就不危及人类生命了。

理论上，这也没错，然而，人伦上就显得冷酷无情了。

我国做了很好的风险管控，措施也十分有效，从某些方面来说，已经在引领许多国家进行疫情防控，这就是说在风险评价针对发生重特大事件方面，起了关键重要作用。

窗体代码

Private Sub UserForm_Initialize()With Me.Label1.Top = 5 .Left = 0 .Width = .Parent.WidthEnd WithDim kVarr()kVarr = Array("单位", "分析人员", "分析日期", "审核人", "审核日期")Dim ki As IntegerDim w As Worksheet, s As WorksheetDim iRow As Integer, iCol As IntegerDim R As Range, Rr As RangeSet s = ThisWorkbook.Worksheets("setsys")Set w = ThisWorkbook.Worksheets(s.Range("E3").Value)w.ActivateiRow = 3iCol = w.Range("A3").End(xlToRight).ColumnSet Rr = w.Range(Cells(iRow, 1), Cells(iRow, iCol))Dim lobj As Object, Cobj As ObjectDim Cstyle As StringFor Each R In Rr Set lobj = Me.Controls.Add("Forms.Label.1", "L" & R.Column) With lobj .Left = 20 .Top = 30 * R.Column + 55 .Width = 80 .BackStyle = 1 .Caption = R.Value .Font.Size = 12 .Font.Name = "微软雅黑" End With Select Case R.Column Case 1, 3, 4, 5, 8, 9, 10 Cstyle = "Forms.TextBox.1" Case Else Cstyle = "Forms.ComboBox.1" End Select Set Cobj = Me.Controls.Add(Cstyle, "C" & R.Column) With Cobj .Left = 120 .Top = 30 * R.Column + 45 .Width = 250 .Height = 26 .BackStyle = 1 .BorderStyle = 1 .Font.Size = 12 .Font.Name = "微软雅黑" .Value = "" s.Activate Select Case R.Column Case 1 .Enabled = False .Value = w.Range("C65535").End(xlUp).Row - 2 Case 8, 9 .Enabled = False .Value = "自动计算" Case 2 .RowSource = s.Range("F2:F8").Address .Value = .List(0) Case 6 .RowSource = s.Range("B2:B6").Address .Value = .List(0) Case 7 .RowSource = s.Range("C2:C6").Address .Value = .List(0) End Select End WithNext R For ki = 0 To UBound(kVarr) Set lobj = Me.Controls.Add("Forms.Label.1", "L" & ki) With lobj .Left = 20 .Top = 30 * ki + 385 .Width = 80 .BackStyle = 1 .Caption = kVarr(ki) .Font.Size = 12 .Font.Name = "微软雅黑" End With Set Cobj = Me.Controls.Add("Forms.TextBox.1", "Ck" & ki) With Cobj .Left = 120 .Top = 30 * ki + 375 .Width = 250 .Height = 26 .BorderStyle = 1 .Font.Size = 12 .Font.Name = "微软雅黑" .Value = "" End With Next kiEnd Sub

结尾

无论风险是否存在，防患于未然必然没有错，错在我们是否因为感觉会徒劳，就放弃了对风险的评价管理，那么在风险产生之后，就必须要承担一切后果。