
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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでの延長表計算式を教えてください 5 2022/12/21 12:20
- その他(ビジネス・キャリア) 今時の派遣社員って仕事が出来ないだけじゃなく計算も出来ないのか? 8 2022/07/22 20:53
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Java Java 年数計算 3 2023/01/28 10:52
- C言語・C++・C# C言語(構造体) 3 2022/07/05 20:08
- Java java 飾子を付けること(public static・・・) ・コンソールへの出力処理はmainメ 2 2022/06/16 19:34
- 健康保険 国民健康保険の保険料計算 2 2023/02/03 17:13
- ノートパソコン MacBookのnumbersで、計算式を入力する時 iPadと同じように簡単に入力できる方法があれ 1 2023/03/05 03:07
- ダイエット・食事制限 BMIだけじゃないのかもしれません 3 2023/05/29 05:42
- Java javaの質問です 次の機能を有するメソッド4つを自クラスに作成し、実装したいです 【機能】 足し算 1 2022/06/15 17:49
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
30台前半の女性です。回転寿司...
-
身長168cm、体重53kgはデブなの...
-
石原さとみさんは、身長157くら...
-
体重で教えてください。 今私の...
-
13歳 身長153cm 体重36キロは普...
-
背の高い相手にスパーリングで...
-
彼女にするならスレンダー?ム...
-
女性の方に質問です。
-
身長153センチの平均体重は何キ...
-
月齢の数え方 31日生まれの場合
-
身長148cmで体重40キロは太って...
-
GSX250R CBR250R YZF-25R Ninj...
-
今年で中学二年生です。 女子で...
-
身長162cmで体重51kgです。写真...
-
小6女子です。身長150cmで体重5...
-
身長167で体重95のデブが80キロ...
-
高校2年生陸上部女子です。 体...
-
男女の力の差
-
男性器の上の脂肪を落としたい
-
朝食後にチョコやケーキを食べ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
30台前半の女性です。回転寿司...
-
彼女にするならスレンダー?ム...
-
高校生男子で身長170センチ 60...
-
身長148cmで体重40キロは太って...
-
身長162cmで体重51kgです。写真...
-
学校で倒れたら?
-
朝が175、4センチ、昼が174、4...
-
身長168cm、体重53kgはデブなの...
-
背の高い相手にスパーリングで...
-
13歳 身長153cm 体重36キロは普...
-
小6女子です。身長150cmで体重5...
-
身長157センチで体重45キロって...
-
男性に質問です。あなたの体重...
-
石原さとみさんは、身長157くら...
-
付き合うなら、50kgのガリと90k...
-
身長166cm体重58kg女子なのです...
-
女性の方に質問です。
-
デブですよね、ちなみに平均体...
-
164㎝47㎏は一般的にスタイル良...
-
身長156センチの体重51キロは周...
おすすめ情報