No.5ベストアンサー
- 回答日時:
Alt + F11 で VBE のウィンドウを開き、メニュー → 挿入 → 標準モジュール
で下記のコードを標準モジュールに挿入します。
フォームのコントロール名がそれぞれ
身長、体重、標準体重、肥満度、BMI とすると
例えば肥満度でしたら
そのコントロールソースに
=debu([身長],[体重]) とすれば良いと思います
Function DEBU(Height As Variant, Weight As Variant) As Variant の引数
Height に「身長」コントロールの値が
Weight には「体重」コントロールの値が入ります。
この下からコピペ
'標準体重=身長(m)の2乗×22、
Function standardWeight(Height As Variant) As Double
On Error GoTo err
standardWeight = (Nz(Height, 0) / 100) ^ 2 * 22
'小数第二位で四捨五入
standardWeight = Int(standardWeight * 10 + 0.5) / 10
Exit Function
err:
standardWeight = -999
End Function
'肥満度(%)=体重/標準体重×100-100、
Function DEBU(Height As Variant, Weight As Variant) As Double
On Error GoTo err
DEBU = Weight / ((Height / 100) ^ 2 * 22) * 100 - 100
DEBU = Fix(DEBU * 10 + 0.5) / 10
'DEBU = Int(DEBU * 10 + 0.5) / 10
Exit Function
err:
DEBU = -999
End Function
'BMI=体重/身長(m)の2乗です。
'入力は体重と身長のみで、身長の単位はcmで入力したいと思っています。
Function BMI(Height As Variant, Weight As Variant) As Double
On Error GoTo err
BMI = Weight / (Height / 100) ^ 2
BMI = Int(BMI * 10 + 0.5) / 10
Exit Function
err:
BMI = -999
End Function
No.4
- 回答日時:
簡単に作るには、
テキストボックス
[身長],[体重],[標準体重],[肥満度],[BMI]
を作成し、
コマンドボタン「計算」を作成し、押下したときのイベントにそれぞれ計算をして表示させるというのがよいと思います。
例としては
Private Sub 計算_Click()
Me.BMI.Value =me.体重.value/(me.身長.value)^2
・・・・・・
me.refresh
End Sub
もしくは計算した値をメッセージボックスで表示させるとか、
身長、体重に数値が正しい単位で入力されていることを入力時、もしくは計算時にチェックしなければなりません。
No.3
- 回答日時:
履歴管理をしなくてよいなら、
フォーム上にテキストボックスをいくつか配置して、身長、体重が入力されたときに標準体重、肥満度などを計算させて表示させるのが(VBAで書くのが)手っ取り早いと思います。
標準体重は計算で出しているものですか? それとも、年齢、性別などでテーブルなどを参照しているのでしょうか?
履歴管理をするならば、テーブルをいくつか作る必要があります。 一般的に使いやすくするためには、感受性のケースでは患者データをフォームに呼び込むためには患者IDを入力した際に、VBAなどでテーブルを検索して該当データをフォームに呼び込んでいした。
この回答への補足
履歴管理はしません。単純に体重と身長を入力したら、計算で標準体重、肥満度、BMIが表示されるようにしたいです。入力は身長(cm)、体重(Kg)のみで、計算式は、標準体重=身長(m)の2乗×22、肥満度(%)=体重/標準体重×100-100、BMI=体重/身長(m)の2乗です。
補足日時:2006/06/22 13:28No.2
- 回答日時:
私なら標準モジュールに自前の関数を作成して
クエリ・フォーム・レポートで呼び出すようにします
これなら不都合が有った場合でも一箇所(関数)を変更すれば良いので
最初は戸惑うかもしれませんが長期的にはメンテナンスがし易いかと
思います。
標準体重、肥満度、BMI の求め方の公式?が分からないので・・
(BMIってなに?)
ここまでにいたします。
この回答への補足
ありがとうございます。標準体重=身長(m)の2乗×22、肥満度(%)=体重/標準体重×100-100、BMI=体重/身長(m)の2乗です。ちなみに入力は体重と身長のみで、身長の単位はcmで入力したいと思っています。よろしくお願いします。
補足日時:2006/06/22 13:41No.1
- 回答日時:
たとえば
[テキスト0]と[テキスト1]というテキストボックスがあって[テキスト2]というテキストボックスに合計を出すとしたら[テキスト2]のプロパティのコントロールソースに=[テキスト0]+[テキスト1]とか書きますね。
コレが一番エクセル的かも。
でも、アクセスの場合、VBAを使う方がわかりやすいかも。
また、データはテーブルに置くと思うのですがそのデータをどういう方法でフォームに表示させるか、そのあたりも気になりますね。連結フォームなのか非連結フォームなのか。
とりあえず、そんなとこですが、他にも計算方法はあります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
高校生男子で身長170センチ 60...
-
月齢の数え方 31日生まれの場合
-
学校で倒れたら?
-
朝が175、4センチ、昼が174、4...
-
165.5㎝で54kgって重いですか?
-
体重は身長に対し標準より10kg...
-
身長162cmで体重51kgです。写真...
-
高校2年生陸上部女子です。 体...
-
身長と体重の比について
-
166cmで55kgは重いですか? 体...
-
デブですよね、ちなみに平均体...
-
小6女子です。身長150cmで体重5...
-
高校生男です。 身長187で体重6...
-
女性の方に質問です。
-
30台前半の女性です。回転寿司...
-
身長168cm、体重53kgはデブなの...
-
彼女にするならスレンダー?ム...
-
付き合うなら、50kgのガリと90k...
-
木村カエラちゃんの体重
-
体育祭でローハイドという競技...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
高校生男子で身長170センチ 60...
-
30台前半の女性です。回転寿司...
-
身長168cm、体重53kgはデブなの...
-
身長162cmで体重51kgです。写真...
-
朝が175、4センチ、昼が174、4...
-
13歳 身長153cm 体重36キロは普...
-
身長148cmで体重40キロは太って...
-
小6女子です。身長150cmで体重5...
-
背の高い相手にスパーリングで...
-
彼女にするならスレンダー?ム...
-
身長165センチの体重77.5キロっ...
-
付き合うなら、50kgのガリと90k...
-
身長156cmで体重49kgって太って...
-
165.5㎝で54kgって重いですか?
-
高校1年男子です。身長170ちょ...
-
男で体重65キロってどう思いま...
-
高校生女子です。身長154cmなん...
-
2歳3ヶ月の子供が身長82センチ...
-
身長165センチの理想体重とBMI
-
体重で教えてください。 今私の...
おすすめ情報