| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- 简化调整公式参数步骤的宏 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=73179) |
| -- 作者：pel46585 -- 发布时间：2014/12/17 13:33:53 -- 简化调整公式参数步骤的宏 1、因为Formula对象没有查询参数的功能，所以一切参数只能从最小的0开始 2、调整参数的两个热键分别是 ~ 键及Caps Lock键。其它的键，大部分被占用了，而Shift,Ctrl被WINDOWS 占用了。所以选了那两个键。 3、要有一个全局的参数，我这里用了一个窗体，GongShiCS，这个窗体里最少要有一个TEXTBOX Sub Technic_KeyPress(KeyAscii)
If GongShiCS_TextBox1.Text = "" Then GongShiCS_TextBox1.Text = 0
Set Grid = Technic.GetGridByName("Main")
If KeyAscii = 192 Then
GongShiCS_TextBox1.Text = CLng(GongShiCS_TextBox1.Text) + 1
For i = 1 To Grid.FormulaCount - 1
Set Formula = Grid.GetFormulaByIndex(i)
Formula.SetParameter(GongShiCS_TextBox1.Text)
Grid.ReInitFormula
Next
End If
If KeyAscii = 20 Then
GongShiCS_TextBox1.Text = CLng(GongShiCS_TextBox1.Text) - 1
For i = 1 To Grid.FormulaCount - 1
Set Formula = Grid.GetFormulaByIndex(i)
Formula.SetParameter(GongShiCS_TextBox1.Text)
Grid.ReInitFormula
Next
End If End Sub
|