Excel VBA質問箱 IV

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

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


60552 / 76732 ←次へ | 前へ→

【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は30分という意味です。(1.0は1時間)
>> 0.3+0.3=1.0(H)
>>
>
>こういう計算をしなければならない場合もあるんですねえ・・・。
>
>0.3を0.5に変換しなければなりませんね・・・。
>
>ユーザー定義関数にしました。
>
>関数名     : Addtime_Sp
>機能      : 時間の足し算を行う
>          小数点以下は分です つまり
>          0.3は30分という意味です、  です
>呼び出し形式  : =Addtime_Sp(a1,a2,a3,・・)
>
>例
>>セルA1に0.3
>>セルB1に0.3
>>セルC1に1.0
>>と入力した時にセルD1のTotalが2.0(H)と表示したいのですが、
>の場合、
>セルD1に
>
>「=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 質問
【20813】Re:単位の変換方法 かみちゃん 04/12/20(月) 21:24 回答
【20814】Re:単位の変換方法 ichinose 04/12/20(月) 22:05 発言
【20818】Re:単位の変換方法 訂正 ichinose 04/12/21(火) 10:11 発言
【20821】Re:単位の変換方法 訂正 TOKU 04/12/21(火) 12:44 お礼
【20853】Re:単位の変換方法 訂正 TOKU 04/12/22(水) 21:54 質問
【20855】Re:単位の変換方法 訂正 ichinose 04/12/22(水) 23:07 回答
【20859】Re:単位の変換方法 訂正 TOKU 04/12/23(木) 0:11 お礼
【20861】Re:単位の変換方法 訂正 ichinose 04/12/23(木) 2:02 発言
【20897】Re:単位の変換方法 訂正 TOKU 04/12/23(木) 20:23 お礼

60552 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free