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は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


確認してみて下さい
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 お礼

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