Excel VBA質問箱 IV

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

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


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

60557 / 76737

←次へ　｜　前へ→


	【20818】Re:単位の変換方法　訂正

ichinose - 04/12/21(火) 10:11 -


	引用なし

	パスワード

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
私、仕様、間違ってたかもしれません。

'==========================================================
Function Addtime_Sp(ParamArray hh()) As Double
　　Addtime_Sp = 0
　　adddec = 0
　　For idx = LBound(hh()) To UBound(hh())
　　　For Each chh In hh(idx)
　　　　Addtime_Sp = Addtime_Sp + Int(chh)
　　　　adddec = adddec + (chh - Int(chh)) * 100
　　　　Next
　　　Next idx
　　Addtime_Sp = Addtime_Sp + (adddec \ 60) + (adddec Mod 60) / 100
End Function
こっちでどうでしょうか？

0 hits

▼

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