[求助]如何判断word中表格是否为空

cn_blaze · 发表于 2006-7-1 16:14

问题：

1、
在关闭文档前，如果发现紫色部分的表格没有填入分数，就弹出对话框提示，提示的内容须指出第几项工作目标没有打分(是明确指出第几项工作目标，而不是直接引用A7:A14的工作目标)，并且强制返回完成打分工作

2、紫色部分的打分，如果发现打分100的超过2个，在关闭文档前也提示打分100的超过2个，但不强制返回修改打分

[em06]

PlGn0n0G.rar (5.39 KB, 下载次数: 18)

[此贴子已经被作者于2006-7-1 16:15:14编辑过]

konggs · 发表于 2006-7-1 17:34

这一句：是明确指出第几项工作目标，而不是直接引用A7:A14的工作目标？是什么意思？

cn_blaze · 发表于 2006-7-1 17:50

以下是引用konggs在2006-7-1 17:34:50的发言：
这一句：是明确指出第几项工作目标，而不是直接引用A7:A14的工作目标？是什么意思？

sorry,没说清楚。意思是：如果e8是空的，则提示没有给第1项工作目标打分；如果e9是空的，就提示没有给第2项工作目标打分，依此类推……

谢谢konggs的关注！期盼能帮小弟解决这个难题。

[em02]

[此贴子已经被作者于2006-7-1 17:52:02编辑过]

konggs · 发表于 2006-7-1 18:56

cn_blaze 兄请参考：

IaiAdUM7.rar (12.56 KB, 下载次数: 22)

cn_blaze · 发表于 2006-7-1 19:13

谢谢konggs兄的回复。下面这段代码，还烦请解释一下：

'a.Cells.Count=41,46,41+5*7
With ActiveDocument.Tables(1).Range
    For i = 41 To 41 + 5 * 7 Step 5
         If Len(.Cells(i).Range.Text) = 2 Then
            n = .Cells(i - 4).Range.Text
            n = Mid(n, 1, Len(n) - 2)
            MsgBox "提示：没有给《" & n & "》打分", vbOKOnly, "www.excelhome.net"
            .Cells(i).Range.Select
            Exit Sub
          End If
    Next
End With

[em04]

另外，《" & n & "》的结果是直接引用了该项工作目标的内容。但是实际应用的时候可能该项工作目标的内容很长，在弹出框里看起来比较涨眼，能否简化成第几项工作没有打分。

[此贴子已经被作者于2006-7-1 19:17:58编辑过]

konggs · 发表于 2006-7-2 17:39

'a.Cells.Count=41,46,41+5*7
Dim list%
'你的要求可能是这样
With ActiveDocument.Tables(1).Range
    For i = 41 To 41 + 5 * 7 Step 5 '测得第一项的后面对应的是第41个单元格，相差是5。所以，step=5
        list = list + 1 '利用list来得到是第几项没有加项
         If Len(.Cells(i).Range.Text) = 2 Then   '因为类回车加+竖线加在一起是2个长度。所以。。这样判断
            'n = .Cells(i - 4).Range.Text '取得单元格的内容+回车+竖线
            'n = Mid(n, 1, Len(n) - 2) '去掉回车+竖线的，即我们所看到的内容
            MsgBox "提示：没有给第" & list & "项打分！", vbOKOnly, "www.excelhome.net"
            .Cells(i).Range.Select '选中所在的单元格
            Exit Sub
          End If
    Next
End With

cn_blaze · 发表于 2006-7-2 18:23

谢谢，我再仔细学习一下。

		自动登录	找回密码
密码			免费注册