当前位置: 首页 > news >正文

自己做网站项目建设网站报价单

自己做网站项目,建设网站报价单,查看网站开发平台,网站开发有什么用在工作表单元格中输入数据后#xff0c;该单元格就被锁定#xff0c;不能再编辑。 打开VBE#xff0c;在工程资源管理器中双击该工作表名称打开其代码模块#xff0c;在其中输入下面的代码#xff1a; 假设整个工作表的LockedFalse Private Sub Worksheet_Change(ByVal … 在工作表单元格中输入数据后该单元格就被锁定不能再编辑。 打开VBE在工程资源管理器中双击该工作表名称打开其代码模块在其中输入下面的代码 假设整个工作表的LockedFalse Private Sub Worksheet_Change(ByVal Target As Range)Dim rCell As RangeDim ans As VbMsgBoxResultFor Each rCell In TargetWith rCellIf Len(.Value) 0 Thenans MsgBox(输入正确吗? vbCrLf vbCrLf _vbTab .Value ( .Address(False, False) ) vbCrLf vbCrLf _输入数值后将不能编辑这个单元格., vbYesNo, 单元格锁定通知)If ans vbYes ThenIf Me.ProtectContents ThenMe.Unprotect Password:123 首先撤销保护.Locked TrueMe.ProtectPassword:123Else.ClearContentsActiveCell.Offset(-1, 0).Select 重新选择数据输入单元格End IfEnd IfEnd WithNext rCell End Sub 这里假设锁定工作表的密码为“123”。 可以使用右击单元格的方式来重置想要重新输入数据的单元格。在该工作表代码模块中添加下面的代码 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)Dim rCell As RangeDim ans As VbMsgBoxResultFor Each rCell In Target.CellsWith rCellIf Len(.Value) 0 Thenans MsgBox(你想要重置这个单元格吗? vbCrLf vbCrLf _vbTab .Value ( .Address(False, False) ), vbYesNo, 单元格锁定通知)If ans vbYes ThenIf ActiveSheet.ProtectContents Then ActiveSheet.Unprotect Password:123 首先撤销保护Application.EnableEvents False.ClearContents.Locked FalseApplication.EnableEvents TrueActiveSheet.Protect Password:123End IfEnd IfEnd WithNextCancel True End Sub 这样右击想要重新输入数据的单元格会弹出一个消息框询问你是否要重置这个单元格如果点击“是”则会清空该单元格并供输入新数据。 效果如下图1所示。
http://www.dnsts.com.cn/news/131545.html

相关文章:

  • 网站开发宣传图片做网站需要看的书
  • 济南网站的公司哪家好网站开发tornado
  • html免费模板网站公司做网站卖东西要什么证
  • 武进网站建设咨询建设网站怎么设置网站页面大小
  • 如何向google提交网站wordpress响应商城
  • 成都网站建设选择到访率58同城合肥网站建设
  • 网站设计基本流程网站网址前的小图标怎么做的
  • 浙江省建设质量协会网站室内设计效果图多少钱一张
  • 论坛网站开发中遇到的问题小程序商城怎么弄
  • 深圳最好的网站建设公司wordpress templates
  • 怎么知道别人网站是谁做的优化掌握夏邑进入公众号
  • 郓城网站制作网络营销外包顾问
  • 重庆手机模板建站.net 网站 调试
  • 拥有自己的网站广州住建厅官方网站
  • 网站加seo需要多少钱镇江网站定制
  • 南阳网站制作哪家好长沙做网站需要多少钱
  • dede网站模板下载企业网站建设方案应该怎么做
  • 做网站一般用什么 语言小说网站制作开源
  • 远程桌面做网站门户网站是如何做引流的
  • 营销型网站建设套餐淄博网站开发选网泰
  • 排名好的网站建设龙溪网站建设哪家便宜
  • 专业设计网站效果seo云优化如何
  • 平果县免费网站哪家好商务封面图片素材
  • 郑州专业制作网站费用如何做外围网站的代理
  • 广东网站建设公司报价网络营销策划是什么
  • 可以直接打开网站的网页中企动力中山分公司网站
  • 永久免费网站推荐免费网站加速服务
  • 沈阳专业做网站公司wordpress降版本
  • 姜堰 做网站免费注册邮箱帐号
  • 智能建站加盟电话网站建设 诺德中心