利用Excel的VBA宏功能實現減壓孔板的批量計算

錢子俊

(浙江綠城建筑設計有限公司,浙江 杭州 310007)

Microsoft excel是一款功能非常強大的電子表格軟件。它可以輕松地完成數據的各類運算,再配合使用填充柄可以快速將公式復制到相鄰單元格,進行批量數學和函數運算,從而大大簡化了數據的處理工作。但是以Excel的常用功能函數處理較復雜的迭代運算時,仍需進行大量的人工操作。Excel的VBA宏功能的引入則使其具有了無限的擴展性,因而可以很好地解決復雜數據的處理問題。

本文探討利用Excel的VBA宏功能,創建一個自定義函數,通過此函數批量計算減壓孔板的孔徑值,可以減少設計工作量,也為處理建筑給排水專業其他類似計算問題提供了一種解決方案。

1 Excel的VBA宏簡介

Visual Basic for Applications(VBA)是Visual Basic的一種宏語言,是微軟開發出來在其桌面應用程序中執行通用的自動化(OLE)任務的編程語言。主要能用來擴展Windows的應用程序功能,特別是Microsoft Office軟件。因此,對于在工作中需要經常使用Excel軟件的用戶,學用VBA 有助于使工作自動化,提高工作效率。

2 減壓孔板的計算方法

《自動噴水滅火系統設計規范(GB 50084—2017)》[1](以下簡稱《新噴規》)第8.0.7條,輕危險級、中危險級場所中各配水管入口的壓力均不宜大于0.40 MPa。一般減壓孔板前壓力H1為已知值,因此,通過此條文可以求得減壓孔板的水頭損失Hk。

《新噴規》第9.3.3條,減壓孔板的水頭損失按下式計算：

(1)

(2)

Vk=Q/A

(3)

式中：dk為減壓孔板的孔口直徑,mm；

Hk為減壓孔板的水頭損失,10 kPa；

Vk為減壓孔板后管道內水的平均流速,m/s；

ξ為減壓孔板的局部阻力系數；

A為管道截面積,m2。

從公式可以看出,減壓孔板的孔口直徑dk和管段管徑D對水頭損失有較大影響,確定這兩個數據對最終的計算結果有重要意義。……