宏錄制可以實(shí)現(xiàn)簡(jiǎn)單操作的自動(dòng)化，減少人工成本。

1、制作來訪登記總表的表頭

2、制作來訪登記表

3、根據(jù)需要設(shè)計(jì)數(shù)據(jù)有效性，如輸入特定的文字，固定長(zhǎng)短的數(shù)值等等。

4、公式-名稱管理器，可以管理編輯表的名稱。方便跨表引用。這里編輯表名稱為“來訪登記信息總表”。

5、輸入公式=COUNT(來訪登記信息總表[編號(hào)])+1，實(shí)現(xiàn)自動(dòng)編號(hào)。

6、輸入IF函數(shù)判斷填寫是否完整。=IF(AND(C5<>"",E5<>"",C6<>"",C7<>"",E7<>"",C8<>"",C9<>""),"信息填寫完整","信息填寫不完整")，<>表示單元格有數(shù)據(jù)，""表示單元格為空白。

7、開發(fā)工具-錄制宏，更改名稱。

8、在總表這里插入一行，回到登記表復(fù)制數(shù)據(jù)，一定要選擇開始里面的復(fù)制和黏貼（選擇黏貼為數(shù)值），不要使用快捷鍵！輸入完后停止錄制。

9、完成后，插入表單控件按鈕，鏈接宏，即可。

10、下面使用IF函數(shù)編輯宏，判斷表格是否完整才執(zhí)行自動(dòng)錄入。開發(fā)工具-Visual Basic，打開宏代碼編輯的窗口。

11、在開頭，輸入如下語句：If Range("B10").Text = "信息填寫完整" Then

12、在結(jié)尾，輸入：

   Else

        MsgBox "數(shù)據(jù)不完整不能輸入到總表"

    End If

13、信息填寫不完整，點(diǎn)擊自動(dòng)錄入按鈕后，彈出窗口提示。

相關(guān)推薦：

Excel字符串中多余的字符怎么去掉?

Excel無法不存提示工作簿未啟用宏怎么辦？

Excel2013表格怎么通過鏈接進(jìn)行目錄索引?