一個(gè)人事小姐姐找我說她平常要錄入很多人員信息,工作容易出錯(cuò),主要出現(xiàn)錄錯(cuò)、錄重復(fù)、錄入效率低下的問題,很是苦惱,問我有沒有好的解決辦法,那么如何快速高效的錄入數(shù)據(jù)呢?
我想想了, 給她做一個(gè)模板表,如下圖所示:
Sheet2作為錄入界面,Sheet1作為新人信息表存入界面,主要有以下4點(diǎn)功能:
1、鼠標(biāo)可選單元格主要集中在四個(gè)字段后面的單元格,輸入完一個(gè)信息后,Tab鍵直接切換到下一個(gè)信息單元格,省去點(diǎn)擊鼠標(biāo)的麻煩,同時(shí)限定輸入的位置,不會(huì)出錯(cuò);
2、查重,在錄入的時(shí)候,檢測(cè)待錄入人員是否重復(fù)錄入,如果表1中已經(jīng)存在此人,則提示已經(jīng)存在,需要重新錄入;
3、限定手機(jī)號(hào)碼輸入位數(shù),防止手機(jī)號(hào)錄入出錯(cuò),只有輸入11位數(shù)字時(shí)才能成功輸入;
4、成功錄入一個(gè)人員信息之后,清空錄入界面,方便下一個(gè)人員的錄入。
我們利用三個(gè)知識(shí)點(diǎn),對(duì)這個(gè)功能進(jìn)行講解。
Tab鍵小伙伴們都不陌生,按一下Tab鍵,選中單元格會(huì)自動(dòng)切換到后面的一個(gè)單元格,那么如果實(shí)現(xiàn)Tab鍵在指定的單元格中切換呢?
第一步,按住Ctrl鍵,依次點(diǎn)選四個(gè)單元格,然后按下組合鍵Ctrl+1鍵,調(diào)出設(shè)置單元格界面,點(diǎn)擊【保護(hù)】,取消勾選【鎖定】,按【確定】按鈕完成設(shè)置;
第二步,依次點(diǎn)擊【審閱】——【保護(hù)工作表】,在彈出界面中取消勾選【選定鎖定單元格】。
完成以上兩步操作之后,可以發(fā)現(xiàn), 再次按Tab鍵,Excel輸入框只會(huì)在四個(gè)單元格中來回切換!
緊接著限定手機(jī)號(hào)碼輸入的位數(shù),數(shù)據(jù)驗(yàn)證(數(shù)據(jù)有效性)輕松搞定!
選中手機(jī)號(hào)碼輸入單元格,依次點(diǎn)擊【數(shù)據(jù)】——【數(shù)據(jù)驗(yàn)證】,依次選擇“文本長(zhǎng)度”、“等于”、“11”,點(diǎn)擊“出錯(cuò)警告”,在“出錯(cuò)信息”框內(nèi)輸入“請(qǐng)輸入11位手機(jī)號(hào)碼”,點(diǎn)擊“確定”,完成設(shè)置!
注意:此步應(yīng)該在最開始設(shè)置,因?yàn)榈谝徊皆O(shè)置了工作表保護(hù)之后,無法再對(duì)單元格進(jìn)行數(shù)據(jù)有效性設(shè)置!
由于字典的特性,key值唯一,不可重復(fù),我們只需要將已經(jīng)存在的人員列表錄入到字典中去接著在判斷待會(huì)去員工是否存在于字典中即可;
如果存在則不錄入,如果不存在則錄入數(shù)據(jù),并清空錄入界面,代碼如下圖所示:
方便小伙伴們復(fù)制,明細(xì)代碼如下所示:
Sub 人員錄入()a = Worksheets('sheet1').Cells(Rows.Count, 1).End(xlUp).Rowb = Range('B3')Dim arr()On Error Resume NextSet d = CreateObject('scripting.dictionary')arr = Range(Worksheets('sheet1').Cells(2, 1), Worksheets('sheet1').Cells(a, 2))For i = 1 To UBound(arr)d.Add arr(i, 1), arr(i, 2)NextIf d.exists(b) Then MsgBox '已存在此人,從重新輸入'Exit SubElseWorksheets('sheet1').Cells(a + 1, 1) = Range('B3') Worksheets('sheet1').Cells(a + 1, 2) = Range('D3')Worksheets('sheet1').Cells(a + 1, 3) = Range('B5')Worksheets('sheet1').Cells(a + 1, 4) = Range('D5')Range('b3').ClearContents Range('d3').ClearContentsRange('b5').ClearContentsRange('d5').ClearContentsEnd IfMsgBox '已完成'End Sub
此模板并非適用于任何場(chǎng)景,根據(jù)不同的數(shù)據(jù)錄入需求,去修改調(diào)整,重要的是學(xué)習(xí)制作的思路,思路明白了,其它的都不再是問題~
聯(lián)系客服