国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
巧用單元格保護(hù)功能 字典技術(shù),制作高大上的人員信息錄入表

小姐姐的問題

一個(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)行講解。

知識(shí)點(diǎn)1:利用工作表保護(hù)限定輸入位置

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è)單元格中來回切換!

知識(shí)點(diǎn)2:利用數(shù)據(jù)有效性限定輸入位數(shù)

緊接著限定手機(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è)置!

知識(shí)點(diǎn)3:利用VBA字典字?jǐn)?shù),判斷是否重復(fù)錄入

由于字典的特性,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

小結(jié)

此模板并非適用于任何場(chǎng)景,根據(jù)不同的數(shù)據(jù)錄入需求,去修改調(diào)整,重要的是學(xué)習(xí)制作的思路,思路明白了,其它的都不再是問題~

本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
常見字典用法集錦及代碼詳解5
3段VBA代碼,從此不再「復(fù)制-粘貼」
Excel 如何在VBA中使用VLOOKUP函數(shù)?
WPS表格 JSA 學(xué)習(xí)筆記
VBA值列選取與復(fù)制,賦值
ExcelVBA_014 匯總表拆分為明細(xì)表
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長(zhǎng)圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服