Excel VBA实现的最全的单位换算（操作方便）

Excel VBA实现的最全的单位换算（操作方便） 在企业和工厂中，会经常使用Excel来进行工程造价评估或项目预算，在这个过程中，免不了要进行单位的转换，但不同的行业，不同的职业，不同的企业，单位转换的需求都不太一样，有没有一个大而全的单位转换工具，而且操作方便快捷呢。Office中国就给你找了一个，以后转换再也不用在网上搜来搜去，也不用手工转换了。在Excel里随时转换。 单位换算：单位换算，是指同一性质的不同单位之间的数值换算。常用的单位换算有长度单位换算、重量单位换算、压力单位换算、面积单位换算、电容单位换算等。 一般 包括哪些转换呢：1 长度 2 面积3 体积4 质量5 密度6 运动粘度7 克拉8 动力粘度9 力10 压强11 温度12 传热系数13 热导率14 比热容15 热功16 功率17 速度18 渗透率19 地温梯度20 油气产量21 气油比22 热值23 热当量24 数据存储25 磁场26 常用单位 示例中有些转换可能不一定包罗所有，但你可以根据需要添加自己的数据 先上个图看看效果：

1480080690333109.jpg

再看看Excel 单位转换的操作动画：

1480080751523395.gif

Excel VBA实现单位换算的原理：

首先需要建立一个用户窗体UserForm1

在里面建立相应的几个列表框 搜索文本框等控件

换算数据放在Sheet1里面（在操作视频可看到Sheet1里的内容）

然后在用户窗体里写下以下相关VBA代码： [/ol] Dim cn As ADODB.ConnectionPrivate Sub ListBox1_Click()On Error Resume NextListBox2.ClearTextBox5.Text = ""Dim sql$Dim sql2$If VBA.IsNull(ListBox1.Value) Or ListBox1.Value = "" Thenkk = ListBox1.List(0)Elsekk = ListBox1.ValueEnd Ifsql2 = "select * from [Sheet1$a1:c30000] where [名称]= '" & kk & " '"Set TMP3 = cn.Execute(sql2)b = TMP3.Fields(2)sql = "select * from [Sheet1$a1:c30000] where [组]= '" & TMP3.Fields(0) & " '"Set TMP4 = cn.Execute(sql)Do While Not TMP4.EOFIf VBA.Left(TMP4.Fields(2) * TextBox3.Value / b, 1) = "." ThenListBox2.AddItem "0" & TMP4.Fields(2) * TextBox3.Value / b & " " & TMP4.Fields(1)ElseListBox2.AddItem TMP4.Fields(2) * TextBox3.Value / b & " " & TMP4.Fields(1)End IfTMP4.MoveNextLoopLabel2.Caption = ListBox1.TextEnd Sub Private Sub ListBox2_Click()TextBox5.Text = ListBox2.TextEnd Sub Private Sub TextBox3_Change()ListBox1_ClickEnd Sub Private Sub TextBox4_Change()tb = "%" & TextBox4.Text & "%"ListBox1.ClearListBox2.ClearDim sql$sql = "select * from [Sheet1$a1:c30000] where [名称] like '" & tb & " '"Set TMP2 = cn.Execute(sql)Do While Not TMP2.EOFListBox1.AddItem TMP2.Fields(1)TMP2.MoveNextLoopEnd Sub Private Sub unitlist_Click()ListBox1.ClearListBox2.ClearDim sql$If unitlist.Text = "All" Thensql = "select * from [Sheet1$a1:c30000] "Elsesql = "select * from [Sheet1$a1:c30000] where [组]= '" & unitlist.Text & " '"End IfSet TMP2 = cn.Execute(sql)Do While Not TMP2.EOFListBox1.AddItem TMP2.Fields(1)If unitlist.Text "All" ThenIf TMP2.Fields(2) * TextBox3.Value < 1 ThenListBox2.AddItem "0" & TMP2.Fields(2) * TextBox3.Value & " " & TMP2.Fields(1)ElseListBox2.AddItem TMP2.Fields(2) * TextBox3.Value & " " & TMP2.Fields(1)End IfEnd IfTMP2.MoveNextLoopLabel2.Caption = ListBox1.TextEnd Sub Private Sub UserForm_Initialize()Set cn = CreateObject("adodb.connection")cn.Open "provider=microsoft.jet.oledb.4.0;extended properties= 'excel 8.0;imex=1 ';data source=" & ThisWorkbook.FullNameDim sql$sql = "select distinct [组] from [Sheet1$a1:c30000] "unitlist.AddItem "All"Set TMP1 = cn.Execute(sql)Do While Not TMP1.EOFunitlist.AddItem TMP1.Fields(0)TMP1.MoveNextLoopEnd Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)On Error Resume Nextcn.CloseEnd Sub

icon_rar.gif

20161123单位换算.rar 其它更多的单位换算关系可参考以下内容： 长度编辑 1千米(km)= 0.621英里(mile) 1米(m)= 3.281英尺(ft)= 1.094码(yd) 1丝米(dmm)=1忽米(cmm)=1丝=0.01毫米=0.001厘米 1厘米(cm)= 0.394英寸(in) 1厘米（cm)=10毫米（mm) 1,000,000,000纳米 = 1米（m） 1,000,000纳米 = 1毫米（mm） 1,000纳米 = 1微米（μm） 1纳米 = 10 埃米（记为?） 1埃米=10^-10m 1埃(?)= 0.1纳米(nm) 1英里(mile)= 1.609千米(km) 1英寻(fm)= 1.829米(m) 1英尺(ft)= 0.3048米(m) 1英寸(in)= 2.54厘米(cm) 1海里(n mile)= 1.852千米(km) 1链= 66英尺(ft)= 20.1168米 1码(yd)= 0.9144米(m) 1密耳(mil)= 0.0254毫米(mm) 1英尺(ft)= 12英寸(in) 1码(yd)= 3英尺(ft) 1杆(rad)= 16.5英尺(ft) 1英里(mile)= 5280英尺(ft) 1海里(n mile)= 1.1516英里(mile) 市制计量单位： 1里=150丈 1丈=10尺 1尺=10寸 1寸=10分 1分=10厘 1厘=10毫 面积编辑 法制计量单位 1平方公里(km?)= 100公顷(ha)= 247.1英亩(acre)= 0.386平方英里(mile?) 1平方米(m?)= 10.764平方英尺(ft?) 1公亩(are)= 100平方米(m?) 1公顷(ha)=15亩=1hm?=10000平方米(m?)= 2.471英亩(acre)=0.01平方千米 (其中h表示百米，hm?的含义就是百米的平方) 1平方英里(mile?)= 2.590平方公里(km?) 1英亩(acre)= 0.4047公顷(ha)= 4.047×10平方公里(km?)= 4047平方米(m?) 1平方英尺(ft?)= 0.093平方米(m?) 1平方英寸(in?)= 6.452平方厘米(cm?) 1平方码(yd?)= 0.8361平方米(m?) 1亩=2000/3平方米≈666.666平方米 市制计量单位 1平方里=22500平方丈 1平方丈=100平方尺 1平方尺=100平方寸 1平方寸=100平方分 1平方分=100平方厘 1平方厘=100平方毫 体积编辑 法制计量单位 1立方米(m?)=1000升(liter)= 1000立方分米（dm?) 1立方分米=1000立方厘米 1立方厘米=1000立方毫米 英美式计量单位 1立方英尺(ft?)= 0.0283立方米(m?)= 28.317升(liter) 1千立方英尺(mcf)= 28.317立方米(m?) 1百万立方英尺(MMcf)=2.8317万立方米(m?) 10亿立方英尺(bcf)= 2831.7万立方米(m?) 1万亿立方英尺(tcf)= 283.17亿立方米(m?) 1立方英寸(in?)= 16.3871立方厘米(cm?) 1英亩·英尺=1234立方米(m?) 1桶(bbl)= 0.159立方米(m?)= 42美加仑(gal) 1美加仑(gal)= 3.785升(l) 1美夸脱(qt)= 0.946升(l) 1美品脱(pt)= 0.473升(l) 1美吉耳(gi)= 0.118升(l) 1英加仑(gal)= 4.546升(l) 中国古代计量单位 1石（dàn） = 10斗（dǒu） 1斛（hú） = 本为10斗，后来改为5斗 1斗（dǒu） = 10升 1龠(yuè) = 0.5合（gě） 1升 = 10合（gě） 质量编辑 1吨(t)= 1000千克(kg)= 2205磅(lb)= 1.102短吨(sh.ton)= 0.984长吨(long ton) 1千克(kg)= 2.205磅(lb) 1克（g）=0.001千克（kg） 1毫克（mg）=0.001克（g） 1短吨(sh.ton)= 0.907吨(t)= 2000磅(lb) 1长吨(long ton)= 1.016吨(t) 1磅(lb)= 0.454千克(kg)[常衡] 1盎司(oz)= 28.350克(g) 古代： 10圭 = 钧 = 30斤 24铢 = 两 6铢 = 1锱(zī) 4锱(zī) = 1两 1担（古同：儋dàn）（dàn） = 100公斤 1斤 = 16两（古代） = 1.6斤（现代） 锊（lüè） = 333.333333克【合六又三分之二两】 密度编辑 1千克/立方米(kg/m?)= 0.001克/立方厘米(g/cm?)= 0.0624磅/立方英尺(lb/ft?) 1磅/立方英尺(lb/ft?)= 16.02千克/立方米(kg/m?) 1磅/立方英寸(lb/in?)= 27679.9千克/立方米(kg/m?) 1磅/立方美加仑(lb/gal?)= 119.826千克/立方米(kg/m?) 1磅/立方英加仑(lb/gal?)= 99.776千克/立方米(kg/m?) 1磅/立方(石油)桶(lb/bbl?)= 2.853千克/立方米(kg/m?) 1波美密度(B)=140/15.5℃时的比重－130 API度=141.5/15.5℃时的比重－131.5 运动粘度编辑 1斯(St)= 1平方米/秒(m?/s) 1厘斯(cSt)= 1平方毫米/秒(mm?/s) 克拉编辑 1907年国际商定一种长角豆树的种子克拉作为珠玉、钻石等宝石的计量单位。因为这种克拉重量惊人的一致，重量多在200毫克左右，规定1克拉钻石固定等于0.2克，而1克拉又可以分为100分，所以1克拉=0.2克=200毫克=100分，30分钻石自然是0.06克。国内检测机构钻石重量通常是保留小数点后三位数，也就是说如果一粒钻石重量为0.599ct。而国际钻石市场上通常小数点后两位的，第三位是逢九进一，而不是四舍五入，国际证书上会标0.60ct，计价通常会以十分为一个单位：20-29分，50-59分。对于整数位的分数，钻石的价格之间存在着 “克拉溢价”现象，即使只有1分之差，99分与1克拉的价位也相去甚远。 下面是钻石行业用于换算克拉钻的表 1克（g）=5克拉（ct） 1克拉（ct）=0.2克（g） 1克拉（ct）=100分（point） 1分（point）=0.01克拉（ct） 1克拉（ct）=4格令（gr） 1格令（gr）=0.25克拉（ct） 1千克（kg）=32.15金衡盎司（） 1克（g）=0.03215盎司（） 1金衡盎司（）=31.1035克（g） 1金衡盎司（）=480格令（gr） 动力粘度编辑 1泊(P)=100 毫帕·秒(mPa·s) 1厘泊(cP or CPS,centipoise)= 1毫帕·秒(mPa·s) 1千克力秒/米?(kgf·s/m?) = 9.80665帕·秒(Pa·s) 1磅力秒/英尺(lb/ft·s)=1.4881帕·秒(Pa·s) 力编辑 1牛顿(N)=0.225磅力(lbf)= 0.102千克力(kgf) 1千克力(kgf)= 9.81牛(N) 1磅力(lbf)= 4.45牛顿(N) 1牛顿(N)=10^5达因(dyn) 压强编辑 1巴(bar)= 100千帕(kPa) 1千帕(kPa)= 0.145磅力/平方英寸(psi?) = 0.0102千克力/平方厘米(kgf/cm?) = 0.0098大气压(atm) 1磅力/英寸(psi)= 6.895千帕(kPa) = 0.0703千克力/厘米(kg/cm)=0.0689巴(bar)= 0.068大气压(atm) 1物理大气压(atm)= 101.325千帕(kPa)= 14.696磅/英寸(psi)= 1.0333巴(bar) 1工程大气压= 98.0665千帕(kPa) 1毫米水柱(mmH2O)= 9.80665帕(Pa) 1毫米汞柱(mmHg)= 133.322帕(Pa) 1托(Torr) = 133.322帕(Pa) 1达因/平方厘米(dyn/cm?)= 0.1帕(Pa) 温度编辑 K=5/9(°F+459.67)　 K = ℃+273.15 n°F= [(n-32)×5/9]℃　n℃= (9/5×n+32)°F　 1℃= 9/5°F+32°F 1°F=5/9℃-32×5/9℃ F=9/5C+32,或C=5/9(F-32) 传热系数编辑 1千卡/(米·时·℃)〔1kcal/(m·h·℃)〕=1.16279瓦/(米·开尔文)〔w/(m·K)〕 1英热单位/(英尺·时·°F)〔Btu/(ft·h·°F)〕= 1.731瓦/(米·开尔文)〔(w/m·K)〕 1米·时·℃/千卡(m·h·℃/kcal)　= 0.86000米·开尔文/瓦(m·K/W) 1千卡/米·时(kcal/m·h)= 1.16279瓦/米(w/m) 热导率编辑 1千卡(米·时·℃)〔kcal/(m·h·℃)〕=1.16279瓦/(米·开尔文)〔W/(m·K)〕 1英热单位/(英尺·时·°F)〔But/(ft·h·°F)〕=1.7303瓦/(米·开尔文)〔W/(m·K)〕 比热容编辑 1千卡/(千克·℃)〔kcal/(kg·℃)〕=1英热单位/(磅·°F)〔Btu/(lb·°F)〕 =4186.8焦耳/(千克·开尔文)〔J/(kg·K)〕 热功编辑 1焦耳=0.10204千克·米=2.778×10^-7千瓦·小时=3.777×10公制马力小时 =3.723×10英制马力小时=2.389×10千卡= 9.48×10英热单位 1卡(cal)= 4.1868焦耳(J) 1大卡= 4186.75焦耳(J) 1英热单位(Btu)=1055.06焦耳(J) 1千克力米(kgf·m)= 9.80665焦耳(J) 1英尺磅力(ft·lbf)= 1.35582焦耳(J) 1米制马力小时(hp·h)= 2.64779×10焦耳(J) 1英马力小时(UKHp·h)= 2.68452×10焦耳 1千瓦小时(kW·h)= 3.6×10^6焦耳(J) 功率编辑 1千克力·米/秒(kgf·m/s)= 9.80665瓦(w) 1米制马力(hp)= 735.499瓦(W) 1卡/秒(cal/s)=4.1868瓦(W) 1英热单位/时(Btu/h)= 0.293071瓦(W) 1千瓦(kW)= 3.6×10^6焦耳(J)/小时（h) 速度编辑 1英尺/秒(ft/s)= 0.3048米/秒(m/s) 1英里/时(mile/h)= 0.44704米/秒(m/s) 1千米/时（km/h)=0.27778米/秒(m/s) 渗透率编辑 1达西=1000毫达西 1平方厘米(cm?)=9.81×10 7达西 地温梯度编辑 1°F/100英尺=1.8℃/100米(℃/m) 1℃/公里=2.9°F/英里(°F/mile)= 0.055°F/100英尺(°F/ft) 油气产量编辑 1桶(bbl)= 0.14吨(t)(原油，全球平均) 1吨(t)= 7.3桶(bbl)(原油，全球平均) 1桶/日(bpd)= 50吨/年(t/a)(原油，全球平均) 1千立方英尺/日(Mcfd)= 28.32立方米/日(m/d)= 1.0336万立米/年(m/a) 1百万立方英尺/日(MMcfd)= 2.832万立方米/日(m/d)= 1033.55万立方米/年(m/a) 10亿立方英尺/日(bcfd)= 0.2832亿立方米/日(m/d)= 103.36亿立方米/年(m/a) 1万亿立方英尺/日(tcfd)= 283.2亿立方米/日(m/d)= 10.336万亿立方米/年(m/a) 气油比编辑 1立方英尺/桶(cu.ft/bbl)= 0.2067立方米/吨(m?/t) 热值编辑 1桶原油=5.8×10^4英热单位(Btu) 1立方米湿气=3.909×10^4英热单位(Btu) 1立方米干气=3.577×10^4英热单位(Btu) 1吨煤= 2.406×10^4英热单位(Btu) 1千瓦小时水电=1.0235×10^4英热(Btu) (资料来源：美国国家标准局.以上为1990年美国平均热值) 热当量编辑 1桶原油=5800立方英尺天然气(按平均热值计算) 1千克原油=1.4286千克标准煤 1立方米天然气=1.3300千克标准煤 数据存储编辑 8比特=1字节（B） 1024字节=1千字节（KB） 1024千字节=1兆字节（MB） 1024兆字节=1千兆字节（GB） 1024千兆字节=1太字节（TB） 1024太字节=1拍字节（PB） 1024拍字节=1艾字节（EB） 磁场编辑 1特斯拉（T）=10000高斯（Gs） 1奥斯特（Oe）=79.6A/m[1] 1韦伯（wb）=100000000麦克斯韦(Mx) 常用单位编辑 物理量 单位 量纲式 名称 符号 名称 中文简称 国际符号 长度 L 米 米 m L 面积 A、S 平方米 米 m L 体积、容积 V 立方米 米 m L 时间 t 秒 秒 s T 速度 v 米每秒 米/秒 m/s LT 加速度 a 米每二次方秒 米/秒 m/s LT 角速度 w 弧度每秒 弧度/秒 rad/s T 周期 T 秒 秒 s T 频率 f、v 赫兹 赫 HZ T 波长 l 米 米 m L 质量 m 千克 千克 kg M 密度 r 千克每立方米 千克/立方米 kg/m? LM 力 F、f 牛顿 牛 N LMT 压强 p 帕斯卡 帕 Pa LMT 动量 p 千克米每秒 千克·米/秒 kg·m/s LMT 冲量 I 牛顿秒 牛·秒 N·s LMT 力矩 M 牛顿米 牛·米 N·m LMT 功、能 W、A、E 焦耳 焦 J L2MT 功率 P、N 瓦特 瓦 W L2MT 效率 h （百分比） 　　　 摩擦系数 　 （比值，无单位） 　　　 热力学温度 T 开尔文 开 K K 摄氏温度 t 摄氏度 度 ℃ 　 热量 Q 焦耳 焦 J LMT 比热容 c 焦耳每千克开尔文 焦/（千克·开） J/(kg·K) LT? 熔解热 DfusH 焦耳每千克 焦/千克 J/kg LT 汽化热 DvapH 焦耳每千克 焦/千克 J/kg LT 燃烧热 DbH 焦耳每千克 焦/千克 J/kg LT 生成热 DfH 焦耳每千克 焦/千克 J/kg LT 内能 U、E 焦耳 焦 J LMT 物质的量 n 摩尔 摩 mol N 熵 S 焦耳每开尔文 焦/开 J/K 　 摩尔质量 M 千克每摩尔 千克/摩 kg/mol MN 摩尔体积 Vm 立方米每摩尔 米/摩 m/mol LN 电流 I 安培 安 A I 电量、电荷 Q、q 库仑 库 C TI 电势（电位） V、E 伏特 伏 V LMTI 电势差（电位差） U、V 伏特 伏 V LMTI 电压 U、V 伏特 伏 V LMTI 电动势 E 伏特 伏 V LMTI 电阻 R 欧姆 欧 W LMTI 电导 L 西门子 西 S 　 电导率 k 西门子每米 西/米 S/m 　 电场强度 E 牛顿每库仑 牛/库、伏/米 N/C、V/m LMTI 电容 C 法拉 法 F LMTI 电容率 　 （比值，无单位） 　　　 磁感应强度 B 特斯拉 特 T MTI 磁通量 　 韦伯 韦 Wb LMTI 电感，自感 L 亨利 亨 H LMTI 磁导率 　 亨利每米 亨/米 H/m LMTI 发光强度 I、IV 坎德拉 坎 cd J 光通量 V，F 流明 流 lm J 折射率 n （比值，无单位） 　　　 焦距 f 米 米 m L 半衰期 T1/2 秒 秒 s T 结合能 E 焦耳，电子伏特 焦，电子伏 J，(eV) LMT 声强 I，J 瓦特每平方米 瓦/米 W/m MT 声强级 　 贝尔，分贝尔 贝，分贝 Bel，dB 　 响度 N 宋 宋 Sone 　 响度级 LN 方 方 phon 　 可与国际单位制单位并用的我国法定计量单位 中华人民共和国法定计量单位（简称法定单位）是以国际单位制单位为基础，同时选用了一些非国际单位制的单位构成的。 国家选定的非国际单位制的单位，见下表。这些单位都是由于实用中的重要性和专门领域的需要，而得到国际计量委员会认可,可以与国际单位制单位并用的。 量的名称 单位名称 单位符号 与SI单位的关系 时间 分[小]时日，（天） minhd 1min=60s1h=60min=3600s1d=24h=86400s [平面]角 度[角]分[角]秒 °′″ 1°=(?/180)rad1′=(1/60) °=(?/10800)rad1″=(1/60)′=(?/648000)rad 体积，容积 升 L(l) 1L=1dm=10m 质量 吨原子质量单位 tu 或au 1t=10kg1u≈1.660540×10kg 能 电子伏 eV 1eV≈1.602177×10J 级差 分贝 dB 　 线密度 特[克斯] tex 1tex=10kg/m 面积 公顷 hm 1hm=10m 旋转速度 转每分(rpm) r/min 1r/min=(1/60)s 长度 海里 n mile 1n mile=1852m（只用于航行）