[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『文字変換設定の解除方法』(はる)
以前、「.を2回入力すると自動で:になる」ように
設定したのですが、
その設定解除の方法を忘れてしまいました・・・。
過去ログにあるかと思うのですが、
なかなか探し出せません。。
エクセル上だけでなく、WORDでも
「.を2回入力すると自動で:になる」
ようになってしまっています。
どなたか教えていただけますよう、よろしくお願いいたします。
こちらでしょうか。 [[20040523125849]]『時間入力の自動変換』(koko) (川野鮎太郎)
2003と入力して20:03に変換します。
よかったら一度お試しください。
(SoulMan)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyTime As Variant
Dim MyT As Long
Dim MyM As Long
If Intersect(Target, Range("A1:C20")) Is Nothing Then Exit Sub
MyTime = Target.Value
If VarType(MyTime) <> vbDouble Then Exit Sub
If MyTime < 1 Then Exit Sub
MyT = MyTime \ 100
MyM = MyTime Mod 100
Application.EnableEvents = False
Target.Value = TimeSerial(MyT, MyM, 0)
Application.EnableEvents = True
End Sub
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.