您的位置:首页 > 资讯频道 > 国际商业 > 各地要闻>正文

VBA中运用勤哲Excel服务器表间公式实现管理系统

时间:2022-12-08 14:56:08    来源:企业供稿    浏览次数:    我来说两句() 字号:TT

   信息技术如今已经成为一项非常实用的现代化教育技术,在知识经济时代,国家对人才的要求也越来越高,不仅仅需要高学历高能力的管理型人才,同时科技人才专业技术型人才也是国家发展的主要生产力。

  当信息化技术结合数学函数会怎样?我们不妨以知名信息化软件勤哲EXCEL服务器为例,结合VBA函数,看它如何实现连续应用指定的表间公式:

   一.VBA可调用函数

  ExecQuery(qryList)

  功能:连续应用若干条(一条或多条)指定的表间公式

  参数:qryList:表间公式名称列表,各公式名之间用逗号分割。

  应用场合:在模板上写VBA程序,调用此函数,可实现用户控制(手动)表间公式的运行。

  二.实例应用

  某企业的物料查询

  2.1功能描述

  该企业在库存管理中,对库存商品的指定查询条件,方便业务人员按条件查找物料。在勤哲EXCEL服务器软件中建立一个“纯查询模板”通过运用表间公式就可以把涉及到库存信息做一个查询结果表现出来,实现查询物料信息的这样一个功能。

  2.2建立“物料查询表”

  勤哲EXCEL服务器软件的描述:该模板是“纯查询模板”。

  2.3

  2.3 按模板定义的数据项写出表间公式

  如:主表:品牌、供应商、品名、规格、

  明细:库存数量

  2.4表间公式

  运用勤哲EXCEL服务器表间公式提出所查询信息应用手动执行.

  目的:按查找条件执行。

  (1)按品牌提取

  提取<物料表_明细>中满足下列条件的数据:

  <数据筛选:物料表_明细.品牌>

  按以下方式填入<物料查询表_明细>:

  物料表_明细.品牌--->(填入值)品牌 (升序)

  物料表_明细.供应商--->(填入值)供应商 (升序)

  物料表_明细.品名--->(填入值)品名(升序)

  物料表_明细.规格--->(填入值)规格 (升序)

  物料表_明细.库存数量--->(填入值)库存数量 (升序)

  (2) 按供应商

  提取<物料表_明细>中满足下列条件的数据:

  <数据筛选:物料表_明细.供应商>

  按以下方式填入<物料查询表_明细>:

  物料表_明细.品牌--->(填入值)品牌 (升序)

  物料表_明细.供应商--->(填入值)供应商 (升序)

  物料表_明细.品名--->(填入值)品名 (升序)

  物料表_明细.规格--->(填入值)规格 (升序)

  物料表_明细.库存数量--->(填入值)库存数量 (升序)

  (3) 品名查询

  提取<物料表_明细>中满足下列条件的数据:

  <数据筛选:物料表_明细.品名>

  按以下方式填入<物料查询表_明细>:

  物料表_明细.品牌--->(填入值)品牌 (升序)

  物料表_明细.供应商--->(填入值)供应商(升序)

  物料表_明细.品名--->(填入值)品名 (升序)

  物料表_明细.规格--->(填入值)规格 (升序)

  物料表_明细.库存数量--->(填入值)库存数量 (升序)

  (4) 规 格

  提取<物料表_明细>中满足下列条件的数据:

  <数据筛选:物料表_明细.规格>

  按以下方式填入<物料查询表_明细>:

  物料表_明细.品牌--->(填入值)品牌(升序)

  物料表_明细.供应商--->(填入值)供应商 (升序)

  物料表_明细.品名--->(填入值)品名 (升序)

  物料表_明细.规格--->(填入值)规格(升序)

  物料表_明细.库存数量--->(填入值)库存数量 (升序)

  (5) 库 存

  提取<物料表_明细>中满足下列条件的数据:

  <数据筛选:物料表_明细.库存数量 <>0>

  按以下方式填入<物料查询表_明细>:

  物料表_明细.品牌--->(填入值)品牌

  物料表_明细.供应商--->(填入值)供应商

  物料表_明细.品名--->(填入值)品名

  物料表_明细.规格--->(填入值)规格

  物料表_明细.库存数量--->(填入值)库存数量

  2.5在模板中运用EXCEL VBA功能加入“命令按钮”

  打开勤哲EXCEL“工具”中的-Viusal basic

  添加“命令按钮”如图:

  2.6 写入VBA代码 具体格式可以参考EXCEL服务器帮助

  通过双击增加的“品牌查询”命令按钮写入代码

  (1)

  Private Sub CommandButton1_Click()

  Dim oAdd As Object

  Dim ans As Boolean

  ′获取Excel服务器编程接口

  oAdd = Application.COMAddIns.Item("ESClient.Connect").Object

  ans = oAdd.execQuery("品牌查询") 这里输入表间公式名称

  oAdd = Nothing

  End Sub

  (2) 同样的方法写入第二段代码

  Private SubCommandButton2_Click()命令按钮为“供应商查询”

  Dim oAdd As Object

  Dim ans As Boolean

  ′获取Excel服务器编程接口

  oAdd = Application.COMAddIns.Item("ESClient.Connect").Object

  ans = oAdd.execQuery("供应商查询")同样写入表间公式

  oAdd = Nothing

  End Sub

  ………………………….

  依次写入“品名、规格、库存数量”的代码

  应用效果:

  品牌查询

  供应商查询

  品名查询

  规格查询

  查全部库存

  小结:

  不难看出,勤哲EXCEL服务器软件与VBA函数的结合,可以使得表间的计算更为精准,数据统计更方便、迅速。未来,勤哲EXCEL服务器将一如既往的基于对各类函数的技术积累、深刻理解和长期实践,致力于现代信息化技术的深耕细作,更好助力企业实现数字化转型。


免责声明:本网站所刊登、转载的各种稿件、图片均有可靠的来源,市场有风险,选择需谨慎!此文仅供参考,不作买卖依据,并不代表新讯网观点,由此产生的财务损失,本站不承担任何经济和法律责任,本站自动屏蔽违反《广告法》词语。

请选择您浏览此资讯时的心情

相关资讯
网友评论
本文共有人参与评论
用户名:
密码:
验证码:  
匿名发表
主办单位:北京时代互通文化传媒有限公司 技术支持单位:西部数码