|
編者按： 在之前的[數(shù)據(jù)處理]教程中，小編陸續(xù)給大家介紹了如何利用excel提取申請(qǐng)趨勢(shì)、申請(qǐng)類型、申請(qǐng)人排名,、申請(qǐng)人類型,、地域分布,、專利流向、技術(shù)構(gòu)成以及技術(shù)功效分析所需的數(shù)據(jù),。今天湖北中心的小伙伴黃越同學(xué)給大家?guī)砹艘黄碌臄?shù)據(jù)處理教程：文獻(xiàn)標(biāo)引神技——單元格中突出顯示特定字符,。在做專利分析時(shí)，我們常常需要通過人工閱讀專利文獻(xiàn)的標(biāo)題,、權(quán)利要求和摘要的內(nèi)容,，來對(duì)專利文獻(xiàn)進(jìn)行人工標(biāo)引。為了提高標(biāo)引效率,，一般會(huì)使用excel的關(guān)鍵詞篩選,、查找等功能輔助標(biāo)引,。篩選、查找等功能雖然能快速的將相關(guān)內(nèi)容挑選出來,，但是無法對(duì)相關(guān)內(nèi)容進(jìn)行準(zhǔn)確定位和標(biāo)注,，在標(biāo)引時(shí)仍然需要在大段的摘要文字中去尋找相應(yīng)的關(guān)鍵詞。 例如,，我們想要找出涉及“甲殼素”的文獻(xiàn),，篩選之后得到了下圖的結(jié)果。 但是…“甲殼素”到底在哪里,？是不是很想要下圖的效果,？ 可是，選擇字體顏色也做不到啊,，只會(huì)變成滿滿的藍(lán)色…… 如何得到上圖的效果呢,？其實(shí)很簡單。下面的VBA代碼就可以了（其中引號(hào)中的A為參數(shù),，可根據(jù)需要修改為想要顯示的關(guān)鍵詞）,。 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 手把手教你如何實(shí)現(xiàn) STEP 1 將字體顏色統(tǒng)一 選中所有單元格，設(shè)置字體為黑色,。 STEP 2 找到輸入代碼的地方 在工作表名稱處單擊右鍵,，點(diǎn)擊“查看代碼“。 STEP 3 把代碼拷進(jìn)去 將上面的代碼復(fù)制到對(duì)話框中,，將引號(hào)內(nèi)的內(nèi)容A修改為想要突出顯示的字符,，并可根據(jù)需要彩色顯示的字符串的長度修改后面的數(shù)字，比如,，彩色顯示“敷料”,，后面的數(shù)字就是2,；彩色顯示“甲殼素”,，后面的數(shù)字就是3,。 保存，回到數(shù)據(jù)頁面,。 STEP 4 查看效果 選中相應(yīng)的數(shù)據(jù)區(qū)域,，會(huì)發(fā)現(xiàn)相關(guān)的關(guān)鍵詞變成了紅色。 代碼的含義 讓我們來看看這段代碼的含義： Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, i As Integer 定義參數(shù)區(qū)域”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 在每一個(gè)選擇區(qū)域,，定義i為具體想要的字符A，A起共1個(gè)字符顯示為紅色（紅色在vba里代碼為3）,。 Next End Sub 結(jié)尾語段,。
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 運(yùn)行上面的代碼,，就可以得到下圖啦,。大家可以依照此規(guī)律舉一反三，實(shí)現(xiàn)想要的效果,。 顏色的定義 代碼中的Font.ColorIndex是用來定義突出顯示的顏色的,，下圖就是附上一部分Excel中在VBA里常用的顏色代碼。 此外,，我們也可以直接通過文字定義顏色,，例如“Font.Color = vbGreen”。 小編還有話說： 今天中午收到黃越同學(xué)的來稿,，小編非常開心,，于是連夜編輯，把文章發(fā)出來了,，希望能夠?qū)ψ龇治龅男』锇閭冇袔椭?/span> 黃越同學(xué)說因?yàn)樯磉呁伦稣n題的時(shí)候,，用excel閱讀文獻(xiàn)摘要是件非常頭痛的事情，為了方便大家快速定位關(guān)鍵詞,，于是她寫了這個(gè)代碼,。 我們公眾號(hào)的Excel大神阿科之前已經(jīng)寫了七期關(guān)于利用Excel進(jìn)行專利分析數(shù)據(jù)處理的教程，本以為基本分析的數(shù)據(jù)處理方法已經(jīng)寫得差不多了,，但是我們現(xiàn)在才發(fā)現(xiàn),，其實(shí)還有很多內(nèi)容可寫。有了分析的需求,，我們?cè)谘芯糠治龇椒ê图记傻臅r(shí)候才會(huì)有方向,。所以希望小伙伴、真愛粉們給我們多提需求,，讓我們一起學(xué)習(xí),，一起把專利分析的方法和技巧做得更好。 小編還想說的是,，我們的公眾號(hào)設(shè)立之初的目的為了給大家分享我們?cè)趯＠治隹梢暬矫娴睦砟?、?jīng)驗(yàn)和技巧。但是隨著近半年來跟大家的互動(dòng),，我們發(fā)現(xiàn),，其實(shí)在專利分析這個(gè)圈子里，每個(gè)人都有他的擅長之處,，每個(gè)人都有他積累的經(jīng)驗(yàn)和方法,，而我們幾個(gè)小編,，掌握的知識(shí),，其實(shí)也只是一點(diǎn)點(diǎn)而已?？吹迷蕉?，才發(fā)現(xiàn)自己越無知,。所以我們真的非常歡迎像這樣的讀者來稿，能夠?qū)⒅腔酆徒?jīng)驗(yàn)與大家分享,。一個(gè)人的智慧是有限的,，但是大家的智慧集合在一起，就能變成無窮大,，這樣才能實(shí)現(xiàn)某一技術(shù)領(lǐng)域的進(jìn)步,，不是嗎？所以我們的公眾號(hào)現(xiàn)在更希望能夠成為大家交流知識(shí)和分享經(jīng)驗(yàn)的平臺(tái),。 |
|
|
