共3 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]如何改这个程序让它能在EXCEL输出阴线后的一阳线

1楼

continue 发表于：2011/9/6 11:27:51

Set Grid = Technic.GetGridByName("Main") Set Formula = Grid.GetFormulaByIndex(1) '创建EXCEL对象 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add '循环遍历得到公式线 for i = 0 to Formula.DataSize-1 '将两条数据线插入到EXCEL第一、二列 objExcel.Cells(i+1,1).Value =Formula.GetBufData("MA1",i) objExcel.Cells(i+1,2).Value =Formula.GetBufData("MA2",i) next 如何改这个程序让它能在EXCEL循环输出阴线后的第一根阳线的数据

[此贴子已经被作者于2011-9-6 11:35:49编辑过]

2楼

王锋发表于：2011/9/6 12:07:26

如果你连问题都懒得描述清楚，那么我想我们更懒得去猜你到底想表达的什么

3楼

continue 发表于：2011/9/6 16:43:10

不知道怎么成一堆的。。。输入的程序。。。 Set Grid = Technic.GetGridByName("Main") Set Formula = Grid.GetFormulaByIndex(1) '创建EXCEL对象 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add '循环遍历得到公式线 for i = 0 to Formula.DataSize-1 '将两条数据线插入到EXCEL第一、二列 objExcel.Cells(i+1,1).Value =Formula.GetBufData("MA1",i) objExcel.Cells(i+1,2).Value =Formula.GetBufData("MA2",i) next 如何改这个程序让它能在EXCEL循环输出阴线后的第一根阳线的数据

共3 条记录, 每页显示 10 条, 页签: [1]