test4

'假如此程序从未开始运行,则运行,否则跳过. If isDone = "no" Then Sheets("debug").Cells(1, 2).Value = "yes" '运行完成,设置标识. '当没有查询出数据时显示：No record found!. If Sheets("Table").Cells(3, 1).Value = "" Then Sheets("Chart").Cells(1, 1).Value = "No record found!" Exit Sub End If '设置调试模式. 'Call setDebug(deb) '设置画图的参数. Call setParams datasource_num = 0 maxRow = Sheets("Table").Cells.Find("*", , , , 1, 2).Row '返回最大行数. maxColumn = Sheets("Table").Cells.Find("*", , , , 1, 2).Column '返回最大列数. '初始化. Call init(maxRow)