VBA代碼實現Excel中數據快速錄入

VBA代碼實現Excel中數據快速錄入

在Excel中錄入數據有很多的技巧，合理地運用它們可以提高我們的工作效率。本文另辟蹊徑，向大家介紹一下如何利用VBA代碼實現數據的快速錄入。請看下面的例子。

假設在填寫的某列數據中，員工所屬的部門有“一車間”、“二車間”、“銷售部”等等，如果我們能用數字代替這些文字內容輸入的話，必將大大提高我們錄入的效率。

根據這個思路，我們在該工作表的Change事件中輸入了如下的代碼：

Private Sub Workheet_Change(ByVal Target As Range)

If Target.Column = 2 Then ’只在第二列實現該功能

If Target.Value = 1 Then

Target.Value = "一車間"

Else

If Target.Value = 2 Then

Target.Value = "二車間"

Else

If Target.Value = 3 Then

Target.Value = "銷售部"

End If

End If

End If

End If

End Sub

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

提示：代碼中“Target．Column ＝ 2”用于指定只能在第二列輸入這些數據時才有效(如果不指定對整個工作表都有效)，這樣才能保證在其他列輸入這些數據時不會受到影響。類似地，我們還可以用代碼來控制在其他列中快速地錄入文本。該技巧適合事先加載到表格中或編制成程序讓不熟悉Excel的人員使用，這樣我們將員工填寫的表格(在相應的編號內容中打勾或直接填寫指定內容的編號)收上來之后就可以快速地采集數據了。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。