Excel VBA右鍵設置單元格有效性下拉框
- 2020-05-01 08:00:00
- gufengaoyue 轉貼
- 973
On Error Resume Next '忽略錯誤
Application.ScreenUpdating = False '關閉屏幕刷新
If Target.Column = 2 And Target.Count = 1 Then '判斷是否在B列右擊鼠標
Application.CommandBars("CELL").Enabled = False '如果是,關閉鼠標右擊彈齣菜單
md = Join(Application.Transpose(Sheets("數據").Range("D6:D1000")), ",")
With Selection.Validation '對所單擊的單元格,創建數據有效性
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=md '"Hello,Very good,Every day,898,0044,44944"
.IgnoreBlank = True '設置單元格 允許空值
.InCellDropdown = True '提供下拉列標
.InputTitle = "友情提示" '提示標題
.ErrorTitle = "" '齣錯提示,可以自己添加
.InputMessage = "你在此單元格,可以選擇一箇費用類彆。也可以自己添加實際髮生的新類彆。但必鬚是符閤規定的類彆。" '提示語句
.ErrorMessage = "" '齣現非有效性中內容時的提示。可以自己添加
.IMEMode = xlIMEModeOff '關閉輸入法
.ShowInput = True '如果用戶輸入瞭無效數據,顯示數據有效性檢查輸入消息
.Show
Error = False '如果用戶輸入瞭無效數據,顯示錯誤消息,
End With
Else '判斷不在B列右擊鼠標,則打開鼠標右擊彈齣菜單
Application.CommandBars("CELL").Enabled = True
End If '結束判斷
Application.ScreenUpdating = True '恢複屏幕刷新
End Sub '結束過程
Access Activex第三方控件
- office使用部分控件時提示“您沒有使用該ActiveX控件許可的問題”的解決方法
- RTF文件(富文本格式)的一些解析
- Access樹控件(treeview) 64位Office下齣現橫曏滾動條不會自動定位的解決辦法
- Access中國樹控件 在win10電腦 節點行間距太小的解決辦法
- EXCEL 2019 64位版(Office 2019 64位)早就支持64位Treeview 樹控件 ListView列錶等64位MSCOMMCTL.OCX控件下載
- VBA或VB6調用WebService(直接Post方式)併解析返迴的XML
- Access 或VBA 或VB6 使用 MS SOAP Toolkit 3.0 實現 SOAP Client客戶端的功能
Access ADP Sql Server等
- MMC 不能打開文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由於文件不存在,不是一箇MMC控製颱,或者用後來的MMC版
- sql server連接不瞭的解決辦法
- localhost與127.0.0.1區彆
- Roych的淺談數據庫開髮繫列(Sql Server)
- sqlserver 自動備份對備份目録沒有存取權限的解決辦法
- 安裝Sql server 2005 express 和SQLServer2005 Express版企業管理器 SQLServer2005_SSMSEE
- 解決Access數據庫的Sql語句中 Top n 語句穫取多條記録
文章分類
聯繫我們
聯繫人: | 王先生 |
---|---|
電話: | 13928102596 |
Email: | 18449932@qq.com |
QQ: | 18449932 |
微信: | 13928102596 |
微博: | officecn01 |