在日常的學(xué)習(xí)與工作中經(jīng)常需要計(jì)數(shù)，您還在紙上畫(huà)“正”計(jì)數(shù)嗎？今天“編輯之譚”信息給大家演示：以淘寶網(wǎng)“文章代寫(xiě)”交易用戶(hù)評(píng)價(jià)信息的統(tǒng)計(jì)研究為例，利用Excel軟件編寫(xiě)簡(jiǎn)單的VB宏程序設(shè)計(jì)一個(gè)“正”字計(jì)數(shù)器。去看看！

近期在返修《中國(guó)科技期刊研究》(CSSCI)投稿的修改稿，需要補(bǔ)充關(guān)于論文代寫(xiě)交易記錄及用戶(hù)評(píng)價(jià)消息的相關(guān)大數(shù)據(jù)分析。上一篇推文告誡過(guò)：學(xué)術(shù)道德的底線不可逾越，要對(duì)論文交易Say no！

圖1是萬(wàn)能某寶網(wǎng)（什么都可以買(mǎi)賣(mài)?。┥?ldquo;代寫(xiě)”關(guān)鍵詞搜索到的截圖（共4400多條結(jié)果，圖1僅顯示極少部分，圖中圓圈圖案是譚編打上去的圖章！）。

圖1 某寶網(wǎng)“代寫(xiě)”交易產(chǎn)品（部分）

譚編選擇銷(xiāo)量第一的“美啊美旗艦店”的其中一個(gè)“代寫(xiě)”產(chǎn)品，對(duì)其用戶(hù)評(píng)價(jià)記錄進(jìn)行人工分類(lèi)（編寫(xiě)爬蟲(chóng)應(yīng)該可以自動(dòng)抓取評(píng)價(jià)記錄，并可進(jìn)行語(yǔ)義關(guān)鍵詞的自動(dòng)統(tǒng)計(jì)與分類(lèi)，但限于時(shí)間，暫時(shí)不采用爬蟲(chóng)編程，后續(xù)譚編會(huì)嘗試Spider程序）。

例如翻閱評(píng)價(jià)消息，判斷并分3類(lèi)：①代寫(xiě)服務(wù)質(zhì)量評(píng)價(jià)（速度快、文筆好、質(zhì)量高、包修改、失望）；②代寫(xiě)文章需求類(lèi)型（總結(jié)報(bào)告、演講稿、領(lǐng)導(dǎo)報(bào)告、報(bào)獎(jiǎng)材料、簡(jiǎn)歷）；③求助代寫(xiě)的原因（急、忙、不會(huì)寫(xiě)）。

譚編起初采用傳統(tǒng)方法：在紙上畫(huà)“正”計(jì)數(shù)，如圖2所示。

圖2 傳統(tǒng)“畫(huà)正計(jì)數(shù)”法

數(shù)據(jù)量大，正字不夠位置畫(huà)了。那就設(shè)計(jì)一個(gè)Excel“正”字計(jì)數(shù)器！

利用Excel程序(這里使用的是國(guó)產(chǎn)WPS辦公系統(tǒng)，您也可以采用Office的Excel程序），設(shè)計(jì)一張報(bào)表如圖3所示。所有按鈕其實(shí)已經(jīng)繪制好了，下面的截圖只是演示一二。

第一步：Excel中按鈕的繪制

點(diǎn)擊菜單“開(kāi)發(fā)工具”，再點(diǎn)擊工具欄中的按鈕，鼠標(biāo)指針變?yōu)槭志€，可以在需要繪制按鈕的地方，拖動(dòng)鼠標(biāo)然后松開(kāi)鼠標(biāo)來(lái)實(shí)現(xiàn)對(duì)按鈕的繪制，如圖3所示。

圖3 按鈕的繪制

修改按鈕的標(biāo)題：右鍵點(diǎn)擊按鈕，然后選擇“屬性”，即可彈出“屬性”對(duì)話框，將Caption右邊的屬性值改為想要的內(nèi)容，如“速度快”等。如圖4所示。

圖4 按鈕標(biāo)題的修改

第二步：VB“宏”程序的編寫(xiě)

點(diǎn)擊按鈕右鍵選擇“指定宏”，在彈出的VB編輯器中，輸入程序代碼：range("A6") =range("A6")+1。由于每個(gè)按鈕的運(yùn)行事件都是累加操作，所有的模塊代碼均相似，只需要修改模塊名稱(chēng)及代碼中單元格即可。如圖5所示。

圖5 VB宏程序的設(shè)計(jì)

設(shè)計(jì)一個(gè)“減”按鈕，萬(wàn)一點(diǎn)錯(cuò)多加1次，點(diǎn)擊“減”按鈕可以減1，則宏代碼：

第三步：給按鈕指定宏

“退出設(shè)計(jì)”，右鍵點(diǎn)擊按鈕，選擇“指定宏”，在彈出的對(duì)話框中選擇相應(yīng)的宏名稱(chēng)。類(lèi)似設(shè)置其他所有按鈕。如圖6所示。

圖6 給按鈕配置宏

宏程序已經(jīng)配置成功，下面看看效果（圖7），點(diǎn)擊相應(yīng)按鈕后，相應(yīng)單元格的數(shù)字在原值的基礎(chǔ)上累加1，達(dá)到了預(yù)期的效果。

圖7 Excel“正”字計(jì)數(shù)器演示效果

考慮到在同一屏幕，既要顯示淘寶網(wǎng)頁(yè)，又要在EXCEL中點(diǎn)擊按鈕計(jì)數(shù)，進(jìn)一步將該Excel表格重新編排成豎排列，如圖8所示。

圖8 豎排計(jì)數(shù)器

后續(xù)待譚編修改的這篇論文刊出后，再跟大家分享研究結(jié)果。