|
こんにちは。かみちゃん です。
>Private Sub Worksheet_Change(ByVal Target As Range)
>を使い、A列に時間の棒打ち(例えば700)と入力して
>「7:00」とするには、どのように書けばよいのでしょうか?
入力した値が変換されず、変数dataが変換されています。
入力した値を変数dataに格納してもいいのですが、
以下のような感じで十分か思います。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
With Application
If .Intersect(Range("A1:A10"), Target) Is Nothing Then Exit Sub
.EnableEvents = False
Target.Value = TimeValue(Format(Target.Value, "0\:00"))
.EnableEvents = True
End With
End Sub
|
|