欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 简化调整公式参数步骤的宏

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2461人关注过本帖平板打印复制链接

主题：简化调整公式参数步骤的宏
帅哥哟，离线，有人找我吗？
pel46585
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：167 积分：661 威望：0 精华：1 注册：2009/12/25 23:43:24 		简化调整公式参数步骤的宏  发帖心情 Post By：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
版主评定：好评，获得30个金币奖励好评，获得30个金币奖励
(理由：好文章)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.09375 秒, 5 次数据查询