【分　 类】 信息科技
【关 键 词】 VBA，宏，工作表
【来 　源】 互联网
【收　 录】 中文学术期刊网

正文：

           Exit For
      Else
           f = False
      End If
    Next
If  f = True Then Print "okn" Else Print "无相关工作表"
    Worksheets("Sheet1").Activate ‘将Sheet1置为当前活动文档
  Else
  Form1.Print " 提示,无相关文档!"
End If
（2）判断图表数据源的选择的子程序
For i = 1 To Sheets.Count
      If Sheets(i).Name = "Sheet1" Then '英文工作表名必须区分大小写
           f = True
           Exit For
      Else
           f = False
      End If
    Next
Charts("产品比较图").Activate
   ActiveChart.SeriesCollection(1).Select
   For i = 1 To ActiveChart.SeriesCollection.Count
         m = ActiveChart.SeriesCollection(i).Values
         If i = 1 Then ss = "d" Else ss = "g"
            For j = 1 To UBound(m)
                     If Sheets("sheet1").Range(ss & i + 2) <> m(i) Then Exit For
           Next j
         If j <> 13 Then Exit For
   Next I
If i = ActiveChart.SeriesCollection.Count + 1 And j = 13 Then Print "okm" Else Print "wrong"
通过循环判断出图标工作表是否存在，如果存在的话将其置于当前活动文档，
把系列数组的值赋给变量，然后再通过循环判断它的值是不是题目要求的数据源。
参考文献
1. 《利用 VBA 实现对 Office 文档的自动评分》   马 占 欣, 周 文 刚
2. 《利用 VBA 实现宏操作实例》   王　丽,张桂香,李君　
3. 《word、excel自动阅卷系统的设计与实现》   唐洪彬
 

 2/2   首页 上一页 1 2