请教：弹出对话框提醒未填项目（Word表格）

nanasa

尊敬的各位前辈：


你们好！

例如附件中的样本。其中带“*”号的是必填项目。

想做到一种效果，当填完表保存文档的时候，表格上还有带“*”号的项目是未填的（空白的），可以弹出一个对话框，说明那一（几）项是还没有填写的。

如果想要这种效果，应该怎么样做呢？

请各位不吝赐教，谢谢！

申请表样本.zip (10.89 KB, 下载次数: 39)

2010-11-16 16:24 上传

点击文件名下载附件

sqhsqhli

用Word内置保存命令判断表是否填好，岂不是要修改命令代码

发个我用控件做的

[ 本帖最后由 sqhsqhli 于 2010-11-17 11:29 编辑 ]

nanasa

谢谢回复。

但是这个是咋用的啊？

sqhsqhli

我做的只是实例，只有两个框，只有全填写了，按钮才会隐藏，也不会影响打印，你需要的话可以自己设计啊，改改代码就可以了。另外，你的那个例子，我猜想应该加个if域代码也可以吧，可是我对域知之甚少，也盼望有人指点，学习。

nanasa

谢谢您的回复！

tangqingfu

谢谢sqhsqhli 兄的分享！

kqbt

要在保存时反馈有几项未填是可以的，但若要列出具体哪几项未填，可能有点麻烦。

te9932

Private Sub CommandButton1_Click()
If Len([e7]) = 0 Or Len([E9]) = 0 Then
        MsgBox "公司简称或日期未填写，请先填好再保存。"
        Exit Sub
    End If
    If Len([e8]) = 0 Then
        MsgBox "发票号码未填写，请先填好再保存。"
        Exit Sub
    End If
        If Len([e10]) = 0 Then
        MsgBox "付款方式未填写，请先填好再保存。"
        Exit Sub
    End If
        If Len([e11]) = 0 Then
        MsgBox "包裹件数未填写，请先填好再保存。"
        Exit Sub
    End If

ActiveWorkbook.SaveAs Filename:= _
"D:\360企业云盘-Onlys\Only's Fashion 鼎元时尚\文件\onlys公司文件\开出发票\" & [e8] & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

可以做个保存按键,复制上面的代码,位置和提示自己改下
If Len([e7]) = 0 Or Len([E9]) = 0 Then  这个是E7或E9单元格未填 ,提示:公司简称或日期未填写，请先填好再保存
下面这个是保存的位置和文件名以E8单元格命名,如果不需要可以删掉
"D:\360企业云盘-Onlys\Only's Fashion 鼎元时尚\文件\onlys公司文件\开出发票\" & [e8] & ".xls", FileFormat:=xlNormal _