[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『「ctr + : 」で表示される現在時刻に「秒」まで表示させるには?』(fredjuik)
初めて質問させていただきます。初心者でなかなかうまく言い表せないこともあるかと思いますが、皆様寛大なるお心でお許し下さいませm(_ _)m。
さて、表記の件ですが、「ctr + : 」で表示される現在時刻に「秒」まで表示させるにはどうすればよいのでしょうか?セルの書式設定で秒を表示させても常に0秒になって、時 分までしか、正確に表示できません。=NOW()を使用すると秒まで正確に表示されますが、すぐに再計算されてしまい困っています。
使用目的は、目の前をランナーが走るたびに、「ctr + : 」で、通過時刻を記録し、ラップタイムを計算しようとしています。
皆様、ごうかご教授願います。Excel2003 WindowsXP
こんなのは、いかがでしょう? シートモジュールへコピペ '----------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With Target If Intersect(.Cells, Range("A1:A10")) Is Nothing Then Exit Sub Cancel = True .Value = Format(Time, "h:mm:ss") End With End Sub シートモジュールとは、使用したいシートの \Sheet1/ ↑ ここを右クリック → コードの表示 出てきた白い画面にコピペです。 時間を入れたい場所で、ダブルクリックしてみてください。 なお、対象のセルの設定は If Intersect(.Cells, Range("A1:A10")) Is Nothing Then Exit Sub ~~~~~~~ ここで設定していますので、ご自身で修正してください。 (キリキ)(〃⌒o⌒)b
新規でショートカットに割り当てるってのもあり? Sub myTime() ActiveCell.Value = Format(Time, "h:mm:ss") End Sub
(川野鮎太郎)
ありですねb (キリキ)(〃⌒o⌒)b
川野鮎太郎様、ご回答ありがとうございます。
ショートカットとは、何ですか?
シートモジュールに教えていただいたものをコピペしても
動きませんでした。もしお時間があればさらに御教授いただければと思います。
あちらはマルチポスト禁止です。 マルチポスト状態を解消してください。 ※マルチポストは解消されました。 (マルチネス)
鮎太郎さんのは、標準モジュールに貼り付けて下さい。 VBEメニュー・挿入(I)→標準モジュール(M) として出てくる白い画面です。
それから、このコードを実行するには エクセルメニュー・ツール(T)→マクロ(M)→マクロ(M) で、「myTime」を選んで[ 実行(R) ]を押すのですが 同じ所に[ オプション(O) ] があります。 「myTime」を選択した状態で オプションを開き、キーを設定してください。 Ctrl + 指定したキー を押すと 「myTime」マクロが実行出来るようになります。
例えばコードを Sub myTime2() ActiveCell.Value = Format(Time, "h:mm:ss") ActiveCell.Offset(1, 0).Select End Sub こんなのにして、大きなボタンに割り付けておいても良いかもしれません。 オートシェイプで適当な大きさの図形をかいて、右クリック マクロの登録(N)から「myTime2」を選びます。 クリックすると、 現在選択されているセルに時間が入力され、 アクティブセルが一つ下に移動。 を繰り返します。 図形を大きくしておけば、少々のよそ見も大丈夫かと。 図形から外れたら駄目ですが。
(HANA)
(HANA)様 ご丁寧なご回答をありがとうございました。 おかげさまで、よくわかりました。 ランナーのタイム計測も容易になり、助かっています。 最初に自分が考えていたよりも、こんなに便利にできるようになるとは、 驚きと感謝でいっぱいです。 今回はエクセルのすごさに感動しました。自力でもっと使いこなせたらなあ、 と思わずにはいられません。いつかみなさんのように、こちらで 回答できる側にたてるよう勉強していきたいと思います。
ご回答くださった方々、本当にありがとうございました!
(返事が遅くなり申し訳ありませんでした。m(_ _)m)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.