假设我们将所有考生的成绩合并到Sheet1中。在当前的工作表中用“控件工具箱”画一个命令按钮并命名为“合并成绩”(如图所示),双击后在其Click事件中输入下面的代码: Private Sub CommandButton1_Click() '统计要合并的工作表的数量(循环次数) For i = 2 To Sheets.Count Worksheets(i).Select '选择各工作表中的数据区域并复制 Worksheets(i).Select '选择各工作表中的数据区...[ 查看全文 ]
折线图 <% Option Explicit '页面级对象 '-------------------- Dim m_cn '链接对象 Dim m_rs '记录集对象 Dim m_cspace 'OWC.ChartSpace object Dim m_fso '文件系统对象 Dim m_objBinaryFile '二...[ 查看全文 ]