利用VBA快速開發能效測評技術文件收集系統的研究

0 引言

為貫徹《民用建筑節能條例》和《江蘇省綠色建筑發展條例》，加快建設節能型公共建筑和居住建筑，在民用建筑節能驗收時需要進行建筑能效測評

。建筑能效測評即綜合判定建筑能耗及用能效率的檢測方法，對測評建筑進行軟件評估、性能檢測、現場檢查、計算分析，得出建筑相對節能率和用能水平

。

建筑能效測評應在技術文件準備齊全的基礎上進行。技術文件包括項目立項、審批文件，施工圖設計文件，保溫材料檢測報告及用能系統運行調試報告等

。技術文件收集往往是最耗時的階段，因為涉及文件種類多的原因，往往會造成文件的漏項。

筆者嘗試利用VBA(VisualBasic for Applications)快速開發能效測評技術文件收集系統，VBA具有以下優勢

：

1）易獲取性。VBA內置于Office和WPS中，用戶不需要單獨下載。

2）易讀性。VBA是Visual Basic的一種宏語言，易學易寫且易讀。

3）便捷性。能夠快速編寫程序，并且能夠快捷地創建用戶交互界面。

CCK-8檢測結果顯示，在SW480細胞中過表達miR-454-3p后，細胞的生長受到了明顯的促進（圖3左），組間差異顯著（P＜0.05）。同時，細胞克隆形成實驗結果顯示，miR-454-3p mimics轉染組較陰性對照組細胞在培養1周后出現較多細胞克隆（圖3右），組間差異顯著（P＜0.05）。

發芽勢是衡量種子發芽速度和發芽情況的指標，同時也反映了種子生物活性的高低。不同濃度的海水對厚萼凌霄種子的發芽勢的影響見圖2。

1 技術文件條款及程序開發思路

1.1 技術文件條款

Set Nodx=TreeView1.Nodes.Add("項目立項",tvwChild,,"建筑工程施工許可證"&":"&ThisWorkbook.Worksheets("能效測評技術文件收集").Range("c12"))

由表1可知，技術文件收集有以下難點：

初始化窗體，打開窗體時UserForm_Initialize事件發生，程序加載已填入的項目基本信息及技術文件收集進度。在窗體中添加創建文件收集文件夾程序、技術文件收集程序以及TreeView控件程序等。

2）技術文件類型不同。如項目立項文件是pdf文件，施工圖紙是dwg文件，設備出廠報告是doc文件等。

3）項目類型不同。如毛坯建筑往往沒有冷熱源，居住建筑沒有幕墻，有些項目沒有進行綠色建筑模擬等。

1.2 程序開發思路

開發的能效測評技術文件收集程序，遵循用戶使用方便、用戶交互界面簡潔、操作流程明確的原則。創建Excel模板，以記錄項目基本信息和技術文件收集狀態。創建窗體，插入多頁控件(Multipage)和樹形目錄控件(TreeView)。Page1“項目基本信息輸入頁面”插入標簽控件(Label)、文本控件(TextBox)以及命令按鈕控件(CommandButton)等，以便用戶輸入項目基本信息和生成技術文件收集文件夾。Page2“技術文件收集程序頁面”撰寫技術文件收集程序。TreeView控件顯示技術文件收集的程度和狀態。程序開發思路見圖1。

創建Excel模板，并且對單元格進行賦值，可以縮減程序代碼量，同時顯示和保存技術文件收集的狀態，也有利于打印。單元格“A1:A6”依次輸入“項目名稱”“項目地址”“建設單位”“設計單位”“監理單位”“施工單位”。單元格“B1:B6”顯示Page1“項目基本信息輸入頁面”輸入的項目基本信息。單元格“A8:A36”輸入“項目立項審批文件”“施工圖設計文件”“建筑節能工程驗收記錄”“見證檢測報告”“設備出廠報告及清單”“綠色建筑模擬報告技術文件”這6個一級條款。單元格“A8:A37”輸入基本條款細分出的30個二級條款。單元格“C8:C37”輸入“缺少文件或無需此類文件”，同時會根據Page2“技術文件收集程序頁面”中的用戶操作改變單元格內容。創建的Excel模板（見表2）。

VBA工程(VBAProject)由Microsoft Excel對象、窗體、類模塊、模塊四部分組成。本程序主要利用VBAProject中窗體部分，窗體由Label、Text-Box、CommandButton等控件組成。本程序主要利用的控件和其功能見表3。

2 技術文件收集程序的編寫

2.1 創建窗體

按ALT+F11打開VBAProject，插入窗體，然后依次插入MultiPage、Label、TextBox、Command-Button、TreeView控件。調整窗體尺寸，控件尺寸，控件格式（間距、位置、對齊），使窗體界面顯示合理。創建的窗體如圖2所示。

2.2 主體程序

1）技術文件條款種類多。細分有項目立項審批文件、施工圖設計文件、建筑節能工程驗收記錄、見證檢測報告、設備出廠報告及清單、綠色建筑模擬報告6個大類。

培肥技術能在有機農業生產過程中改善種植條件，優化農作物的生長土壤，增強土壤的肥力及有機物質，促進其健康生長。培肥技術的使用，需先充分了解種植土地的物理及化學性質，然后將有機農作物種植在利于其生長的土地中，要求具備較強的平衡能力，科學規劃種植土地，以保證土地肥力的持久性。在施肥過程中，要調節好土地的酸堿度，確保土壤成分均衡，適宜農作物生長，達到保護并持續使用土壤的目的。

創建技術文件收集文件夾，使文件歸類放置，且方便測評人員查閱。創建文件收集文件夾程序代碼（見圖3）。

中小型基藥配送企業一般銷售規模較小，資金實力較弱，上游來貨渠道主要為商業調撥。實施“兩票制”后，此類企業難以取得生產企業藥品配送權，業務量必然下降，市場份額很可能被實力較強的企業占有。如果不進行經營模式轉型，這類企業將面臨較大的生存壓力。

隨著對肺癌研究的逐漸深入，繼表皮生長因子之后，ALK基因被認為是肺癌的又一主要驅動基因，其中肺腺癌ALK陽性率為2%～7%。隨著腫瘤分子靶向治療的快速發展，對于肺腺癌的分子靶向治療取得了重大的進步，其中ALK抑制劑克唑替尼在肺腺癌間變性淋巴瘤激酶陽性患者的治療中療效明顯[1]。本文探究肺腺癌間變性淋巴瘤激酶陽性(ALK)患者的臨床病理特征并觀察采用克唑替尼治療的臨床療效，報告如下。

點擊命令按鈕，彈出MsgBox對話框。選擇“是”上傳技術文件，上傳文件類型不受到限制，上傳并且保存文件到文件夾中，且對文件進行重命名。標簽控件顯示“已上傳文件”，標簽背景顏色更改為紅色；選擇“否”，標簽控件顯示“待上傳文件”，標簽背景顏色更改為綠色；選擇“取消”，標簽控件顯示“缺少文件或無需文件”，標簽背景顏色更改為綠色。技術文件收集程序代碼，見圖4。由于篇幅所限，本文只截取“立項文件”收集程序代碼，其他技術文件收集程序邏輯均一致。

流動相在高效液相色譜法中至關重要，考察了甲醇-乙酸-水、乙腈-水作為流動相的分離效果。結果表明，10種酚類物質在甲醇-乙酸-水體系中分離效果較好，通過反復摸索調整梯度洗脫程序，峰形和分離度達到要求。流動相A為甲醇-乙酸-水(90∶2∶8)，流動相B為甲醇-乙酸-水(10∶2∶88)，流速為1.0 mL/min，洗脫程序見表1。結果表明，10種酚類物質在25 min之內均得到了良好的分離，此條件下標準品的色譜圖見圖1。

Set Nodx=TreeView1.Nodes.Add("項目立項",tvwChild,,"建設工程規劃許可證"&":"&ThisWorkbook.Worksheets("能效測評技術文件收集").Range("c10"))

TreeView控件如同Windows的資源管理器目錄，用來顯示信息的分級視圖

。TreeView控件各個分級信息都有一個Node對象，顯示Node的分層結構目錄。窗體及TreeView控件顯示效果見圖5。本文僅展示利用TreeView編寫“項目立項審批文件”層次結構程序代碼，其他技術文件層次結構編寫邏輯均一致，程序代碼如下：

'設置三級節點：發改委立項通知、國土證、建設工程規劃許可證、建設用地規劃許可證、建筑工程施工許可證、施工圖設計審查合格證書、建筑施工設計文件審查意見書

Set Nodx=TreeView1.Nodes.Add("項目立項",tvwChild,,"發改委立項通知"&":"&This-Workbook.Worksheets("能效測評技術文件收集").Range("c8"))

Set Nodx=TreeView1.Nodes.Add("項目立項",tvwChild,,"國土證"&":"&ThisWorkbook.Worksheets("能效測評技術文件收集").Range("c9"))

問題情境教學就是指依據課程標準，結合具體的課時、教學目標，設計與教學內容相關的問題情境，進而引導學生通過討論、探索，獲取新知識的一種教學手段。問題情境教學是一種發展性教學，可以讓學生開展系統、獨立的探究活動，在問題情境的創設、提出和解決的基礎上構建自己的方法體系。

Set Nodx=TreeView1.Nodes.Add("項目立項",tvwChild,,"建設用地規劃許可證"&":"&ThisWorkbook.Worksheets("能效測評技術文件收集").Range("c11"))

能效測評應在技術文件準備齊全的基礎上進行，所需技術文件見表1。

通過研究地理條件、氣候條件、人文條件等方面對鄉村旅游養老目的地選擇的影響，我們闡述了無錫作為旅游養老目的地的有利之處，還提出了在旅游養老目的地建立之后，風景區的構建與發展策略，這些發展策略從實際出發，與當前旅游發展趨勢大體一致。

Set Nodx=TreeView1.Nodes.Add("項目立項",tvwChild,,"施工圖設計審查合格證書"&":"&ThisWorkbook.Worksheets("能效測評技術文件收集").Range("c13"))

Set Nodx=TreeView1.Nodes.Add("項目立項",tvwChild,,"建筑施工設計文件審查意見書"&":"&ThisWorkbook.Worksheets("能效測評技術文件收集").Range("c14"))

……

MSJ5.8/1.6D型礦山豎井掘進機的鑿井工藝可歸納為以下過程：首先采用反井鉆機施工導井，導井施工完成后，施工井筒鎖口，并安裝豎井掘進機和相關輔助設備，利用豎井掘進機進行擴井。豎井掘進機運行過程中，巖渣自導井掉落至下部水平巷道，由下部運輸系統裝運。豎井掘進機掘進井筒至一定深度后，安裝吊盤和保護盤，向下掘進的同時完成井壁支護。豎井掘進機掘進至井筒底部，拆除吊掛系統，利用專用井架將豎井掘進機提出地面，完成井筒施工。

End Sub

(1) 隨塔里木荒漠綠洲過渡帶胡楊林退化程度加劇，林地土壤容重與非毛管孔隙度、土壤通氣度增大，黏粒、粉粒含量與毛管孔隙度降低。土壤質地粗化，持水保土功效減弱，這是系統自身脆弱生態基質受強烈風蝕作用和人類干擾下植被退化共同作用的結果。

3 結論

1）利用VBA可以快速開發能效測評資料收集程序，程序化能效測評技術文件收集階段。同時創建用戶交互界面，方便用戶操作。

2）利用TreeView控件可以直觀地顯示出文件和目錄結構、文檔中的類層次。

3）利用VBA開發其他資料收集系統是可行的。

[1]民用建筑能效測評標識標準:DB32/T 3964-2020[S].江蘇:江蘇鳳凰科學出版社,2021.

[2]王建玉.基于綠色建筑的能效測評技術體系構建[J].建筑節能,2018,46(12):32-35.

[3]許丹菁,龔紅衛,仇崢,高興歡.建筑能效測評中資料取證[J].能源研究與管理,2013(1):106-110.

[4]Excel Home.別怕，ExcelVBA其實很簡單[M].北京:人民郵電出版社,2012.

[5]邱海濱.TreeView控件的設計與應用[D].電子科技大學,2010.