| |
■主題：VBAだから式が分かりやすい
'基礎代謝計算用
Dim Metabolic As Currency '代謝
Dim BodyHeight As Currency '身長
Dim BodyWeight As Currency '体重
Dim Age As Currency
Dim Gender As Currency '性別
'重量(g)
Dim TotalWeight As Currency '総重量
Dim Sugariness As Currency '糖
Dim DietaryFiber As Currency '食物繊維
Dim Carbonhydrate As Currency '炭水化物
Dim Glucose As Currency '砂糖類
Dim Protain As Currency 'タンパク質
Dim Fat As Currency '脂質
Dim Water As Currecny '水分
'カロリー
Dim TotalCal As Currency '総カロリー
Dim SugarinessCal As Currency
Dim CarbonhydrateCal As Currency
Dim GlucoseCal As Currency
Dim ProtainCal As Currecny
Dim FatCal As Currency
Dim IntakeCal As Currency '総摂取カロリー
迦皇(かのん)：じゃあ早速計算してみましょう。
萌華(もか)：お願いします
迦皇(かのん)：最初は代謝を計算しましょうね。
Select Case Gender
Case 1 '男
Metabolic = 13.397 * BodyWeight + 4.799 * BodyHeight - 5.677 * Age + 88.362
Case 2 '女
Metabolic = 9.247 * BodyWeight + 3.098 * BodyHeight - 4.33 * Age + 447.593
End Select
ハリス・ベネディクト方程式をそのまま打ち込んだ。
萌華(もか)：これは何となく見るとわかります。そのまんまなんで
迦皇(かのん)：そうですよ。プログラミングって基本的に自分のやりたいことをコンピューターに覚えこますだけのことなんで、細かいことは分からなくても何となく見るとわかることがあるものですよ。
萌華(もか)：そうなんですね
迦皇(かのん)：じゃあ早速って思ったんですけど、糖とタンパク質の両方が余ったときをまだ考慮してなかったですね。
萌華(もか)：たしかに。これってどうなるんでしょう
いなくなってくれると嬉しいんですけど・・・。
迦皇(かのん)：知りたくないことを知ってしまいました。糖とタンパク質がくっつくことあるみたいです
糖タンパク質っていうみたいです。でも結合率と結合比が分からなくて式化できないです。
萌華(もか)：これ調べれば調べるほど複雑ですよ
迦皇(かのん)：どうしましょうか
萌華(もか)：どうしましょう
迦皇(かのん)：これは生物学のものではないですから、何とか単純化しましょう。
萌華(もか)：でもこれはなかなか手ごわそうですよ。
迦皇(かのん)：ですねぇ。考えてみたらタンパク質って体の組織を作るものですから、もしも栄養過多になったら捨てちゃうのももったいないし、脂肪を溜めておく場所をタンパク質で作りたくなりますね。
萌華(もか)：もしかして脂肪細胞ですか
迦皇(かのん)：そんな気がします。でもタンパク質何キロカロリー分で蓄積できる脂肪が何キロカロリーになるのか分からないから、式を組めないです
萌華(もか)：じゃあとりあえず1:1で溜まることにしましょうか
迦皇(かのん)：そうですね。実測値と比べてみて乖離が見られたら、この比率を調節するようにすればいいですね。やっと式を組めそうです
処理手順はこうなった。
前提：計算はカロリーで行う
①基礎代謝＊(-1)を総摂取カロリーにセットする
②炭水化物のうち砂糖類のカロリーを足しこむ
③タンパク質を足しこむ
④基礎代謝まで達する場合は0とする
⑤炭水化物のうち糖質を足しこむ
⑥脂質を足しこむ
⑦総摂取カロリーがプラスの場合、脂肪の総量ｰタンパク質の総量、総摂取カロリーの少ない方を足す
ただしタンパク質の方が脂肪よりも多いときは0とする
IntakeCal = Metabolic * -1 '①
IntakeCal = IntakeCal + GlucoseCal '②
IntakeCal = IntakeCal + ProtainCal '③
If IntakeCal > 0 Then IntakeCal = 0 '④
IntakeCal = IntakeCal + CarbonHydrateCal '⑤
IntakeCal = IntakeCal + FatCal '⑥
'⑦
If IntakeCal > 0 And FatCal - ProtainCal > 0 Then
If IntakeCal > FatCal - ProtainCal Then
IntakeCal = IntakeCal + FatCal - ProtainCal
Else
IntakeCal = IntakeCal * 2
End If
End If
迦皇(かのん)：いつもなら僕は⑦の部分は論理式でまとめてしまうところですが、のちのちのメンテナンス性も考えてばらしました
萌華(もか)：よく見ると②と③、⑤と⑥もひとつにまとめられますね
迦皇(かのん)：そうですね。でもこれが微妙なんですよ
萌華(もか)：どうしてですか
迦皇(かのん)：最初に決めた①～⑦が仕様です。仕様では②と③で分けてますよね。仕様通りにするのであれば分けておかないといけないです。あるいは仕様の方を変更しないといけないです。
萌華(もか)：そういうものなんですね
迦皇(かのん)：そういうものなんですよ。でももしもこれをExcelのワークシート上で書こうと思ったらどうなりますか
萌華(もか)：すごい長い式になってなんだか分からなくなっちゃいます。
迦皇(かのん)：ですよね。VBAって複雑化しないようにするためにも便利なんですよ。
萌華(もか)：少し
To Be Continued...
■登場人物紹介■
浦埼 美咲 (うらさき みさき)
主人公28歳。独身。彼氏あり。
恵比寿のアパレルメーカー(エンジェルスシンジケート)でネットやカタログ向けの画像加工を行う部署でお仕事中。
自宅は大都会埼玉の大宮駅から少し先のJRの駅からすぐのところに家賃8万円の1LDKに乗り換えなしで職場に通えるというだけの理由で一人暮らし。
性格は周りから周りからちょっとちやほやされてみたい気もするけど、目立つのは苦手という結構ありがちなタイプ。
案外見栄っ張りな一面もある。
大関 萌華(おおぜき もか)
美咲と同じエンジェルスシンジケートで経理課に勤める。
Hカップの巨乳の持ち主といえば聞こえがよいが、肥満の家系に生まれ育つ。
子供のころのあだ名は横綱。
コルセットで急にカッコよくなった美咲にいち早く気づきコルセットダイエットを決意する。
美咲と同じ電車で通勤している。
美咲より数駅遠い町で祖父母と両親、兄3人と暮らす。
本庄 歓波(ほんじょう わいは)
エンジェルスシンジケートの珍入社員でどこまでも問題児。
自分の気に入ったものにはとことん固執するのにそれ以外はとことんずぼら。
早合点で超短絡思考でおバカを絵にかいたよう。
自分勝手な性格と誤解されやすく取りつきづらいイメージを持たれ孤立しがち。
しかし本当は・・・。
岩槻 陽菜
23歳。
美咲の勤める会社で派遣社員をしている。
社内ではかなりイケているルックスの持ち主。
美咲は彼氏さんの「陽菜ちゃんってかわいいよね」の一言でやきもち持ちを焼いたことから、勝手に美のライバル視している。
陽菜本人はどう思っているかは定かではない。
というかまだ未設定。
阿倍 沃(あべ よう) 商品開発部長
会社で一番の美人で、モデルもこなし、仕事もできる。
社長の愛人という根の葉もない噂もある。
女子社員は陰で「倍沃」(べよう)と呼んでいる。
本人はそれに気づいているが、そのことはまんざらでもないらしい。
なぜなら倍沃(べよう)はコルセットダイエットの一番人気のバーヴォーグ(Burvogue)の漢字名だからである。
そして今では美咲にとってのコルセットの師匠でもある。
戸田 由喜枝
正社員なのになぜか不定期出勤で誰もが一目置く存在。
ミシンの達人であっという間にあらゆる服のお直しをしてしまう。
ミステリアスな存在である。
秋ヶ瀬 翔太
美咲の彼氏で同僚。
お人好しで頼まれたら断れない性格。
美咲にだけはなぜかやたら強気。
それ以外は未設定。
水判土 迦皇(みずはた かのん)
元フリーのSE。
萌華(もか)の兄の塁の友達の弟。
萌華(もか)が片思いを寄せている。
WEB営業部WEB企画課の三人組
リーダー格で意地悪な須賀谷メロ
嘘付きの森掛(もりかけ)桜
強欲の倍賞泉花(せんか)
社内ではいわゆる腫物だが、本人たちは・・・
神園社長
美咲が務める会社(エンジェルスシンジケート)の社長。
高校生の娘がいる。
妻沼WEB営業課課長
美咲の直属の上司風。
課付きの課長なので実際には部下はいない。
理屈っぽく行動力はない。
ハゲデブで脂ぎっている
川里経理課長
萌華(もか)の直属の上司。
寡黙でなんでも他人事の態度。
貧相なガリガリ出っ歯。
大関一家(年齢順)
祖父：寅(とら)
祖母：桂(かつら)
父 ：健人(けんと)
母 ：貴理子(きりこ)
長男：塁(るい)
次男：コナン
三男：三斗(さんと)
長女：萌華(もか)
トリサミットソン社(やしろ)先生
旧姓は小川。
両親が経営する白蓮総合病院の内科医。
ダイエット外来を担当している。
大関一家に毎週土曜日ダイエットレクチャーを実施。
■作者紹介
）プロクビレイター（のAbooです。
世界中のウエストを『くびれ』させることが野望のプロのクビレイターです。
クビレイトに欠かせないものといえばコルセット
コルセットで肋骨を引き締めることでアンダーバストからヒップにかけて整形級のボディラインを作っちゃおうっていう痩身術です。
世間ではコルセットダイエットなんて呼ばれています。
おすすめコルセット
| コルセットダイエットといえば バーヴォーグ（Burvogue）！ | |
コルセット再始動！ Feelingirl(フィーリンガール) | |