[[20071010232851]]　『「ctr + :　」で表示される現在時刻に「秒」まで普x（fredjuik）　ページの最後に飛ぶ

『「ctr + :　」で表示される現在時刻に「秒」まで表示させるには？』（fredjuik）

初めて質問させていただきます。初心者でなかなかうまく言い表せないこともあるかと思いますが、皆様寛大なるお心でお許し下さいませm(_ _)m。

さて、表記の件ですが、「ctr + :　」で表示される現在時刻に「秒」まで表示させるにはどうすればよいのでしょうか？セルの書式設定で秒を表示させても常に０秒になって、時　分までしか、正確に表示できません。＝ＮＯＷ（）を使用すると秒まで正確に表示されますが、すぐに再計算されてしまい困っています。

使用目的は、目の前をランナーが走るたびに、「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

 （川野鮎太郎）

 ありですねｂ
　
 （キリキ）（〃⌒o⌒)b

キリキ様、どうもありがとうございました。
もう、あきらめかけていたところに素晴らしい御教授が！
しかも、私のやろうとしている「ctr + :　」なんかよりも遙かに便利な
ダブルクリック！！
感謝感激です。
どうしてできるのかは？？？？？？ですが、これで私も周りの人も
みんな助かります。本当にありがとうございました。

川野鮎太郎様、ご回答ありがとうございます。
ショートカットとは、何ですか？
シートモジュールに教えていただいたものをコピペしても
動きませんでした。もしお時間があればさらに御教授いただければと思います。

 あちらはマルチポスト禁止です。
 マルチポスト状態を解消してください。
 ※マルチポストは解消されました。
 (マルチネス)

 鮎太郎さんのは、標準モジュールに貼り付けて下さい。
 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）

コメント返信：

[ 一覧(最新更新順) ]

[[20071010232851]] 『「ctr + : 」で表示される現在時刻に「秒」まで普x（fredjuik） ページの最後に飛ぶ

[[20071010232851]]　『「ctr + :　」で表示される現在時刻に「秒」まで普x（fredjuik）　ページの最後に飛ぶ