Excel VBA右键设置单元格有效性下拉框
- 2020-05-01 08:00:00
- gufengaoyue 转贴
- 940
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 |