如何用vba控制word 表格内容必须不为空

简介: Public WithEvents App As Word.Application Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean) With Doc.
  1. Public WithEvents App As Word.Application

  2. Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)

  3. With Doc.Tables(1)

  4. For Each c In .Range.Cells
  5. If Len(c.Range) = 3 Then

  6. a = MsgBox("表格填写不完整,确定要退出吗?", vbYesNo)
  7. If a = vbNo Then
  8. Cancel = True
  9. c.Range.Select
  10. End If
  11. Exit For

  12. End If
  13. Next

  14. End With

  15. End Sub
目录
相关文章
|
消息中间件 Java API
面试官:如何实现链式调用?
面试官:如何实现链式调用?
603 0
csv 如果是utf-8 那么excel打开的时候为啥是乱码
csv 如果是utf-8 那么excel打开的时候为啥是乱码
930 0
计算机中存储单位的换算
计算机中存储单位的换算
|
2月前
|
存储 JavaScript 前端开发
详解C语言指针的指针,不信你还不懂!!!
指针的指针(也叫二级指针)是 C 语言中很经典但也让人迷惑的一个知识点。下面我帮你用最详细、最通俗的方式来讲清楚它,保证你看完会豁然开朗!
|
3月前
|
运维 Linux 虚拟化
VMware虚拟机安装教程,Windows下安装VMware虚拟机,附VMware下载,Windows各版本系统镜像下载
虚拟机技术允许一台物理机运行多个操作系统,提升资源利用率,节省成本。通过快照、克隆等功能,实现系统快速恢复与复制,提高运维效率。本文详细介绍VMware虚拟机的安装步骤、Windows镜像下载及系统安装激活流程,适合初学者快速入门。
941 0
|
11月前
|
数据采集 传感器 监控
MES系统的实时数据采集和监控功能具体如何实现?
MES系统(制造执行系统)通过与PLC、SCADA系统集成,加装传感器和使用物联网技术,结合条码与RFID技术、图像识别、云计算等手段,实现生产过程的全面实时数据采集和监控,确保数据的实时性和准确性,支持生产优化和决策。
684 6
|
12月前
|
存储 Android开发 网络架构
点心云-N1盒子、机顶盒、手机等设备-小白保姆式刷机教程
本文介绍了N1盒子的刷机教程,包括未刷机和已刷其他系统的N1。教程详细列出了所需工具和具体步骤,如下载工具包、制作安装盘、打开ADB模式、降级、刷入新系统等,确保用户能够顺利完成刷机操作。对于已刷第三方系统的N1,还提供了解决USB线不被识别、驱动问题及供电不足等常见问题的方法。
2066 1
点心云-N1盒子、机顶盒、手机等设备-小白保姆式刷机教程
|
存储 Kubernetes 调度
在K8S中,deployment的创建过程包括什么?
在K8S中,deployment的创建过程包括什么?
|
安全 网络性能优化 网络安全
VPN简介
VPN简介
704 3
|
安全 Java 网络安全
内网和外网的区别及应用
内网和外网的区别及应用