位置:首頁 > 軟件操作教程 > 辦公軟件 > Excel > 問題詳情

使用宏錄制自動將輸入內(nèi)容排到另一張表

提問人:周麗平發(fā)布時間:2021-06-07

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

image.png

2、制作來訪登記表

image.png

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



image.png

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

image.png

5、輸入公式=COUNT(來訪登記信息總表[編號])+1,實現(xiàn)自動編號。

image.png

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

image.png

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

image.png

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

image.png

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

image.png

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


image.png


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

image.png

12、在結(jié)尾,輸入:

Else

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

End If

image.png

13、信息填寫不完整,點擊自動錄入按鈕后,彈出窗口提示。

image.png

繼續(xù)查找其他問題的答案?

回復(fù)(0)
返回頂部