您的位置:首頁 >綜合 > 滾動 >

VBA中運(yùn)用勤哲Excel服務(wù)器表間公式實現(xiàn)管理系統(tǒng)

信息技術(shù)如今已經(jīng)成為一項非常實用的現(xiàn)代化教育技術(shù),在知識經(jīng)濟(jì)時代,國家對人才的要求也越來越高,不僅僅需要高學(xué)歷高能力的管理型人才,同時科技人才專業(yè)技術(shù)型人才也是國家發(fā)展的主要生產(chǎn)力。

當(dāng)信息化技術(shù)結(jié)合數(shù)學(xué)函數(shù)會怎樣?我們不妨以知名信息化軟件勤哲EXCEL服務(wù)器為例,結(jié)合VBA函數(shù),看它如何實現(xiàn)連續(xù)應(yīng)用指定的表間公式:

一.VBA可調(diào)用函數(shù)

ExecQuery(qryList)

功能:連續(xù)應(yīng)用若干條(一條或多條)指定的表間公式

參數(shù):qryList:表間公式名稱列表,各公式名之間用逗號分割。

應(yīng)用場合:在模板上寫VBA程序,調(diào)用此函數(shù),可實現(xiàn)用戶控制(手動)表間公式的運(yùn)行。

二.實例應(yīng)用

某企業(yè)的物料查詢

2.1功能描述

該企業(yè)在庫存管理中,對庫存商品的指定查詢條件,方便業(yè)務(wù)人員按條件查找物料。在勤哲EXCEL服務(wù)器軟件中建立一個“純查詢模板”通過運(yùn)用表間公式就可以把涉及到庫存信息做一個查詢結(jié)果表現(xiàn)出來,實現(xiàn)查詢物料信息的這樣一個功能。

2.2 建立“物料查詢表”

勤哲EXCEL服務(wù)器軟件的描述:該模板是“純查詢模板”。

2.3

2.3 按模板定義的數(shù)據(jù)項寫出表間公式

如:主表:品牌、供應(yīng)商、品名、規(guī)格、

明細(xì):庫存數(shù)量

2.4 表間公式

運(yùn)用勤哲EXCEL服務(wù)器表間公式提出所查詢信息應(yīng)用手動執(zhí)行.

目的:按查找條件執(zhí)行。

(1)按品牌提取

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).品牌>

按以下方式填入<物料查詢表_明細(xì)>:

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

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)

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

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量 (升序)

(2) 按供應(yīng)商

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).供應(yīng)商>

按以下方式填入<物料查詢表_明細(xì)>:

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

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)

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

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量 (升序)

(3) 品名查詢

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).品名>

按以下方式填入<物料查詢表_明細(xì)>:

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

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商(升序)

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

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量 (升序)

(4) 規(guī) 格

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).規(guī)格>

按以下方式填入<物料查詢表_明細(xì)>:

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

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)

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

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格(升序)

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量 (升序)

(5) 庫 存

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).庫存數(shù)量 <>0>

按以下方式填入<物料查詢表_明細(xì)>:

物料表_明細(xì).品牌 --->(填入值) 品牌

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商

物料表_明細(xì).品名 --->(填入值) 品名

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量

2.5 在模板中運(yùn)用EXCEL VBA功能加入“命令按鈕”

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

添加“命令按鈕”如圖:

2.6 寫入VBA代碼 具體格式可以參考EXCEL服務(wù)器幫助

通過雙擊增加的“品牌查詢”命令按鈕寫入代碼

(1)

Private Sub CommandButton1_Click()

Dim oAdd As Object

Dim ans As Boolean

′獲取Excel服務(wù)器編程接口

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

ans = oAdd.execQuery("品牌查詢") 這里輸入表間公式名稱

oAdd = Nothing

End Sub

(2) 同樣的方法寫入第二段代碼

Private SubCommandButton2_Click() 命令按鈕為“供應(yīng)商查詢”

Dim oAdd As Object

Dim ans As Boolean

′獲取Excel服務(wù)器編程接口

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

ans = oAdd.execQuery("供應(yīng)商查詢") 同樣寫入表間公式

oAdd = Nothing

End Sub

………………………….

依次寫入“品名、規(guī)格、庫存數(shù)量”的代碼

應(yīng)用效果:

品牌查詢

供應(yīng)商查詢

品名查詢

規(guī)格查詢

查全部庫存

小結(jié):

不難看出,勤哲EXCEL服務(wù)器軟件與VBA函數(shù)的結(jié)合,可以使得表間的計算更為精準(zhǔn),數(shù)據(jù)統(tǒng)計更方便、迅速。未來,勤哲EXCEL服務(wù)器將一如既往的基于對各類函數(shù)的技術(shù)積累、深刻理解和長期實踐,致力于現(xiàn)代信息化技術(shù)的深耕細(xì)作,更好助力企業(yè)實現(xiàn)數(shù)字化轉(zhuǎn)型。

免責(zé)聲明:市場有風(fēng)險,選擇需謹(jǐn)慎!此文僅供參考,不作買賣依據(jù)。

關(guān)鍵詞:
最新動態(tài)
相關(guān)文章
VBA中運(yùn)用勤哲Excel服務(wù)器表間公式實現(xiàn)...
國潮華流下 十八數(shù)藏再現(xiàn)中華文明獨特神韻
兒童安全座椅高端智能化趨勢顯著,qborn...
成都市錦江區(qū):讓黨旗在民族地區(qū)鄉(xiāng)村振...
記錄鏡頭下的青春,這是一份熱愛和創(chuàng)意...
國內(nèi)減肥市場規(guī)模超百億 仁會生物等...