氦气物性计算-源代码-VBA版-加载宏-可以在Excel单元格里直接调用：在Excel后台里插入模块，然后复制粘贴输入下面代码，就可以在前面Excel单元格里调用计算

最新推荐文章于 2024-09-15 22:12:08 发布

CODE-boy1

最新推荐文章于 2024-09-15 22:12:08 发布

阅读量368

点赞数 8

分类专栏： Excel VBA 文章标签： excel 前端 javascript visual studio code 开发语言

本文链接：https://blog.csdn.net/weixin_43441028/article/details/136774393

版权

这是一个使用VBA编写的Excel加载宏，可以计算氦气的物性，包括比容、密度、焓值、熵、粘度、导热系数、普朗特数、压缩因子和声速。代码包含了氦气的各种物理常数，并通过函数实现了相关计算，用户可以直接在Excel单元格中调用这些功能。

摘要由CSDN通过智能技术生成

'氦气
'常数
Public Const R = 2077.1 'J/kg.K，气体常数
Public Const M = 0.004003 'kg/mol，氦气的分子量
Public Const Pcr = 0.229 'MPa，临界压力
Public Const roucr = 69.3 'kg/m3，临界密度
Public Const tb = -268.94 '℃，沸点
Public Const tm = -267.96 '℃，熔点
Public Const cp0 = 5198 'J/kg.K
Public Const cv0 = 3121 'J/kg.K
Public Const h0 = 5557 'J/kg 温度315.56℃，压力0.1013MPa时氦气的焓
Public Const s0 = 28016 'J/kg.K 温度315.56℃，压力0.1013MPa时氦气的熵
Public Const T0 = 273.15 'K
Public Const p0 = 100000 'Pa
Public Const rou0 = 0.1762 'kg/m3

'维里系数B(T)
Function b(T)
Dim c(5)
c(1) = 0.0009489433
c(2) = 0.0009528079
c(3) = 0.0342068
c(4) = 0.00273947
c(5) = 0.000940912
b = c(