我們緻力于為大家奉獻最有效的經驗,讓大家能夠解決掉問題,但是大家也都知道,每個人遇到的情況都是不一樣的,大家在看經驗的同時,除了跟随操作,也需要自己的思考,舉一反三的解決問題,這樣才會變得更加有内涵,一起成長為一樣的經驗達人。根據二八定律,學好這excel VBA,就能完成80%的工作。每天學習一點Excel VBA知識點,我們一起共同進步。
選擇工作表單元格時自動展開數據有效性的下拉列表,如下面的代碼所示。
#001 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
#002 If Target.Column = 5 Then Application.SendKeys "%{down}"
#003 End Sub
代碼解析:
當選擇工作表的E列中有數據有效性的單元格時使用SendKeys方法發送Alt 向下鍵,打開數據有效性的下拉列表。
應用于Application對象的SendKeys方法将擊鍵發送給活動應用程序,語法如下:
expression.SendKeys(Keys, Wait)
參數expression是可選的,該表達式返回一個Application對象。
參數Keys是必需的,要發送的鍵或者組合鍵,以文本方式表示。
Keys參數可以指定任何單個鍵或與Alt、Ctrl 或Shift的組合鍵(或者這些鍵的組合)。每個鍵可用一個或多個字符表示。例如,"a" 表示字符 a,或者 "{ENTER}" 表示 Enter。
若要指定在按相應鍵時不會顯示的字符(例如,Enter 或 Tab),請使用如表格 12‑2所列的代碼來表示相應的鍵,表中的每個代碼表示鍵盤上的一個鍵。
按鍵代碼
如果你在工作中還需要設計其他的表格模闆,都可以留言,我們會根據大家需求來整理相關的學習資料,目的隻有一個,那就是學好Excel,提高工作效率!
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!