數字代替漢字，Excel信息錄入飛快

在Excel中錄入數據，如果能用數字代碼來代替一些固定的漢字字串，就可以使工作化繁為簡，大大提高效率。

請看下面的這個實例：這是一個“豐南一中職稱統計登記表”（圖1）。其中“編號”、“姓名”都已錄入完成，只需填入相應的“職稱”和“所屬部門”。假如“職稱”分為中學高級、中學一級、中學二級和員級，“所屬部門”分高一年級、高二年級、高三年級和其他，試想我們在錄入時輸入相應的漢字是不是比較繁瑣呢？如果我們能用數字代替這些文字，幾個漢字的錄入只需一個數字即可，那是不是能大大提高我們錄入的效率呢？下面讓我們看具體的實現方法。

工作表建立

先建立一個工作表，注意字段的順序很重要，它涉及到第二步的操作（圖1）。

圖1

構建基本代碼

選擇“工具→宏→Visual Basic編輯器”，在左邊的資源管理器窗口雙擊Sheet1（Sheet1），在右側的代碼窗口中分別選擇Worksheet對象和Change事件，然後輸入幾行非常簡單的代碼（圖2）。

圖2

這些代碼看起來非常簡單，但為了照顧不懂編程的朋友，我在這裡還是給你稍作解釋，你照搬即可：

⑴在這段代碼中咱們選擇的Worksheet和Change分別代碼當前工作表和改變事件，就是說當前工作表中單元格中的值發生改變時要做什麼；

⑵代碼中Target．Column=3用於指定只能在第三列輸入這些數據時才有效(如果不指定對整個工作表都有效)；

⑶在代碼中用到了If…End If語句，表示“如果…那麼”，Target.Value則表示輸入單元格的值。

這下你對上述代碼理解了吧？如果你還沒理解也不要緊，你可以先照著圖把它輸入到自己的工作表中試一試效果如何，以後慢慢體會體會就懂了。

數字代替文本輸入

關閉這個編輯器，返回到Excel窗口，這時在第3列也就是“職稱”這列輸入相應的數字，就可以看到數字被替換成指定的文本內容了（圖3）。

圖3

可能有的朋友會想，先輸入這些數字，然後用查找替換的方法不也行嗎？然而我們會發現，用查找替換操作容易將其他列中的這些數據錯誤地替換掉，如果每個數字經確認後再替換就顯得比較煩瑣了，而用代碼就不會出現這些問題，加載之後就可以一勞永逸了。

修改代碼 推廣設置

有了對第三步的理解，相信你也可以對第四列即“所屬部門”進行設置吧？很簡單，只需修改一小部分代碼即可，最後的形式如圖所示（圖4）。

圖4

有了這段小小的代碼，我們的工作是不是非常輕鬆了！

來自：電腦愛好者