大连新明华电子科技有限公司(DNME)，在年轻有为、开拓进取的新任总经理带领下，高度重视技术进步、新产品研发试制，积极打造数字化智能制造企业新态势，推动创新、创业高质量发展，从2017年6月16日开始，迈入拥有自主知识产权的新阶段，公司也在当年通过了高新技术企业的资格评审。
提升知识产权管理水平，引导企业员工在新产品研发、新技术应用、新制造升级过程中，激发全体员工积极参与“双创”的主动热情，贯彻落实《企业知识产权管理规范》国家标准，规范企业知识产权管理的基础条件，成为公司领导高度重视的新课题！
首先，企业在生产经营活动中涉及的有关知识产权的各类活动，应当有相应的记录并形成档案，为此，我们利用EXCEL建立了具有特色的“DNME知识产权管理档案”，对于掌握企业知识产权构成状况、管理企业知识产权实施奖励、维护企业知识产权缴费进度，发挥了积极的推动作用，尤其是对于各种企业报表数据的提取，具有准确、方便、及时的有益效果。
实现方式如下：
1、字段定义
根据数据统计分析的基础条件要求，初始可以选择以下字段：序号、被受理标题、类型、国别、申请号、区分、申请日期、授权日期、发明人、服务机构等。
2、公式定义
进一步地，区分字段取值为：技术交底书、初稿、受理、实审、授权，这样的顺序也是一项知识产权内容从构思、设计、验证到撰写、申请直至授权的流程体现。该数据项的取值采用下拉列表选择，通过数据完整性的公式定义实现。
3、下拉列表数据有效性
在第一标签页，也就是受理专利信息页內，选择区分字段的数据项，选择菜单项：数据，再选择数据有效性下拉菜单工具栏，选择数据有效性，弹出数据有效性设置对话框。有效性条件设置为允许：序列，来源：为前述公式定义。
4、区分数据项数据值选择
这样，在区分数据项内就可以选择、且仅可以选择前面所述的数据值。
5、自动计算
特别是，当区分字段取值不同时，VB script自动运行程序，将数据行的单元格背景设置为规定的颜色，便于直观区分各项主题内容，同时计算出各项指标的统计结果，如已授权项数、办登项数、实质审查项数、已受理项数、初始稿件项数和技术交底书项数等等。
Private Sub Worksheet_Change(ByVal Target As Range)
r = Target.Row '取行号
Select Case Target.Text
Case "办登"
Rows(r & ":" & r).Interior.ColorIndex = 0
Rows(r & ":" & r).Interior.Color = RGB(255, 153, 204)
Case "技术交底书"
Rows(r & ":" & r).Interior.ColorIndex = 0
Rows(r & ":" & r).Interior.Color = RGB(197, 217, 241)
Case "初始稿件"
Rows(r & ":" & r).Interior.ColorIndex = 0
Rows(r & ":" & r).Interior.Color = RGB(204, 192, 218)
Case "已受理(代理)"
Rows(r & ":" & r).Interior.ColorIndex = 0
Rows(r & ":" & r).Interior.Color = RGB(163, 225, 253)
Case "实质审查"
Rows(r & ":" & r).Interior.ColorIndex = 0
Rows(r & ":" & r).Interior.Color = RGB(221, 217, 196)
Case "已受理(DNME)"
Rows(r & ":" & r).Interior.ColorIndex = 0
Rows(r & ":" & r).Interior.Color = RGB(250, 191, 143)
Case "已授权"
Rows(r & ":" & r).Interior.ColorIndex = 0
Rows(r & ":" & r).Interior.Color = RGB(146, 208, 80)
Case Else
End Select
'ActiveSheet.Cells(1, 1).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim totalRows, i, sumDraft, sumDNME, sumProxy, sumPass, sumNG As Integer
totalRows = Worksheets("受理专利信息").UsedRange.Rows.Count
For i = 3 To totalRows - 2
If Worksheets("受理专利信息").Cells(i, 10) = "已授权" Then
sumPass = sumPass + 1
End If
If Worksheets("受理专利信息").Cells(i, 10) = "办登" Then
sumRegister = sumRegister + 1
End If
If Worksheets("受理专利信息").Cells(i, 10) = "初始稿件" Then
sumDraft = sumDraft + 1
End If
If Worksheets("受理专利信息").Cells(i, 10) = "已受理(代理)" Then
sumProxy = sumProxy + 1
End If
If Worksheets("受理专利信息").Cells(i, 10) = "实质审查" Then
sumTrue = sumTrue + 1
End If
If Worksheets("受理专利信息").Cells(i, 10) = "已受理(DNME)" Then
sumDNME = sumDNME + 1
End If
If Worksheets("受理专利信息").Cells(i, 10) = "技术交底书" Then
随着“DNME知识产权管理档案”数据记录的增加，包括年费缴纳等管理实务任务加重，数据统计分析和呈现、呈报的要求更高，后续，我们会进一步探讨图表展示方式，以及缴费自动提示的功能，让一份小小的知识产权管理档案发挥出跟踪指导研发过程、记录分析知识产权实务、展现评价企业进步的大作用！
