Excel錄入中實(shí)現(xiàn)單元格多選項(xiàng)自動(dòng)下拉

來源: 互聯(lián)網(wǎng) 編輯： 2011/06/02 15:11:35　　字體：大小

　　我們?cè)贓xcel表格中需要輸入大量的重復(fù)數(shù)據(jù)時(shí)，往往利用數(shù)據(jù)的有效性來制作一個(gè)下拉菜單以提高重復(fù)數(shù)據(jù)的輸入速度。但在實(shí)際的操作過程中，必須選中需要輸入重復(fù)數(shù)據(jù)的單元格并單擊該單元格右邊的下拉箭頭，才可以看到自己事先定制的數(shù)據(jù)有效性的下拉菜單。那么，能否實(shí)現(xiàn)在選中Excel單元格時(shí)自動(dòng)展開數(shù)據(jù)有效性的下拉菜單以使得重復(fù)數(shù)據(jù)的輸入更快一步呢？答案當(dāng)然是肯定的。接下來。給大家介紹一下如何來實(shí)現(xiàn)。

　　先啟動(dòng)Excel 2003并打開某個(gè)已設(shè)置好數(shù)據(jù)有效性下拉菜單的工作簿（如“工資表.xls”），然后單擊菜單“工具→宏→Visual Basic 編輯器”命令，調(diào)出“Visual Basic 編輯器”；接著在“Visual Basic 編輯器”窗口中，雙擊“工程－ VBAPRoject”面板中的“Sheet1（*）”選項(xiàng)（*為當(dāng)前需要快速輸入重復(fù)數(shù)據(jù)的工作表），在彈出的代碼窗口中輸入以下代碼：

　　 Option Explicit

　　Private Sub Worksheet_SelectionChange（ByVal Target As Range）

　　If Target.Column = 3 Then application.SendKeys “%{down}”

　　If Target.Column = 4 Then Application.SendKeys “%{down}”

　　End Sub

　　上述代碼輸入完畢后，關(guān)閉“Visual Basic 編輯器”窗口，此時(shí)我們輸入的代碼就會(huì)自動(dòng)保存。

　　小提示：代碼的含義是當(dāng)我們選中第3列、第4列（即C列和D列）的任意一個(gè)單元格時(shí)，都會(huì)自動(dòng)展開數(shù)據(jù)有效性的下拉菜單。在實(shí)際的操作過程中，大家可靈活地修改這兩個(gè)自然數(shù)以滿足自己的需要。

　　完成上述操作后，關(guān)閉“工資表.xls”并保存對(duì)其所做的修改，然后重新打開它，接著選中C列或D列的任意一個(gè)單元格，此時(shí)就可以看到該列單元格自動(dòng)展開的數(shù)據(jù)有效性的下拉菜單了。這樣一來我們輸入那些重復(fù)的數(shù)據(jù)就可以比原來更快一步了。有此需求的朋友不妨一試。

【我要糾錯(cuò)】責(zé)任編輯：雨非

上一篇：在Excel中自動(dòng)填充工作日

下一篇：Excel隔行調(diào)整行高的方法