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的人员使用，这样我们将员工填写的表格(在相应的编号内容中打勾或直接填写指定内容的编号)收上来之后就可以快速地采集数据了。
绛旓細鏍规嵁杩欎釜鎬濊矾锛屾垜浠湪璇ュ伐浣滆〃鐨凜hange浜嬩欢涓緭鍏ヤ簡濡備笅鐨勪唬鐮锛歅rivate 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...
绛旓細浠ｇ爜濡備笅:Sub 鑾峰彇VBA鐗堟湰()MsgBox Application.VBE.Version End Sub 褰撴寜F5閿紝灏辨姤锛氳繍琛屾椂閿欒1004銆傜粡鑰佸笀鎸囩偣锛屽崟鍑绘枃浠垛曗曢夐」鈥曗曚俊浠讳腑蹇冣曗曟墦寮鈥滀俊浠讳腑蹇冣濆璇濇锛屽畯璁剧疆鈥曗曞嬀閫夆滀俊浠诲VBA宸ョ▼瀵硅薄妯″瀷鐨勮闂濄傚啀娆¤繍琛岋紝灏变笉浼氬嚭鐜拌繍琛屾椂閿欒1004鎻愮ず銆傚悗鏉ュ湪寰蒋瀹樻柟涔熺湅鍒颁簡姝ゆ秷鎭...
绛旓細鍦‥xcel涓锛鍒╃敤VBA鍙互杞绘澗瀹炵幇璺ㄥ伐浣滅翱鐨勬暟鎹璋冪敤銆傞鍏堬紝浣犻渶瑕佸湪宸ヤ綔绨跨殑瀹忓綍鍒跺姛鑳戒腑寮濮嬫搷浣溿傜偣鍑诲乏涓嬭鐨勫綍鍒跺畯鎸夐挳锛屼负鍗冲皢鎵ц鐨勬搷浣滃垱寤轰竴涓畯銆傚湪瀹忓悕澶勶紝杈撳叆涓涓槗鐞嗚В鐨勫悕绉帮紝渚嬪"DataTransfer"锛屽苟閫夋嫨瀛樺偍鍦"涓汉瀹忓伐浣滅翱"涓紝鐒跺悗鐐瑰嚮"纭畾"銆傚綍鍒跺畬鎴愬悗锛岄氳繃鐐瑰嚮鍋滄褰曞埗瀹忔寜閽殏鍋...
绛旓細If Not (Target.Address Like "C5:C6") Then Exit Sub ' 鑾峰彇褰撳墠琛鐨搴撳瓨鏁版嵁 Dim StockCell As Range Set StockCell = Cells(Target.Row, 7)' 璁＄畻搴撳瓨 StockCell = CalculateInventory(Target)End Sub ' 璁＄畻搴撳瓨鐨勮緟鍔╁嚱鏁 Private Function CalculateInventory(ByVal TransactionCell As Range)...
绛旓細浣跨敤VBA鍙互灏Excel鏁版嵁鍐欏叆鍒癢ord涓備互涓嬫槸涓涓熀鏈殑绀轰緥浠ｇ爜锛屽彲浠ユ牴鎹綘鐨勯渶瑕佽繘琛屼慨鏀瑰拰鎵╁睍锛vba 澶嶅埗 Sub WriteExcelDataToWord()Dim excelApp As Excel.Application Dim excelBook As Excel.Workbook Dim excelSheet As Excel.Worksheet Dim wordApp As Word.Application Dim wordDoc As Word....
绛旓細瑕佸埄鐢 VBA 鍦 Excel 涓疄鐜版暟鎹鑷姩閰嶅锛屼綘鍙互鎸夌収浠ヤ笅姝ラ杩涜鎿嶄綔锛1. 鎵撳紑 Excel锛屾寜涓 `Alt + F11` 缁勫悎閿墦寮 Visual Basic Editor銆2. 鍦ㄥ乏渚х殑鈥滈」鐩祫婧愮鐞嗗櫒鈥濈獥鏍间腑锛屾壘鍒板苟灞曞紑浣犵殑宸ヤ綔绨匡紙Workbook锛夈3. 鍙屽嚮宸ヤ綔绨跨殑鍚嶇О锛屽湪鈥滀唬鐮佺獥鍙ｂ濅腑杈撳叆浠ヤ笅 VBA 浠ｇ爜锛歚``vba Sub 鑷姩...
绛旓細1銆侀鍏堟墦寮闇瑕佺紪杈鐨凟xcel琛ㄦ牸锛屽彸閿崟鍑诲伐浣滆〃鐨勬爣绛撅紝閫夋嫨鎵撳紑鈥滄煡鐪浠ｇ爜鈥濄2銆佺劧鍚庡湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑昏緭鍏ワ細Sub 鍒犻櫎閲嶅琛()Dim xRow As Integer Dim i As Integer xRow = Range("B65536").End(xlUp).Row For i = 2 To xRow For j = i + 1 To xRow If Cells(j, 2) = Cells...
绛旓細璇曚笅涓嬮潰鐨勪唬鐮:Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = False Dim str1 As String, i As Integer, d As Range, firstaddress As String If Target.Address = "$D$3" Or Target.Address = "$E$3" Then Rows("5:65536").Clear If [d3] <> "" ...
绛旓細鍏蜂綋鐨勬柟娉曟槸锛氬厛鍦ㄨ〃鏍间腑鍒涘缓涓涓笅鎷夊垪琛紝鐒跺悗閫氳繃涓嬫媺鍒楄〃閫夋嫨涓嶅悓鐨勭郴鍒楋紝閫氳繃VBA浠ｇ爜鏀瑰彉鍥捐〃鏁版嵁鍖哄煙锛岃鍥捐〃涓鐨勬暟鎹闅忎箣鏀瑰彉銆備笅闈互鍦‥xcel 2003涓粯鍒舵煴褰㈠浘涓轰緥璇存槑濡備笅锛1.璁剧疆涓嬫媺鍒楄〃銆傝缃笅鎷夊垪琛ㄧ殑鏂规硶鏈夊緢澶氾紝杩欓噷鐢ㄦ暟鎹湁鏁堟ф潵璁剧疆銆傞夋嫨鏌愪釜鍗曞厓鏍硷紝濡俆14锛屽崟鍑昏彍鍗曗滄暟鎹啋鏈夋晥鎬р啋...
绛旓細1銆侀鍏堬紝鍦‥xcel琛ㄦ牸涓緭鍏ュ鍥惧唴瀹癸紝浠ユ柟渚垮湪VBA涓杩涜璇诲彇鍜屽鐞嗘搷浣溿2銆佽繘鍏BA鐜锛屽彲浠ユ寜閿洏涓婄殑鈥淎lt+F11鈥濊繘鍏ャ傚彸鍑烩淢icrosoft Excel瀵硅薄鈥濓紝浠庡叾鍙抽敭鑿滃崟涓夋嫨鈥滄彃鍏モ-鈥滅敤鎴风獥浣撯濋」銆3銆佹帴鐫鍚戠獥浣撲腑鎷栧姩涓涓滄爣绛锯濆拰涓涓滄寜閽濓紝鍙冲嚮鈥滄寜閽濓紝浠庡叾鎵╁睍鑿滃崟涓夋嫨鈥滃睘鎬р濋」銆...
