[[20040523125849]] 『時間入力の自動変換』(koko) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『時間入力の自動変換』(koko)

時間を入力する時に皆さんはどうされてますか?

24:00の「:」が少し離れてて面倒ですよね?

そこで、24.00と入力して置換すればいいんじゃないのかなと

あさはかな考えを持ちまして自動記録したんですが出来る時と出来ない時があります。

どなたかお力を貸してもらえないでしょうか?

ちなみに入力する時間はさまざまで「:」のかわりに「.」を入力するだけの

感じがベストなのですが、やはり、無理なのでしょうか?

よろしくお願い致します。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim C As Variant

If Target.Count > 1 Then Exit Sub

If Len(Target.Value) > 5 _
Or Len(Target.Value) < 3 Then Exit Sub

Set C = Target.Find(".", LookIn:=xlFormulas)

    If Not C Is Nothing Then
        Target.ClearFormats
        Target.Replace What:=".", Replacement:=":", LookAt:=xlPart
    End If
End Sub

 ツール→オートコレクトのオプションのオートコレクトタブで
修正文字列「..」→修正後文字列「:」
を設定したらどうですか?
「.」のみだと小数点などの入力時に不都合がでますので・・・
  (マーヤ) 

すばらしいい!!!です。

今まで考えていたのは?????なんだったんでしょうぅぅぅ。。

先に聞けばよかったです。本当に助かりました。ありがとうございました。
(koko)

 


kokoさんと同じ感動です 有難うございました
(かよりん)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.