これこそオリジナル！ #ダイエットプログラム【第5話】無限に入力したい

■主題：changeイベント

「萌華(もか)さん、なんか少し飽きてきてしまったようですね。」

「いえ、飽きてはいないですが、ちょっと内容が難しくて」

「それはすみません。システム開発って上流工程ほど雲を掴むような感じで難しい部分があるんですよ。」

「そうなんですね。」

「しかも、具体的なプログラミングなんか全然出てこないので、楽しくないっていう人もいるんですよ。最上流の工程で一番必要なのはコミュニケーション能力だったりもします」

「じゃあ、私は陰キャだから最上流はむずかしいや」

「まあまあ、そんなこと言わずに」

「頑張ります」

「せっかくパソコンも持っていることだし、ちょっとだけ実践的なことやってみましょうか」

「はい、お願いします」

「どの部分がいいですかね～。」

「毎回のカロリー入力するところがいいです」

「いきなりそこ行きますか」

「結構難しいですか」

「そんなことはないですけど、どうやって実装しましょう」

「そうですね。この間調べていたらフォームというのがあったので、あれを使ってみたいです。」

「う～ん」

「難しいですか」

「はい、ちょっと難しいと思います。」

「そうなんですか・・・」

「カロリー入力するときは、ハンバーグ何キロカロリー、ご飯何キロカロリーのように何行にもなるじゃないですか」

「はい。そうなります。」

「Excelフォームは表形式ができないんですよ。カード型になっちゃうので・・・。」

「よく分かりませんがわかりました」

「とにかくやってみましょうか」

「はい。」

「でも、カロリー入力のものはとても難しいので、最初は簡単なものにしましょう」

「はい。」

「A2のセルに日付を入れて、2行目に数量と金額の合計、4行目から摘要と単価、数量を入力したら金額が出るようなものにしてみましょう。」

「こういうのよくありがちですね。合計は普通は下だと思うんですけど、上でいいんですか」

「Excelの画面上では合計を上にしておいた方が見やすく仕上がりますよ。」

「そうなんですね」

「画面上では合計は上に表示しておき、印刷するときは合計が下になるようにするといいですね。あと紙ではスクロールできないのでその辺も注意が必要ですね。あっ、ちょっとわき道にそれてしまいました。早速やってみましょう」

萌華(もか)のゲーム仕様のノートパソコンがけたたましいファンの音とともに起動した。

ゲーム仕様だけあって画面やキーボードのLEDが青く輝いていた。

Excelだけでよいのであれば完全にオーバースペックだ。

「萌華(もか)さんのノートパソコンすごいですね」

「もうこれ古いですよ。CPUもグラボも1つ前のモデルですから。」

迦皇(かのん)が席を移動して萌華(もか)の横に来た。
完全に予想外のことだった。
萌華(もか)の鼓動は高まり、迦皇(かのん)が何を操作したのか分からなかった。

気が付けば画面はこんな風になっていた。

Private Sub Worksheet_change(ByVal Target As Range)

End Sub

「ここにプログラムを書きますよ。」

「はい。」

Private Sub Worksheet_change(ByVal Target As Range)

    Dim Y As Long
    Dim X As Long

    Y = Target.Row
    X = Target.Column

    If Y < 3 Then Exit Sub

    If X = 2 Or X = 3 then
        Cells(y, 4) = Cells(Y, 2) * Cells(Y,3)
    End If

End Sub

迦皇(かのん)はこんなプログラムを書いた。

「じゃあ、3行目以降の2列目と3列目に数字を入力してみてください。」

「はい。」

萌華(もか)は4行目の3列目に100と入力した。
すると5列目に0と自動的に表示された。

つづいて3列目に50と入力すると4列目に3列目と4列目を掛け算した5000が表示された。

「うわっすごい」

「ほかの行にも入力してみてください。」

他の行でも適当な数字を入力すると次々と計算結果が表示されていった。
萌華(もか)の感動は止まらなかった。

次から次へと入力を繰り返した。

「たったこれだけでこんなすごいことができるんですね」

「そうですね」

「これなら、100グラム当たりのカロリーと実際に食べた量を入力したら簡単に何キロカロリーか計算できます」

「まあ、実際にはエラー処理とかいろいろやらないといけないですけどね。でも少し楽しんでもらえればいいかなって思いました」

「すごいです」

「あと、行の追加や削除を行っても大丈夫なんですよ。」

「式のコピーもしなくていいし、これは使えそうです」

「そうですね。数量と金額から逆に単価を出すとか自由にできるのでこのタイプのマクロはすごく重宝しますよ」

「なんか私のExcel君が少し賢くなったような気がします」

天からのAbooの囁き

勘定処理のような単純に単価×数量＝金額というわけにはいかないのがダイエットカロリー計算です。
そもそもの100グラム当たりのカロリーをどうやって導き出すかが全くの謎のままです。
減量にはカロリー計算が欠かせませんが、その根拠となるカロリーをどう導き出すかは常に謎になってしまいます。
冷凍食品や外食であれば具体的なカロリーが表記されていることが多いですが、自炊の場合が問題です。
例えば同じ餃子でも、具がほぼ野菜のものを作る家庭もあれば、お肉たっぷりというところもあるでしょう。
さらにその具の量も少なめのお家と、閉じられないほどパンパンにするお家があるはずです。
そのあたりをうまく考慮できるようなものに仕上げないといけないことになります。
そんなの大体でとか、すこし余裕をもって一番カロリーを高く表示しているものを参考にしてとか、このときは考えるかもしれませんが、食べる時は見かけ上1kcalでも少ない方を選びたくなり、1kcal減量できたことでご褒美で100kcal食べてしまうというのが常です。
食生活の癖をうまくシステムに反映させないといけないです。

「早速、明日会社の書式にマクロを組み込みたいと思います」

「明日、出社するんですか」

「あっ、月曜日出社したらです」

To Be Continued...

■登場人物紹介■

大関萌華(おおぜきもか)

美咲と同じエンジェルスシンジケートで経理課に勤める。
Hカップの巨乳の持ち主といえば聞こえがよいが、肥満の家系に生まれ育つ。
子供のころのあだ名は横綱。
コルセットで急にカッコよくなった美咲にいち早く気づきコルセットダイエットを決意する。
美咲と同じ電車で通勤している。
美咲より数駅遠い町で祖父母と両親、兄3人と暮らす。

水判土迦皇(みずはたかのん)

元フリーのSE。
萌華(もか)の兄の塁の友達の弟。
萌華(もか)が片思いを寄せている。

浦埼美咲 (うらさきみさき)

主人公28歳。独身。彼氏あり。
恵比寿のアパレルメーカー(エンジェルスシンジケート)でネットやカタログ向けの画像加工を行う部署でお仕事中。
自宅は大都会埼玉の大宮駅から少し先のJRの駅からすぐのところに家賃8万円の1LDKに乗り換えなしで職場に通えるというだけの理由で一人暮らし。
性格は周りから周りからちょっとちやほやされてみたい気もするけど、目立つのは苦手という結構ありがちなタイプ。
案外見栄っ張りな一面もある。

本庄歓波(ほんじょうわいは)

エンジェルスシンジケートの珍入社員でどこまでも問題児。
自分の気に入ったものにはとことん固執するのにそれ以外はとことんずぼら。
早合点で超短絡思考でおバカを絵にかいたよう。
自分勝手な性格と誤解されやすく取りつきづらいイメージを持たれ孤立しがち。
しかし本当は・・・。

岩槻陽菜

23歳。
美咲の勤める会社で派遣社員をしている。
社内ではかなりイケているルックスの持ち主。
美咲は彼氏さんの「陽菜ちゃんってかわいいよね」の一言でやきもち持ちを焼いたことから、勝手に美のライバル視している。
陽菜本人はどう思っているかは定かではない。
というかまだ未設定。

阿倍沃(あべよう) 商品開発部長

会社で一番の美人で、モデルもこなし、仕事もできる。
社長の愛人という根の葉もない噂もある。
女子社員は陰で「倍沃」(べよう)と呼んでいる。
本人はそれに気づいているが、そのことはまんざらでもないらしい。
なぜなら倍沃(べよう)はコルセットダイエットの一番人気のバーヴォーグ(Burvogue)の漢字名だからである。
そして今では美咲にとってのコルセットの師匠でもある。

戸田由喜枝

正社員なのになぜか不定期出勤で誰もが一目置く存在。
ミシンの達人であっという間にあらゆる服のお直しをしてしまう。
ミステリアスな存在である。

秋ヶ瀬翔太

美咲の彼氏で同僚。
お人好しで頼まれたら断れない性格。
美咲にだけはなぜかやたら強気。
それ以外は未設定。

須賀谷メロ、森掛(もりかけ)桜、倍賞泉花(せんか)

WEB営業部WEB企画課の三人組
リーダー格で意地悪な須賀谷メロ
嘘付きの森掛(もりかけ)桜
強欲の倍賞泉花(せんか)
社内ではいわゆる腫物だが、本人たちは・・・

神園社長

美咲が務める会社(エンジェルスシンジケート)の社長。
高校生の娘がいる。

妻沼WEB営業課課長

美咲の直属の上司風。
課付きの課長なので実際には部下はいない。
理屈っぽく行動力はない。
ハゲデブで脂ぎっている

川里経理課長

萌華(もか)の直属の上司。
寡黙でなんでも他人事の態度。
貧相なガリガリ出っ歯。

大関一家(年齢順)

　祖父：寅(とら)
　祖母：桂(かつら)
　父　：健人(けんと)
　母　：貴理子(きりこ)
　長男：塁(るい)
　次男：コナン
　三男：三斗(さんと)
　長女：萌華(もか)

トリサミットソン社(やしろ)先生

旧姓は小川。
両親が経営する白蓮総合病院の内科医。
ダイエット外来を担当している。
大関一家に毎週土曜日ダイエットレクチャーを実施。

■作者紹介■

)プロクビレイター(のAbooです。
世界中のウエストをくびれさせることが野望のプロのクビレイターです。
クビレイトに欠かせないものといえばコルセット
コルセットで肋骨を引き締めることでアンダーバストからヒップにかけて整形級のボディラインを作っちゃおうっていう痩身術です。
世間ではコルセットダイエットなんて呼ばれています。