haveの意味について
http://okwave.jp/qa/q7274556.html
においてANo.3のpurunuさんの回答に関するお礼の中で間違いがあったので書き直しておきます。
田中茂範という人が書いた英語の本で
第４文型：S V O1 O2
のO1とO2の間に[O1 HAVE O2]
の関係があるということが語られているのですが、
私も第4文型全体について、[O1 HAVE O2]というのには疑問があります。例えば
He bears me a grudge.（彼は私に恨みを抱いている）
は[me have a grudge]すなわちI have a grudge.
とすると、「私が恨みを抱いている」となりますが、これは明らかに成り立ちません。また、I wll read you the letter.
（私がその手紙を読んであげるよ）
も、[you have the letter]も、「あなたが手紙を持っている」となりますが、これも成り立ちません。もし、仮定として、"have"が"を経験する"の意味で、
(1)I have a grudge.「私が（彼からの）恨み"を経験する"」
（私のところに（彼からの）恨みがある）
(2)You have the letter.「あなたが手紙"を経験する"」（ちょっと日本語的にも変ですが。。。）
という意味で使われるのであれば理解可能なのですが、"を経験する"の意のhaveがそのような使い方（(1)、(2)）を実際の英語でなされるのを私は知りません。どうなのでしょうか。
。
Excel2003でマクロ作成の初心者です。
３桁または４桁の数字を時刻に変更したいです。
820→8：20 1020→10：20
ネットで捜したら、見つかりましたが、これを実行すると問題点があります。
ア）.NumberFormatLocal = "h:mm;@"を使うとエラーがでるので
実行時エラ－1004
rangeクラスの NumberFormatLocalプロパティを設定できません。
イ） .Formula = Left(t, 2) & ":" & Right(t, 2)に変更しましたが
1020はできましたが、820はできません。
'0820 とするとできます。
これを「'」をいれなくとも 8：20 のようにしたいです。
ウ）また数値を入力したセルを削除すると即座に
実行時エラー13 型が一致しません。とでます。
これを出ないようにしたいのです。
------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
t = Target.Value
'時間に変換する場所を制限します。
'デフォルトでは「A1」と「C1からD2」に入力した場合のみ処理が実行されます
If Application.Intersect(Target, Range("A1,C1:D2")) Is Nothing Then Exit Sub
'入力された数値が4桁以外の場合ははじかれます。
If Len(t) <> 4 Then Exit Sub
With Target
'セルの書式を時間に設定します。
.NumberFormatLocal = "h:mm;@"
'四桁の数字に「：」を追加します。
'この部分はほかにもいろいろな方法があると思います。ので変えてください。
.Formula = Left(t, 2) & ":" & Right(t, 2)
End With
End Sub
