风险评价管理 对于经济 科技和生命方面的思考
风险评价管理比较难,针对每个企业不同的生产和经营方式,各有不同。
由于各不相同又似乎没有统一的标准,其实不然,深入研究之后就会发现,其实并不难。某些方面,反而十分简单。
因为风险评价对于企业来说,并不直接产生效益,属于一种保险机制,所以并不被用来重点关注。
然而,在企业标准化方面,风险评价是一个大的分类,而且在企业做大和做强之后,就显得十分重要。
下面就从经济、科技和生命方面举例说明,风险评价对于企业乃至对整个人类命运的影响。
经济风险
腾讯和老干妈的事件,当老干妈资金被银行冻结之后,就一定会启动资金风险管控方面的应急预案,也就是说在没有被腾讯起诉事件发生之前,已经应该做好应对措施,所以在事情发生之后几小时之内,就对整个事件有了一个明确判断,并做出相应处置方法。
事实大家也清楚,腾讯被三个人骗了,至于这三个人是什么样的人,就不那么重要了,问题是被骗一方真的很有钱,除了银行就它们有钱了。
这就是一种风险意识,成熟企业对风险管控特别重视,随时应对可能发生问题,并且在问题发生之后,有一个正确的处置办法和措施,也是企业生存的一种考验。
小型企业可能没有考虑到这些,但一定要有这种意识,不然,在一些问题发生之后,就会显得手忙脚乱,不知所措。一个成熟的企业就要有一个成熟的思考,哪怕这是一件多余的事情。
科技风险
华为被美国打压也是个例子,是生存危机,华为的风险是整个中国企业共同面临的风险,美国就是为了遏制我国企业在高端制造方面的发展,没有下限地打压。
众所周知,我们的经济发展得也很快,特别是新兴产业,云技术、无人机、人工智能、脑科学等等,几乎和美国处于同一起跑线,某些方面已经领先在前。未来科技发展的方向已经十分明确,人工智能、物联网世界很快到来。
谁掌握底层科技,谁就掌握未来世界。我们要实现中华民族复兴就是要做一些目前人类科技最前沿的东西,改变世界,引领未来发展路线,毫无疑问,这将一个伟大的历史过程,我们都处在这样一种社会发展过程当中。
利弊共存,任何付出都存在风险,当我们认识到风险点,并可能有效应对风险发生产生的后果,风险就是可控,可接受的。
生命风险
疫情显而易见也是一种风险,谁也不知道疫情会在什么时候发生。连特朗普都不知道,地球上最发达国家总统都不知道将要发生上千万人被感染的疫情。
按常理思考,总不能让疫情一直蔓延下去,似乎美国人的自由思想与我们东方文明思想有着截然不同的考量。
大概病毒的蔓延也符合西方认为的物种进化理论,适者生存。他们应对病毒的方法就是顺其自然,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
结尾
无论风险是否存在,防患于未然必然没有错,错在我们是否因为感觉会徒劳,就放弃了对风险的评价管理,那么在风险产生之后,就必须要承担一切后果。