编者按: 在之前的[数据处理]教程中,小编陆续给大家介绍了如何利用excel提取申请趋势、申请类型、申请人排名、申请人类型、地域分布、专利流向、技术构成以及技术功效分析所需的数据。今天湖北中心的小伙伴黄越同学给大家带来了一篇新的数据处理教程:文献标引神技——单元格中突出显示特定字符。在做专利分析时,我们常常需要通过人工阅读专利文献的标题、权利要求和摘要的内容,来对专利文献进行人工标引。为了提高标引效率,一般会使用excel的关键词筛选、查找等功能辅助标引。筛选、查找等功能虽然能快速的将相关内容挑选出来,但是无法对相关内容进行准确定位和标注,在标引时仍然需要在大段的摘要文字中去寻找相应的关键词。 例如,我们想要找出涉及“甲壳素”的文献,筛选之后得到了下图的结果。 但是…“甲壳素”到底在哪里?是不是很想要下图的效果? 可是,选择字体颜色也做不到啊,只会变成满满的蓝色…… 如何得到上图的效果呢?其实很简单。下面的VBA代码就可以了(其中引号中的A为参数,可根据需要修改为想要显示的关键词)。 SubWorksheet_SelectionChange(ByVal Target As Range) Dim rng As Range,i As Integer For Each rng InSelection i = 1 Do While InStr(i, rng, 'A') > 0 rng.Characters(InStr(i, rng, 'A'),1).Font.ColorIndex = 3 i = InStr(i, rng, 'A') + 1 Loop Next End Sub 手把手教你如何实现 STEP 1 将字体颜色统一 选中所有单元格,设置字体为黑色。 STEP 2 找到输入代码的地方 在工作表名称处单击右键,点击“查看代码“。 STEP 3 把代码拷进去 将上面的代码复制到对话框中,将引号内的内容A修改为想要突出显示的字符,并可根据需要彩色显示的字符串的长度修改后面的数字,比如,彩色显示“敷料”,后面的数字就是2,;彩色显示“甲壳素”,后面的数字就是3。 保存,回到数据页面。 STEP 4 查看效果 选中相应的数据区域,会发现相关的关键词变成了红色。 代码的含义 让我们来看看这段代码的含义: Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, i As Integer 定义参数区域”rng”和起始字符”i”; For Each rng In Selection i = 1 Do While InStr(i, rng, 'A') > 0 rng.Characters(InStr(i, rng, 'A'),1).Font.ColorIndex = 3 i = InStr(i, rng, 'A') + 1 Loop 在每一个选择区域,定义i为具体想要的字符A,A起共1个字符显示为红色(红色在vba里代码为3)。 Next End Sub 结尾语段。
Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, i As Integer For Each rng In Selection i = 1 Do While InStr(i,rng, '敷') > 0 rng.Characters(InStr(i, rng, '敷'), 1).Font.ColorIndex = 3 i = InStr(i,rng, '敷') + 1 Loop i = 2 Do While InStr(i,rng, '甲壳素') > 0 rng.Characters(InStr(i, rng, '甲壳素'), 3).Font.ColorIndex = 8 i = InStr(i,rng, '甲壳素') + 3 Loop Next End Sub 运行上面的代码,就可以得到下图啦。大家可以依照此规律举一反三,实现想要的效果。 颜色的定义 代码中的Font.ColorIndex是用来定义突出显示的颜色的,下图就是附上一部分Excel中在VBA里常用的颜色代码。 此外,我们也可以直接通过文字定义颜色,例如“Font.Color = vbGreen”。 小编还有话说: 今天中午收到黄越同学的来稿,小编非常开心,于是连夜编辑,把文章发出来了,希望能够对做分析的小伙伴们有帮助。 黄越同学说因为身边同事做课题的时候,用excel阅读文献摘要是件非常头痛的事情,为了方便大家快速定位关键词,于是她写了这个代码。 我们公众号的Excel大神阿科之前已经写了七期关于利用Excel进行专利分析数据处理的教程,本以为基本分析的数据处理方法已经写得差不多了,但是我们现在才发现,其实还有很多内容可写。有了分析的需求,我们在研究分析方法和技巧的时候才会有方向。所以希望小伙伴、真爱粉们给我们多提需求,让我们一起学习,一起把专利分析的方法和技巧做得更好。 小编还想说的是,我们的公众号设立之初的目的为了给大家分享我们在专利分析可视化方面的理念、经验和技巧。但是随着近半年来跟大家的互动,我们发现,其实在专利分析这个圈子里,每个人都有他的擅长之处,每个人都有他积累的经验和方法,而我们几个小编,掌握的知识,其实也只是一点点而已。看得越多,才发现自己越无知。所以我们真的非常欢迎像这样的读者来稿,能够将智慧和经验与大家分享。一个人的智慧是有限的,但是大家的智慧集合在一起,就能变成无穷大,这样才能实现某一技术领域的进步,不是吗?所以我们的公众号现在更希望能够成为大家交流知识和分享经验的平台。 |
|