• ベストアンサー

経過時間が計算できません。

エクセルのマクロで困っています。 エクセルファイルを閉じる際に、 Cells(1, 1).Value = Now() としてファイルを閉じた時間の記録としています。 次にファイルを開いた時に前回利用時からの 経過時間を表示しようと考えています。 例:「前回利用時から、85 時間経過しています」 1時間未満は切り捨てて時間単位で表したいです。 そこで Cells(2, 1).Value = Now() - Cells(1, 1).Value とすると 「1900/1/4 1:00:24」となってしまいます。 表示形式を[h]と指定すれば、「97」と表示され、 一応経過時間を時間単位で表示してくれます。 ただ、この「97」という数字を他の変数に渡すには どのようにしたらよいのでしょう?

  • erara
  • お礼率37% (189/500)

質問者が選んだベストアンサー

  • ベストアンサー
  • web2525
  • ベストアンサー率42% (1219/2850)
回答No.1

時間計算なら、シリアル値なのでそのまま利用可能。 97の数値がほしいのであれば24倍すればよい。

その他の回答 (1)

  • hige_082
  • ベストアンサー率50% (379/747)
回答No.2

sub お試し() dim a as integer a=cells(2,1).text msgbox a a=cells(2,1).value msgbox a end sub 詳細はヘルプを見てね

関連するQ&A

  •  エクセルでの経過時間の分計算。

     エクセルでの経過時間の分計算。  よろしくお願いします。セル内に”0900”と入力すれば、”=NOW()”関数式で表示されている現在時間からの経過した分を表示できないか考えています。何か良い方法が分かる方がいれば、よろしくお願いします。 例)      A        B        C 1  10:05:39    0900        65 2 3 A1"=NOW()" B1"0900と入力" C1"経過分時間65を表示"

  • 1/10秒単位で経過時間を測りたい

    Excell VBA で 1/10 秒単位で経過時間を表示する方法を教えてください。 現在は次の書式を使っているので、1秒単位でしか表示されません。 MsgBox "所要時間 : " & Format(Now - StartTime, "hh:mm:ss") StartTime は計測開始時刻です。

  • 経過時間を表示したい

    現在の時刻と開始時刻から、経過時間を表示したいです。 現在の時刻は16時30分だったら、16:30 開始時刻は12時15分だったら、12:15という変数があります。 答えで4:30という数字が欲しいです。 経過時間は24時間以下を考えれば良いです。

  • エクセルのマクロでの満年齢および経過時間の表示

    はじめまして、初めて質問させていただきます。 私は、社会福祉施設に勤務しているのですが、 入所されている方のデータをユーザーフォームを使って 管理したいと考えています。 ユーザーフォーム自体は以前に作った事があるのですが 日付のデータは扱ったことがありませんでした。 自動で、入所時の年齢、現在の年齢、入所期間を表示させたいと 考えています。 エクセル上では   A         B       C         D      E        F  名前 生年月日  入所年月日 入所時年齢 現在の年齢 入所期間 1 Aさん 2007/02/21 2008/02/21  50歳   51歳   3ヶ月 2 Bさん 2007/02/21 2008/02/21  55歳   62歳   6ヶ月 3 Cさん 2007/02/21 2009/02/21  60歳   73歳   7ヶ月 4 Dさん 2007/02/21 2010/02/21  65歳   84歳   8ヶ月 5 Eさん 2007/02/21 2012/02/21  70歳   90再   9ヶ月 というようなデータになっています。(数字は適当です) マクロでは、datediffを使えば、計算させることはできるのですが 満年齢ではないと、入所した時の年齢などに不整合が生じてしまい ます。(たとえば、月をまたぐと、一日し変わらないのに入所期間が一月分増えているなど。) エクセルの関数ではdatedifを使えて楽なのですが… (datedifを使って上の表を作ることはできます) マクロで扱うやり方がわかりません。 いくつかのサイトで答えらしきものも見たのですが、 ユーザーフォームを作る以上、変数でも処理しなくてはいけないので たとえば Cells(gyou,1) (gyouは行番号をあらわす変数)など このように変数も使って扱うのでさらに混乱しております。 http://okwave.jp/qa2511599.html なども参考にしては見たのですが 長々としたので質問の要旨は 1マクロで満年齢、満経過日数を扱う方法 2その際に、変数を使えるのかrenge("a1")などのセル指定以外の  指定の仕方、cells(1.1)などでも扱えるのか です。 マクロに関しては、初心者なので、なにとぞよろしく御願いします。

  • 経過時間を表示したい

    エクセル2000を使用しています。 1つの作業の始まりから終わりまでの経過時間を算出して、1ヶ月ごとに平均経過時間を表示させるようにしたいのですが、どのような関数を使用したらいいのかわかりません。どうぞ、教えてください。 例えば、 始まり(セルA2)2002/7/29 16:49  終わり(セルB2)2002/8/1 10:24(日付が変わってしまう場合) 始まり(セルA3)2002/8/6  10:07 終わり(セルB2)2002/8/6  13:41(同日の場合) 平均を求める関数は、単純にAVERAGEでよいのでしょうか。 なお、マクロの知識は全くありませんので、エクセルの関数で教えていただけるようお願いします。

  • エクセルで時間経過計算

    エクセルで、次のようなことができるでしょうか。 A列に開始時間、B列に終了時間を入れ、開始時間と経過時間を入れることによって 自動的に5時00分から21時59分時までの時間を入れたときの経過時間をC列に、 22時00分から4時59分までの時間を入れたときの経過時間をD列に入れたいのです。 例えは、A列(開始時間)に10:00、B列(終了時間)に11:00を入れると、C列に1:00。 A列(開始時間)に1:00、B列(終了時間)2:00を入れると、D列に1:00。 使用ソフトは、エクセル:mac2001ですが、macにとらわれなくても結構ですので、よろしくお願いします。

  • エクセル 時間計算

    開始時間(24時間表示)、経過時間(分表示されている)終了時間(24時間表示)の計算を エクセルでしたいので、教えて下さい。 開始が23:50の時もあります。 経過時間は120の表示の時もあります。 エクセルは2010ヴァージョンです。 無理を言いますが至急お願いします。

  • EXCELで経過時間計算および作図

    実験データをEXCELで計算させ、結果を作図する場合なのですが、 (1)経過時間計算:入力として測定した時間をセルの書式指定で「日付、2006/6/2 16:20」と言った形式を指定したセルに入力し、経過時間を引き算し、その結果をセルの書式指定「時刻 13:30」とすると、経過時間が24時間以内であれば良いのですが、それ以上の時間では24進法で区切られてしまいます。25:00とか100:00時間と言った経過時間を表示させるのはどうしたらよいでしょうか? (2)作図:経過時間を横軸にして、結果を縦軸として作図したところ、横軸がやっぱり24進法で区切られます。これも25:00とか100:00時間と言った経過時間を表示させるのはどうしたらよいでしょうか?

  • Excelで時間経過を表示するには

    今の日付・時間を表示するTODAY関数やNOW関数は、ファイルを開くか、F9キーを押さないとデータを更新しません。なので、例えば、『誕生日まであと何日・・』とか『残り時間はあと何秒・・』というような時間経過が自動更新されながら表示する方法をご教授ください。 関数でできますか?あるいはVBAでプログラミング出来ますか? 宜しくお願いします。

  • エクセルで経過年を表示したい。

    エクセル2000。経過年を表示したい。=DATEDIF(DAYEVALUE(L27),NOW(),"Y")で出ません。出るシートもあったのですが、リターンキーを押すとで=VALUE!になってしまいます。希望は和暦入力ですが、西暦でもかまいません。ちなみに西暦でもだめでした。

専門家に質問してみよう