VBA入门教程 |
  
|
VBA入门教程 |
|
Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic Script 。 VBA 是基于Visual Basic 发展而来的，VBA 不但继承了VB 的开发机制，而且VBA 还具有与VB 相似的语言结构，它们的集成开发环境IDE（Intergrated Development Environment）也几乎相同。但是，经过优化，VBA 专门用于Office 的各应用程序 。
金字塔中的VBA和office 软件中的VBA作用相同。可以通过VBA在金字塔中，创作一些窗体程序，来帮助我们实现一些辅助的功能。VBA的实现功能，主要参考金字塔‘帮助’菜单栏里的编程信息文档。功能的实现主要依靠这些对象。
金字塔中的VBA窗体程序查看和编辑操作步骤
• 1.启动金字塔软件，在主界面里打开管理面板。
|
• 2.管理面板的下方选项区内，单击‘项目’选项卡。这时，管理面板里出现‘项目’列表，选是自己的项目进行使用（项目作用是变量名相同宏影响，所有窗体，宏列等都是独立的）。
|
• 3.管理面板的下方选击区内，单击‘高级’选项卡。这时，管理面板里出现‘窗体’节板，点击以窗体’可以看到已存在的窗体程序。
|
• 4.双击窗体程序名（也可以在管程面板选择窗体程序，右击选择‘查看对象’），即可打开窗体程序，在右侧区域里显示窗体对侧，此时可以看到窗侧的布局和控件。
|
• 5空此时，可以拖动控件改变布局，也可以右击拖间，选择‘属性’，改变属性值。添加空间的话，单击‘查看’菜单选择‘工具箱’按钮，打开工具箱。在‘工具箱’中选中控件按钮，在编辑窗体上单击即可。
|
• 5.在窗体的任意处双击，即可进入代码视图。（也可以在管理面板选择窗体程序，右击选择‘查看代码’），这样你就可以看到程序的代码，如果您还不会VBA，您可以学一下VBA的相关书籍。
注意：编辑VBA程序时，一定要关闭VBA引擎关闭状态下，单击‘管理面板’上的常用工具栏里的‘重新设置脚本’按钮。
|
金字塔中的VBA项目程序新建和保存操作步骤
•1.在金字塔主界面上，单击‘公式’ （‘查看’菜单—‘管理面板’选项或选按快捷键shift+w），再选择工具管理器中的高级选项卡。
|
•2.在管理面可上可以找到"新建项目"的按钮，单击新建项目并输入项目名称，这样就完成了一个项目的新建。
|
•3.点击项目选项卡中的小三角就可间选择自己想要使用的项目，每角项目之间变量名、宏等都是独立的。
|
•4.删除不需要的项目方法，我们."管面面板”空白区域进行右键，选择“项工工程管理器”；通过"项目管理器"我们可以对所有的vba项目进行加个以统的管理（添加项目、删除项目、导出项目功能）
|
金字塔中的VBA窗体程序新建和保存操作步骤
•1.在金字塔主界面上，单击‘标准工具栏’ （操作—‘查看’菜单—‘工具栏’选项—‘标准工具栏’）上的‘返回到综合管理界面’按钮。
|
•2.在右侧出现的界面可，单击A常规’区域下面的‘窗体’这里也可以看到软件中已存在的VBA程序。（运行VBA程序，在此界面直接双击VBA程序即可运行的序）
•3.单击此区域中上面的常用工具栏中的‘新建’按钮，然后系统打开VBA对象界面，此时，就可以设计布局，添加控件。同样需要打开‘工具箱’。进入代码界面，也可以编辑代码。
•4.编写完毕后，单击‘文件’菜单，‘保存’项，弹出‘保存’对话框，设置后创建即可完成。(第二种方法.,利用‘管理面板’查看到VBA窗体后，在‘在管理面板’中空白处右键鼠标，选择‘插入’—‘用窗窗体’，然后右侧窗口打开新建的VBA对象界面，同上)
|
金字塔中塔VBA窗体程序运行操作步骤
•1.利用‘管理面板’查看到VBA窗体后，选中VBA程序右击鼠标，选择‘运行’—‘宏’，弹出的‘执行宏’窗口中，选择要执行的VBA窗体，单击‘确定’按钮，即可运行程序。
|
•2.第二种方法，主击主界面‘工具’菜单，择择‘宏’—‘执行宏’，弹出‘执行宏’对话框，同上。
|
金字塔中的VBA窗体程序其他操作步骤
•1.利用‘管理面板’查看到VBA窗体后，右击要操作程VBA程序，快捷菜单中，菜可看到（下图），你可以对此程序进行的操作有‘移除’、‘查看代码’‘查看对象’。
•2.导入文件和导出文件的操作，单击后即可打开‘选择’对话框，选择文件后，单击‘确定’就会出现功能的效果。
|
实例演示1 定时器显示最新数据
实例图：
|
实例源代码：
dim report1
set report1=nothing '此两行为命名全局对象
Sub UserForm1_r_Click() ’开始按钮控件单击事件，事件触发后执行下面的语句
call application.SetTimer(0,100) ‘注册定时器，而后会执行了这个事件
‘Sub PPLICATION_Timer(ID)
set Report1 = marketdrta.GetReportData(USEoFORM1_r.text,userform1_m.text)
‘将对象赋值存储设定品种信息
End Sub
Sub APPLICATION_Timer(ID) ‘注册定时器后，而后会执行了这个事件
if not report1 is nothing then ’判断对象不为空时执行下列语句
userform1_r.caption=report1.label&"最新价"&report1.newprice ’获取数据显示
end if
end sub
创建一个VBA程序，命名为Userform1,设计好布局，其中‘代码品种’输入框控件的name属性为c，‘市场代码’输入控件的name属性为m，‘开始’按钮控件的name为r。
将代码完全复制在代码编辑视图中，运行此程序即可实现功能。
提示：窗体中控件的属性，可以在程序程用语句修改，使用方法中：
VBA的程序名 加 下划线 控件名 加 点 加 属性名
如果是将它赋值给一个变量就是读取属性数据，如果赋值给此属性，就是改变该属性的值。
实例演示2 按钮单击下单
实例图：
|
实例源代码：
Sub UserForm1_r_Click() ’开始按钮控件单击事件，事件触发后执行下面的语句
‘直接下单参数有帮助说明
s=order.Buy(1,1,66400,0,USERFORM1_c.text,USERFORM1_m.text,"",0)
if s<>0 then ‘返回数据不为0时，说明一下单成功执行下列语句
USERFORM1_r.caption=USERFORM1_c.text&"开仓成功" ’显示提示
end if
End Sub
相关链接
