目標(biāo):在指定單元格區(qū)域,無(wú)需雙擊即可進(jìn)入編緝狀態(tài)
代碼助手下載地址 http://excel880.com/blog/archives/11297
輸入中文:不允許多選單元格 + 空格 即可彈出代碼
或者輸入英語(yǔ):Target + 空格 同樣可以彈出代碼
實(shí)現(xiàn)快速輸入代碼。
進(jìn)入事件的方法:
工作表 - 標(biāo)簽 - 右鍵 - 查看代碼
進(jìn)入VBA后,雙擊要寫(xiě)入事件的工作表名稱(chēng),選擇 Worksheet,再選擇需要的事件
SelectionChange: 當(dāng)工作表上的選定區(qū)域發(fā)生改變時(shí)發(fā)生此事件。
代碼:
If Not Target.Address Like "*:*" And Target.Column = 1 Then
'如果目標(biāo)區(qū)域的地址中不含 : , 即不是多個(gè)單元格。并且 目標(biāo)的列數(shù) 為第1列
If Target <> "" Then '如果 目標(biāo)值 不是空的
Application.SendKeys "{F2}" '發(fā)送按鍵
End If
End If
注釋:
Application.SendKeys 方法: 將擊鍵發(fā)送給活動(dòng)應(yīng)用程序
Keys 必選參數(shù) 要發(fā)送給應(yīng)用程序的鍵或組合鍵
Wait 可選參數(shù) True,則 Excel 會(huì)等到處理完按鍵后將控件返回給宏;False(或者省略該參數(shù)),則繼續(xù)運(yùn)行宏而不等至處理完按鍵。
聯(lián)系客服