Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60556 / 76732

←次へ　｜　前へ→


	【20814】Re:単位の変換方法

ichinose - 04/12/20(月) 22:05 -


	引用なし

	パスワード

TOKUさん、かみちゃんさん、こんばんは。

>セルA1に0.3
>セルB1に0.3
>セルC1に1.0
>と入力した時にセルD1のTotalが2.0(H)と表示したいのですが、
>うまくいきません。
>※0.3は３０分という意味です。（1.0は１時間）
>　0.3+0.3＝1.0(H)
>

こういう計算をしなければならない場合もあるんですねえ・・・。

0.3を0.5に変換しなければなりませんね・・・。

ユーザー定義関数にしました。

関数名　　　　　：　Addtime_Sp
機能　　　　　　：　時間の足し算を行う
　　　　　　　　　　小数点以下は分です　つまり
　　　　　　　　　　0.3は３０分という意味です、　　です
呼び出し形式　　：　=Addtime_Sp(a1,a2,a3,・・)

例
>セルA1に0.3
>セルB1に0.3
>セルC1に1.0
>と入力した時にセルD1のTotalが2.0(H)と表示したいのですが、
の場合、
セルＤ１に

「=addtime_sp(A1:C1)」

又は、

「=addtime_sp(A1,B1,C1)」

ではコードです。標準モジュールに
'===================================================
Function Addtime_Sp(ParamArray hh()) As Double
　　Addtime_Sp = 0
　　For idx = LBound(hh()) To UBound(hh())
　　　For Each chh In hh(idx)
　　　　Addtime_Sp = Addtime_Sp + Int(chh) + TimeSerial(0, (chh - Int(chh)) * 100, 0) * 24
　　　　Next
　　　Next idx
End Function

確認してみて下さい

0 hits

▼

【20812】単位の変換方法 TOKU 04/12/20(月) 19:54