您的位置：首頁(yè) >綜合 > 滾動(dòng) >
VBA中運(yùn)用勤哲Excel服務(wù)器表間公式實(shí)現(xiàn)管理系統(tǒng)
信息技術(shù)如今已經(jīng)成為一項(xiàng)非常實(shí)用的現(xiàn)代化教育技術(shù)，在知識(shí)經(jīng)濟(jì)時(shí)代，國(guó)家對(duì)人才的要求也越來(lái)越高，不僅僅需要高學(xué)歷高能力的管理型人才，同時(shí)科技人才專業(yè)技術(shù)型人才也是國(guó)家發(fā)展的主要生產(chǎn)力。
當(dāng)信息化技術(shù)結(jié)合數(shù)學(xué)函數(shù)會(huì)怎樣？我們不妨以知名信息化軟件勤哲EXCEL服務(wù)器為例，結(jié)合VBA函數(shù)，看它如何實(shí)現(xiàn)連續(xù)應(yīng)用指定的表間公式：
一.VBA可調(diào)用函數(shù)
ExecQuery(qryList)
功能：連續(xù)應(yīng)用若干條（一條或多條）指定的表間公式
參數(shù)：qryList：表間公式名稱列表，各公式名之間用逗號(hào)分割。
應(yīng)用場(chǎng)合：在模板上寫(xiě)VBA程序，調(diào)用此函數(shù)，可實(shí)現(xiàn)用戶控制（手動(dòng)）表間公式的運(yùn)行。
二.實(shí)例應(yīng)用
某企業(yè)的物料查詢
2.1功能描述
該企業(yè)在庫(kù)存管理中，對(duì)庫(kù)存商品的指定查詢條件，方便業(yè)務(wù)人員按條件查找物料。在勤哲EXCEL服務(wù)器軟件中建立一個(gè)“純查詢模板”通過(guò)運(yùn)用表間公式就可以把涉及到庫(kù)存信息做一個(gè)查詢結(jié)果表現(xiàn)出來(lái)，實(shí)現(xiàn)查詢物料信息的這樣一個(gè)功能。
2.2 建立“物料查詢表”
勤哲EXCEL服務(wù)器軟件的描述：該模板是“純查詢模板”。
2.3
2.3 按模板定義的數(shù)據(jù)項(xiàng)寫(xiě)出表間公式
如:主表：品牌、供應(yīng)商、品名、規(guī)格、
明細(xì)：庫(kù)存數(shù)量
2.4 表間公式
運(yùn)用勤哲EXCEL服務(wù)器表間公式提出所查詢信息應(yīng)用手動(dòng)執(zhí)行.
目的：按查找條件執(zhí)行。
（1）按品牌提取
提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):
<數(shù)據(jù)篩選:物料表_明細(xì).品牌>
按以下方式填入<物料查詢表_明細(xì)>:
物料表_明細(xì).品牌 --->(填入值) 品牌 (升序)
物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)
物料表_明細(xì).品名 --->(填入值) 品名(升序)
物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)
物料表_明細(xì).庫(kù)存數(shù)量 --->(填入值) 庫(kù)存數(shù)量 (升序)
（2） 按供應(yīng)商
提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):
<數(shù)據(jù)篩選:物料表_明細(xì).供應(yīng)商>
按以下方式填入<物料查詢表_明細(xì)>:
物料表_明細(xì).品牌 --->(填入值) 品牌 (升序)
物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)
物料表_明細(xì).品名 --->(填入值) 品名 (升序)
物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)
物料表_明細(xì).庫(kù)存數(shù)量 --->(填入值) 庫(kù)存數(shù)量 (升序)
（3） 品名查詢
提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):
<數(shù)據(jù)篩選:物料表_明細(xì).品名>
按以下方式填入<物料查詢表_明細(xì)>:
物料表_明細(xì).品牌 --->(填入值) 品牌 (升序)
物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商(升序)
物料表_明細(xì).品名 --->(填入值) 品名 (升序)
物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)
物料表_明細(xì).庫(kù)存數(shù)量 --->(填入值) 庫(kù)存數(shù)量 (升序)
（4） 規(guī) 格
提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):
<數(shù)據(jù)篩選:物料表_明細(xì).規(guī)格>
按以下方式填入<物料查詢表_明細(xì)>:
物料表_明細(xì).品牌 --->(填入值) 品牌(升序)
物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)
物料表_明細(xì).品名 --->(填入值) 品名 (升序)
物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格(升序)
物料表_明細(xì).庫(kù)存數(shù)量 --->(填入值) 庫(kù)存數(shù)量 (升序)
（5） 庫(kù) 存
提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):
<數(shù)據(jù)篩選:物料表_明細(xì).庫(kù)存數(shù)量 <>0>
按以下方式填入<物料查詢表_明細(xì)>:
物料表_明細(xì).品牌 --->(填入值) 品牌
物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商
物料表_明細(xì).品名 --->(填入值) 品名
物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格
物料表_明細(xì).庫(kù)存數(shù)量 --->(填入值) 庫(kù)存數(shù)量
2.5 在模板中運(yùn)用EXCEL VBA功能加入“命令按鈕”
打開(kāi)勤哲EXCEL“工具”中的-Viusal basic
添加“命令按鈕”如圖：
2.6 寫(xiě)入VBA代碼 具體格式可以參考EXCEL服務(wù)器幫助
通過(guò)雙擊增加的“品牌查詢”命令按鈕寫(xiě)入代碼
(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) 同樣的方法寫(xiě)入第二段代碼
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)商查詢") 同樣寫(xiě)入表間公式
oAdd = Nothing
End Sub
………………………….
依次寫(xiě)入“品名、規(guī)格、庫(kù)存數(shù)量”的代碼
應(yīng)用效果:
品牌查詢
供應(yīng)商查詢
品名查詢
規(guī)格查詢
查全部庫(kù)存
小結(jié)：
不難看出，勤哲EXCEL服務(wù)器軟件與VBA函數(shù)的結(jié)合，可以使得表間的計(jì)算更為精準(zhǔn)，數(shù)據(jù)統(tǒng)計(jì)更方便、迅速。未來(lái)，勤哲EXCEL服務(wù)器將一如既往的基于對(duì)各類函數(shù)的技術(shù)積累、深刻理解和長(zhǎng)期實(shí)踐，致力于現(xiàn)代信息化技術(shù)的深耕細(xì)作，更好助力企業(yè)實(shí)現(xiàn)數(shù)字化轉(zhuǎn)型。
免責(zé)聲明：市場(chǎng)有風(fēng)險(xiǎn)，選擇需謹(jǐn)慎！此文僅供參考，不作買(mǎi)賣(mài)依據(jù)。
