本 書 は 工 業 調 査 会 から 発 行 されていた Excel で 解 く 配 管 設 計 法 (ISBN978-4- 7693-4217-5 2008 年 10 月 10 日 初 版 第 1 刷 発 行 2009 年 8 月 20 日 初 版 第 2 刷 発 行 )の 内 容 に 一 部 修 正 を 加 えて 再 発 行 するものとなります 本 書 を 発 行 するにあたって 内 容 に 誤 りのないようできる 限 りの 注 意 を 払 いました が 本 書 の 内 容 を 適 用 した 結 果 生 じたこと また 適 用 できなかった 結 果 について 著 者 出 版 社 とも 一 切 の 責 任 を 負 いませんのでご 了 承 ください Excel は 米 国 Microsoft Corporation の 米 国 およびその 他 の 国 における 登 録 商 標 で す その 他 本 書 に 掲 載 されている 会 社 名 製 品 名 は 一 般 に 各 社 の 登 録 商 標 または 商 標 です 本 書 は 著 作 権 法 によって 著 作 権 等 の 権 利 が 保 護 されている 著 作 物 です 本 書 の 複 製 権 翻 訳 権 上 映 権 譲 渡 権 公 衆 送 信 権 ( 送 信 可 能 化 権 を 含 む)は 著 作 権 者 が 保 有 しています 本 書 の 全 部 または 一 部 につき 無 断 で 転 載 複 写 複 製 電 子 的 装 置 への 入 力 等 をされると 著 作 権 等 の 権 利 侵 害 となる 場 合 があります また 代 行 業 者 等 の 第 三 者 によるスキャンやデジタル 化 は たとえ 個 人 や 家 庭 内 での 利 用 であっても 著 作 権 法 上 認 められておりませんので ご 注 意 ください 本 書 の 無 断 複 写 は 著 作 権 法 上 の 制 限 事 項 を 除 き 禁 じられています 本 書 の 複 写 複 製 を 希 望 される 場 合 は そのつど 事 前 に 下 記 へ 連 絡 して 許 諾 を 得 てください オーム 社 開 発 部 < 書 名 を 記 載 > 係 宛 E-mail(kaihatu@ohmsha.co.jp)または 書 状 FAX(03-3293-2825)にて
No mograph No mography Excel VisiCalc MultiplanLotus Excel Excel Excel CD VBAVisual Basic for Applications Web http://www. ohmsha.co.jp/
3 1.1 9 1.2 9 1.3 13 2.1 19 2.2 20 2.3 21 2.4 22 2.5 23 2.6 25 2.7 26 2.8 28 2.9 30 2.10 32 2.11 36 2.12 38 2.13 39
3.1 41 3.2 43 3.3 44 3.4 47 4.1 53 4.2 59 4.3 64 4.4 68 4.5 72 4.6 73 5.1 78 5.2 81 5.3 Dispersed Flow 84 5.4 Bubble Flow 86 5.5 Slug Flow 88 5.6 Annular Flow 91 6.1 NPSH a 95 6.2 100
6.3 No. 1 106 6.4 No. 2 112 6.5 No. 3 118 6.6 119 7.1 123 7.2 124 7.3 125 7.4 126 7.5 126 7.6 139 7.7 143 8.1 147 8.2 149 8.3 151 8.4 153 9.1 171 9.2 172 9.3 175 9.4 177 9.5 180
9.6 181 9.7 183 9.8 186 9.9.1 188 9.9.2 190 9.10.1 192 9.10.2 194 9.11 195 9.12 199 10.1 201 10.2 202 10.3 203 10.4 205 10.5 206 10.6 207 10.7 209 10.8 210 10.9 230 11.1 243 11.2 244 11.3 246 11.4 247 11.5 248
11.6 250 11.7 251 11.8 252 11.9 253 11.10 254 11.11 255 11.12 256 11.13 259 11.14 262 11.15 264 268 Excel Excel Excel ExcelExcel Excel Web http://www.ohmsha.co.jp/ Excel Excel
Excel SUM INT ROUND ABS SQRT Function Excel VBA Sub Excel Function Function Function VBEVisual Basic EditorVBE VBAVisual Basic for Application
Excel M Visual Basic EditorV Visual Basic EditorV
エクセルで解く配管設計法 ２刷 下 １章 １章 2011.01.19 15.36.34 Page 11 １ ２ プロシージャが作成される場所 Excel２ ０ ０7/Excel２ ０ １ ０の VBE 起動 ① Excel２ ０ ０ ７/Excel２ ０ １ ０では 開発 メニューをクリックする ② 画面左の Visual Basic を選択する 1 2 3 4 5 6 7 8 9 10 11 Visual Basic Editor が開く ② ① その後の作業は Excel２ ０ ０ ３以前とほぼ同じとなる 11
エクセルで解く配管設計法 ２刷 下 １章 １章 1 2011.01.19 15.36.34 Page 12 ユーザー定義関数について 標準モジュールを作成する VBE が起動したら 標準モジュールを作成する ① 挿入 メニューをクリックする ② 標準モジュール を選択する ① ② 標準モジュール 12
エクセルで解く配管設計法 ２刷 下 １章 １章 2011.01.19 15.36.34 Page 13 １ ３ ユーザー定義関数の作成 1 3 ユーザー定義関数の作成 実際にユーザー定義関数 すなわち Function プロシージャを作成する 実際に作成し た例として流速計算 体積流量 を以下に示す Function プロシージャの開始と終わり Function プロシージャには開始と終わりがある 13 1 2 3 4 5 6 7 8 9 10 11
Function End Function VolumeBaseVelocityCalc Function VolumeBaseVelocityCalc End Function Function Function VBA Enter End Function Function VolumeBaseVelocityCalcA AsDouble,BAsDouble Function Function
VolumeBaseVelocityCalcC5,D5 Function VolumeBaseVelocityCalc A AsDouble,BAsDouble Function Function VolumeBaseVelocityCalcA AsDouble,BAsDoubleAs Double Function Function Function VolumeBaseVelocityCalcA AsDouble,BAsDoubleAs Double VolumeBaseVelocityCalc353.68 ABˆ2 End Function Function AB VolumeBase VelocityCalc 353.68 ABˆ2 AB VolumeBaseVelocityCalc Function VolumeBaseVelocityCalcA AsDouble,BAsDoubleAs Double VolumeBaseVelocityCalc353.68 ABˆ2 End Function VolumeBaseVelocityCalc
353.68 A B ˆ 2 True False True False Integer
Byte Boolean True False Integer Long Currency Single Double EE EE EE E E Date String 2GB2ˆ31 Object Variant String EE EE Single EE EE String String
Set Excel Excel OK Excel OK
Density kgm kgm w kgm E E kgm kgm
A5 kgm B5 kgm C5 E ExpansionFactorCalcA5,B5.xlsModule1 ExpansionFactorCalcA B Qm hr Q Q E Q m hre m hr
A5 Q m hr B5 E C5 Q m hr FlowQuantityCalcA5,B5.xlsModule2 FlowQuantityCalcA B Specific VolumeV V m kg kgm A5 kgm
B5 V m kg SpecificVolumeCalcA5.xlsModule3 SpecificVolumeCalc1 A S S l w l w S S w kgm
A5 kgm B5 w kgm C5 S SpecificWeightCalcA5,B5.xlsModule4 SpecificWeightCalcA B MP Tz kgm M P kgcm abs T K z P kgm abs V m kg R mkgkgkr M
T RTTc zpvrt P RPPc kgcm abs K A5B5C5 D5 M P kgcm G t z E5 kgm GasDensityCalcA5,B5,C5,D5 Module5 GasDensityCalcA B1.0330.08457 C273 D
S g a S g a M g M a M g M a M kc p C v P C atm T C
S g S g g a A5 kgm B5 a kgm C5 S g GasSpecificWeightCalcA5,B5.xlsModule1 GasSpecificWeightCalcA B lv W lv V lv V lv V l V v lv
lv W lv V lv W lv W l l W v v W l kghrkghr kgcm abs A5B5C5D5 E5 W lv kghr W l kghr l kgm W v kghr v kgm F5 lv kgm Gas_LiquidDensityCalcA5,B5,C5,D5,E5.xlsModule6 Gas_LiquidDensityCalcA B CD E
vmsec vq d B B msec BB msec BB msec B msec msec msec
msec msec v c kp msec msec vol v c Bmmm hr v c A5 B5 SCH No. C5 VLOOKUP MATCH A5 SCH No. B5 d mm VLOOKUPA5,$H$13:$U$34,MATCHB5,$H$12:$U$12,0,FALSE A5 B5 SCH No.
C5 Q m hr D5 d mm E5 VolumeBaseVelocityCalcC5,D5.xlsModule7 VolumeBaseVelocityCalc353.68 A Bˆ2 vmsec vw d Bmmkghr