• 締切済み

時刻の取得と経過について

Excelで現在の時刻を取得して、10分後にセルA1に色をつけることができますか。 よろしくお願いします。 現在の時刻をシリアル値にすることはできますか。

みんなの回答

  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

VBAの力が必要になりますが、宜しいでしょうか。 http://msdn.microsoft.com/ja-jp/library/cc384090.aspx のサイトが参考になります。 OnTimeのメソッドです。 参考までに VBエディターで Sub ボタン1_Click() Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure" Range("B1").Value = Time Range("A1").Interior.ColorIndex = 0 End Sub Sub my_Procedure() Range("A1").Interior.ColorIndex = 7 End Sub をコピー ボタン1_Click() をクリックすると 15秒後にmy_Procedure()を実行します。 >現在の時刻をシリアル値にすることはできますか。 が意味不明でしたので B1セルに、クリックした時間が表示されるようにしています。

kokusan00
質問者

お礼

ご回答ありがとうございます。VBAについては初心者で正直よくわかりません。 コピーしてみましたが実行されませんでした。多分、私のやりかたが違うと思います。 例えばエクセル関数等を使用して15時になるとA1セルが赤くなったり、16時になるとA2セルの文字が大きくなったりできるとよいのですが、やはり無理でしょうか。

関連するQ&A

  • セル上の時刻と現在の時刻の比較

    セル上の時刻と現在の時刻の比較 例えば、A1に 13:00 があって、VBA上にnowから取得した現在の時刻とA1セルの13時という時刻を比較したいのですが、これだとA1の方が1900年の時刻となるので比較の意味がありません。そこで、セル上に時刻を手動で書いたときにも比較可能な方法はありませんでしょうか。 セル上に年月日も入力すれば可能と思いますが、それだと運用上の手間が増えるので時刻のみ指定したいのです。日付部分を省いた時刻の情報のみ比較できれば可能とは思うのですが、、 よろしくお願いします。 -- エクセル2003

  • EXCEL 条件付き書式で時刻を条件にする場合

    EXCELで以下のようにセルに時刻を入力して、引き算をして時刻の差を表示しています。 例 A1セルの時刻:12:05 A2セルの時刻:12:04 A3セルの計算式:=A1-A2   セルの表示は0:01 A3に条件付き書式を以下のように入れ、条件を満たすときはセルに色を付けるとしました。 =$A$3=("0:01") しかし、条件を満たしても色が付かないのですが、時刻の入力はどのようにすればいいのでしょうか? よろしくお願いいたします。

  • セルの時刻を変更したい

    Excel2007でマクロ作成中です。 B列とD列に時刻を変更する関数を入れたいのですが、皆目わかりません。 よろしくお願いします。 A列に2種類の時刻が入っています。 ア)下1ケタがゼロの時刻   A1  8:00   A2  9:10   A3  10:30 イ)下1ケタが 5の時刻   A4  9:05   A5  10:35    A6  11:55 B列セルに関数を入れ時刻を次のようにしたいです。 ア)下1ケタがゼロの時刻   B1  8:00 (A1セルと同じ時刻)   B2  9:10 (A2セルと同じ時刻)   B3  10:30 (A3セルと同じ時刻) イ)下1ケタが 5の時刻   B4  9:10 (A4セルに5分プラスの時刻)   B5  10:40 (A5セルに5分プラスの時刻)   B6  12:00 (A6セルに5分プラスの時刻) ----------------------------------------------------------- C列に2種類の時刻が入っています。 ア)下1ケタがゼロの時刻   C1  15:00   C2  16:10   C3  17:30 イ)下1ケタが 5の時刻   C4  13:05   C5  14:35    C6  18:55 D列セルに関数を入れ時刻を次のようにしたいです。 ア)下1ケタがゼロの時刻   D1  15:00 (C1セルと同じ時刻)   D2  16:10 (C2セルと同じ時刻)   D3  17:30 (C3セルと同じ時刻) イ)下1ケタが 5の時刻   D4  13:00 (C4セルから5分マイナスの時刻)   D5  14:30 (C5セルから5分マイナスの時刻)   D6  18:50 (C6セルから5分マイナスの時刻)

  • 日付、時刻の文字情報を日付、時刻データとしてセルに取り込む方法について

    日付、時刻の文字情報を日付、時刻データとしてセルに取り込む方法について エクセルのセル A1に 1999.08.31 B1に 22:15 というデータが文字情報として入力されています。 これを日付、時刻データとして、結合して、 C1に 1999/08/31/22:15 というようにデータを変換したいのですが、 なにか簡単な方法はありませんか。 私としては、C1セルをシリアルデータとして扱い、時刻の足し算、引き算をしたいのです。 このデータが膨大な量ですので、何か、関数を用いて、一度に処理できないのか思案しています。 以上よろしくお願いします。

  • Excelでの時刻入力

    初めて質問を投稿します。 私は仕事でよくExcelを使うのですが、 Excelで時刻入力する際、通常は”15:00”というように入力しますが、 時刻の入力数が多過ぎて、毎回わざわざ”:(コロン)”を入れるのに手間がかかってます。 ”1500”と入力するだけで時刻を入力できる方法ってあるんでしょうか? その入力した時刻データを使って、別セルに関数で計算をさせてるんですが、 シリアル値で入ってないと当然計算ができないので困ってます。 セルの書式設定とかでどうにかできたりするんでしょうか? いい方法をご存知の方、どなたか教えて頂ければ嬉しいです。

  • Now(現在時刻)を取得について

    OS:windows2000pro VB:VB6.0 端末Aにて、Now(現在時刻)を取得すると →"2005/03/08 11:31" 端末Bにて、Now(現在時刻)を取得すると →"05/03/08 11:31" とされます  端末Bが、"2005/03/08 11:31" と取得できないのは、どうしてでしょうか?  また、解決方法をご存知の方は教えて下さい 宜しくお願いいたします

  • VB .netにて現在時刻+1時間後の時刻を取得したい

    VB .netにて現在時刻は DateTime.Now で取得できるのは確認しましたが、現在時刻+1時間後または現在時刻-1時間後のように取得した時刻からの指定経過時刻を取得したいのですが、方法がわかりません。 どなたかご存知の方、よろしくお願い致します。

  • Excelで時刻になったら知らせてくれるように

    こんにちは。わかる方教えて下さい。 Excelで作成したいのですが、セルA1とA2に時間(例:13:00と14:00)をそれぞれ入力。 その時刻になったら音を鳴らして知らせるようにしたいと思っています。 いろいろサイトをみていますが初心者なのでよくわかりません。 OnTimeを使用したらよいと記載されているサイトが多いのですが、使い方がいまいちです。 どのようにしたらよいのか教えていただけないでしょうか。 また、それぞれその時間になったらセルA1とA2に色がつくようにできますかよろしくお願いいたします。 参考URL http://excel-ubara.com/excelvba5/EXCEL104.html を試してみましたがうまくいきませんでした。

  • エクセルで日付+時刻の手入力について

    エクセルで通常、キーボードから 2011/12/15 12:15:17 と入力すればエクセルが日付+時刻の入力だと判断し、シリアル値として扱われます(セルの書式設定から標準で見るとシリアル値になる) 質問:会社のパソコンで20台ためしてみたのですが、1台だけ文字として認識されてしまうパソコンがあります。 このパソコンも日付だけもしくは時刻だけならシリアル値として扱ってくれるのですが日付+時刻の場合だけ文字として認識してしまいます。 バージョンは2003です。 どこか設定が必要なのでしょうか? すみませんが、教えて下さい。

  • 開始時刻から所要時間に応じてセルを塗りつぶすには

    現在仕事である部門の管理をしていまして、各人の作業工程の時間を視覚的に把握したいと思い、それをエクセルでやりたいと思っています。 考えているのは、開始時刻と終了時刻を入力すると、その開始時刻から所要時間分のセルを塗りつぶすというものです。 たとえば、Aさんが8:20から8:27までの作業があったら、8:20から右に7セル分 (1分1セル)を塗りつぶすというものです。 これで各人の作業時間の重複を視覚的に把握したいと思っております。 ガントチャートのようなものですが、さほど凝ったものではなく、簡単な関数で実現できればいいと思っていますが、実際できますでしょうか?

専門家に質問してみよう